关于DLL的问题迫切请教高手解决！！！！！！(0分)

ql · 2002-11-21

各位大哥晚上好，小弟我现在正在学习DLL文件的编写和调用，主要是想以后的代码重用。 但现在碰到好多问题急待解决，望热心的朋友给以帮助，万分感谢！！！ 我写了段代码如下请帮忙修改： 1、DLL部分源码： library My; uses   SysUtils,   Classes,   Unit1 in 'Unit1.pas'; exports   MyM; {$R *.res} begin end. unit1部分源码： unit Unit1; interface uses   SysUtils, Classes, Dialogs;   procedure MyM(var a,b : string);export; implementation {$R *.dfm} procedure MyM(var a,b : string); begin   //此处我想把程序中的字符串变量传入到此处！   if (a <> '') and (b <> '') then     begin       MessageDlg(a,mtConfirmation, [mbYes], 0);       MessageDlg(b,mtConfirmation, [mbYes], 0);       a := 'a传递成功';       b := 'b传递成功';       //此处想将a,b变量的新值传递出来！     end   else     MessageDlg('DLL参数动态传递失败！',mtConfirmation, [mbYes], 0); end; end. 2、动态调用DLL程序部分，请帮忙修改 program Project1; uses   SysUtils,   Forms,   Unit1 in 'Unit1.pas' {Form1}; {$R *.res} begin   Application.Initialize;   Application.CreateForm(TForm1, Form1);   Application.Run; end. unit部分源码： unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     Edit1: TEdit;     Edit2: TEdit;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   TMultiplyNum = procedure; var   Form1: TForm1;   MyMultiplyNum : TMultiplyNum;   MyHandle : THandle;   str1,str2 : string; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin   if (edit1.Text = '') or (edit2.Text = '') then     begin       showmessage('请输入信息！');       exit;     end   else     begin       str1 := edit1.Text;       str2 := edit2.Text;       //想将str1,str2变量传入My.dll中不知道该怎么做？       //请高手指点迷津       MyHandle := LoadLibrary('My.dll');       if MyHandle <> 0 then         begin           @MyMultiplyNum := GetProcAddress(MyHandle,'MyM');           if (@MyMultiplyNum) <> nil then             begin               TMultiplyNum(MyMultiplyNum);               FreeLibrary(MyHandle);               //此处想将My.dll中的变量传递出来再附给str1和str2               //不知道该如何做，请高手指点迷津             end;         end       else         application.MessageBox('DLL文件部存在！','系统信息',16);     end; end; end. 但以上程序运行时总报错，我想是参数传递出的问题 若不传递变量则没问题，请教高手帮忙修改 特别焦急，万分感谢！！！！！！

zw84611 · 2002-11-21

{ 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. }

ql · 2002-11-21

我已经将delphimm.dll拷贝到该目录下了 上面的这段我将它给删除了

zw84611 · 2002-11-21

uses   ShareMem; //attention   SysUtils,   Classes,   Unit1 in 'Unit1.pas'

xianguo · 2002-11-21

用pChar型作参数

ql · 2002-11-21

还是不行啊，ShareMem使用静态调用时没问题的

ql · 2002-11-21

我想的程序是在参数传递方面出的问题， 请问动态调用DLL文件时如何将变量传入和传出？？？

zw84611 · 2002-11-21

type   TMultiplyNum = procedure (var a,b : string);

ql · 2002-11-21

zw84611你好，我长见识了，非常感谢 请帮忙改一下，万分感谢！！！ procedure TForm1.Button1Click(Sender: TObject); begin   if (edit1.Text = '') or (edit2.Text = '') then     begin       showmessage('请输入信息！');exit;     end   else     begin       str1 := edit1.Text; str2 := edit2.Text;       MyHandle := LoadLibrary('My.dll');       if MyHandle <> 0 then         begin           @MyMultiplyNum := GetProcAddress(MyHandle,'MyM');           if (@MyMultiplyNum) <> nil then             begin               TMultiplyNum(MyMultiplyNum);//为什么这句报错，无法通过？？？               //我想再得到经过DLL处理的a,b变量！               //请问错在那里？如何修改？请指教！！！！！！               FreeLibrary(MyHandle);             end;         end       else         application.MessageBox('DLL文件部存在！','系统信息',16);     end; end;

zw84611 · 2002-11-21

fait... a,b: string; if (@MyMultiplyNum) <> nil then MyMultiplyNum(a,b);

ql · 2002-11-21

zw84611成功了，万分感谢，你帮我解决了个大难题，太谢谢了，我爱你。。。。。。。。

关于DLL的问题迫切请教高手解决！！！！！！(0分)

ql

Unregistered / Unconfirmed

zw84611

Unregistered / Unconfirmed

ql

Unregistered / Unconfirmed

zw84611

Unregistered / Unconfirmed

xianguo

Unregistered / Unconfirmed

ql

Unregistered / Unconfirmed

ql

Unregistered / Unconfirmed

zw84611

Unregistered / Unconfirmed

ql

Unregistered / Unconfirmed

zw84611

Unregistered / Unconfirmed

ql

Unregistered / Unconfirmed

Similar threads