Âé·³¸ßÊÖ¸øÐ´¸öVC¸ßÓÃDELPHI DLLµÄ³ÌÐò
·Ö²»¹»ÔÙ¼Ó£¬¼±Çó
http://topic.csdn.net/u/20091214/22/37554f7c-831f-486b-ab58-6b50532c47ab.html
ÔÌûÔÚÕ⣬¶¼ËµÒ»Â¥µÄ·½·¨ÊÇÕýÈ·µÄ£¬µ«ÊÇÎÒÕâ°´Â¥Ö÷·½·¨³ö´í
DELPHIµÄ´úÂëÈçÏÂ
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;
if not Assigned(frmHealthDoc) then
TfrmHealthDoc.Create(nil);
frmHealthDoc.Show;
end;
exports
ShowForm;
begin
end.
Ö»ÓÐÒ»¸ö´°¿Ú£¬SHOW³öÀ´¾ÍÐÐ
VCµÄµ÷ÓôúÂëÈçÏÂ
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" );
´íÎóÈçÏÂ
"0x7c9313c0"Ö¸ÁîÒýÓÃ"0x004d0055"ÄÚ·á¡£¸ÃÄÚ´æ²»ÄÜΪ"written"
Ó¦¸ÃÊǵØÖ·Ô½½çÀàµÄ´íÎó°É£¬ÇëÎÊÓ¦¸ÃÈçºÎÐ޸ģ¿
procedure ShowForm(DoctorName,UserName:string);
´Ë´¦¸ÄΪ
procedure ShowForm(DoctorName,UserName:pchar);
µ÷Ó
Ïà¹ØÎÊ´ð£º
Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿
ÊÕÈëÔõôÑù
sohu£¿soho£¿
sohu ¿ÉÄÜÊÇsmall office house unit
С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£
È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾
ѧϰѧϰ¡£
ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ×´ ......
hongqi162¡¢windindance
´Ë2È˳¤ÆÚ²»ÔÚÏߣ¬ÌرðÊÇwindindance
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
hongqi162»¹ÊǾ³£ÉÏÀ´×ª×ªµÄ
ÒýÓÃ
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
ÆäʵҲ²»ÊÇʲôÄÜÁ¦µÄÔÒò£¬Ö÷Òª¿ÉÄÜÊÇʱ¼äÎÊÌâ°É
¹¤×÷µÄ»¹ÒªÉÏ°à£¬Ñ§Ï ......
1¡¢ÎÒÄÜ·ñÔÚdelphiÀïµ÷ÓÃÁíÍâÒ»¸öºǫ́³ÌÐò£¬µ«ÊÇÎÒ²»ÐèÒªµÈ´ýÕâ¸öºǫ́³ÌÐòÖ´ÐÐÍê³É£¬»¹¿ÉÒÔ¼ÌÐøÖ´ÐбðµÄ³ÌÐò¡£ÇëÎʾßÌåÔõôÑù²ÅÄÜʵÏÖ¡£
2¡¢ÎÒÄÜ·ñÔÚdelphiÉÏÖ´ÐÐÒ»¸ö¿ì½Ý¼ü£¬Ê¹delphi´°¿Ú³ÌÐòÄܹ»Ë¢ÐÂһϡ£[/size ......
Ö÷´°Ìå:
Delphi(Pascal) code:
procedure TfrmMain.btnResumeClick(Sender: TObject);
begin
myThread := TClientThread.Create(LeftPart(cbbServer.Text, ':'), StrToInt(RightPart(cbbServer.Text, ':')) ......