{"id":360,"date":"2009-04-30T11:37:00","date_gmt":"2009-04-30T03:37:00","guid":{"rendered":""},"modified":"2013-11-17T19:34:52","modified_gmt":"2013-11-17T11:34:52","slug":"delphi%e8%b0%83%e7%94%a8cdll%e7%a4%ba%e4%be%8b","status":"publish","type":"post","link":"https:\/\/kyle.ai\/blog\/360.html","title":{"rendered":"Delphi\u8c03\u7528C++DLL\u793a\u4f8b"},"content":{"rendered":"<p>\u9996\u5148\u521b\u5efaC++\u7684DLL\uff1a<\/p>\n<p>\u5728VS2005\u4e2d\u521b\u5efaC++\u7684MFC DLL\uff1b\u540d\u5b57\u5c31\u53d6\u4e3aDelphiDLL\uff0c\u7136\u540e\u6253\u5f00DelphiDLL.cpp\u6587\u4ef6\uff0c\u5728\u9ed8\u8ba4\u751f\u6210\u4ee3\u7801\u7684\u540e\u9762\u52a0\u4e0a\u5982\u4e0b\u51fd\u6570\u4ee3\u7801\uff1a<\/p>\n<pre class=\"brush: cpp; title: ; notranslate\" title=\"\">\r\nextern &quot;C&quot; _declspec(dllexport) int maxs(int x,int y)\r\n{\r\nreturn x-y;\r\n}\r\n\r\nextern &quot;C&quot; _declspec(dllexport) void mes()\r\n{\r\nMessageBoxA(NULL,&quot;Fuck!&quot;,&quot;You&quot;,MB_OK);\r\n}\r\n<\/pre>\n<p>\u7136\u540e\u751f\u6210DLL\u3002<\/p>\n<p>\u7136\u540e\u521b\u5efaDelphi VCL\u7a97\u4f53\u7a0b\u5e8f\uff0c\u8c03\u7528\u6b64DLL\u3002<\/p>\n<p>\u9996\u5148\u5c06\u751f\u6210\u597d\u7684DLL\u590d\u5236\u5230Delphi\u5de5\u7a0b\u76ee\u5f55\u4e0b\u9762\uff0c\u5728<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nvar\r\nForm1: TForm1; \u4e0a\u9762\u6dfb\u52a0\u4ee3\u7801\uff1a\r\n\r\nfunction maxs(x,y:integer):integer;cdecl;\r\n\r\nprocedure mes;cdecl;\r\n<\/pre>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\n\u518d\u5728\r\n\r\nimplementation\r\n\r\n{$R *.dfm} \u4e0b\u9762\u6dfb\u52a0\u4ee3\u7801\uff1a\r\n\r\nfunction maxs;external 'DelphiDLL.dll' name 'maxs';\r\n\r\nprocedure mes;external 'DelphiDLL.dll' name 'mes';\r\n<\/pre>\n<p>\u7136\u540e\u8c03\u7528\u5373\u53ef\uff1a<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nprocedure TForm1.Button2Click(Sender: TObject);\r\nbegin\r\nshowmessage(inttostr(maxs(1,2)));\r\nend;\r\n\r\nprocedure TForm1.Button3Click(Sender: TObject);\r\nbegin\r\nmes;\r\nend;\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>\u9996\u5148\u521b\u5efaC++\u7684DLL\uff1a \u5728VS2005\u4e2d\u521b\u5efaC++\u7684MFC DLL\uff1b\u540d\u5b57\u5c31\u53d6\u4e3aDelphiDLL\uff0c\u7136\u540e\u6253\u5f00D [&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-360","post","type-post","status-publish","format-standard","hentry","category-code_related"],"_links":{"self":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/360","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=360"}],"version-history":[{"count":2,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/360\/revisions"}],"predecessor-version":[{"id":4771,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/360\/revisions\/4771"}],"wp:attachment":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/media?parent=360"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/categories?post=360"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/tags?post=360"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}