Delphi制作Dll全集(0分)

lbmjy · 2001-10-06

我遇到的问题与ynjinti一样，想在主控程序控制Dll中的MDIChildForm， 非常想知道解决问题的方法。    lbmjy@163.net

蛐蛐 · 2001-10-06

贴出来嘛，好东东，要大家分享才好。

免费得到 · 2001-10-08

洗耳恭听！

冰 原 · 2001-10-08

听课

zhuhuan · 2001-10-08

嘿嘿,其实从DLL中创建Form(无论室MDI还是其他FORM)有另外一种方法,至今不太见到,其实 DLL和EXE在同一进程空间,那和BPL有什么不一样呢?为什么BPL可以直接使用其类,而DLL就不 可以?当然可以!答案在D2 Unleashed里(后续的Unleasned里反而不见了).

刘永学 · 2001-10-27

dll学习的书籍中，有几本讲的较好， 其一为：delphi5开发人员指南《机械工业出版社》2000年//非常好，建议购买 其二为：《精通delphi》姚庭宝电子工业出版社 1997年 其三为：《delphi2 程序设计大全》《机械工业出版社》//好，想买也买不到 COM： 1、delphi com 深入编程机械工业出版社 2、徐新华的书，书名忘了//深入不浅出 3、李维delphi5.x高级程序设计篇//好，有高手风范 数据库及电子商务 李维的delphi5.x丛书 控件制作、使用 1、delphi第三方控件使用大全中国水利水电出版社//建议不要买，看看就可以了 2、delphi部件开发编程深入剖析机械工业出版社  //其中有一个数值计算控件蛮好的 opengl open gl 三维图形设计与制作人民邮电出版社 //c++的例子 可视化opengl程序设计清华大学出版社//较好，有示例 delphi 多媒体特效制作百例//中国电力出版社，看看就行了，不要买，将随书的光盘栲下来就可以 操纵office 网上有很多例子，查找一下就可以了 以上是我这4年的学习心得，大家可以参考一下！！

zhang12321 · 2001-11-09

太好了.我已经看到阿朱的好几个好文了.多谢了

!!!!!!!!!!!!!!!

yxq1220 · 2001-11-09

谢谢

lop · 2001-11-09

没什么好说的了，谢谢！

tkggai · 2001-11-09

阿朱：谢谢你了：tkggai@sian.com

dcsdcs · 2001-11-09

主程序： function dcs_logon(input:tstringlist):Tstringlist;far; external 'logondll.DLL'; var   namelist:Tstringlist; begin   namelist:=Tstringlist.Create;   namelist.Append('dcs');   try   namelist:=dcs_logon(namelist);   except   end;   if namelist.Strings[0]='0' then     begin     label1.Caption:='用户名：'+namelist.Strings[1];     label2.Caption:='密码：'+namelist.Strings[2];     end   else     begin     label1.Caption:='用户取消登录';     label2.Caption:='';     end; end; dll程序： uses   SysUtils,   Classes,   loginunit in 'loginunit.pas' {loginform}; {$R *.RES} exports   dcs_logon index 1; begin end. function dcs_logon(input:tstringlist):Tstringlist; var   loginform: Tloginform; begin     try         loginform:=Tloginform.Create(application);         loginform.ComboBox1.Items.Clear;         loginform.ComboBox1.Items.AddStrings(input);         loginform.ShowModal;         res.Strings[1]:=loginform.ComboBox1.Text;         res.Strings[2]:=loginform.Edit2.Text;         result:=res;     finally         loginform.Free;     end; end;

EdwinYeah · 2001-11-10

