Code666 (代码贴、代码片段)

[Delphi (Object Pascal)] Delphi 把stream的内容读取到字符串变量 →→→→→进入此内容的聊天室

来自 , 2020-12-10, 写在 Delphi (Object Pascal), 查看 170 次.
URL http://www.code666.cn/view/eae31887
  1. function StreamToString(const Stm: Classes.TStream): string;
  2. var
  3.   SS: Classes.TStringStream;  // used to copy stream to string
  4. begin
  5.   SS := Classes.TStringStream.Create('');
  6.   try
  7.     // Copy given stream to string stream and return value
  8.     SS.CopyFrom(Stm, 0);
  9.     Result := SS.DataString;
  10.   finally
  11.     SS.Free;
  12.   end;
  13. end;
  14. //delphi/2232

回复 "Delphi 把stream的内容读取到字符串变量"

这儿你可以回复上面这条便签

captcha

贴代码片段 - Code666