|
#1
|
||||
|
||||
Помогите с IDHTTP
Вот мне нужно получить капчу с данной ссылки:
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. Вроде код правельный Но проверьте нажимаю на кнопку и заместо того чтобы получить капчу зависает приложение в чем ошибка подскажите плиз заранее спасибо |
#2
|
||||
|
||||
там же gif файл
Код:
procedure TForm1.Button1Click(Sender: TObject); var s: String; i: Integer; filestream: TFileStream; begin s:=IdHTTP1.Get('http://webmaster.yandex.ru/addurl.xml'); Memo1.Text:=s; Memo1.Lines.SaveToFile('capcha.htm'); i:=Pos('image?key=', s); if i>0 then begin s:=Copy(s, i-28, Length(s)); i:=Pos('"', s); s:=Copy(s, 1, i-1); Caption:=s; filestream:=TFileStream.Create('capcha.gif', fmCreate); try IdHTTP1.Get(s, filestream); finally filestream.Free; end; end; end; Пишу программы за еду. __________________ Последний раз редактировалось NumLock, 12.12.2010 в 19:45. |
#3
|
||||
|
||||
Цитата:
А в чем прикол та мне не код стронички нужен а картинку вывести |
#4
|
||||
|
||||
да нет никакого прикола, просто TImage не умеет работать с gif. ищи того, кто умеет!
Пишу программы за еду. __________________ |