604
社区成员
发帖
与我相关
我的任务
分享
{但从Indy的代码来看,与上面协议显然不一致。}
begin
if AResponseContent <> nil then
begin
if Response.ContentLength <> 0 then
begin
ReadStream(AResponseContent, Response.ContentLength);
end
else
begin
if AnsiPos('chunked', Response.ExtraHeaders.Values['Transfer-Encoding'])
> 0 then {do not localize}
begin
DoStatus(hsText, [RSHTTPChunkStarted]);
Size := ChunkSize;
while Size > 0 do
begin
ReadStream(AResponseContent, Size);
ReadLn;
Size := ChunkSize;
end;
ReadLn;
end
else
begin
ReadStream(AResponseContent, -1, True);
end;
end;
end;
end;