关于制作DLL,<delphi 5开发人员指南第九章有详细介绍,以下是目录: 第9章   动态链接库 234 9.1   究竟什么是DLL 234 9.2   静态链接与动态链接 235 9.3   为什么要使用DLL 236 9.3.1   共享代码、资源和数据 236 9.3.2   隐藏实现的细节 237 9.3.3   自定义控件 237 9.4   创建和使用DLL 237 9.4.1   数美分：一个简单的DLL 237 9.4.2   显示DLL中的模式窗体 239 9.5   显示DLL中的无模式窗体 241 9.6   在Delphi应用程序中使用DLL 242 9.7   DLL的入口函数和出口函数 246 9.7.1   进程/线程初始化和终止例程 246 9.7.2   DLL入口/出口示例 246 9.8   DLL中的异常 250 9.8.1   在16位Delphi中捕捉异常 250 9.8.2   异常和Safecall指示符 250 9.9   回调函数 250 9.9.1   使用回调函数 253 9.9.2   拥有者绘制的列表框 253 9.10   从DLL中调用回调函数 253 9.11   在不同的进程间共享DLL数据 256 9.11.1   一个可以被共享数据的DLL 256 9.11.2   访问DLL中的共享数据 259 9.12   引出DLL中的对象 261 9.13   总结 265

阿朱 · 2001-12-02

接受答案了.

wsbll · 2002-06-14

给分给分，当然要给分了，谢谢各位了！

人在昆明 · 2003-01-17

动态调用。 dll 调用部分： {****************************************************************} { } {　Project: DllDebug                      　　　　　　　　　　　 } {　Copyright(c) 2003, 2005 　　　　　　　　　　　　　　 } {　Unit for UCommonUnit  　　　      　　　　　　　　　　　　　  } {　Create  :　2003-01-05 by 林红卫　　　　　　　　　　　 } {　Modify  :　2003-01-16 by 林红卫　　　　　　　　　　　 } {                                                                } {****************************************************************} unit UCommonUnit; interface uses   Windows,   SysUtils,   Forms; type   TRunDLL = procedure(DLLName, FormName, FormCaption: PChar;     aApp: TApplication; Scr: TScreen) stdcall; procedure RunDLLForm(DLLName, FormName, FormCaption: string;   aApp: TApplication; Scr: TScreen) stdcall; implementation procedure RunDLLForm(DLLName, FormName, FormCaption: string;   aApp: TApplication; Scr: TScreen) stdcall; var   RunDLL: TRunDLL;   GetDllHWND: HWND; begin   GetDllHWND := LoadLibrary(PChar(DllName));   try     if GetDllHWND < 32 then     begin       MessageBox(0, '没有找到附带DLL文件，请确认程序是否完整！',         '加载DLL失败', MB_OK);       Exit;     end;     @RunDLL := GetProcAddress(GetDllHWND, 'RunDLL');     if @RunDLL <> nil then     try       RunDLL(PChar(UpperCase(Trim(DLLName))), PChar(UpperCase(Trim(FormName))),         PChar(FormCaption), aApp,Scr);     except       raise Exception.Create('T' + FormName + '不存在！');     end;   finally     FreeLibrary(GetDllHWND);   end; end; end. dll ： {****************************************************************} { } {　Project: UDllTest 　        　　　　　　　　　　　 } {　Copyright(c) 2003, 2005 　　　　　　　　　　　　　　 } {　Unit for UDllTest     　　　      　　　　　　　　　　　　　  } {　Create  :　2003-01-05 by 林红卫　　　　　　　　　　　 } {　Modify  :　2003-01-16 by 林红卫　　　　　　　　　　　 } {                                                                } {****************************************************************} library UDllTest; uses   SysUtils,   Forms,   Messages,   Variants,   Windows,   Classes,   UFrmTestForm1 in 'UFrmTestForm1.pas' {Form1},   UFrmTestForm2 in 'UFrmTestForm2.pas' {Form2}; var   DLLApp: TApplication;   DLLScreen: TScreen; procedure RunDLL(DLLName, FormName, FormCaption: PChar;   aApp: TApplication; Scr: TScreen) stdcall; var   TheClass: TPersistentClass;   aForm: TForm; begin   Application := aApp;   Screen := Scr;   RegisterClasses([TForm1, TForm2]);   TheClass := GetClass('T' + FormName);   if (TheClass = nil) then     GetLastError;   if TheClass.InheritsFrom(TForm)     and (TheClass <> TForm) then   begin     aForm := TForm(TheClass.Create).Create(nil);     aForm.Caption := FormCaption;     try       aForm.ShowModal;     finally       FreeAndNil(aForm);     end;   end; end; procedure DLLUnloadProc(dwReason: DWORD); begin   if dwReason = DLL_PROCESS_DETACH then   begin     Application := DLLApp; //恢复     Screen := DLLScreen;   end; end; exports   RunDLL; begin   DLLApp := Application; //保存 DLL 中初始的 Application 对象   DLLScreen := Screen;   DLLProc := @DLLUnloadProc; //保证 DLL 卸载时恢复原来的 Application   DLLUnloadProc(DLL_PROCESS_DETACH); end.

