капча

[DeDoK]

как получить капчу из этой страницы? http://wen.ru/gb/?uid=1&form=1
я писал такой код

procedure TForm1.Button2Click(Sender: TObject);
var
Captcha:TMemoryStream;
s,sres:string;
begin
captcha:=TMemoryStream.Create;

idHTTP1.Get('http://wen.ru/secure/wbmp.php?2232030,1019', captcha);
captcha.SaveToFile('C:\captcha.bmp');
Captcha.Free;
Image1.Picture.LoadFromFile('C:\captcha.bmp');

end;

но на это программка ругалась что плохой bmp файл

[Alter]

Путь то меняется, щас там: http://wen.ru/secure/wbmp.php?6278128,5694

[DeDoK]

а как получить исходный код страницы? тогда можно попробовать с помощью pos и copy сформировать путь к капче. есть предложения как получить страничку в html варианте?

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

а вы уверенны что там именно bmp картинка?

[Квэнди]

Надо обращаться не к некому динамичному адресу, а get-ить страницу, на которой отображается эта ссылка и забирать оттуда адрес.

[DeDoK]

Квенди можно подробней? или с примером?
2Пепел Феникса - там bmp и gif.

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

procedure TForm1.FormCreate(Sender: TObject);
var s:string;
    CapchaID:string;
begin
 s:=idHTTP1.Get('http://wen.ru/gb/?uid=1&form=1');
 CapchaID:=Copy(s,pos('<img src="/secure/wbmp.php?',s)+length('<img src="/secure/wbmp.php?'),pos('"',Copy(s,pos('<img src="/secure/wbmp.php?',s)+length('<img src="/secure/wbmp.php?'),15))-1);
 ShowMessage(CapchaID);
end;

коряво но работает...
CapchaID - это именно изменяемая часть ссылки на капчу(выделил красным, использовать я думаю сможешь и сам)
http://wen.ru/secure/wbmp.php?6278128,5694

я не уверен что WBMP и BMP одно и тоже

[DeDoK]

спасибо))))я разобрался) правда wbmp не использовал. я gif решил пробовать - вышло

[DeDoK]

еще вопрос. как получить вторую часть CaptchaID - ту что после запятой?
иными словами столкнулся с проблемой по нажатию кнопки Сказать
пишу такой код

procedure TForm1.Button1Click(Sender: TObject);
var
captcha, name : string;
params:tstringlist;
begin
captcha:=Edit2.Text;
name:=edit3.Text;
params:=TStringList.Create;
try
params.Add('author='+name);
params.Add('message'+Memo1.Lines.Text);
params.Add('tr=n');
params.Add('uid=1');
params.Add('add=1');
params.Add('code='+captcha);
params.Add('cid=7257959');
params.Add('lng=ru');
idhttp1.Post('http://wen.ru/gb/',params);
finally
params.free;
end;
end;
end.

это вроде все параметры. но там подметил в исходнике такую строку как

Сообщение:</small><input type="text" name="message4945"

где число в конце - вторая часть CaptchaID

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

выделяем вторую часть из CaptchaID

 ShowMessage(Copy(CapchaID,pos(',',CapchaID)+1,length(CapchaID)-pos(',',CapchaID)+1));