Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.10.17;
Скачать: CL | DM;

Вниз

Отправа 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, вводим текст, капчу номер телефона и засылаем


 
hunt ©   (2010-07-24 03:02) [18]

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

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


 
hunt ©   (2010-07-24 03:19) [19]

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


 
Anatoly Podgoretsky ©   (2010-07-24 09:03) [20]

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


 
Virgo_Style ©   (2010-07-24 12:08) [21]


>[massage]


:-)


 
hunt ©   (2010-07-24 17:06) [22]


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


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


 
hunt ©   (2010-07-24 17:12) [23]


> Virgo_Style ©   (24.07.10 12:08) [21]
> >[massage]:-)

Спс проблема была в этом!


 
hunt ©   (2010-07-24 18:12) [24]

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


 
hunt ©   (2010-07-24 19:39) [25]

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



Страницы: 1 вся ветка

Текущий архив: 2010.10.17;
Скачать: CL | DM;

Наверх




Память: 0.53 MB
Время: 0.009 c
15-1278912781
Leonid Troyanovsky
2010-07-12 09:33
2010.10.17
Что там у нас с анкетами?


2-1279611355
beginner
2010-07-20 11:35
2010.10.17
Как разернуть окно на весь экран?


15-1279089933
Учсуд
2010-07-14 10:45
2010.10.17
колонтитул экселя на последней странице


2-1279637266
Xandr001
2010-07-20 18:47
2010.10.17
Помогите выбрать тип данных


2-1279523013
Meroveus
2010-07-19 11:03
2010.10.17
парсинг HTML?