| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Отправа POST запроса в форму [D7, WinXP]
hunt © (2010-07-21 15:20:00)Помогите отправить правильно запрос, сделал пол программы, программа уже умеет получать картинку капчи, а вот отправлять обратно не могу научить. При отправке прога просто закрываеться и все...
сайт
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;
hunt (2010-07-24 19:39:00) [1]с латиницей разобрался AnsiToUtf8
hunt (2010-07-24 18:12:00) [2]смс приходят, но только на латинице, русские букавки не доходят вообще так как будто их там и не писали.
hunt (2010-07-24 17:12:00) [3]
> Virgo_Style © (24.07.10 12:08) [21]
> >[massage]:-)
Спс проблема была в этом!
hunt (2010-07-24 17:06:00) [4]
> Anatoly Podgoretsky © (24.07.10 09:03) [20]
> Может можно как то с помощью программиста запрос отправить?
>
смотрю тут тролей и флудирастов куча.... у тебя если мыслей нет то и писать не стоит, а "срать" иди в туалет.
Virgo_Style (2010-07-24 12:08:00) [5]
>[massage]
:-)
Anatoly Podgoretsky (2010-07-24 09:03:00) [6]Может можно как то с помощью программиста запрос отправить?
hunt (2010-07-24 03:19:00) [7]Может можно как то с помощью TWebBrowser-a запрос отправить?
hunt (2010-07-24 03:02:00) [8]Идея получения капчи, вообще грандиозная, и она работает! дело в том что запрос не отправляется, даже при том что не чем
> имена полей не отделены от их значений.
все равно хоть какой то POST должен уходить а там вообще пусто ранще было через "=" и все равно не работало. других предложений нет кроме
> ибо твоя версия инди неправильно делает пост из стринглиста.
Медвежонок Пятачок (2010-07-23 19:16:00) [9]Идея конечно планетарного масштаба. Я бы даже сказал галактического масштаба идея:
data.Add('data[Sms][code]='+edit1.Text);
сначала в чем-то рендерим страницу что бы увидеть капчу, затем запускаем чудо программу SmsMasseger.exe, вводим текст, капчу номер телефона и засылаем
Медвежонок Пятачок (2010-07-23 19:13:00) [10]1. пост-блок инвалидный. имена полей не отделены от их значений.
2. судя по картинке №2 работать не будет даже если пофиксить п.1 ибо твоя версия инди неправильно делает пост из стринглиста.
3. если пофиксить пп.1,2 , то работать все равно не будет. ибо там капча.
hunt (2010-07-23 18:44:00) [11]я и так пользуюсь 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 16:54:00) [12]хотя запрос оправляю такой же как с браузера.
тебе это только кажется
stas (2010-07-23 16:52:00) [13]hunt (23.07.10 02:21) [12]
На это может быть куча причин.
Установи HTTPAnalyzer и посмотри пакеты какие шлет браузер и какие у тебя уходят.
hunt (2010-07-23 02:21:00) [14]А все равно , не хочет работать. смс не приходят, хотя запрос оправляю такой же как с браузера.
з.ы.delete(s,1,15);
Плохиш (2010-07-22 22:33:00) [15]
> Anatoly Podgoretsky © (22.07.10 18:52) [10]
Ты не умничай, ты код давай, а то он не работал и с этим никогда.
Anatoly Podgoretsky (2010-07-22 18:52:00) [16]> hunt (22.07.2010 18:09:09) [9]
Ну удали все символы сначала до второй запятой включительно
hunt (2010-07-22 18:09:00) [17]еще один вопросик не по теме,
строка имеет значения типа
299450,4266024,fd958d0c30878e1cc47322eb18d935ea
нужно что бы строка стала
fd958d0c30878e1cc47322eb18d935ea
как это можно сделать?
символы меняются, но 2 запятые есть обязательно, после 2ой запятой нужное значение.
hunt (2010-07-22 17:49:00) [18]спс, помогло, не работал раньше с TStringList
Anatoly Podgoretsky (2010-07-22 12:25:00) [19]> Плохиш (22.07.2010 10:45:06) [6]
Это вызов Метода объекта, а ты намекаешь на конструктор.
Плохиш (2010-07-22 10:45:00) [20]
> hunt (22.07.10 10:25) [3]
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> data:TStringList;
> begin
> data.Create;
Это, что за испражнение?
| |
Страницы: 