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.