| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Система проговаривания времени [D5, Win2k, WinXP]

Smok_er ©   (2002-07-09 09:47:00) 

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

---

Smok_er   (2002-07-09 12:25:00) [1]

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

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

---

handra   (2002-07-09 10:58:00) [2]

скачал несколько 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 проговаривает текущеевремя.

---

Наверх