delphi¶þ½øÖƲéѯij¼¸¸ö×Ö½ÚÓÃIFTHENÈ¥±È½ÏÌ«ÂýÁË
delphi¶þ½øÖƲéѯ¼¸¸ö×Ö½ÚÓÃIFTHENÈ¥±È½ÏÌ«ÂýÁË£¬
if (buffer[0]=$A9 ) and ( buffer[1]=$B5 ) and ( buffer[2]=$B2 ) and ( buffer[3]=$04 ) then
begin
¼ÈÈ»ÊÇÏàÁ¬µÄ£¬²»ÄܰÑËü×÷Ϊһ¸öÕûÌåÈ¥²éÕÒÂð
Á¬ÐøµÄ4¸ö×ֽڵıȽÏ, ¿ÉÒÔ¿´³ÉDWORDÀàÐÍÀ´½øÐÐ, ÀýÈç:
Delphi(Pascal) code:
var
buffer: array[0..1023] of Byte;
begin
buffer[0] := $A9;
buffer[1] := $B5;
buffer[2] := $B2;
buffer[3] := $04;
if (buffer[0] = $A9 ) and (buffer[1] = $B5 ) and (buffer[2] = $B2 ) and (buffer[3] = $04) then ShowMessage ('One');
if DWORD(PDWORD(@buffer[0])^) = $04B2B5A9 then ShowMessage ('Two');
end;
if PInteger(@buffer[0])^ = $04b2b5a9 then
²»ÖªµÀlzÊDz»ÊÇÒª±È½ÏºÝ¶àÕâÑùµÄbyte£¿Èç¹û4¸öµØ»°.........
Êǵġ£¡£¾ÍÊÇN¶à¸ö¿ÉÄܼ¸°Ù¼¸Ç§¸ö..¼¸Íò¸öÒ²ÓпÉÄÜ
ÎÒµÄÒâ˼ÊÇÒ»¸öºÜ´óµÄÎļþ¼¸M»òÊ®¼¸M¡£¡£ÔÚÕâÀïÅúÁ¿²éѯÕ⼸¸ö×Ö½Ú¡£¡£DELPHI´¦ÀíËÙ¶ÈÌ«Âý¡£¡£ÓÐûÓкð취
這應該ÊDzéÕÒËã·¨問題£¬±È較ÊÇ難ÃâµÄ....
ÓÐûÓкõİ취¡£¡£ÌáÉýËÙ¶È
up`
case
Ïà¹ØÎÊ´ð£º
ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ
ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÎÞÈ˻شð£¿
×ö³É×ÊÔ´Î ......
ÎÒÔÚÍøÉÏÕÒÁ˸ö¹ØÓÚIEBHOµÄ´úÂ룬Ȼºó°´ÕÕÄĸöÉèÖÃÁË£¬ºóÀ´ÔËÐеÄʱºò³öÏÖ
[´íÎó] Unit1.pas(15): Undeclared identifier: 'GetTypeInfoCount'
[´íÎó] Unit1.pas(15): Undeclared identifier: 'GetTypeInfo ......
IF THEN ELSEÖжà¸öÌõ¼þÔõôд£¬È磺×Ö·û´®S1£¬S2£¬S3£¬S4¾ùÒª²»Îª¿Õ¡£
ÔõôÑù°ÑËüдµ½IFÖÐÈ¥£¿
Çë¸÷λ°ï°ï棬лл£¡
if (S1<>'') and (S2<>'') and (S3<>'') and (S4<>'') then
begin ......