Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.31;
Скачать: CL | DM;

Вниз

динамической загрузке DLL   Найти похожие ветки 

 
Jul   (2002-10-22 11:44) [0]

Добрый день.
Могли бы вы поконсультировать профана в вопросе динамической загрузке 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) [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 для
надёжности...



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

Текущий архив: 2002.10.31;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.02 c
8-101380
kaif
2002-07-03 13:27
2002.10.31
OpenGL. Как восстановить 3D сцену из срезов?


3-101072
Roma111
2002-10-09 10:10
2002.10.31
Глюк в QuickReport


1-101353
()utLaw
2002-10-20 00:00
2002.10.31
Запуск и завершение программы принудительно.


14-101434
Jackson
2002-10-08 21:50
2002.10.31
Два вопроса


6-101426
XHelp
2002-09-01 14:42
2002.10.31
idHTTP + Proxy???