каптча на megafon.ru

Делаю софт на Delphi 7 SMS-Sender.
Подскажите пожалуйста как получить каптчу через гет запрос?

procedure TForm1.Button2Click(Sender: TObject);
var
FS: TFileStream;
begin
S:=idhttp1.Get('http://sendsms.megafon.ru');
captcha_span:=Copy(s, pos('captcha_span',s),8);
FS:=TFileStream.Create('capcha.png',FMCreate);
idhttp1.Get('http://sendsms.megafon.ru/includes/sms_code_new.php?'+ captcha_span +'.png', FS);
FS.Free;
Image1.Picture.LoadFromFile('capcha.png');
end;

 

Мне интересно какая строчка кода у тебя указывает на сохранение картинки

 

В исходном коде страницы "http://sendsms.megafon.ru" даже нету строки "captcha_span".

 

Code:

var 
ck,s:string; 
Fs:TfileStream; 
begin 
S:=IdHTTP1.Get('http://sendsms.megafon.ru/');
ck:=Copy(S, Pos('codekey', S)+18, 8); 
FS:=TFileStream.Create('captcha.jpeg',FMCreate);
IdHTTP1.Get('http://sendsms.megafon.ru/image.phtml?k='+ck+'.jpeg', FS);
FS.Free; 
Image1.Picture.LoadFromFile('captcha.jpeg'); 
end;

 

Code:

S:=TFileStream.Create('capcha.jpg',FMCreate);
 IdHTTP1.Get('http://szf.sendsms.megafon.ru/image.phtml?k='+id, S);
 S.Free;
 Image1.Picture.LoadFromFile('capcha.jpg');
 ShowMessage('Номер картинки:'+id);

если нужно могу дать весь исходник...
не так давно писал
хотел потом изменения внести но не стал...