我的目标是能够将TMemoryStream
转换为string
。我有以下代码将数据放入TMemoryStream
:
var
idHttp : TIdHTTPEx;
url : string;
slTemp : TStringList;
memoryStream : TMemoryStream;
begin
try
idHttp := TIdHTTPEx.Create(nil);
slTemp := TStringList.Create;
memoryStream := TMemoryStream.Create;
try
url := GetURL;
SetParams(slTemp);
idHttp.Request.Accept := 'application/json, text/javascript, */*; q=0.01';
idHttp.Request.AcceptEncoding := 'gzip, deflate, br';
idHttp.Request.AcceptLanguage := 'en-US,en;q=0.9';
idHttp.Request.CacheControl := 'no-cache';
idHttp.Request.Connection := 'keep-alive';
idHttp.Request.ContentLength := 16;
idHttp.Request.ContentType := 'application/x-www-form-urlencoded; charset=UTF-8';
idHttp.Post(url, slTemp, memoryStream);
Result := MemoryStreamToString(memoryStream);
finally
memoryStream.Free;
slTemp.Free;
idHttp.Free;
end;
except on E : Exception do
begin
Result := 'e:' + E.Message;
end;
end;
end;
这是我将其转换为string
的代码:
function MemoryStreamToString(MemoryStream : TMemoryStream): string;
var
StringStream: TStringStream;
begin
Result:='';
StringStream:= TStringStream.Create('', TEncoding.UTF8);
try
MemoryStream.Position := 0;
StringStream.CopyFrom(MemoryStream, MemoryStream.Size);
Result:= StringStream.DataString;
Result := Result;
finally
FreeAndNil(StringStream);
end;
end;
我的函数在大多数转换中都可以正常工作,但并非如此。我检查了以下链接:link1,link2,但它们与我的情况不同。我也尝试过link3,但仍然失败。
有什么办法解决这个问题吗?
答案 0 :(得分:4)
您不需要手动解码原始数据。只需让TIdHTTP
为您完成。 Post()
方法具有重载,该重载返回已解码的字符串:
Result := idHttp.Post(url, slTemp);
此外,您需要完全摆脱这一行:
idHttp.Request.AcceptEncoding := 'gzip, deflate, br';
否则,如果服务器决定发送压缩后的响应,则TIdHTTP
将无法正确解码响应。您正在手动授予服务器许可,但您没有设置TIdHTTP.Compressor
属性,因此TIdHTTP
可以处理解压缩。除非您愿意并且能够手动检测和解码已实际上以指定格式之一编码的响应,否则请不要手动设置AcceptEncoding
。否则,只需让TIdHTTP
根据其实际功能在内部管理AcceptEncoding
属性。