{"id":357,"date":"2009-04-29T16:44:00","date_gmt":"2009-04-29T08:44:00","guid":{"rendered":""},"modified":"2013-11-17T19:36:47","modified_gmt":"2013-11-17T11:36:47","slug":"delphi%e8%b0%83%e7%94%a8dll","status":"publish","type":"post","link":"https:\/\/kyle.ai\/blog\/357.html","title":{"rendered":"Delphi\u8c03\u7528DLL"},"content":{"rendered":"<p>\u6240\u8c13\u7684\u9759\u6001\u8c03\u7528DLL\u662f\u6307\u7a0b\u5e8f\u52a0\u8f7d\u7684\u65f6\u5019\u76f4\u63a5\u5c31\u628a\u9700\u8981\u7684DLL\u5168\u90e8\u52a0\u8f7d\u4e86\uff0c\u4e00\u76f4\u5230\u7a0b\u5e8f\u8fd0\u884c\u7ed3\u675f\u624d\u91ca\u653e\u8fd9\u4e9b\u52a0\u8f7d\u7684DLL\u8fd9\u4e2a\u5c31\u662f\u6240\u8c13\u7684\u9759\u6001\u52a0\u8f7d,\u52a8\u6001\u52a0\u8f7d\u5c31\u662f\u9700\u8981\u4e00\u4e2aDLL\u4e2d\u67d0\u4e2a\u51fd\u6570\u7684\u65f6\u5019\u52a0\u8f7d\u8fd9\u4e2aDLL\u8fd0\u884c\u5b8c\u6210\u4e86\u8fd9\u4e2a\u51fd\u6570\u5c31\u91ca\u653eDLL\uff0c\u8fd9\u4e2a\u5c31\u662f\u52a8\u6001\u52a0\u8f7d\uff01<\/p>\n<p>\u4f60\u8981\u9759\u6001\u52a0\u8f7dDLL\u5c31\u7528Delphi\u81ea\u5df1\u5199\u4e00\u4e2aDLL\uff0c\u5e76\u4e14\u5199\u4e00\u4e2a\u5f15\u51fa\u5e93(*.pas\u7684)\uff0c\u7136\u540e\u5728\u4f60\u7684\u5e94\u7528\u7a0b\u5e8f\u4e2d\u5305\u542b\u8fd9\u4e2a*.pas\u5c31\u6839\u672c\u4e0d\u7528\u58f0\u660eDLL\u4e2d\u90a3\u4e9b\u4e71\u4e03\u516b\u7cdf\u7684\u5f15\u51fa\u51fd\u6570\uff0c\u76f4\u63a5\u7528\u5c31\u53ef\u4ee5\u4e86\uff0c\u5982\u679c\u8be5DLL\u4e0d\u5b58\u5728\uff0c\u90a3\u4e48\u6574\u4e2a\u5e94\u7528\u7a0b\u5e8f\u5c06\u65e0\u6cd5\u4f7f\u7528\uff0c\u4f46\u662f\u52a8\u6001\u8c03\u7528DLL\u5c31\u4e0d\u540c\u4e86\uff0c\u5c31\u7b97DLL\u4e0d\u5728\uff0c\u5e94\u7528\u7a0b\u5e8f\u4ecd\u7136\u53ef\u4ee5\u4f7f\u7528<\/p>\n<p>\u8bbf\u95eeDLL\u5e93\u6709\u4e24\u79cd\u65b9\u5f0f\uff0c\u4e00\u79cd\u662f\u9759\u6001\u5f15\u7528\uff0c\u53e6\u4e00\u79cd\u662f\u52a8\u6001\u5f15\u7528\u3002<br \/>\n\u7528\u9759\u6001\u5f15\u7528\u8fd9\u79cd\u65b9\u6cd5\u88c5\u5165DLL\u8981\u505a\u4e24\u4ef6\u4e8b\u60c5\uff1a\u4e3aDLL \u5e93\u521b\u5efa\u4e00\u4e2a\u8f93\u5165\u5355\u5143\uff0c\u4ee5\u53ca\u7528USES\u628a\u8f93\u5165\u5355\u5143\u8fde\u63a5\u5230\u8981\u4f7f\u7528DLL \u51fd\u6570\u7684\u7a0b\u5e8f\u6a21\u5757\u4e2d\u3002\u4e3aDLL\u5e93\u521b\u5efa\u7684\u8f93\u5165\u5355\u5143\u4e0e\u666e\u901a\u7684\u5355\u5143\u7684\u533a\u522b\u4ec5\u5728\u4e8e\uff1a\u5728\u5b83\u7684\u63a5\u53e3\u5904\u58f0\u660e\u7684\u8fc7\u7a0b\u3001\u51fd\u6570\uff0c\u5e76\u4e0d\u5728\u5b83\u7684\u5b9e\u73b0\u90e8\u5206\u7ed9\u51fa\u771f\u6b63\u7684\u5b9e\u73b0\u4ee3\u7801\uff0c\u800c\u662f\u7528external\u5173\u952e\u5b57\u628a\u8fc7\u7a0b\u3001\u51fd\u6570\u7684\u5b9e\u73b0\u7ec6\u8282\u59d4\u6258\u7ed9\u5916\u90e8DLL\u6a21\u5757\u3002<br \/>\nexternal\u547d\u4ee4\u7684\u4f7f\u7528\u8bed\u6cd5\u5982\u4e0b\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nprocedure \/function \u8fc7\u7a0b\/\u51fd\u6570\u540d\uff1bexternal DLL\u6a21\u5757\u540d\uff1b\r\n<\/pre>\n<p>\u4e0b\u9762\u7ed9\u51fa\u4e3a\u4e0a\u9762\u521b\u5efa\u7684minmax.DLL\u5e93\u5199\u7684\u8f93\u5165\u5355\u5143\u6e90\u6587\u4ef6testdll .pas\uff0c\u4ece\u4e2d\u53ef\u770b\u51fa\u8f93\u5165\u5355\u5143 \u4e0e\u4e00\u822c \u5355\u5143\u7684\u4e00\u4e9b\u5dee\u522b\uff0c\u4ee3\u7801\u5982\u4e0b\u6240\u793a\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nunit testdll;\r\ninterface\r\nuses\r\nfunction Min (X, Y: Integer): Integer;\r\nfunction Max (X, Y: Integer): Integer;\r\n\r\nimplementation\r\n\r\nfunction Min; external \u2018minmax.DLL\u2019;\r\nfunction Max; external \u2018minmax.DLL\u2019;\r\nend.\r\n<\/pre>\n<p>\u4e00\u4e2a\u5e94\u7528\u7a0b\u5e8f\u82e5\u60f3\u8c03\u7528minmax.DLL\u4e2d\u7684\u51fd\u6570\uff0c\u53ea\u987b\u5728\u5176uses\u8bed\u53e5\u4e2d\u52a0\u5165testdll \u5355\u5143\u5373\u53ef\u3002<br \/>\n\u52a8\u6001\u88c5\u5165DLL\uff0c\u8981\u7528\u5230Windows\u7684\u4e09\u4e2aAPI\u51fd\u6570\u3002Loadlibrary\u3001Freelibrary\u548cGetprocAddress \u3002loadlibrary\u51fd\u6570\u7528\u6765\u88c5\u5165DLL\u5e93\uff0c\u5176\u8c03\u7528\u683c\u5f0f\u5982\u4e0b\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nfunction loadlobrary (DLLfileName\uff1aPchar): THandle:\r\n<\/pre>\n<p>\u5f53\u4e0d\u518d\u9700\u8981\u4e00\u4e2aDLL\u5e93\u65f6\uff0c\u5e94\u8c03\u7528FreeLibrary\u51fd\u6570\u5c06\u5176\u91ca\u653e\uff0c\u4ee5\u7a7a\u51fa\u5b9d\u8d35\u7684\u5185\u5b58\u8d44\u6e90\uff0c\u5176\u8c03\u7528\u683c\u5f0f\u5982\u4e0b\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nprocedure FreeLibrary (Libmodule:THandle)\r\n<\/pre>\n<p>Libmodule \u4e3a\u7531LoadLibrary\u8c03\u7528\u5f97\u5230\u7684DLL\u5e93\u53e5\u67c4\u3002\u5728\u7528loadlobrary \u51fd\u6570\u88c5\u5165\u67d0\u4e2aDLL\u5e93\u548c\u8c03\u7528FreeLibrary\u91ca\u653e\u8be5DLL\u5e93\u4e4b\u95f4\u7684\u7a0b\u5e8f\u6bb5\u4e2d\uff0c \u53ef\u4ee5\u4f7f\u7528\u8be5DLL\u5e93\u4e2d\u7684\u8fc7\u7a0b\u548c\u51fd\u6570\uff0c<br \/>\n\u5177\u4f53\u4f7f\u7528\u65b9\u6cd5\u662f\uff1a\u7528GetprocAddress\u51fd\u6570\u628aDLL\u5e93\u4e2d\u51fd\u6570\u7684\u5730\u5740\u4f20\u9012\u7ed9\u7a0b\u5e8f\u4e2d\u67d0\u4e2a\u51fd\u6570\u53d8\u91cf\uff0c\u518d\u7528\u8be5\u53d8\u91cf\u5b9e\u73b0DLL\u51fd\u6570\u7684\u8c03\u7528\u3002GetprocAddress\u51fd\u6570\u58f0\u540d\u5982\u4e0b\uff0c<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nfunction GetprocAddress (Libmodule:THandle:procname:pchar):TFarProc:\r\n<\/pre>\n<p>\u5982\u4e0b\u4f8b\u6240\u793a\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\ntype\r\nTTimeRec = record\r\nSecond: Integer;\r\nMinute: Integer;\r\nHour: Integer;\r\nend;\r\nTGetTime = procedure(var Time: TTimeRec);\r\nTHandle = Integer;\r\nvar\r\nTime: TTimeRec;\r\nHandle: THandle;\r\nGetTime: TGetTime;\r\n\u2026\r\nbegin\r\nHandle := LoadLibrary(\u2018DATETIME.DLL\u2019);\r\nif Handle &lt;&gt; 0 then\r\nbegin\r\n@GetTime := GetProcAddress(Handle, \u2018GetTime\u2019);\r\nif @GetTime &lt;&gt; nil then\r\nbegin\r\nGetTime(Time);\r\nwith Time do\r\nWriteLn(\u2018The time is \u2018, Hour, \u2018:\u2019, Minute, \u2018:\u2019, Second);\r\nend;\r\nFreeLibrary(Handle);\r\nend;\r\nend;\r\n<\/pre>\n<p>\u5728\u8c03\u7528\u52a8\u6001\u94fe\u63a5\u5e93\u65f6\u5e94\u6ce8\u610f\uff0c \u6240\u9700\u52a8\u6001\u94fe\u63a5\u5e93\u987b\u4e0e\u5e94\u7528\u7a0b\u5e8f\u5728\u540c\u4e00\u76ee\u5f55\u6216Windows System \u76ee\u5f55\u4e0b\u3002<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\n\u9759\u6001\u8c03\u7528\r\nFunction fun(para:Longint):Longint; stdcall; external \u2018xxx.dll\u2019;\r\n\u52a8\u6001\u8c03\u7528\r\nloadlibrary,getprocaddress,freelibrary\u4e09\u4e2a\u51fd\u6570\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>\u6240\u8c13\u7684\u9759\u6001\u8c03\u7528DLL\u662f\u6307\u7a0b\u5e8f\u52a0\u8f7d\u7684\u65f6\u5019\u76f4\u63a5\u5c31\u628a\u9700\u8981\u7684DLL\u5168\u90e8\u52a0\u8f7d\u4e86\uff0c\u4e00\u76f4\u5230\u7a0b\u5e8f\u8fd0\u884c\u7ed3\u675f\u624d\u91ca\u653e\u8fd9\u4e9b\u52a0\u8f7d\u7684DLL [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[6],"tags":[],"class_list":["post-357","post","type-post","status-publish","format-standard","hentry","category-code_related"],"_links":{"self":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/357","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/comments?post=357"}],"version-history":[{"count":1,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/357\/revisions"}],"predecessor-version":[{"id":4772,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/357\/revisions\/4772"}],"wp:attachment":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/media?parent=357"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/categories?post=357"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/tags?post=357"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}