delphi 中将TMemoryStream转换为'String'

function StreamToString(aStream: TStream): string;

var

SS: TStringStream;

begin

if aStream <> nil then

begin

SS := TStringStream.Create('');

try

SS.CopyFrom(aStream, 0); // No need to position at 0 nor provide size

Result := SS.DataString;

finally

SS.Free;

end;

end else

begin

Result := '';

end;

function StreamToString(const Stream: TStream; const Encoding: TEncoding): string;

var

StringBytes: TBytes;

begin

Stream.Position := 0;

SetLength(StringBytes, Stream.Size);

Stream.ReadBuffer(StringBytes, Stream.Size);

Result := Encoding.GetString(StringBytes);

end;

它仅在Delphi XE7中经过测试。

推荐分享