![]() |
|
#1
|
||||
|
||||
![]() Вот мне нужно получить капчу с данной ссылки:
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. Вроде код правельный ![]() Но проверьте нажимаю на кнопку и заместо того чтобы получить капчу зависает приложение в чем ошибка подскажите плиз заранее спасибо |