Показать сообщение отдельно
  #2  
Старый 11.05.2013, 02:35
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

А в img что-то есть или он пустой? Если Webbrowser всё же получает картинку, то тогда вариант такой - брать её из кэша.

Код:
uses 
 WinInet;

function GetCacheFileName(const Url: string; var FileName: string): Boolean;
var
 Info: PInternetCacheEntryInfo;
 InfoBufSize: Cardinal;
begin
 Result := False;
 InfoBufSize := 0;
 GetUrlCacheEntryInfo(PChar(Url),
   TInternetCacheEntryInfo(nil^), InfoBufSize);
 if GetLastError = ERROR_INSUFFICIENT_BUFFER then begin
   GetMem(Info, InfoBufSize);
   try
     Result := GetUrlCacheEntryInfo(PChar(Url),
                 TInternetCacheEntryInfo(Info^), InfoBufSize);
     if Result then begin
       FileName := Info^.lpszLocalFileName;
     end;
   finally
     FreeMem(Info);
   end;
 end;
end;
//(c) Nikolai Adrianov
Если файл такой в кэше есть, функция вернёт true, а в FileName будет имя файла. А дальше делай с ним что хошь, в смысле, можно узнать размерчик. Может прокатит
Ответить с цитированием