DELPHI °ÑÁ÷ת»»³É×Ö·û´®ÕâÑù³ÉÂð£¬ÊÇGBKµÄ±àÂëÂð
function TFrm_FncUpdateManager.StreamToString( aStream: TStream): String; var vi: Integer; begin Result := ''; if not Assigned(aStream) then Exit; SetLength(Result, aStream.Size); for vi := 0 to Pred(aStream.Size) do begin aStream.Position := vi; aStream.Read(Result[Succ(vi)], 1); end; end;
ÄãÓÃÁ÷µÄ»°Óò»×ÅÕâôÂé·³ TStringStreamÓÃÕâ¸öÁ÷ ½øÐжÁд²Ù×÷ aStream.WriteString('°¡´ò·¢·¢Éú·¢Éú·É'); aStream.ReadString('°¡´ò·¢·¢Éú·¢Éú·É'); ÔÙÆä´Î StreamÊǸö³éÏóÀ࣬Äã²»ÄÜÖ±½Óµ÷ÓÃµÄ Â¥ÉÏѧ¹ý¶à̬°ÉÒýÓà ¥ÉÏѧ¹ý¶à̬°É µÄÈ·. ÕâÕâÀïÖ»ÊÇÉùÃ÷ʵÀýÊÇÒ»¸öTStream»òÕßTStreamµÄ×ÓÀà,ÓÖûÓÐÈ¥´´½¨TStreamÀàµÄʵÀý ÊDz»ÊÇGBKÐèÒª×Ô¼ºÅжÏһϠÒòΪ·þÎñ¶ËµÄÊÇJAVAÒª°ÑÁ½±ßµÄµÄÁ÷°ü½øÐе÷Óã¬ËùÒÔÒªMD5ÑéÖ¤£¬¶¼×ªÕýͬһµÄ¸ñʽ,ÎÒ´«µÄÊÇÎļþÁ÷¡£ ÔõôÑù°ÑÁ÷¶¼´«»»³ÉGBKÄØ ÒýÓà 1. ÄǸöÑ»·Ã»±ØÒª Delphi(Pascal) codefunction TFrm_FncUpdateManager.StreamToString( aStream: TStream): String;begin Result :='';ifnot Assigned(aStream)then Exit; SetLength(Result, aStream.Size); aStream.
Ïà¹ØÎÊ´ð£º
×î½ü»»Á˼ҹ«Ë¾£¬ÓôÃÆµÄÊǹØÓÚDelphiµÄÎÊÌ⣬¹«Ë¾Ö®Ç°ÓõÄÒ²ÊÇD°æDelphi7ÆóÒµ°æµÄ¡£ºóÀ´±»ËÍÁËÂÉʺ¯ÒԺ󣬾ÍÇ¿ÖÆ¸ÄÓÃDelphi7¸öÈ˰棬¾ç˵Õâ¸ö°æ±¾ÊÇÃâ·Ñ°æ£¬»òÕß˵ºÜ±ãÒË£¬Èç¹û²é³öÀ´£¬¾ÍÂò¸öºÃÁË¡£ÕâÏ¿ɺ᣿àÁËÎ ......
¼±Óá£ÁªÏµQQ£º8775262£¬Ð»Ð»¡£ ÐèÒª½øÐÐDllImportµÄµØ·½Ö±½ÓдDLLImport.·½·¨Ãû¡£ È磺DLLImport.GlobalAddAtom(¡¡); Îļþ£ºUShare.pas Delphi(Pascal) code: unit UShare; interface uses Windows, Me ......
ÈçÌ⣬ µã»÷DelphiµÄFile²Ëµ¥µÄExitÍ˳öDelphi£¬ Delphi²¿·Ö¹Ø±Õ--¼´²»ÄÜÔÙ²Ù×÷Delphi£¬µ«ÈÎÎñÀ¸ºÍ½ø³ÌÀDelphi»¹ÔÚÔËÐУ¬Ã»ÓÐÕæÕýµÄÍ˳ö¡£ÊDz»Êǰ²×°ÁËjre¸Ä±äÁËijЩ»·¾³±äÁ¿µ¼Ö£¬ÇëÎʸßÊÖÈçºÎ½â¾ö£¿ ×¢£ºÃ»°²×° ......
ÒªÇóÄÜʵÏÖ¶þÈËÔŲ́ͬµçÄÔÉ϶ÔÕ½µÄ ²»ÓÃÌ«»¨ÉÚ ×îºÃ»¹¼ÓÉÏÈË»ú¶ÔÕ½µÄ ¼±Ðè ˰ïÏÂæ°¡Ñ½!!!!!!!! up baidu£¬google up http://www.codepub.com/software/view-software-4061.html ÍøÕ¾ÉÏÓÐ ......
IF THEN ELSEÖжà¸öÌõ¼þÔõôд£¬È磺×Ö·û´®S1£¬S2£¬S3£¬S4¾ùÒª²»Îª¿Õ¡£ ÔõôÑù°ÑËüдµ½IFÖÐÈ¥£¿ Çë¸÷λ°ï°ï棬лл£¡ if (S1<>'') and (S2<>'') and (S3<>'') and (S4<>'') then begin ......