5,928
社区成员




Function StreamToStr(MyStream :TStream) :String; //把流对象变成string
var str :String; len :Integer;
begin
Result :='';
if MyStream =nil then exit;
try
len :=MyStream.Size;
SetLength(str, len);
MyStream.Position :=0;
MyStream.ReadBuffer(str[1], len);
Result :=Str;
finally
MyStream.Free;
end;
end;