{"id":19,"date":"2009-05-11T19:00:52","date_gmt":"2009-05-12T03:00:52","guid":{"rendered":"http:\/\/www.abin.cn\/?p=19"},"modified":"2012-10-17T18:50:18","modified_gmt":"2012-10-18T02:50:18","slug":"delphi%e5%88%b6%e4%bd%9cdll%e8%bd%ac","status":"publish","type":"post","link":"https:\/\/www.abin.cn\/?p=19","title":{"rendered":"Delphi\u5236\u4f5cDLL[\u8f6c]"},"content":{"rendered":"

\u4e00 Dll\u7684\u5236\u4f5c\u4e00\u822c\u6b65\u9aa4
\n\u4e8c \u53c2\u6570\u4f20\u9012
\n\u4e09 DLL\u7684\u521d\u59cb\u5316\u548c\u9000\u51fa\u6e05\u7406[\u5982\u679c\u9700\u8981\u521d\u59cb\u5316\u548c\u9000\u51fa\u6e05\u7406]
\n\u56db \u5168\u5c40\u53d8\u91cf\u7684\u4f7f\u7528
\n\u4e94 \u8c03\u7528\u9759\u6001\u8f7d\u5165
\n\u516d \u8c03\u7528\u52a8\u6001\u8f7d\u5165
\n\u4e03 \u5728DLL\u5efa\u7acb\u4e00\u4e2aTForM
\n\u516b \u5728DLL\u4e2d\u5efa\u7acb\u4e00\u4e2aTMDIChildForM
\n\u4e5d \u793a\u4f8b\uff1a
\n\u5341 Delphi\u5236\u4f5c\u7684Dll\u4e0e\u5176\u4ed6\u8bed\u8a00\u7684\u6df7\u5408\u7f16\u7a0b\u4e2d\u5e38\u9047\u95ee\u9898\uff1a
\n\u5341\u4e00 \u76f8\u5173\u8d44\u6599
\n
\n\u4e00 Dll\u7684\u5236\u4f5c\u4e00\u822c\u5206\u4e3a\u4ee5\u4e0b\u51e0\u6b65\uff1a<\/strong>
\n1 \u5728\u4e00\u4e2aDLL\u5de5\u7a0b\u91cc\u5199\u4e00\u4e2a\u8fc7\u7a0b\u6216\u51fd\u6570
\n2 \u5199\u4e00\u4e2aExports\u5173\u952e\u5b57\uff0c\u5728\u5176\u4e0b\u5199\u8fc7\u7a0b\u7684\u540d\u79f0\u3002\u4e0d\u7528\u5199\u53c2\u6570\u548c\u8c03\u7528\u540e\u7f00\u3002<\/p>\n

\u4e8c \u53c2\u6570\u4f20\u9012
\n<\/strong>1 \u53c2\u6570\u7c7b\u578b\u6700\u597d\u4e0ewindow C++\u7684\u53c2\u6570\u7c7b\u578b\u4e00\u81f4\u3002\u4e0d\u8981\u7528DELPHI\u7684\u6570\u636e\u7c7b\u578b\u3002
\n2 \u6700\u597d\u6709\u8fd4\u56de\u503c[\u5373\u4f7f\u662f\u4e00\u4e2a\u8fc7\u7a0b]\uff0c\u6765\u62a5\u51fa\u8c03\u7528\u6210\u529f\u6216\u5931\u8d25\uff0c\u6216\u72b6\u6001\u3002\u6210\u529f\u6216\u5931\u8d25\u7684\u8fd4\u56de\u503c\u6700\u597d\u4e3a1[\u6210\u529f]\u62160[\u5931\u8d25].\u4e00\u53e5\u8bdd\uff0c\u4e0ewindows c++\u517c\u5bb9\u3002
\n3 \u7528stdcall\u58f0\u660e\u540e\u7f00\u3002
\n4 \u6700\u597d\u5927\u5c0f\u5199\u654f\u611f\u3002
\n5 \u65e0\u987b\u7528far\u8c03\u7528\u540e\u7f00\uff0c\u90a3\u53ea\u662f\u4e3a\u4e86\u4e0ewindows 16\u4f4d\u7a0b\u5e8f\u517c\u5bb9\u3002<\/p>\n

\u4e09 DLL\u7684\u521d\u59cb\u5316\u548c\u9000\u51fa\u6e05\u7406[\u5982\u679c\u9700\u8981\u521d\u59cb\u5316\u548c\u9000\u51fa\u6e05\u7406<\/strong>
\n1 DLLProc[SysUtils\u5355\u5143\u7684\u4e00\u4e2aPointer]\u662fDLL\u7684\u5165\u53e3\u3002\u5728\u6b64\u4f60\u53ef\u7528\u4f60\u7684\u51fd\u6570\u66ff\u6362\u4e86\u5b83\u7684\u5165\u53e3\u3002\u4f46\u4f60\u7684\u51fd\u6570\u5fc5\u987b\u7b26\u5408\u4ee5\u4e0b\u8981\u6c42[\u5176\u5b9e\u5c31\u662f\u4e00\u4e2a\u56de\u8c03\u51fd\u6570]\u3002\u5982\u4e0b\uff1a
\nprocedure DllEnterPoint(dwReason: DWORD);far;stdcall;
\ndwReason\u53c2\u6570\u6709\u56db\u79cd\u7c7b\u578b\uff1a
\nDLL_PROCESS_ATTACH:\u8fdb\u7a0b\u8fdb\u5165\u65f6
\nDLL_PROCESS_DETACH\u8fdb\u7a0b\u9000\u51fa\u65f6
\nDLL_THREAD_ATTACH \u7ebf\u7a0b\u8fdb\u5165\u65f6
\nDLL_THREAD_DETACH \u7ebf\u7a0b\u9000\u51fa\u65f6
\n\u5728\u521d\u59cb\u5316\u90e8\u5206\u5199:
\nDLLProc := @DLLEnterPoint;
\nDllEnterPoint(DLL_PROCESS_ATTACH);
\n2 \u5982Form\u4e0a\u6709TdcomConnection\u7ec4\u4ef6,\u5c31Uses Activex,\u5728\u521d\u59cb\u5316\u65f6\u5199\u4e00\u53e5CoInitialize (nil);
\n3 \u5728\u9000\u51fa\u65f6\u4e00\u5b9a\u4fdd\u8bc1DcomConnection.Connected := False,\u5e76\u4e14\u6570\u636e\u96c6\u5df2\u5173\u95ed\u3002\u5426\u5219\u62a5\u5730\u5740\u9519\u3002<\/p>\n

\u56db \u5168\u5c40\u53d8\u91cf\u7684\u4f7f\u7528<\/strong>
\n\u5728widnows 32\u4f4d\u7a0b\u5e8f\u4e2d\uff0c\u4e24\u4e2a\u5e94\u7528\u7a0b\u5e8f\u7684\u5730\u5740\u7a7a\u95f4\u662f\u76f8\u4e92\u6ca1\u6709\u8054\u7cfb\u7684\u3002\u867d\u7136DLL\u5728\u5185\u5b58\u4e2d\u662f\u4e00\u4efd\uff0c\u4f46\u53d8\u91cf\u662f\u5728\u5404\u8fdb\u7a0b\u7684\u5730\u5740\u7a7a\u95f4\u4e2d\uff0c\u56e0\u6b64\u4f60\u4e0d\u80fd\u501f\u52a9dll\u7684\u5168\u5c40\u53d8\u91cf\u6765\u8fbe\u5230\u4e24\u4e2a\u5e94\u7528\u7a0b\u5e8f\u95f4\u7684\u6570\u636e\u4f20\u9012\uff0c\u9664\u975e\u4f60\u7528\u5185\u5b58\u6620\u50cf\u6587\u4ef6\u3002<\/p>\n

\u4e94 \u8c03\u7528\u9759\u6001\u8f7d\u5165<\/strong>
\n1 \u5ba2\u6237\u7aef\u51fd\u6570\u58f0\u540d:
\n1)\u5927\u5c0f\u5199\u654f\u611f\u3002
\n2)\u4e0eDLL\u4e2d\u7684\u58f0\u660e\u4e00\u6837\u3002
\n\u5982\uff1a showform(form:Tform);Far;external’yproject_dll.dll’;
\n3)\u8c03\u7528\u65f6\u4f20\u8fc7\u53bb\u7684\u53c2\u6570\u7c7b\u578b\u6700\u597d\u4e5f\u4e0ewindows c++\u4e00\u6837\u3002
\n4)\u8c03\u7528\u65f6DLL\u5fc5\u987b\u5728windows\u641c\u7d22\u8def\u5f84\u4e2d\uff0c\u987a\u5e8f\u662f\uff1a\u5f53\u524d\u76ee\u5f55\uff1bPath\u8def\u5f84\uff1bwindows;widows\\system;windows\\ssystem32;<\/p>\n

