Сохранить конкретное изображение в TWebbrowser Delphi?

Question

Мне нужно сохранить определенное изображение в Twebbrowser, но БЕЗ его перезагрузки; изображение уже загружено. Я знаю, как получить исходный URL-адрес изображения и загрузить его, но мне действительно нужно сохранить изображение, которое оно уже загружено в браузере. Есть ли способ?

Спасибо!

Answer 1

Кажется, нет прямого способа сохранить элемент изображения в файл, поэтому я бы получил его из кеша. Чтобы скопировать файл из кеша IE с заданным URL ресурса, вы можете использовать функцию, как показано ниже. Параметр URL это значение src атрибут HTML тега и 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;