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

¡¾Çë½Ì¡¿delphiÀïÔõôËã¹þÏ££¿£¿£¿£¿£¿£¿£¿£¿£¿£¿£¿

Çë½Ì£ºdelphiÀïÔõôËã¹þÏ££¿
ÎÒÔ­À´ÕÒÁËÒ»¸ö£¬ÐÎʽÊÇÕâÑù£º
procedure DoSHA1(BufferIn:array of byte;DataLen:integer;var BufferOut:array of byte);
var
Context: TSHA1Context;
Digest: TSHA1Digest;
begin
SHA1Init(Context);
SHA1Update(Context,@BufferIn,DataLen);
SHA1Final(Context,Digest);
CopyMemory(@BufferOut,@Digest,20);
end;

µ«ÊÇÈç¹ûÊäÈëµÄÊý×é¹ý³¤£¬Èç10K£¬Ôò»á³ö´í

ϱßÊÇÎÒ´ÓÍøÉÏÕҵ쬲»ÖªµÀÔõôÓá£Ë­ÄÜÖ¸µãÏ£¬ÓÐÏֳɵÄÒ²ÐУ¬×îºÃÊÇËãbyteÀàÐÍÊý×éµÄ¡£

http://www.xiaokou.org/2005/10/12/54/
ÎÒ¿¿£¬¸ÃËÀµÄcsdn£¬µÚÒ»´ÎÌá½»»Ø¸´×ÜÊÇʧ°Ü£¬»¹µÄÔÙдһ±é£»
ÌýÈý¹ú˵inifileµ¥ÔªÀïÓйþÏ£Ïà¹Øº¯Êý£¬Äã¿´¿´ÏÈ

IniFilesÀïÃæµÄÄǸöÊÇTStringHash

¶¥¡£
Ô­À´µÄº¯ÊýÊäÈëÊý×éºó£¬Í³ö20λµÄ¹þÏ£Öµ
µ«Êdz¤¶ÈÌ«³¤£¬ºÃÏñËãµÄ²»¶Ô¡£

¸øÄãÒ»¸öELFËã·¨µÄhashº¯Êý£¬ÒѾ­¸Ä³ÉÖ§³ÖByteÊý×éÁË£º
function ELFHash(const ByteAry : Array of byte) : Cardinal;
var
i : Cardinal;
x : Cardinal;
begin
Result := 0;
for i := Low(ByteAry) to High(ByteAry) do
begin
Result := (Result shl 4) + ByteAry[i];
x := Result and $F0000000;
if (x <> 0) then
begin
Result := Result xor (x shr 24);
end;
Result := Result and (not x);
end;
end;

Ô­À´ÓõÄÄǸöÊÇsha-1Ëã·¨¡£
Â¥Éϵģ¬CardinalÊÇʲô£¿

CardinalÊÇ´óÓÚµÈÓÚ0µÄÕûÊý£¬¾Íµ±ÊÇÕûÊýºÃÁË¡£

¿ÉÒԲο¼IniFiles


Ïà¹ØÎÊ´ð£º

Çë½ÌÏ£¬ÓÃDELPHI×öSOHUµÄ - Delphi / ·Ç¼¼ÊõÇø

Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿
ÊÕÈëÔõôÑù
sohu£¿soho£¿

sohu ¿ÉÄÜÊÇsmall office house unit
С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£

È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾

ѧϰѧϰ¡£

ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ­×´ ......

ÕÐdelphi³ÌÐòÔ±

¹¤×÷µØµãÔÚ½­ËÕÀ¥É½
delphi¿ª·¢¾­Ñ飺1Ä꣨º¬£©ÒÔÉÏ
ÊìÁ·Ê¹ÓÃSQL Server OracleµÈ³£ÓÃÊý¾Ý¿â
ÄܶÀÁ¢½â¾öÏà¹ØÎÊÌâ
ÎÒÃǹ«Ë¾ÒªÕÐdelphi³ÌÐòÔ±,²»ÖªµÀÒª¿ª¶àÉÙÒø×Ó£¬Çë¸÷λָ½ÌÖ¸½Ì

Â¥Ö÷£¬¿´¿´ÎÒÕ¦Ñù 5ÄêµÄdelph ......

Í·ÌÛ£¡Delphiµ÷ÓÃC#µÄÓ¦ÓóÌÐòÎÞЧ

ÈçÌ⣡
  ÔÚDelphiÀïÃæµ÷ÓÃÎÒC#дµÄÒ»¸ö¿ÉÖ´ÐгÌÐò£¬È»ºóÔËÐÐDelphiµÄÓ¦ÓóÌÐòµÄʱºò£¬ÓкܴóµÄ¸ÅÂʵ÷Óò»ÉÏC#дµÄÓ¦ÓóÌÐò¡£
  ´úÂë¿Ï¶¨Ã»ÓÐÎÊÌâ¡£ÓÐʱºòÄܵ÷ÓÃÉÏ£¬ÓÐʱºòµãÁËûÓз´Ó¦£¬¼´²»Äܵ ......

delphiÈçºÎ±¸·ÝorcalÊý¾Ý¿â£¿ - Delphi / Êý¾Ý¿âÏà¹Ø

³ÌÐòʹÓõÄÊÇOrcalÊý¾Ý¿â£¬Ï붨ÆÚ£¨Ã¿¼¾¶È£©¶ÔÊý¾Ý¿â½øÐб¸·Ý£¬Ã»É¶Í·Ð÷£¬ÇëÎÊÓ¦¸ÃÔõôŪ£¿
ÓÐÊ²Ã´ÌØÊâÒªÇóÂ𣬱ÈÈçҪǰ¶Ë½çÃæ£¿
Ò»°ãÓÃÊý¾Ý¿â×Ô´øµÄ¡°¼Æ»®ÈÎÎñ¡±ÅäÖÃһϾ͹»ÁË

ûÓÐÊ²Ã´ÌØÊâÒªÇó¡£ÀýÈ磬ֻҪµ ......

Delphi 2010 PChar µÄÆæ¹ÖÏÖÏó

¡¡MessageBox(0,PChar('L'),PChar('LL'),0);
½á¹û£ºPChar('LL') ÏÔʾ¡¡£¬µ«PChar('L') ²»ÏÔʾ£®
var
  p1, p2: PChar;
begin
  p1 := PChar('L');
  p2 := PChar('LL');
  MessageBo ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