|
Вопрос # 3 610/ вопрос открыт / |
|
Здравствуйте!
Пдскажите, как можно "вытащить" капчу с рамблера??
Просто не выполнется if pos ...
или покажите, если у кого есть пример, показа капчи.
Приложение: Переключить в обычный режим- if pos('id.captcha.rambler.ru',Text) > 0 then begin
- number:=copy(Text,pos('/id.captcha.rambler.ru/',Text)+23,22);
- // form1.mmo1.Lines.Add(number);
- client.Get('http://id.captcha.rambler.ru/'+number+'.jpg');
- cap.SaveToFile('captcha.jpg');
- Form1.Img1.Picture.LoadFromFile('captcha.jpg');
 |
Вопрос задал: paradale (статус: Посетитель)
Вопрос отправлен: 3 января 2010, 16:24
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 1; последнее сообщение — 12 мая 2012, 17:06; участников в обсуждении: 1.
|
casio (статус: Посетитель), 12 мая 2012, 17:06 [#1]:
вот пример:
procedure TForm1.FormActivate(Sender: TObject);
var im:TMemoryStream;
JPEG:TJPEGImage;
begin
im:=TMemoryStream.Create;
JPEG:=TJPEGImage.Create;
IdHTTP1.Get('адрес сайта',im);
im.Position:=0;
JPEG.LoadFromStream(im);
Image1.Picture.Assign(JPEG);
JPEG.Free;
im.Free;
end;
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