\u516d \u8c03\u7528\u52a8\u6001\u8f7d\u5165<\/strong>
\n1 \u5efa\u7acb\u4e00\u79cd\u8fc7\u7a0b\u7c7b\u578b[\u5982\u679c\u4f60\u5bf9\u8fc7\u7a0b\u7c7b\u578b\u7684\u53d8\u91cf\u53ea\u662f\u4e00\u4e2a\u6307\u9488\u7684\u672c\u8d28\u6e05\u695a\u7684\u8bdd\uff0c\u4f60\u5c31\u77e5\u9053\u662f\u600e\u4e48\u56de\u4e8b\u4e86]\u3002\u5982\uff1a
\ntype
\nmypointer=procedure(form:Tform);Far;external;
\nvar
\nHinst:Thandle;
\nshowform:mypointer;
\nbegin
\nHinst:=loadlibrary(‘yproject_dll’);\/\/Load\u4e00\u4e2aDll,\u6309\u6587\u4ef6\u540d\u627e\u3002
\nshowform:=getprocaddress(Hinst,’showform’);\/\/\u6309\u51fd\u6570\u540d\u627e\uff0c\u5927\u5c0f\u5199\u654f\u611f\u3002\u5982\u679c\u4f60\u77e5\u9053\u81ea\u52a8\u5316\u5bf9\u8c61\u7684\u672c\u8d28\u5c31\u6e05\u695a\u4e86\u3002
\nshowform(application.mainform);\/\/\u627e\u5230\u51fd\u6570\u5165\u53e3\u6307\u9488\u5c31\u8c03\u7528\u3002
\nFreelibrary(Hinst);
\nend;<\/p>\n

