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

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

динамической загрузке DLL [D4, Win2k]

Jul ©   (2002-10-22 11:44:00) 

Добрый день.
Могли бы вы поконсультировать профана в вопросе динамической загрузке DLL.
Я приведу код, в статическом варианте все работает, при динамической загрузке функция из DLL - GetSimpleTextвозвращает неправильное значение, не реагируя на входной параметр. При выгрузке появляется exception - Access violation.
Спасибо.
GetSimpleText: function(LangRus: Boolean): PChar;
LibHandle: THandle;

implementation

{$R *.DFM}

//function GetSimpleText(LangRus: Boolean): PChar; stdcall; external "fileutl.dll";
//function GetSimpleText(LangRus: PChar): PChar; stdcall; external "fileutl.dll";

procedure TForm1.Button1Click(Sender: TObject);
begin
@GetSimpleText := nil;
LibHandle := LoadLibrary("fileutl.dll");
if LibHandle <> 0 then begin
@GetSimpleText := GetProcAddress(LibHandle,"GetSimpleText");
if @GetSimpleText <> nil then
ShowMessage(StrPas(GetSimpleText(True)));
end;
FreeLibrary(LibHandle);
// ShowMessage(StrPas(GetSimpleText(True)));
// ShowMessage(StrPas(GetSimpleText(False)));
end;

---

Skier   (2002-10-22 11:48:00) [1]

>Jul


type
TGetSimpleText = function(LangRus: Boolean): PChar;stdcall;
var
LibHandle: THandle;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
GetSimpleText : TGetSimpleText;
begin
@GetSimpleText := nil;
LibHandle := LoadLibrary("fileutl.dll");
if LibHandle <> 0 then begin
@GetSimpleText := GetProcAddress(LibHandle,"GetSimpleText");
if @GetSimpleText <> nil then
ShowMessage(StrPas(GetSimpleText(True)));
end;
FreeLibrary(LibHandle);
end;


И замени Boolean на Integer для
надёжности...

---

Наверх