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

ÔÚDelphiÖÐÈçºÎÉùÃ÷Õâ¸öC£«£«Öеĺ¯Êý

ÔÚDelphiÖÐÈçºÎÉùÃ÷Õâ¸öC£«£«Öеĺ¯Êý£¬ÊÇÒ»¸öDLLÖÐÒýÈëµÄ

unsigned char _stdcall ConnetDrv( unsigned char DrvSnr, unsigned char DrvType, unsigned char *sRt, unsigned char TCP, unsigned int *dNum, unsigned char *dVAR, unsigned char *dSType, unsigned int tOver);

лл£¡£¡

function ConnetDrv(DrvSnr, DrvType: byte; var sRt: Byte; TCP: Byte;
var dNum :Dword; var dVAR: byte ; var dSType: byte; tOver: Integer): Byte;

Â¥ÉϵÄÍüÁË¼Ó stdcall

Delphi(Pascal) code:

function ConnetDrv(DrvSnr, DrvType: byte; var sRt: Byte; TCP: Byte;
var dNum :Dword; var dVAR: byte ; var dSType: byte; tOver: Integer): Byte; stdcall;



ÕâÑù¿ÉÐаÉ

ÒýÓÃ
Â¥ÉϵÄÍüÁË¼Ó stdcall

ȷʵÊèºöÁË

¸Ðл´ó¼ÒµÄ¹Ø×¢£¡£¡Ð´ÁËÒ»Ìì²ÅдÁËÕ⼸¸öDLLµÄ½Ó¿Ú£¡£¡£¡£¡¡¡³§¼Ò¸øµÄ˵Ã÷²»Ò²²»Ïêϸ£¬¾ÍÄÃÕâ¸öº¯ÊýÀ´Ëµ£¬Ç°ÃæÁ½¸ö²ÎÊý£¬ÓÐʱ¿ÉÄÜÔÚDELPHIÖÐÓÃBYTE£¬ÓÐʱÓÖÒªÓÃINTEGER²ÅÐУ¡£¡£¡ÕæHAN£¬»ù±¾ÒªÒ»¸öÒ»¸ö²ÎÊýµÄÊÔ£¡£¡£¡£¡


Ïà¹ØÎÊ´ð£º

ѧϰÌÖÂÛ C/C++ QQȺ - C/C++ / ·Ç¼¼ÊõÇø

QQȺ 29152388
ÓÑÇéUP

°ï¶¥

up

°ïup

up Ö§³Ö£¡

up jf

...ÄѵÀÓзÖ..?

up up up
Ï£ÍûÓеüӷ֣¬¹þ¹þ¡£

Ö§³Ö£¬ÎÒ¼ÓÁË£¬Ï£ÍûÂ¥Ö÷ÄܼÓÎÒ£¬¹²Í¬Ñ§Ï°¹þ

¼ÓÁË¡£

¶¥ÉÏ£¬Ã¿ÌìÊÕ»ñÒ»µã£¬Ö§³Ö ......

[Çó¸Ö²ÄÇиîÎÊÌâµÄC/C++Ë㷨ʵÏÖ]

ÎÊÌâ:¹¤µØÉÏÐèÒª³¤¶ÈΪA1µÄ¸Ö½îX¸ù,³¤¶ÈΪA2µÄ¸Ö½îY¸ù,³¤¶ÈΪA3µÄ¸Ö½îZ¸ù......ÒÔ´ÎÀàÍÆ.
ÆäÖÐA1,A2,A3,...³¤¶ÈÈÎÒâÖ¸¶¨,X,Y,Z,...ÊýÁ¿Ò²ÈÎÒâÖ¸¶¨.

µ«²Ö¿âÖеĸֽîΪ±ê×¼³¤¶È,Ö»ÓÐ9Ã׺Í15Ã×Á½ÖÖ³¤¶È,ÊýÁ¿² ......

linux»·¾³ÏÂgethostbynameº¯ÊýÎÊÌâ - C/C++ / CÓïÑÔ

дÁ˸ö²âÊÔ³ÌÐòÈçÏÂ
   
  struct hostent *hp; 
char AlarmDevIP[20];  
  int x2;

hp = gethostbyname("www.google.com");
if (hp)
{ ......

delphi編寫×Ô動¸üгÌÐò

ÓÉÓÚ¿Í戶¶ËÓеÄÎļþ經³£¸üУ¨遠³ÌµÄ£¬²»ÊǾÖÓò網£©£¬
ËùÒÔÏë寫個×Ô動¸üÐ嵀 ³ÌÐò¡£
¿´網É쵀 ·½·¨資ÁÏ£¬ÖªµÀЩ·½·¨£¬µ«²»ÖªµÀ¾ß體Ôõô寫¡£
......

delphi¶¯Ì¬Êý×éÈçºÎÈ¥µôÒ»¸öÔªËØ

procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë
begin
P:=PLongint(A);// È¡µÄ A µÄ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