looyo · 2003-04-14

to 阿朱想和你讨论dllform的有些问题 我的邮件是looyo@163.com

sffgw · 2004-05-28

来自：EdwinYeah, 时间：2001-11-10 22:01:00, ID：722012 !!!!!!!!!!!!!!!关于制作DLL,<delphi 5开发人员指南第九章有详细介绍,以下是目录: 这位仁兄。你下面所写的目录我在另一本书上也看过。 <<Delphi4 开发大全>>(上下) 美国 Steve Teixeira Xavier Pacheco 著                            徐新华  译   人民邮电出版社   这套在世面上可是很少见的了。也许没有了。还好，我这有。   不会是D5 的作者摘要人家的吧。  目录完一样，一个字都不错，当然，书页不同。[8D] 第9章   动态链接库 234 9.1   究竟什么是DLL 234 9.2   静态链接与动态链接 235 9.3   为什么要使用DLL 236 9.3.1   共享代码、资源和数据 236 9.3.2   隐藏实现的细节 237 9.3.3   自定义控件 237 9.4   创建和使用DLL 237 9.4.1   数美分：一个简单的DLL 237 9.4.2   显示DLL中的模式窗体 239 9.5   显示DLL中的无模式窗体 241 9.6   在Delphi应用程序中使用DLL 242 9.7   DLL的入口函数和出口函数 246 9.7.1   进程/线程初始化和终止例程 246 9.7.2   DLL入口/出口示例 246 9.8   DLL中的异常 250 9.8.1   在16位Delphi中捕捉异常 250 9.8.2   异常和Safecall指示符 250 9.9   回调函数 250 9.9.1   使用回调函数 253 9.9.2   拥有者绘制的列表框 253 9.10   从DLL中调用回调函数 253 9.11   在不同的进程间共享DLL数据 256 9.11.1   一个可以被共享数据的DLL 256 9.11.2   访问DLL中的共享数据 259 9.12   引出DLL中的对象 261 9.13   总结 265

Delphi制作Dll全集(0分)

lbmjy

Unregistered / Unconfirmed

蛐蛐

Unregistered / Unconfirmed

免费得到

Unregistered / Unconfirmed

冰原

Unregistered / Unconfirmed

zhuhuan

Unregistered / Unconfirmed

刘永学

Unregistered / Unconfirmed

zhang12321

Unregistered / Unconfirmed

yxq1220

Unregistered / Unconfirmed

lop

Unregistered / Unconfirmed

tkggai

Unregistered / Unconfirmed

dcsdcs

Unregistered / Unconfirmed

EdwinYeah

Unregistered / Unconfirmed

阿朱

Unregistered / Unconfirmed

wsbll

Unregistered / Unconfirmed

人在昆明

Unregistered / Unconfirmed

looyo

Unregistered / Unconfirmed

sffgw

Unregistered / Unconfirmed

Similar threads

Delphi制作Dll全集(0分)

lbmjy

Unregistered / Unconfirmed

蛐蛐

Unregistered / Unconfirmed

免费得到

Unregistered / Unconfirmed

冰 原

Unregistered / Unconfirmed

zhuhuan

Unregistered / Unconfirmed

刘永学

Unregistered / Unconfirmed

zhang12321

Unregistered / Unconfirmed

yxq1220

Unregistered / Unconfirmed

lop

Unregistered / Unconfirmed

tkggai

Unregistered / Unconfirmed

dcsdcs

Unregistered / Unconfirmed

EdwinYeah

Unregistered / Unconfirmed

阿朱

Unregistered / Unconfirmed

wsbll

Unregistered / Unconfirmed

人在昆明

Unregistered / Unconfirmed

looyo

Unregistered / Unconfirmed

sffgw

Unregistered / Unconfirmed

Similar threads

冰原