Вот мне нужно получить капчу с данной ссылки:
http://webmaster.yandex.ru/addurl.xml
Вот у меня получился такой код
Код:
implementation
var zKey, s:string;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
var
FS:TFileStream;
begin
s:= idhttp1.Get('http://webmaster.yandex.ru/addurl.xml'); // Заходим на строничку
zKey:=Copy(S, Pos('zKey', S)+16, 32);
FS:=TFileStream.Create('capcha.jpg',FMCreate);
idhttp1.Get('http://u.captcha.yandex.net/'+zKey+'.jpg', FS); // Получение капчи и сохранение в файл жпег
FS.Free; // Освобождение переменной FS
image1.Picture.LoadFromFile('capcha.jpeg'); // Загружаем картинку с капчей
end;
end.
Вроде код правельный
Но проверьте
нажимаю на кнопку и заместо того чтобы получить капчу зависает приложение в чем ошибка подскажите плиз
заранее спасибо