Âé·³¸ßÊÖ¸øÐ´¸ö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);
µ÷Ó
Ïà¹ØÎÊ´ð£º
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÎÞÈ˻شð£¿
×ö³É×ÊÔ´Î ......
hongqi162¡¢windindance
´Ë2È˳¤ÆÚ²»ÔÚÏߣ¬ÌرðÊÇwindindance
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
hongqi162»¹ÊǾ³£ÉÏÀ´×ª×ªµÄ
ÒýÓÃ
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
ÆäʵҲ²»ÊÇʲôÄÜÁ¦µÄÔÒò£¬Ö÷Òª¿ÉÄÜÊÇʱ¼äÎÊÌâ°É
¹¤×÷µÄ»¹ÒªÉÏ°à£¬Ñ§Ï ......
select * from shuju.DB where ¿ªÅ̼Û-ÊÕÅ̼Û<=0.02
¿ªÅÌ¼Û ÓëÊÕÅÌ¼Û ÊÇÊý¾Ý¿âÀïµÄ×Ö¶Î
select * from aTableName where ((¿ªÅ̼Û-ÊÕÅ̼Û) <=0.02 )
¿ªÅ̼۱ÈÊÕÅ̼۵ÍÁ½·ÖÒÔϵÄÇé¿ö
Mark!!!!!!
se ......
¸÷λºÃ£¡£¡
¼ÙÉèÎÒÓÐÁ½¸ötextÎļþ
Ò»¸öÃû½Ð 1.text
ÄÚÈÝ£º
I like PC....
ÁíÍâÒ»ÊÇ2.text
ÄÚÈÝ:
function yk as string
endfunction
globals
endglobals
***********************·Ö½çÏß********** ......
ËÄܸøÎÒ¸ö¼òµ¥µÄÀý×Ó
delphi½ÓÊÜUDPÊý¾Ý°üµÄ Òª½ÓÊÕÊý×éµÄ
×îºÃÊÇÓà IdTCPserver1µÄ
×îºÃ»¹Óз¢Ë͵IJ¿·Ö
±¾È˲ËÄñ£¬Ð»Ð»¸÷λÁË£¡£¡
Â¥ÉϸøµÄÊÇTCPµÄ°É ÎÒÒªUDPµÄ
лл£¡£¡
ÒýÓÃ
×îº ......