\u4e03 \u5728DLL\u5efa\u7acb\u4e00\u4e2aTForM<\/strong>
\n1 \u628a\u4f60\u7684Form Uses\u5230Dll\u4e2d\uff0c\u4f60\u7684Form\u7528\u5230\u7684\u5173\u8054\u7684\u5355\u5143\u4e5f\u8981Uses\u8fdb\u6765[\u8fd9\u662f\u6700\u9ebb\u70e6\u7684\u4e00\u70b9\uff0c\u56e0\u4e3a\u4f60\u7684Form\u6216\u8bb8Uses\u4e86\u8bb8\u591a\u7279\u6b8a\u7684\u5355\u5143\u6216\u51fd\u6570]
\n2 \u4f20\u9012\u4e00\u4e2aApplication\u53c2\u6570\uff0c\u7528\u5b83\u5efa\u7acbForm.<\/p>\n

\u516b \u5728DLL\u4e2d\u5efa\u7acb\u4e00\u4e2aTMDIChildForM<\/strong>
\n1 Dll\u4e2d\u7684MDIForm.FormStyle\u4e0d\u7528\u4e3afmMDIChild.
\n2 \u5728CreateForm\u540e\u5199\u4ee5\u4e0b\u4e24\u53e5\uff1a
\nfunction ShowForm(mainForm:TForm):integer;stdcall
\nvar
\nForm1: TForm1;
\nptr:PLongInt;
\nbegin
\nptr:=@(Application.MainForm);\/\/\u5148\u628adll\u7684MainForm\u53e5\u67c4\u4fdd\u5b58\u8d77\u6765\uff0c\u4e5f\u65e0\u987b\u91ca\u653e\uff0c\u53ea\u4e0d\u8fc7\u662f\u66ff\u6362\u4e00\u4e0b
\nptr^:=LongInt(mainForm);\/\/\u7528\u4e3b\u8c03\u7a0b\u5e8f\u7684mainForm\u66ff\u6362DLL\u7684MainForm\u3002MainForm\u662f\u7279\u6b8a\u7684WINDOW\uff0c\u5b83\u4e13\u95e8\u7ba1\u7406Application\u4e2d\u7684Forms\u8d44\u6e90.
\n\/\/\u4e3a\u4ec0\u4e48\u4e0d\u76f4\u63a5Application.MainForm := mainForm,\u56e0\u4e3aApplication.MainForm\u662f\u53ea\u8bfb\u5c5e\u6027
\nForm1:=TForm1.Create(mainForm);\/\/\u7528\u53c2\u6570\u5efa\u7acb
\nend;
\n\u5907\u6ce8\uff1a\u53c2\u6570\u662f\u4e3b\u8c03\u7a0b\u5e8f\u7684Application.MainForm<\/p>\n

