不
不懂!
Unregistered / Unconfirmed
GUEST, unregistred user!
动态连接的功能（作用）是什么 表达的越简单越好<br>创建动态连接的步骤；<br>调用步骤；
D
duhai_lee
Unregistered / Unconfirmed
GUEST, unregistred user!
动态连接，就是把一个dll 在需要的时候载入内存。 然后可以调用它提供的外部方法。<br><br>区别于静态dll， 静态的是只要启动主应用程序， 静态dll就会加载到内存中。<br>下面例子是我转别人的。<br>示例：<br>DLL源代码：<br>library Project2;<br><br>uses<br> SysUtils,<br> Classes,<br> Dialogs,<br> Forms,<br> Unit2 in 'Unit2.pas' {Form2};<br><br>{$R *.RES}<br>var<br> ccc: Pchar;<br><br>procedure OpenForm(mainForm:TForm);stdcall;<br>var<br> Form1: TForm1;<br> ptr
LongInt;<br>begin<br> ptr:=@(Application.MainForm);<br> ptr^:=LongInt(mainForm);<br> Form1:=TForm1.Create(mainForm);<br>end;<br><br>procedure InputCCC(Text: Pchar);stdcall;<br>begin<br> ccc := Text;<br>end;<br><br>procedure ShowCCC;stdcall;<br>begin<br> ShowMessage(String(ccc));<br>end;<br><br>exports<br> OpenForm;<br> InputCCC,<br> ShowCCC;<br>begin<br>end.<br><br>调用方源代码：<br>unit Unit1;<br><br>interface<br><br>uses<br> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,<br> StdCtrls;<br><br>type<br> TForm1 = class(TForm)<br> Button1: TButton;<br> Button2: TButton;<br> Edit1: TEdit;<br> procedure Button1Click(Sender: TObject);<br> procedure Button2Click(Sender: TObject);<br> private<br> { Private declarations }<br> public<br> { Public declarations }<br> end;<br><br>var<br> Form1: TForm1;<br><br>implementation<br><br>{$R *.DFM}<br>procedure OpenForm(mainForm:TForm);stdcall;External'project2.dll';<br>procedure ShowCCC;stdcall;External'project2.dll';<br>procedure InputCCC(Text: Pchar);stdcall;External'project2.dll';<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br> Text: Pchar;<br>begin<br> Text := Pchar(Edit1.Text);<br>// OpenForm(Application.MainForm);//为了调MDICHILD<br> InputCCC(Text);//为了实验DLL中的全局变量是否在各个应用程序间共享<br>end;<br><br>procedure TForm1.Button2Click(Sender: TObject);<br>begin<br> ShowCCC;//这里表明WINDOWS 32位应用程序DLL中的全局变量也是在应用程序地址空间中，16位应用程序或许不同，没有做实验。<br>end;
LongInt;<br>begin<br> ptr:=@(Application.MainForm);<br> ptr^:=LongInt(mainForm);<br> Form1:=TForm1.Create(mainForm);<br>end;<br><br>procedure InputCCC(Text: Pchar);stdcall;<br>begin<br> ccc := Text;<br>end;<br><br>procedure ShowCCC;stdcall;<br>begin<br> ShowMessage(String(ccc));<br>end;<br><br>exports<br> OpenForm;<br> InputCCC,<br> ShowCCC;<br>begin<br>end.<br><br>调用方源代码：<br>unit Unit1;<br><br>interface<br><br>uses<br> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,<br> StdCtrls;<br><br>type<br> TForm1 = class(TForm)<br> Button1: TButton;<br> Button2: TButton;<br> Edit1: TEdit;<br> procedure Button1Click(Sender: TObject);<br> procedure Button2Click(Sender: TObject);<br> private<br> { Private declarations }<br> public<br> { Public declarations }<br> end;<br><br>var<br> Form1: TForm1;<br><br>implementation<br><br>{$R *.DFM}<br>procedure OpenForm(mainForm:TForm);stdcall;External'project2.dll';<br>procedure ShowCCC;stdcall;External'project2.dll';<br>procedure InputCCC(Text: Pchar);stdcall;External'project2.dll';<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br> Text: Pchar;<br>begin<br> Text := Pchar(Edit1.Text);<br>// OpenForm(Application.MainForm);//为了调MDICHILD<br> InputCCC(Text);//为了实验DLL中的全局变量是否在各个应用程序间共享<br>end;<br><br>procedure TForm1.Button2Click(Sender: TObject);<br>begin<br> ShowCCC;//这里表明WINDOWS 32位应用程序DLL中的全局变量也是在应用程序地址空间中，16位应用程序或许不同，没有做实验。<br>end;
不
不懂!
Unregistered / Unconfirmed
GUEST, unregistred user!
现在放学了，回家看懂了 给你家分
L
listhano
Unregistered / Unconfirmed
GUEST, unregistred user!
http://delphibbs.com/keylife/iblog_show.asp?xid=21502<br>http://delphibbs.com/keylife/iblog_show.asp?xid=21485<br>http://delphibbs.com/keylife/iblog_show.asp?xid=21264<br>这是我的笔记，看看吧！
W
wr960204
Unregistered / Unconfirmed
GUEST, unregistred user!
1.功能切分<br>2.节省内存(仅仅是在Win9X中)
不
不懂!
Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.