Отправа POST запроса в форму

← →
hunt (2010-07-21 15:20) [0]

Помогите отправить правильно запрос, сделал пол программы, программа уже умеет получать картинку капчи, а вот отправлять обратно не могу научить. При отправке прога просто закрываеться и все...
сайт
irk.ru/sms/

procedure TForm1.Button1Click(Sender: TObject); var data:TStringList; begin data.Add("_method=POST"); data.Add("data[_name]=Sms"); data.Add("data[Sms][number]=#номер телефона#"); data.Add("data[Sms][massage]=peter888 русский текст"); data.Add("data[Sms][code]="+edit1.Text); IdHTTP1.Post("http://www.irk.ru/sms/", data); end;

← →
Anatoly Podgoretsky © (2010-07-21 15:51) [1]

> hunt (21.07.2010 15:20:00) [0]

ModalResult := mrNone

← →
Медвежонок Пятачок © (2010-07-21 17:35) [2]

дату-то сначала неплохо бы и создать.

← →
hunt (2010-07-22 10:25) [3]

procedure TForm1.Button1Click(Sender: TObject); var data:TStringList; begin data.Create; data.Add("_method=POST"); data.Add("data[_name]=Sms"); data.Add("data[Sms][number]=89500500098"); data.Add("data[Sms][massage]=peter888 русский текст"); data.Add("data[Sms][code]="+edit1.Text); IdHTTP1.Post("http://www.irk.ru/sms/", data);
Создал, дело в том что прога просто закрываеться, а когда кампилишь не каких ошибок не выдает, в делфи говорит
http://www.pictureshack.ru/images/5517sms.JPG

← →
brother © (2010-07-22 10:42) [4]

> http://www.irk.ru/sms/

как интересно... Иркутянин? стучись в асю...

← →
brother © (2010-07-22 10:45) [5]

data:= TStringList.Create; try data.Add("_method=POST"); data.Add("data[_name]=Sms"); data.Add("data[Sms][number]=89500500098"); data.Add("data[Sms][massage]=peter888 русский текст"); data.Add("data[Sms][code]="+edit1.Text); IdHTTP1.Post("http://www.irk.ru/sms/", data); finally data.Free; end;

← →
Плохиш © (2010-07-22 10:45) [6]

> hunt (22.07.10 10:25) [3]
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> data:TStringList;
> begin
> data.Create;

Это, что за испражнение?

← →
Anatoly Podgoretsky © (2010-07-22 12:25) [7]

> Плохиш (22.07.2010 10:45:06) [6]

Это вызов Метода объекта, а ты намекаешь на конструктор.

← →
hunt (2010-07-22 17:49) [8]

спс, помогло, не работал раньше с TStringList

← →
hunt (2010-07-22 18:09) [9]

еще один вопросик не по теме,
строка имеет значения типа
299450,4266024,fd958d0c30878e1cc47322eb18d935ea

нужно что бы строка стала
fd958d0c30878e1cc47322eb18d935ea
как это можно сделать?
символы меняются, но 2 запятые есть обязательно, после 2ой запятой нужное значение.

← →
Anatoly Podgoretsky © (2010-07-22 18:52) [10]

> hunt (22.07.2010 18:09:09) [9]

Ну удали все символы сначала до второй запятой включительно

← →
Плохиш © (2010-07-22 22:33) [11]

> Anatoly Podgoretsky © (22.07.10 18:52) [10]

Ты не умничай, ты код давай, а то он не работал и с этим никогда.

← →
hunt (2010-07-23 02:21) [12]

А все равно , не хочет работать. смс не приходят, хотя запрос оправляю такой же как с браузера.

з.ы. delete(s,1,15);

← →
stas © (2010-07-23 16:52) [13]

hunt (23.07.10 02:21) [12]
На это может быть куча причин.
Установи HTTPAnalyzer и посмотри пакеты какие шлет браузер и какие у тебя уходят.

← →
Медвежонок Пятачок © (2010-07-23 16:54) [14]

хотя запрос оправляю такой же как с браузера.

тебе это только кажется

← →
hunt © (2010-07-23 18:44) [15]

я и так пользуюсь HTTPAnalyzer, действительно post не посылает то что нужно
то что идет с браузера
http://www.pictureshack.ru/images/6881123.JPG
то что шлет прога
http://www.pictureshack.ru/images/3585321.JPG

procedure TForm1.Button1Click(Sender: TObject); var data:TStringList; begin data:= TStringList.Create; try data.Add("_method POST"); data.Add("irk "+Edit2.Text); data.Add("data[_name] Sms"); data.Add("data[Sms][number] "+ComboBox1.Text); data.Add("data[Sms][massage] peter888 русский текст"); data.Add("data[Sms][code] "+edit1.Text); IdHTTP1.Post("http://www.irk.ru/sms/", data); finally data.Free; end; end;
что не так?
на форме есть кнопка "отправить", её нужно как то тоже нажать?

← →
Медвежонок Пятачок © (2010-07-23 19:13) [16]

1. пост-блок инвалидный. имена полей не отделены от их значений.
2. судя по картинке №2 работать не будет даже если пофиксить п.1 ибо твоя версия инди неправильно делает пост из стринглиста.
3. если пофиксить пп.1,2 , то работать все равно не будет. ибо там капча.

← →
Медвежонок Пятачок © (2010-07-23 19:16) [17]

Идея конечно планетарного масштаба. Я бы даже сказал галактического масштаба идея:

data.Add("data[Sms][code]="+edit1.Text);

сначала в чем-то рендерим страницу что бы увидеть капчу, затем запускаем чудо программу SmsMasseger.exe, вводим текст, капчу номер телефона и засылаем

Идея получения капчи, вообще грандиозная, и она работает! дело в том что запрос не отправляется, даже при том что не чем
> имена полей не отделены от их значений.

все равно хоть какой то POST должен уходить а там вообще пусто ранще было через "=" и все равно не работало. других предложений нет кроме
> ибо твоя версия инди неправильно делает пост из стринглиста.

Может можно как то с помощью TWebBrowser-a запрос отправить?

Может можно как то с помощью программиста запрос отправить?

>[massage]

:-)

> Anatoly Podgoretsky © (24.07.10 09:03) [20]
> Может можно как то с помощью программиста запрос отправить?
>

смотрю тут тролей и флудирастов куча.... у тебя если мыслей нет то и писать не стоит, а "срать" иди в туалет.

смс приходят, но только на латинице, русские букавки не доходят вообще так как будто их там и не писали.

с латиницей разобрался AnsiToUtf8

Отправа POST запроса в форму Найти похожие ветки