procedure GetStringFromStream(AStream: TMemoryStream);
var
charBuffer: PAnsiChar;
begin
SetLength(FResponseString, AStream.Size);
GetMem(charBuffer, AStream.Size);
Move(PAnsiChar(AStream.Memory)^, charBuffer^, AStream.Size);
FResponseString := PChar(charBuffer);
FreeMem(charBuffer);
end;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024