Dll error ???

← →
AndrewVolkov (2003-05-20 18:37) [0]

Всем доброго дня.
Пытаюсь написать свою длл.
Взял все из примера на этом сайте

это проджект
procedure TForm1.Button1Click(Sender: TObject); begin try begin @GetSimpleText:=nil; LibHandle:=LoadLibrary("charcnv.dll"); if LibHandle>=32 then begin @GetSimpleText:=GetprocAddress(LibHandle,"GetSimpleText"); if @GetSimpleText<>nil then ShowMessage(StrPas(GetSimpleText(True))); end; FreeLibrary(Libhandle); end; except end; end;
это текст длл

library charcnv; uses SysUtils, Classes; function GetSimpleText(LangRus:Boolean):PChar;stdcall; begin if LangRus then Result:=PChar("Russian") else Result:=PChar("English"); end; exports GetSimpleText; begin end.

все находится в одном фолдере
что происходит. жму на кнопку - выдается сообщение с надписбю "Russian". Все как бы красиво. Но призакрытии окна сообщения через крестик или ок дебаггер делфи вылетает с ошибкой
access violation at address ; write of address 0x00432a40
и помогает только сброс программы через ресет в делфях
Если же ексешник запускать, то ошибок нету, но при закрытии мессаджа закрывается и вся программа.

В чем может быть проблема???

← →
Palladin © (2003-05-20 18:39) [1]

покажи описание процедуры в проджекте...
и для чего лишние операторные скобки? затрудняет чтение...

← →
AndrewVolkov (2003-05-20 18:41) [2]

вот весь проджект, тут то и нет ничего особого.

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; GetSimpleText:function(LangRus:Boolean):PChar; LibHandle:THandle; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin try begin @GetSimpleText:=nil; LibHandle:=LoadLibrary("charcnv.dll"); if LibHandle>=32 then begin @GetSimpleText:=GetprocAddress(LibHandle,"GetSimpleText"); if @GetSimpleText<>nil then ShowMessage(StrPas(GetSimpleText(True))); end; FreeLibrary(Libhandle); end; except end; end; end.

← →
VMcL © (2003-05-20 18:45) [3]

IMHO, надо переделать GetSimpleText:
procedure GetSimpleText(LangRus: Boolean; Res: PChar); stdcall;

← →
MBo © (2003-05-20 18:45) [4]

Не приведено определение GetSimpleText в программе. stdcall не забыл?

← →
Palladin © (2003-05-20 18:45) [5]

мда, ты уверен что ты все делал в соответствии со статьей?
попробуй заменить вот этот кусок

var Form1: TForm1; GetSimpleText:function(LangRus:Boolean):PChar; LibHandle:THandle;
на этот
Type TMyFunc=function (LangRus:Boolean):PChar; stdcall; var Form1: TForm1; GetSimpleText:TMyFunc; LibHandle:THandle;

← →
Skier © (2003-05-20 18:46) [6]

>AndrewVolkov

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
LibHandle:THandle;
implementation

{$R *.dfm}

type
TGetSimpleText : function(LangRus:Boolean):PChar; stdcall;

procedure TForm1.Button1Click(Sender: TObject);
var
GetSimpleText : TGetSimpleText;
begin
try begin
@GetSimpleText:=nil;
LibHandle:=LoadLibrary("charcnv.dll");
if LibHandle>=32 then begin
@GetSimpleText:=GetprocAddress(LibHandle,"GetSimpleText");
if @GetSimpleText<>nil then
ShowMessage(StrPas(GetSimpleText(True)));
end;
FreeLibrary(Libhandle);
end;
except

end;

end;

end.

2)

← →
AndrewVolkov (2003-05-20 18:49) [7]

type не помог;
stdcall не хватало :))
а для чего он нужен в прождекте, разве его в длл не хватает?
Спасибо

← →
Skier © (2003-05-20 18:52) [8]

>type не помог;
Странно...

← →
Palladin © (2003-05-20 18:53) [9]

> Skier © (20.05.03 18:52)

странно не это

> а для чего он нужен в прождекте, разве его в длл не хватает?

вот это странно

← →
AndrewVolkov (2003-05-20 18:53) [10]

kak Skyer тоже работает

← →
MBo © (2003-05-20 18:54) [11]

> разве его в длл не хватает?
нет, конечно.
И вызываться и выполняться процедура должна с одним соглашением.
Откуда программа-то узнает, какое оно в DLL?

← →
AndrewVolkov (2003-05-20 18:54) [12]

то Palladin
что странно?

← →
AndrewVolkov (2003-05-20 18:56) [13]

тогда я может чего-то недопонимаю
Для чего он нужен- stdcall

> AndrewVolkov (20.05.03 18:53)

соглашения о вызовах должны быть одинаковы...

доктор тебе в узкий стакан положит снотворное для бабушки и слабительное для тебя, а ты об этом не узнаешь и решишь что первая для тебя а вторая для бабушки, вот весело будет...

>AndrewVolkov

> kak Skyer тоже работает

Ну вот...другое дело ! :)

По умолчание в Delphi используется соглашение register, но
раз уж ты написал в DLL stdcall, то будь добр и в host-приложении так же написать, а то больно будет - граблями по лбу.

F1 Calling conventions

Удалено модератором
Примечание: OffTopic

Dll error ??? Найти похожие ветки