Написание sms send'ера

[Andrey32]

Помогите найти ошибку, к сожелению я её не вижу

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

procedure TForm1.Button1Click(Sender: TObject);
var
Data: TStringList;
begin
Data:=TStringList.Create;
Data.Add('flash=0');
Data.Add('svalue=1');
Data.Add('captcha_span='+captcha_span);
//if Combobox1.Text='+7 927' then
Data.Add('pref=792'); //else Data.Add('pref=793');
Data.Add('Addr='+Edit1.Text);
Data.Add('smbody='+Edit3.Text);
Data.Add('year=2010');
Data.Add('secretcode='+edit2.Text);
s:=idhttp1.Post('http://volga.megafon.ru/sms/send/',data);
PageText := IdHTTP1.Post('http://volga.megafon.ru/sms/send/',data);
if Pos('Спасибо',PageText)>0 then
showmessage ('Отправленно !') else Showmessage ('Ошибка');
end;

Вот нехочет отправлять и все, капчу нормально выводит

[russian-stalker]

А какой ответ приходит?

[Andrey32]

Ответ где ? В Сниффере ? или в программе ? Я думаю что ошибка в вводе кода с капчи ибо в сниффере параметра с ид капчи не присылается

Data.Add('captcha_span='+captcha_span);

captcha_span я брал из исходного кода страницы, а хотя если бы дело было в этом капча вообще бы неприсылалась =/ вообщем я в недоумении

[Andrey32]

Вот я одного не пойму, сколько кодов не смотрел и все равно не понял, вот я заполнил страницу из StringList, а как происходит нажатие кнопки допустим Submit ??? Может моя программа не работает из-за того что не посылается нажатие на кнопку Send(На странице интернета) ? Вообще надо ли это ?

[Smile93]

а ошибка случаем не в строке :

captcha_span:=Copy(s, pos('captcha_span',s),8); ?

[Smile93]

посмотрел твой пример мб у меня глючит но в этом значении пишут ошибку) инди 9 . дельфи 7

[Andrey32]

хммм у меня компилит без проблем =/ да нет вроде, судя по другим исходникам все так и должно быть
а есть какие нибудь варианты решения проблемы ?

[russian-stalker]

Вы PageText после выполнения смотрели?

[Voody]

А в шоке от таких программистов. Посмотрят урок и пытаются писать программу, не разобравшись, как что работает.

captcha_span:=Copy(s, pos('captcha_span',s),8);

В итоге в captcha_span будет "captcha_"
А ссылка капчи будет: "http://volga.megafon.ru/includes/sms_code_new.php?captcha_.png" (а на самом деле: "http://volga.megafon.ru/includes/sms_code_new.php?0.738039")
Супер да?

Вы уверены, что капча у вас выводится?

[Andrey32]

если бы я не был уверен, то не писал бы, а тебя попрошу воздержатся от наездов, если ты такой пряморукий дава помоги, если что я вообще то знаю какая ссылка на картинку и что это дает если генерится каждый раз по новому и записывается в переменную captcha_span посматри в html коде.