关于DLL问题(50分)

yytxt · 2004-03-22

请问各位， DLL中的函数难道不能返回一些值吗？ 比如我写了如下一个DLL: project1文件： library TestDLL; uses   SysUtils,   Classes,   TestDLLF in '../TestDLLF.pas'; {$R *.res} exports   MyTestDLL; begin end. TestDLLF文件： unit TestDLLF; interface uses   ShareMem, Classes, StrUtils, SysUtils, IdGlobal, Dialogs;   function MyTestDLL: string; stdcall; implementation function MyTestDLL: string; begin   Result := 'True'; end; end. 测试程序： unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     procedure Button1Click(Sender: TObject);   end; var   Form1: TForm1;   function MyTestDLL: string; stdcall; external 'TestDLL.DLL'; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var   OneHandle: THandle;   PFunc: TFarProc; begin   OneHandle := LoadLibrary('TestDLL.dll');   try     PFunc := nil;     if OneHandle <> 0 then       PFunc := GetProcAddress(OneHandle, 'MyTestDLL');     if not (PFunc = nil) then       ShowMessage(MyTestDLL)     else       RaiseLastWin32Error;   finally     FreeLibrary(OneHandle);   end; end; end. 运行测试程序时，TestDLL的内容执行了，但在执行结束后出现了“Invalid Pointer Operation”的错误。 如果将TestDLLF文件改为： unit TestDLLF; interface uses   ShareMem, Classes, StrUtils, SysUtils, IdGlobal, Dialogs;   function MyTestDLL: string; stdcall; implementation function MyTestDLL: string; begin   ShowMessage('True'); end; end. 相应的测试程序为： procedure TForm1.Button1Click(Sender: TObject); var   OneHandle: THandle;   PFunc: TFarProc; begin   OneHandle := LoadLibrary('TestDLL.dll');   try     PFunc := nil;     if OneHandle <> 0 then       PFunc := GetProcAddress(OneHandle, 'MyTestDLL');     if not (PFunc = nil) then       MyTestDLL     else       RaiseLastWin32Error;   finally     FreeLibrary(OneHandle);   end; end; 这样运行测试程序，则不会出错。 请问各位高手，究竟问题出在什么地方？

雪中漫步 · 2004-03-22

function MyTestDLL: pchar;试试

pgjeffrey · 2004-03-22

同意楼上！

akalun · 2004-03-22

代码够乱的 首先在dll中 function MyTestDLL: string; stdcall; implementation function MyTestDLL: string; 你在声明中用了stdcall,在实现中就应该加上 第二 在测试程序TestDLLF中 你同时用到了静态载入 function MyTestDLL: string; stdcall;external 'TestDLL.DLL'; 和动态载入  OneHandle := LoadLibrary('TestDLL.dll');  try    PFunc := nil;    if OneHandle <> 0 then      PFunc := GetProcAddress(OneHandle, 'MyTestDLL');    if not (PFunc = nil) then      MyTestDLL    else      RaiseLastWin32Error;  finally    FreeLibrary(OneHandle);  end; 在动态载入的语句中  if not (PFunc = nil) then      MyTestDLL    else 成功的话就调用静态载入的函数，动态载入等于没起作用 应该改为  if not (PFunc = nil) then     PFunc    else 在声明部分应该该为 uses  ShareMem, Classes, StrUtils, SysUtils, IdGlobal, Dialogs; implementation var    PFunc:function:string;stdcall; 第三 如果在dll中要用到字符串变量最好定义成pchar类型

app2001 · 2004-03-22

如果加了ShareMem单元，请同时发布Borlndmm.dll，这样试试？？

yytxt · 2004-03-23

我按各位所给出的提示都试了一遍，可是还是存在地址访问错误或非法指针操作等错误。 ：（ 苦恼！ 不知还有哪位可以提供一些思路。问题究竟出在哪儿呢？

关于DLL问题(50分)

yytxt

Unregistered / Unconfirmed

雪中漫步

Unregistered / Unconfirmed

pgjeffrey

Unregistered / Unconfirmed

akalun

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

yytxt

Unregistered / Unconfirmed

Similar threads