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

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

дин. загрузка dll [D6, Win95/98]

Алексей Ким ©   (2002-09-02 12:16:00) 

такой вопрос:

dll:
function GetSimpleText(LangRus: Boolean): PChar; stdcall;
begin
if LangRus then
Result := PChar("Здравствуй, мир!")
else
Result := PChar("Hello, world!");
end;

exports GetSimpleText

form1:

var
Form1: TForm1;
GetSimpleText: function(LangRus: Boolean): PChar; LibHandle: THandle;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
@GetSimpleText := nil;
LibHandle := LoadLibrary("MYDLL.DLL");
if LibHandle >= 32 then begin
@GetSimpleText := GetProcAddress(LibHandle,"GetSimpleText");
if @GetSimpleText <> nil then
ShowMessage(StrPas(GetSimpleText(True)));
end;
FreeLibrary(LibHandle);
end;

выдает фатал еррор когда закрываешь
приложение

---

Ученик   (2002-09-02 12:17:00) [1]

GetSimpleText: function(LangRus: Boolean): PChar; LibHandle: THandle; stdcall;

---

Наверх