Как загрузить captcha и поместить её в TImage

[uberchel]

Сообщение от YYYYY

А что за функция UrlDownloadToFile(nil, PChar(URL), PChar('captcha.jpg'), 0, nil)? Мой компилятор(D7) выдаёт undeclared...
И, второе:
В моём случае обязателен Get-запрос, т.к. на каждую PHP-сессию - своя captha!

Он выложил как я уже сказал только применение той функции а саму не выложил !
Дайте ссылку на сайт с капчей...

[mosq]

а погуглить судьба не дает?

uses 
  URLMon;

rtfm, епта.

В моём случае обязателен Get-запрос, т.к. на каждую PHP-сессию - своя captha!

у меня все руление идет через webbrowser и капча появляется только, когда залогинен. возможно, вышеназванная мною функция как-то связана с webbrowser и юзает одинаковые куки и сессии.
dont cry, lets try.

[Derlescom]

У меня работает так, загружает картинку без отправки нового запроса

var
controlRange,imgs, body,ovElements: OleVariant;
n,i,j,p,pn,h: integer;
hh,ww,tip,key,capcha,zn,s,h1,h2: string;
fl: boolean;
t: TMD5Digest;
begin
 ovElements := WB.OleObject;
// if ovElements.document.All.Length<10 then exit;

 if ovElements.document.All.Length>0 then
 // Перебираем все элементы в документе
 for i := 0 to ovElements.document.All.Length - 1 do
  Begin
   // Ищем элементы где нужно что нибудь ввести
   if ovElements.document.All.Item(i).tagName='INPUT' then
   Begin
         for j := i downto  i-3 do
        Begin



// САМООБУЧАЮЩАЯСЯ СИСТЕМА  АВТОВВОДА КАПЧ
// Если перед полем ввода есть рисунок, предполагаем, что это капча, делаем ее копию
if (ovElements.document.All.Item(j-1).tagName='IMG') and (ovElements.document.All.Item(j).tagName='INPUT') then
Begin
body := ovElements.document.body;
imgs := ovElements.document.all.item(j-1);//нужный img
ControlRange := body.createControlRange;
ControlRange.add(imgs);
ControlRange.execCommand('Copy', False, EmptyParam);
if ClipBoard.HasFormat(CF_BITMAP) then
begin

Image1.Picture.LoadFromClipboardFormat(cf_BitMap, ClipBoard.GetAsHandle(cf_Bitmap), 0);//вставляем
hh:= IntToHex(Image1.Picture.Bitmap.Height,2) ;
ww:= IntToHex(Image1.Picture.Bitmap.Width,2) ;
Image1.Picture.Bitmap.SaveToFile('captcha1.bmp');
end;

[YYYYY]

Ещё один вопрос по теме. Как загрузить png-изображение в Image. Или как преобразовать png в bmp или в jpg ?