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

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.


Ïà¹ØÎÊ´ð£º

PythonÖеÄUnicodeÔÚDelphiÈçºÎ»¹Ô­³ÉGb2312£¿

ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ

ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô­³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......

VC Delphi ÄÚ´æËÙ¶È±È½Ï - VC/MFC / ·Ç¼¼ÊõÀà

VC ¿ØÖÆÌ¨³ÌÐò:
#include <iostream>
using namespace std;
int main()
{
const int def_buffer = 1024 * 4;
DWORD t;
BYTE b[def_buffer];
memset(b, 0, sizeof(b));
PBYTE p;
t = GetTickC ......

Ç¿ÁÒ½¨ÒéDELPHI°æ¸ü»»´ó°æ - Delphi / ·Ç¼¼ÊõÇø

hongqi162¡¢windindance
´Ë2È˳¤ÆÚ²»ÔÚÏߣ¬ÌرðÊÇwindindance
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
hongqi162»¹ÊǾ­³£ÉÏÀ´×ª×ªµÄ

ÒýÓÃ
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
ÆäʵҲ²»ÊÇʲôÄÜÁ¦µÄÔ­Òò£¬Ö÷Òª¿ÉÄÜÊÇʱ¼äÎÊÌâ°É
¹¤×÷µÄ»¹ÒªÉÏ°à£¬Ñ§Ï ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