ÕâÑùµÄvcµÄ½á¹¹Ì嶨Ò壬ÔõôÔÚdelphiÖж¨Òå
typedef struct
{
char name[20];
char sex;
unsigned int age;
}struct1
ÄǸöÊÇvcÖе͍Ò壬ÓÉÓÚÔÚdelphiÖÐÒ²´«ÕâÑùµÄ½á¹¹ÌåÊý¾Ý¸øvcдµÄdll,ÄǸö½á¹¹Ì壬ÔÚdelphiÖÐÔõô¶¨ÒåÄØ£¿
Delphi(Pascal) code:
struct1 = record
name : array [0..19] of Char;
sex : Char;
age : Word;
end;
struct1 = record
name : array [0..19] of Char;
sex : Char;
age : LongWord;
end;
ageÄǸöÔÚdelphiÖе½µ×ÓÃʲôÀàÐÍѽ£¿
vcÌṩµÄdllº¯Êý£¬ÎÒÔÚdelphiÖÐÔõô¶¨ÒåÄØ£¿
int sendstruct1(char *ip,struct1 *mnu)
ÁíÍ⣬vc¶¨ÒåµÄ½á¹¹Ì壬ת³ÉdelphiµÄ½á¹¹Ì壬ÔÔòÊÇʲô£¿
×ñÑ ÔÚvcºÍdelphiÿ¸ö¶¨ÒåµÄ³ÉÔ±ËùÕ¼µÄ×Ö½ÚÊý±ØÐëÏàµÈô£¿ÊÇ×ñÑÕâ¸öÔÔòô£¿£¿£¿
°´2Â¥µÄ£¬ÓÃLongWord
Longword 0..4294967295 unsigned 32-bit
Ïà¹ØÎÊ´ð£º
ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£
µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË
ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......
ÈçºÎÓÃÊý×é¸úfor´òÓ¡³öÏÂÃæµÄͼÐÎ
*
**
***
****
Èç¹ûÓиüºÃµÄ·½·¨×îºÃҲдÉÏ XX
procedure TForm1.Button2Click(Sender: TObject);
var
arr: array of Integer;
i,j: I ......
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÏȰÑb.exe»¹Ô³öÀ´ÔÚµ÷Óã¬Ó¦¸ÃÊÇ× ......
½ÓÊÕµ½µÄÎı¾ÄÚÈÝÊÇucs2±àÂë¸ñʽ£¬ÇëÎÊÔõÑùת»»³ÉÖÐÎÄ
°´ÎÒµÄÀí½â£¬UCS-2ÊÇ×Ö·û¼¯£¬¾ßÌåµÄ±àÂëÓÐUTF-8£¬UTF-16 (LE/BE)µÈ¡£
Èç¹ûÄãÓÃDelphi 2009¼°ÒÔÉϰ汾£¬¿ÉÒÔ¿´¿´TEncodingÀà¡£
btw. Äã˵µÄת»»³ÉÖÐÎÄÊÇɶÒâË ......
×òÍíÔÚDelphiÊý¾Ý¿â²éѯÖÐÓöµ½ÁËÒ»¸öÒɻ󡣴úÂëÈçÏ£º
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
XY : string;
begin
XY := comboboxxy.Items[comboboxx ......