往DLL动态库函数传送对象时出错(50分)

siaosa · 2003-03-01

往DLL动态库函数传送对象时出错 在一个DLL项目中申明以下函数，这样对吗？ function fBool_ExistMDIForm(MainForm,MDIForm:TForm):Boolean;stdcall; //MainForm为MDI主表单，MDIForm为MDI子表单 var   i:Integer; begin   i:=0;   while i<MainForm.MDIChildCount do   begin     begin       if MainForm.MDIChildren.Name=MDIForm.Name then          break                        //如果找着同名的子表单则程序退出循环       else          i:=i+1;     end;   end;    if MainForm.MDIChildren.Name=MDIForm.Name then       Result:=True               //找到同名的表单返回真，否则退回假    else       Result:=False; end; 调用方式在MDI子表单的OnActivate代码中调用,Form1是MDI主表单名   if fBool_ExistMDIForm(Form1,self) then   begin      showmessage('已经运行了一个实例');   end; 程序在运行时报错 Access violation at address 00281f0e in modul 'XXXXXX.DLL'. Read of address 00000008 如果将DLL中的.Name改成.Caption，程序不报错，但运行结果不对，不知道为什么。

kycheung · 2003-03-01

老兄還沒搞好嘛，改用句柄不行嗎  

windbell · 2003-03-01

在dll中，mdi主窗口的mdichilcount和children不能正确返回其值!所以出错

siaosa · 2003-03-01

TO:kycheung 用句柄怎么弄？我不知道，给个示例行吗？

kycheung · 2003-03-01

示例是沒有啦，我以前也做過這樣一個ＤＬＬ文件用來檢測主窗體是否已運行。直接用窗體名稱是不能在另外一個程序中找到。所以在函數參數傳遞時要用句柄

siaosa · 2003-03-01

TO:kycheung 能把您DLL的原码发给我看一下吗？

kycheung · 2003-03-01

兄弟，不是我不舍得，是程序放在家里，現在在上班啊！如果不怕遲，晚上發給你！ kycheung@yeah.net

caffen · 2003-03-01

个人认为，最好不要在DLL里面控制主form的东西

siaosa · 2003-03-01

TO:kycheung 我的email: lxsmake@163.net 先谢过了

barton · 2003-03-01

兄弟，Form.Name是个string类型。你试试两端项目文件中加上ShareMem单元试试。 不过我有一个好办法： 在项目两端分别定义一个消息常量和两个响应值： const   WM_QUERYMAINFORM = WM_USER + 400;   RESPONSE_AGREE = $1888;   RESPONSE_DENY = $1889; 然后在主Form端中加一个消息句柄：   procedure WmQueryMainForm(var message: TMessage); message WM_QUERYMAINFORM;   var     P: PChar;     S: string;     I: Integer;   begin     message.Result := RESPONSE_AGREE;     P := PChar(Pointer(message.LParam));     S := StrPas(P);     for I := 0 to Pred(MDIChildCount) do       if AnsiUpperCase(S) = AnsiUpperCase(MDIChildren.ClassName) then       begin         message.Result := RESPONSE_DENY;         Break;       end;   end; 在子Form端的Form中加入一个类方法: class function QueryMainForm(MainForm: TForm):Boolean; var   P: PChar;   S: string; begin   S := ClassName;   P := StrAlloc(Succ(Length(S));   try     StrPCopy(P, S);     Result := SendMessage(MainForm.Handle, WM_QUERYMAINFORM, 0, Integer(P)) = RESPONSE_AGREE;   finally     StrDispose(P);   end; end; 注意，必须是类方法，在建立这个子Form前调用，如果成功则建立这个子Form否则，报错。 只能根据类名来查询而不能根据名称，因为类名是类方法而名称是实例方法。

siaosa · 2003-03-02

barton您的方法好像不是调用DLL吧？

barton · 2003-03-02

奇了怪了，为什么不是调用DLL？明明给你说是宿主程序和DLL端的。 宿主程序项目无需引用子ChildForm的单元，DLL程序项目也无需引用MainForm的单元。 这种方式好象是Borland标准的方式。 如果在D5或以前的版本，不建议采用这种方式，但从D6开始，Delphi大量缩减了Forms单元 可能产生的目标二进制代码，所以将Forms单元分开进多个项目中并不会对目标二进制文件 的大小产生太大的影响。因此我个人认为，Borland正是出于对多个项目协同工作的方便出 发的。 如果以上代码稍加改进，可以用在不同的进程间的代码共享；如果在加上Socket机制，可以 在不同的主机上进行代码共享。这一点我已经实现了。我有个项目在windows下已经完全摆脱 DCOM/CORBA实现了远程调用(包括调用远程主机上的Form)，当然远程主机上必须启动一个类 似服务器的程序，将远程主机上的Windows消息翻译成TCP/IP包，发送给远程的宿主程序。这 样，宿主程序可以非常非常小(可以只包括一个主Form甚至只包括一个MainProc，最小可以只 有50K大小)，而功能可以非常非常强大。

Cut.fei · 2003-03-03

function fBool_ExistMDIForm(MainForm,MDIForm:TForm):Boolean;stdcall; 其中MainForm、MDIForm的类型不应该定义成TForm的。 应定义本身的类。

Cut.fei · 2003-03-03

procedure TfrmMain.CreateMDIChildForm(FormClass: TFormClass); var   newForm:TForm;   i:integer;   bFound:Boolean; begin   newForm:=nil;   bFound:=False;   for i:=0 to MDIChildCount-1 do     if  MDIChildren is formClass then begin         newForm:=MDIChildren;         bFound:=True;         break;   //查找是否存在FormClass类的窗体     end;    try    if not bFound then     newForm:=formClass.Create(Self); //不存在，创建     newForm.show;    except      NewForm.free;    end; end; //------------------------------------------------------------------------------ 这是一个创建子窗体的过程，你可以修改后封装进Dll中

siaosa · 2003-03-03

接受答案了.

往DLL动态库函数传送对象时出错(50分)

siaosa

Unregistered / Unconfirmed

kycheung

Unregistered / Unconfirmed

windbell

Unregistered / Unconfirmed

siaosa

Unregistered / Unconfirmed

kycheung

Unregistered / Unconfirmed

siaosa

Unregistered / Unconfirmed

kycheung

Unregistered / Unconfirmed

caffen

Unregistered / Unconfirmed

siaosa

Unregistered / Unconfirmed

barton

Unregistered / Unconfirmed

siaosa

Unregistered / Unconfirmed

barton

Unregistered / Unconfirmed

Cut.fei

Unregistered / Unconfirmed

Cut.fei

Unregistered / Unconfirmed

siaosa

Unregistered / Unconfirmed

Similar threads