VCµ÷ÓÃDELPHI DLLÂÒÂë

Delphi(Pascal) code:

library HealthDocDll;

uses
SysUtils,
Classes,
Forms,
Dialogs,
Windows,
HealthDoc in 'HealthDoc.pas' {frmHealthDoc},
pub in 'pub.pas';

{$R *.res}


procedure ShowForm(DoctorName,UserName:string);
begin
sDoctorName:=DoctorName;
sUserName:=UserName;
showmessage(sdoctorname);
showmessage(susername);
end;

exports
ShowForm;

begin



C/C++ code:

HINSTANCE hDll;
hDll=LoadLibrary( _T("HealthDocDLL.DLL") );
typedef int(*func)(const char*,const char*);

func SmartWord= (func)GetProcAddress( hDll , "ShowForm" );
SmartWord( "aaaaaa" , "b" );



show³öÀ´µÄΪʲôÊÇÂÒÂ룿

---

thiscallÊÇɶ£¿

---

Õâ²»»¹ÊÇÄǸöÎÊÌâÂð£¬Äã°ÑÁ½±ß¶¼¸Ä³É stdcall,ÌýÎÒµÄ
¸Õ²Å´ò´íÁË£¬

---

stdcall³ö´í

---

delphi²à:
procedure ShowForm(DoctorName,UserName:string);stdcall;
vc²à:
typedef int(_stdcall *func)(const char*,const char*);

---

ÒÀÈ»³ö´í£¬ÒÀÈ»ÂÒÂë

---

¿ÉÒÔÁË£¬Ð»Ð»£¬¸öÈË·¸µÄ´íÎó£¬ÀÍ·³´ó¼ÒÁË

---

ÄÜ°ÑÄãµÄdll·¢µ½ÎÒÓÊÏäÂð£¬lxqiang123321@163.com