Капча Яндекса

[Softolab.org]

Встретился со второй проблемой: не посылается нормально ответ из антигейта в поле для капчи яндекса.

Код:

var i,a,c,b,g,o,y,j,k,p,t,h,pr,tic,ya,la,s,n,cc:string;
R,m: Integer;
Item: TListItem;
list:tstringlist;
fs:tfilestream;
begin
for R := 0 to Form2.Memo1.Lines.Count - 1 do
begin
o:=Form2.Memo1.Lines.Strings[R];
list:=tstringlist.create;
list.text:=Form2.idhttp1.get('http://yandex.ru/yandsearch?serverurl='+o);
list.text:=Utf8ToAnsi(list.text);
for m:=0 to list.count-1 do
if pos('<img src="',list.strings[m])>0 then
begin
s:=copy(list.strings[m],pos('<img src="',list.strings[m])+17,(pos('" class',list.strings[m]))-(pos('<img src="',list.strings[m])+17));
s:='http://'+s;
try
fs:=tfilestream.create(extractfilepath(Application.ExeName)+'captcha.gif',fmcreate);
Form2.IdHTTP1.Get(s,fs);
finally
fs.free;
Form2.rsltedit.Text:='разгадываем капчу...';
Form2.rsltedit.Text:=recognize('captcha.gif',Form2.apikeyedit.Text,false,false,false,0,0);
end;
s:=StringReplace(s,'yandex.ru/','',[rfReplaceAll]);
s:=StringReplace(s,'http://','',[rfReplaceAll]);
j:=Form2.rsltedit.Text;
n:=Form2.rsltedit.Text;
if Form2.rsltedit.Text <> 'разгадываем капчу...' then
cc:=Form2.idhttp1.get('http://yandex.ru/checkcaptcha?key='+s+'&retpath=http://yandex.ru/yandsearch?serverurl='+o+'&rep='+n);
cc:=Utf8ToAnsi(cc);
Form2.Memo2.Text:=cc;
Form2.Memo3.Text:='http://yandex.ru/checkcaptcha?key='+s+'&retpath=http://yandex.ru/yandsearch?serverurl='+o+'&rep='+n;

как видно, переменная cc должна присваивать страницу с введённой капчей, но WTF??? всё время пишет вы ввели неправильный код, что делать, подскажите пожалуйста?

[Человек_Борща]

var i,a,c,b,g,o,y,j,k,p,t,h,pr,tic,ya,la,s,n,cc:string;

Я бы тоже ничего не понял...


Посмотрите как браузер работает с капчей и яндексом... может что-то меняется. Вы открываете 1 раз соединение. Гребёте капчу, обработываете, открываете соединение, вводите код, но о боже, капча то уже другая.

[)Игнат(]

Во-первых, вам необходимо оформить код, чтобы он был читабельным
Во-вторых вам необходимо сформировать и отправить POST-запрос.

[Softolab.org]

Сообщение от )Игнат(

Во-первых, вам необходимо оформить код, чтобы он был читабельным
Во-вторых вам необходимо сформировать и отправить POST-запрос.

капча тут отправляется гет запросом.