\u4e5d \u793a\u4f8b\uff1a<\/strong>
\nDLL\u6e90\u4ee3\u7801\uff1a<\/p>\n

\n
library\u00a0Project2;<\/p>\n

uses
\nSysUtils,
\nClasses,
\nDialogs,
\nForms,
\nUnit2 <\/span>in<\/span> <\/span>‘<\/span>Unit2.pas<\/span>‘<\/span> <\/span>…<\/span>{Form2}<\/span><\/span>;<\/p>\n

<\/span>…<\/span>{$R <\/span>*<\/span>.RES}<\/span><\/span>
\nvar
\nccc:\u00a0Pchar;<\/p>\n

procedure\u00a0OpenForm(mainForm:TForm);stdcall;
\nvar
\nForm1:\u00a0TForm1;
\nptr:PLongInt;
\nbegin
\nptr:<\/span>=<\/span>@(Application.MainForm);
\nptr<\/span>^<\/span>:<\/span>=<\/span>LongInt(mainForm);
\nForm1:<\/span>=<\/span>TForm1.Create(mainForm);
\nend;<\/p>\n

procedure\u00a0InputCCC(Text:\u00a0Pchar);stdcall;
\nbegin
\nccc\u00a0:<\/span>=<\/span> Text;
\nend;<\/p>\n

procedure\u00a0ShowCCC;stdcall;
\nbegin
\nShowMessage(String(ccc));
\nend;<\/p>\n

exports
\nOpenForm;
\nInputCCC,
\nShowCCC;
\nbegin
\nend.
\n<\/span><\/div>\n<\/div>\n

\u8c03\u7528\u65b9\u6e90\u4ee3\u7801\uff1a<\/p>\n

\n
unit\u00a0Unit1;<\/p>\n

<\/span>interface<\/span><\/p>\n

uses
\nWindows,\u00a0Messages,\u00a0SysUtils,\u00a0Classes,\u00a0Graphics,\u00a0Controls,\u00a0Forms,\u00a0Dialogs,
\nStdCtrls;<\/p>\n

type
\nTForm1 <\/span>=<\/span> <\/span>class<\/span>(TForm)
\nButton1:\u00a0TButton;
\nButton2:\u00a0TButton;
\nEdit1:\u00a0TEdit;
\nprocedure\u00a0Button1Click(Sender:\u00a0TObject);
\nprocedure\u00a0Button2Click(Sender:\u00a0TObject);
\n<\/span>private<\/span>
\n<\/span>…<\/span>{\u00a0Private\u00a0declarations\u00a0}<\/span><\/span>
\n<\/span>public<\/span>
\n<\/span>…<\/span>{\u00a0Public\u00a0declarations\u00a0}<\/span><\/span>
\nend;<\/p>\n

var
\nForm1:\u00a0TForm1;<\/p>\n

implementation<\/p>\n

