动态调用dll时的问题。请高手帮助(100分)

fxh7622 · 2003-09-24

下面是我调用动态连接库的代码，为什么 GetprocAddress的返回值总是NIL呢？？？ uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, Mask,  ComCtrls, ToolWin, Menus, RzTreeVw, RzListVw,   ExtCtrls, KindFormCaption, KindMenu, ImageStatus, ImgList, IEButton,   dcOutBar, dcOutPanel; Type TDllStr=Function :String; type   TFormMain = class(TForm)     MainMenu: TMainMenu;     ToolBar1: TToolBar; ...... ..... var   Main:TMenuItem;   Found:Integer;   sr:TSearchRec;   Handle:THandle;   DirFile,DllFile:String;   Proc:TFarproc; ......     DllFile:=Dir+'/'+sr.Name;     Handle:=LoadLibrary(Pchar(DllFile));     if Handle<HINSTANCE_ERROR  then     begin       Application.MessageBox('加载动态库失败','失败',MB_OK);     end     else     begin       Proc:=GetprocAddress(Handle,'Getinfo');      ......

xianjun · 2003-09-24

@Proc:=GetprocAddress(Handle,'Getinfo'); if @Proc = nil then   RaiseLastOSError;

fxh7622 · 2003-09-24

xianjun不正确，根本不能运行的。提示错误在GetprocAddress行。

fxh7622 · 2003-09-24

请大家帮助呀！！！！

52free · 2003-09-24

@Proc:=GetprocAddress(Handle,'Getinfo');<<这儿应该是楼主的对吧 单步调试的时候走到上面这一句了吗？

52free · 2003-09-24

如果像那样用 proc:TDllStr这样声明才对

fxh7622 · 2003-09-24

走到了，可是过了GetprocAddress后查看Proc＝nil

fxh7622 · 2003-09-24

52free 你说的方法我试了，好像也是不正确的。就在GetprocAddress一句

fxh7622 · 2003-09-24

能给我一个调用一个DLL后有返回值（string类型）的例子吗？谢谢了。

52free · 2003-09-24

Getinfo在dll中有没有导出

fxh7622 · 2003-09-24

52free 在dll中有导出的利用静态调用没有什么问题的。

52free · 2003-09-24

留信箱

fxh7622 · 2003-09-24

zhangchao_7622@hotmail.com

fxh7622 · 2003-09-24

有没有朋友帮助我呀！！！

52free · 2003-09-24

马上发，请查收

fxh7622 · 2003-09-24

各位帮我，急！！！

52free · 2003-09-24

你没收到吗？？？？？ 发到你的信箱中了

fxh7622 · 2003-09-24

没有。

52free · 2003-09-24

library dll; { Important note about DLL memory management: ShareMem must be the   first unit in your library's USES clause AND your project's (select   Project-View Source) USES clause if your DLL exports any procedures or   functions that pass strings as parameters or function results. This   applies to all strings passed to and from your DLL--even those that   are nested in records and classes. ShareMem is the interface unit to   the BORLNDMM.DLL shared memory manager, which must be deployed along   with your DLL. To avoid using BORLNDMM.DLL, pass string information   using PChar or ShortString parameters. } uses   sharemem,<<注意这儿，如果用string型需引用这个单元   SysUtils,   Classes; function getstr:string;   begin      result:='52free';   end; {$R *.res}   exports getstr; begin end.

52free · 2003-09-24

这是调用dll的工程文件的单元 program Project1; uses   sharemem,<<注意这儿，同理   Forms,   dfd in 'dfd.pas' {Form1}; {$R *.res} begin   Application.Initialize;   Application.CreateForm(TForm1, Form1);   Application.Run; end.

动态调用dll时的问题。请高手帮助(100分)

fxh7622

Unregistered / Unconfirmed

xianjun

Unregistered / Unconfirmed

fxh7622

Unregistered / Unconfirmed

fxh7622

Unregistered / Unconfirmed

52free

Unregistered / Unconfirmed

52free

Unregistered / Unconfirmed

fxh7622

Unregistered / Unconfirmed

fxh7622

Unregistered / Unconfirmed

fxh7622

Unregistered / Unconfirmed

52free

Unregistered / Unconfirmed

fxh7622

Unregistered / Unconfirmed

52free

Unregistered / Unconfirmed

fxh7622

Unregistered / Unconfirmed

fxh7622

Unregistered / Unconfirmed

52free

Unregistered / Unconfirmed

fxh7622

Unregistered / Unconfirmed

52free

Unregistered / Unconfirmed

fxh7622

Unregistered / Unconfirmed

52free

Unregistered / Unconfirmed

52free

Unregistered / Unconfirmed

Similar threads