Как получить капчу ?

[kakawkin]

Немогу понять как сохранить капчу с https://www.icq.com/register/
смотрел и исходный код, и снифер, и скрипты - ничего ненашел чето(((

[kangreon]

Вроде так.
Сейчас проверю

uses
  strutils, jpeg;

...

var
  jpg:TJPEGImage;
  ms : tmemorystream;
  s:string;
Begin
  jpg:=tjpegimage.create;
  ms:=tmemorystream.create;
  s := idhttp1.get('https://www.icq.com/register/');
  s := 'https://www.icq.com' + copy(s,pos('/img/aa_img.php?gnm=',s),posex('"',s,pos('/img/aa_img.php?gnm=',s))-pos('/img/aa_img.php?gnm=',s));
  idhttp1.get(s,ms);
  ms.seek(0,0);
  jpg.loadfromstream(ms);
  Image1.Picture.Assign(jpg);
  jpg.free;
  ms.free;
end;

[kakawkin]

выдает ошибку на строке
s := 'https://www.icq.com' + copy(s,pos('/img/aa_img.php?gnm=',s),posex('"',s,pos ('/img/aa_img.php?gnm=',s))-pos('/img/aa_img.php?gnm=',s));

[kangreon]

А вы в Uses добавили StrUtils?

[kakawkin]

конечно добавил

[kakawkin]

пишет: EIdIOHandlerPropInvalid witch message "IOHandlervalue is not valid"

[kakawkin]

а неможет быть ошибка в том что надо в строке s := idhttp1.get('https://www.icq.com/register/'); указать ссылку не на папку а на страницу именно ???

------

Я даже сделал вот так:
var a:string;

........

a:=IdHTTP1.Get('https://www.icq.com/register/');
Memo1.text:=Copy(a,Pos('gnm', a)+8,103);
и все равно выдает такуюже ошибку - проблема чтоль скорее всего в получение страницы в переменную a ?

[kangreon]

А вы кинули на форму компонент IdSSLIOHandlerSocketOpenSSL1? (indy 10)
А в папку с программой два файла libeay32.dll и ssleay32.dll

http://indy.fulgan.com/SSL/openssl-1...i386-win32.zip