<\/span>…<\/span>{$R <\/span>*<\/span>.DFM}<\/span><\/span>
\nprocedure\u00a0OpenForm(mainForm:TForm);stdcall;External<\/span>‘<\/span>project2.dll<\/span>‘<\/span>;
\nprocedure\u00a0ShowCCC;stdcall;External<\/span>‘<\/span>project2.dll<\/span>‘<\/span>;
\nprocedure\u00a0InputCCC(Text:\u00a0Pchar);stdcall;External<\/span>‘<\/span>project2.dll<\/span>‘<\/span>;<\/p>\n

procedure\u00a0TForm1.Button1Click(Sender:\u00a0TObject);
\nvar
\nText:\u00a0Pchar;
\nbegin
\nText\u00a0:<\/span>=<\/span> Pchar(Edit1.Text);
\n<\/span>\/\/<\/span> OpenForm(Application.MainForm);<\/span>\/\/<\/span>\u4e3a\u4e86\u8c03MDICHILD <\/span>
\n<\/span>InputCCC(Text);<\/span>\/\/<\/span>\u4e3a\u4e86\u5b9e\u9a8cDLL\u4e2d\u7684\u5168\u5c40\u53d8\u91cf\u662f\u5426\u5728\u5404\u4e2a\u5e94\u7528\u7a0b\u5e8f\u95f4\u5171\u4eab <\/span>
\n<\/span>end;<\/p>\n

procedure\u00a0TForm1.Button2Click(Sender:\u00a0TObject);
\nbegin
\nShowCCC;<\/span>\/\/<\/span>\u8fd9\u91cc\u8868\u660eWINDOWS\u00a032\u4f4d\u5e94\u7528\u7a0b\u5e8fDLL\u4e2d\u7684\u5168\u5c40\u53d8\u91cf\u4e5f\u662f\u5728\u5e94\u7528\u7a0b\u5e8f\u5730\u5740\u7a7a\u95f4\u4e2d\uff0c16\u4f4d\u5e94\u7528\u7a0b\u5e8f\u6216\u8bb8\u4e0d\u540c\uff0c\u6ca1\u6709\u505a\u5b9e\u9a8c\u3002 <\/span>
\n<\/span>end; <\/span><\/div>\n<\/div>\n

\u5341 Delphi\u5236\u4f5c\u7684Dll\u4e0e\u5176\u4ed6\u8bed\u8a00\u7684\u6df7\u5408\u7f16\u7a0b\u4e2d\u5e38\u9047\u95ee\u9898\uff1a<\/strong>
\n1 \u4e0ePowerBuilder\u6df7\u5408\u7f16\u7a0b
\n\u5728\u5b9a\u4e49\u4e0d\u5b9a\u957f\u52a8\u6001\u6570\u7ec4\u65b9\u9762\u5728\u51fd\u6570\u9000\u51fa\u6e05\u7406\u5806\u6808\u65f6\u8001\u51fa\u73b0\u4e0d\u53ef\u91cd\u73b0\u7684\u5730\u5740\u9519\uff0c\u539f\u56e0\u672a\u660e\uff0c\u5927\u6982\u4e0ePB\u7684\u7f16\u8bd1\u5668\u539f\u7406\u6709\u5173\uff0c\u5373\u4f7fPB\u7f16\u8bd1\u6210\u4e8c\u8fdb\u5236\u4ee3\u7801\u4e5f\u5982\u6b64\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"

\u4e00 Dll\u7684\u5236\u4f5c\u4e00\u822c\u6b65\u9aa4 \u4e8c \u53c2\u6570\u4f20\u9012 \u4e09 DLL\u7684\u521d\u59cb\u5316\u548c\u9000\u51fa\u6e05\u7406[\u5982\u679c\u9700\u8981\u521d\u59cb\u5316\u548c\u9000\u51fa\u6e05\u7406] \u56db \u5168\u5c40\u53d8\u91cf […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[7],"tags":[],"_links":{"self":[{"href":"https:\/\/www.abin.cn\/index.php?rest_route=\/wp\/v2\/posts\/19"}],"collection":[{"href":"https:\/\/www.abin.cn\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.abin.cn\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.abin.cn\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.abin.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=19"}],"version-history":[{"count":0,"href":"https:\/\/www.abin.cn\/index.php?rest_route=\/wp\/v2\/posts\/19\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.abin.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=19"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.abin.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=19"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.abin.cn\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=19"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}