Question

我使用wininet下载图像并将其保存到内存流这里是我的程序

procedure DownloadToStream(const Url: string; ms: TMemoryStream);
var
  hSession     : HINTERNET;
  hService     : HINTERNET;
  lpBuffer     : array[0..1023] of Byte;
  dwBytesRead  : DWORD;
  dwBytesAvail : DWORD;
  dwTimeOut    : DWORD;
begin
  hSession := InternetOpen('usersession', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  if not Assigned(hSession) then Exit;
  try
    hService := InternetOpenUrl(hSession, PChar(Url), nil, 0, 0, 0);
    if hService = nil then
      Exit;
    try
      dwTimeOut := 60000;
      InternetSetOption(hService, INTERNET_OPTION_RECEIVE_TIMEOUT, @dwTimeOut, SizeOf(dwTimeOut));
      if InternetQueryDataAvailable(hService, dwBytesAvail, 0, 0) then
      repeat
        if not InternetReadFile(hService, @lpBuffer[0], SizeOf(lpBuffer), dwBytesRead) then
          Break;
        if dwBytesRead <> 0 then
          ms.WriteBuffer(lpBuffer[0], dwBytesRead);
      until dwBytesRead = 0;
    finally
      InternetCloseHandle(hService);
    end;
  finally
    InternetCloseHandle(hSession);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ms: TMemoryStream;
begin
  ms := TMemoryStream.Create;
  try
    DownloadToStream('imageurl, ms);
    ms.Position := 0;
    //do whatever you want with ms
  finally
    ms.Free;
  end;
end;

下载小图片时工作正常且没有冻结但是当它出现大图像时应用程序冻结，直到下载完成，如何避免这种情况？

Answer 1

您的程序正在冻结，因为在下载完成之前呼叫不会返回，并且您已经从网络浏览中了解到，有时这可能需要很长时间。在发生这种情况时，您的程序没有运行正常的事件循环和处理输入。

如果要使其正常工作，您需要在其他线程中进行下载。多线程可能非常棘手，但使用正确的库会变得更加简单。对于这样的事情，我建议查看the Async/Await functionality in OmniThreadLibrary.

使用wininet下载文件时如何避免冻结

1 个答案: