1,183
社区成员
发帖
与我相关
我的任务
分享
HttpSendRequest(hRequest, lpHeader, lstrlen(lpHeader), nil, 0);
dwSize := 1024;
GetMem(lpBuffer, dwSize);
try
ZeroMemory(lpBuffer, dwSize);
while InternetReadFile(hRequest, lpBuffer, dwSize, dwRead) and
(dwRead > 0) do
begin
Result := Result + StrPas(lpBuffer);
end;
finally
FreeMem(lpBuffer);
end;