delphiµ÷VC£«£«
extern "C" __declspec(dllexport) long __stdcall Readcard(__int16 intcom, long baud,unsigned char *vskh, int *vlql, __int16 *vics,__int16 *viklx)
ÇëÎÊ£¬Õâ¸öÔÚDELPHIÀïÔõô¶¨Òå
int *vlql, __int16 *vics,__int16 *viklx
Ö÷ÒªÊÇÕâÈý¸ö¸ÃÓÃʲôÀàÐÍÓëÖ®¶ÔÓ¦¡£
ÎÒÊÇÕâÑù¶¨ÒåµÄ¡£
var vlql:integer;var vics,viklx:smallint
µ«ÊÇÕâÑù¸øÎÒ·µ»ØµÄÖµÊÇÓÐÎÊÌâµÄ¡£Çó½â£¬Ð»Ð»¸÷λ¡£
function Readcard(intcom: SmallInt; baud: longint; vskh: PUCHAR; vlql: pinteger; vics: PSmallInt; viklx: PSmallInt): longint; stdcall;
external 'xxx.dll'
˵´í»°ÁË£¬PSmallIntÔÚSystemÖÐÊÇÓж¨ÒåµÄ£¬ÓÉÓÚÔÚ°ïÖúÖÐûÓÐËÑË÷µ½»¹ÒÔΪûÓÐÄØ¡£
ÕâÑùµÄ»°Ó¦¸ÃÈ¥µô
type
PSmallInt=^SmallInt;
ÕâÁ½ÐУ¬ÕâÑùÓë1Â¥µÄ¶¨Òå¾ÍÒ»ÖÂÁË¡£
Â¥ÉÏ·½·¨Ðв»Í¨°¡¡£
ʹÓÃPintegerºÍPsmallintµÄ»°£¬Ö±½Ó¾Í±¨ÄÚ´æ´íÎó¡£
unsigned char * ÓÃpchar
µ«ÊÇint* -> var X: Integer
__int16* -> var X: SmallInt
ʹÓÃÕâÁ½¸ö·µ»ØµÄÖµÊÇ´íµÄ¡£¶¯Ì¬¿â¿Ï¶¨ÊǶԵġ£¾ÍÊDz»ÖªµÀÊÇÄǸöµØ·½µÄ²ÎÊý´íÁË¡£
PUCHAR = ^Byte; //ÔÚwindowsÓж¨Òå
ÄãpintegerÊÇÔõô¸³ÖµµÄ£¿
²»ÐиijÉÕâÑù£¬ÄãÓ¦¸ÃÊǵØÖ·Ã»¸³Öµ¶ÔÎÊÌâ
function Readcard(intcom: SmallInt; baud: longint; vskh: PUCHAR; var vlql: integer; var vics: SmallInt; var viklx: SmallInt): longint; stdcall;
external 'xxx.dll'
лл¸÷λÒѾ¸ã¶¨ÁË¡£ÕýÈ·µÄÊÇ
var vlql:integer;var vics,viklx:smal
Ïà¹ØÎÊ´ð£º
delphiÄÚÖõļÓÃܽâÃܵ¥ÔªÊÇÄĸö£¿
DelphiÓÐÄÚÖüÓÃܽâÃܵ¥Ôª£¿
delphiÀïÓиö¼ÓÃܺͽâÃܵĵ¥Ôª
ÒýÓÃ
delphiÀïÓиö¼ÓÃܺͽâÃܵĵ¥Ôª
ÊÇÄĸö£¿
windowsµÄapi£¿
±ê×¼¼ÓÃܵÄÔ´´úÂë£¬ÍøÉÏ ......
¼ÙÈç¹â±êÔÚµÚ¶þÐпªÊ¼´¦
ÆäËü±à¼ÓïÑÔºÍÎı¾±à¼Æ÷¶¼¿ÉÒÔ
°´Ïòǰ·½Ãæ¼ü
Ö±½Óµ½´ïµÚÒ»ÐеÄβ²¿
ΪʲôDELPHI±à¼Æ÷²»¿ÉÒÔѽ
......
delphi´úÀíÎÊÌâ Çó½â ÔÚÏßµÈ
procedure TForm1.Button3Click(Sender: TObject);
var
info : INTERNET_PROXY_INFO;
reg : TRegistry;
begin
reg := TRegistry.Crea ......
dbchartÖеıýÐÎͼ¡£ÎÞ·¨ÏÔʾ¡£ÏÂÃæÊÇ´úÂë¡£
with adoquery2 do
begin
close;
sql.clear;
&nb ......
ÎÒÏëѧϰdelphi£¬µ«²»Öª´ÓÄĸö°æ±¾¿ªÊ¼ÈëÊÖ¡£
ǰ¼¸ÌìÔÚȺÀïÎÊÁËһϣ¬¾Ý˵Ŀǰ´ó¶àʹÓõÄÊÇdelphi 7£¬µ«ÍøÉϲé¿ÉÒԲ鵽delphi 2009(ËÆºõÊÇdelphi 8)ºÍdelphi 2010,delphi 2009¾Ý˵רÃÅ»á¶Ô.NET£¬²»ÊÇÕë¶ÔwindowsÓ ......