delphi - 在Delphi的TWebbrowser中保存特定图像？

Question

这个问题已经有答案了:

Image from TWebBrowser to TPicture (1 个回答)

已关闭 9 年前。

我需要在 Twebbrowser 中保存特定图像，但无需重新加载它；图像已经加载。我知道如何获取图像的源网址并下载它，但我真正需要的是保存已加载到浏览器中的图像。有办法吗？

谢谢!

Answer 1

似乎没有直接的方法将图像元素保存到文件中，所以我会从缓存中获取它。要通过给定的资源 URL 从 IE 缓存复制文件，您可以使用如下函数。 URL 参数是 HTML 标签的 src 属性值，FileName 是目标文件名:

uses
  WinInet;

procedure SaveInetResourceToFile(const URL, FileName: string);
var
  BufferSize: DWORD;
  CacheEntry: PInternetCacheEntryInfo;
begin
  if not RetrieveUrlCacheEntryFile(PChar(URL), TInternetCacheEntryInfo(nil^),
    BufferSize, 0) then
  begin
    if GetLastError = ERROR_INSUFFICIENT_BUFFER then
    begin
      GetMem(CacheEntry, BufferSize);
      try
        if RetrieveUrlCacheEntryFile(PChar(URL), CacheEntry^, BufferSize, 0) then
        try
          Win32Check(CopyFile(CacheEntry.lpszLocalFileName, PChar(FileName),
            False));
        finally
          Win32Check(UnlockUrlCacheEntryFile(PChar(URL), 0));
        end
        else
          RaiseLastOSError;
      finally
        FreeMem(CacheEntry);
      end;
    end
    else
      RaiseLastOSError;
  end;
end;