Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 24.07.2010, 03:33
Аватар для hunt
hunt hunt вне форума
Прохожий
 
Регистрация: 14.07.2010
Сообщения: 12
Репутация: 10
По умолчанию Отправа POST запроса в форму

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

Код HTML:
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;
что не так?
на форме есть кнопка "отправить", её нужно как то тоже нажать?
Ответить с цитированием
  #2  
Старый 24.07.2010, 08:36
Аватар для PhoeniX
PhoeniX PhoeniX вне форума
Always hardcore!
 
Регистрация: 04.03.2009
Адрес: СПб
Сообщения: 3,239
Версия Delphi: GCC/FPC/FASM
Репутация: 62149
По умолчанию

Код:
data.Add('_method POST'); // Эту строчку нах удали
data.Add('irk='+Edit2.Text); // Названия и значения раздели не пробелами, а знаком =
....
И всё заработает.
__________________
Оставайтесь хорошими людьми...
VK id2634397, ds [at] phoenix [dot] dj
Ответить с цитированием
  #3  
Старый 24.07.2010, 14:00
Аватар для pesi
pesi pesi вне форума
Активный
 
Регистрация: 12.09.2008
Сообщения: 275
Репутация: 43
По умолчанию

На счет _method POST не соглашусь.
Могут возникнуть проблеммы с текстом смс:
1. Придется перегонять в Utf8.
2. Если текст имеет переход на новую строку тобишь #13#10.
Ответить с цитированием
  #4  
Старый 24.07.2010, 16:16
Аватар для hunt
hunt hunt вне форума
Прохожий
 
Регистрация: 14.07.2010
Сообщения: 12
Репутация: 10
По умолчанию

data.Add('irk='+Edit2.Text);
Так тоже пробовал, не хочет и так работать, там же отчетливо видно на втором скрине что вообще не чего не посылает методом POST.
Ответить с цитированием
  #5  
Старый 24.07.2010, 16:26
Аватар для pesi
pesi pesi вне форума
Активный
 
Регистрация: 12.09.2008
Сообщения: 275
Репутация: 43
По умолчанию

Код:
var
Data: TStringList;
Otvet: String;
begin
data:= TStringList.Create;
try
data.Add('_method=POST');
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); //после code уберите пробел а то получается тег [CODЕ]
data.Add('irk='+Edit2.Text);
Otvet:=IdHTTP1.Post('http://www.irk.ru/sms/', data); //получили ответ и смотрим, что там написано
finally
data.Free;
end;
end;

Последний раз редактировалось pesi, 24.07.2010 в 17:18.
Ответить с цитированием
  #6  
Старый 24.07.2010, 17:15
Аватар для hunt
hunt hunt вне форума
Прохожий
 
Регистрация: 14.07.2010
Сообщения: 12
Репутация: 10
По умолчанию

ВСЕМ спс, проблема была чуть в другом, но = тоже на до было! С русским текстом скорее всего тоже будет проблема, по этому поводу позже отпишусь!
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 22:46.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter