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

[Streetracer]

Собственно сабж )

Пишу смс сендер, нужно каптчу поиметь ) Как её загрузить в Компонет Timage и обновлять при нажатии на кнопочку =)

Всем заранее благодарен!

[Пепел Феникса]

парсим ссылку на эту капчу далее:

var M:TMemoryStream;
begin
 M:=TMemoryStream.Create;
 idHTTP1.Get(<capcha link>,M);
 M.seek(0,0);
 Image1.Picture.LoadFromStream(M);
 M.free;
end;

типо того
а вообще на форуме много примеров

[Streetracer]

Наотрез отказывается загружать =(
Ошибка в строке

Image1.Picture.LoadFromStream(M);

Мол нельзя картинки из потока грузить...

[Квэнди]

M.seek(0,0);=>M.position:=0;

[Пепел Феникса]

Image1.Picture.Bitmap.LoadFromStream

если капча не битмап то намучаетесь еще=D

Квэнди, дело не только в потоке(кстати ваш метод надежнее)
но и в том что я чтото не заметил у Picture метод LoadFromStream(сейчас посмотрел в Д..нету)

[Квэнди]

но и в том что я чтото не заметил у Picture метод LoadFromStream(сейчас посмотрел в Д..нету)

Да, это нормально

unit Graphics;
.............
TPicture = class(TInterfacedPersistent, IStreamPersist)
.....
protected
.....
    procedure LoadFromStream(Stream: TStream);
    procedure SaveToStream(Stream: TStream);
public
.....
property Bitmap: TBitmap read GetBitmap write SetBitmap;
...........
procedure TPicture.LoadFromStream(Stream: TStream);
begin
  Bitmap.LoadFromStream(Stream);
end;

[YYYYY]

Здравствуйте! Подскажите, пожалуйста, как получить изображение с сайта, используя сокеты. Пробую так:

      params.Clear;
       params.Add('GET /img_key.php HTTP/1.1');
       params.Add('Host: ' + BNazva);
       params.Add('User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.1.3) Gecko/20090824 Firefox/3.5.3 (.NET CLR 3.5.30729) WebMoney Advisor');
       params.Add('Accept: image/png,image/*;q=0.8,*/*;q=0.5');
       params.Add('Accept-Language: ru,en-us;q=0.7,en;q=0.3');
       params.Add('Accept-Encoding: gzip,deflate');
       params.Add('Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7');
       params.Add('Content-Type: image/png');
       params.Add('Keep-Alive: 300');
       params.Add('Connection: keep-alive');
       params.Add('Referer: ' + Addres);
       params.Add('Cookie: LastLogin=***; ' + coockis);
        r:=params.Text;

       SendStr(s, r);
       Sleep(2000);
       M:=TMemoryStream.Create;
       recv(s, M, SizeOf(M), 0);
          M.position:=0;
          M.SaveToFile(ExtractFilePath(Application.ExeName)+'captha.jpg');
          MainForm.Image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'captha.jpg');
          M.free;

Процедура SendStr(s, r) работает 100% - пробовал на разных сайтах-ответ приходит всегда! А вот с картинкой сервер даже не отвечает! Запрос "сдираю" у HTTP Debugger Pro V3.5. Спасибо.

[mosq]

так у меня реализовано, безо всяких idhttp и т.п.

      try UrlDownloadToFile(nil, PChar(URL), PChar('captcha.jpg'), 0, nil);
      CaptchaForm.imgCap.Picture.LoadFromFile('captcha.jpg');
      CaptchaForm.show;
      except
      captcha:='ERROR_CAPTCHA';
      end;

[uberchel]

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

так у меня реализовано, безо всяких idhttp и т.п.

      try UrlDownloadToFile(nil, PChar(URL), PChar('captcha.jpg'), 0, nil);
      CaptchaForm.imgCap.Picture.LoadFromFile('captcha.jpg');
      CaptchaForm.show;
      except
      captcha:='ERROR_CAPTCHA';
      end;

Сами поняли что написали, если вам и дали код (процедуру UrlDownloadToFile) то надо было бы сначала хоть разобраться в коде а портом выкладывать полный, а не чушь всякую!

[YYYYY]

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