Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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ÀïÓиö¼ÓÃܺͽâÃܵĵ¥Ôª

ÒýÓÃ
delphiÀïÓиö¼ÓÃܺͽâÃܵĵ¥Ôª


ÊÇÄĸö£¿

windowsµÄapi£¿

±ê×¼¼ÓÃܵÄÔ´´úÂë£¬ÍøÉÏ ......

delphi±à¼­Æ÷Ôõô°Ñ¹â±êÒÆµ½ÉÏÐÐβ

¼ÙÈç¹â±êÔÚµÚ¶þÐпªÊ¼´¦
  ÆäËü±à¼­ÓïÑÔºÍÎı¾±à¼­Æ÷¶¼¿ÉÒÔ
  °´Ïòǰ·½Ãæ¼ü
      Ö±½Óµ½´ïµÚÒ»ÐеÄβ²¿
      ΪʲôDELPHI±à¼­Æ÷²»¿ÉÒÔѽ

  ......

delphi´úÀíÎÊÌâ Çó½â ÔÚÏßµÈ

delphi´úÀíÎÊÌâ Çó½â ÔÚÏßµÈ
procedure TForm1.Button3Click(Sender: TObject);
var
  info : INTERNET_PROXY_INFO;
  reg  : TRegistry;
begin

  reg := TRegistry.Crea ......

delphiÖеÄdbchartÖеıýÐÎͼÔõôÊÇÒ»ÌõÖ±Ïß

dbchartÖеıýÐÎͼ¡£ÎÞ·¨ÏÔʾ¡£ÏÂÃæÊÇ´úÂë¡£
      with adoquery2 do
      begin
        close;
        sql.clear;
&nb ......

ÇëÎÊÐÂÊÖѧϰdelphi´ÓÄĸö°æ±¾¿ªÊ¼Ñ½

ÎÒÏëѧϰdelphi£¬µ«²»Öª´ÓÄĸö°æ±¾¿ªÊ¼ÈëÊÖ¡£
ǰ¼¸ÌìÔÚȺÀïÎÊÁËһϣ¬¾Ý˵Ŀǰ´ó¶àʹÓõÄÊÇdelphi 7£¬µ«ÍøÉϲé¿ÉÒԲ鵽delphi 2009(ËÆºõÊÇdelphi 8)ºÍdelphi 2010,delphi 2009¾Ý˵רÃÅ»á¶Ô.NET£¬²»ÊÇÕë¶ÔwindowsÓ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