Скачать: CL | DM;

Система проговаривания времени   Найти похожие ветки 

← →
Smok_er   (2002-07-09 09:47) [0]

Уважаемые мастера!
Возможно кто-то из вас сталкивался с программой Speaking Clock Deluxe ( http://www.lux-aeterna.com), которая умеет проговаривать текущее время. Принцип работы основан на подключении dll. Для каждого языка своя dll, которые записывают по всему миру. Сейчас в коллекции около 25-30 языков.
Излазил весь интернет, но никак не могу найти доки по работе с данными dll, а писать свои просто бессмысленно.
МОжет кто слышал, видел, сталкивался с сабжем - помогите пожалуйста. Интересует все.

---

← →
handra ©   (2002-07-09 10:58) [1]

скачал несколько DLL по ссылке, в течение 10-ти минут я выяснил, что все они экспортируют функцию:
procedure Speak; stdcall;.

т.е. определяем тип
TSpeakProc = procedure ; stdcall;
кидаем на форму две кнопки и TOpenDialog, обработчики:

procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Execute;
end;

procedure TForm1.Button2Click(Sender: TObject);
var hLib: THandle;
SpeakProc: TSpeakProc;
begin
hLib := LoadLibrary(PChar(OpenDialog1.FileName));
if hLib=0 then ShowMessage("Can""t loadlibrary!")
else begin
SpeakProc := GetProcAddress(hLib,"Speak");
if @SpeakProc=nil then ShowMessage("Can""t find procedure!")
else
try
SpeakProc;
finally
end;
FreeLibrary(hLib);
end;
end;

Вот собственно и все, функция в DLL проговаривает текущее время.

---

← →
Smok_er   (2002-07-09 12:25) [2]

Большое спасибо!
Работает!

Хотелось бы узнать, как расковыривать dll и, относительно вопроса, как узнать, к какому языку относится файл, из самой dll?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c