Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2007.06.03;
Скачать: [xml.tar.bz2];

Вниз

SMS+Проблема с Post запрсом   Найти похожие ветки 

 
FaTRuS ©   (2006-11-22 09:27) [0]

Я пишу прогу для отправки смс на билаин, проблемка такая я практически ничего незнаю как в Дельфи формировать Пост запрос.
Это запрос полученный Naviscope
POST http://217.118.84.204/servlet/send/sms/ HTTP/1.0
Content-Type: application/x-www-form-urlencoded
User-Agent: Mozilla/4.0
Host: 217.118.84.204
Content-Length: 93
Pragma: no-cache

number_sms=number_sms_send&termtype=G&translit=&x=5&y=4&prf=7705&phone=856654&me ssage=2w2w2w
а это ко в дельфи
procedure TForm1.Button1Click(Sender: TObject);
begin
Send_sms:=TStringList.Create;
Response:=TStringStream.Create("");
if LabeledEdit1.Text="" then
begin
ShowMessage("Ââåäèòå Íîìåð òåëåôîíà");
end
else
begin
if memo1.Text="" then
begin
ShowMessage("Ââåäèòå ñîîáùåíèå");
end;
end;
IdHTTP1.Request.ContentType:="application/x-www-form-urlencoded";
IdHTTP1.Request.UserAgent:="SMS Sender 1.0";
IdHTTP1.Request.Host:="217.118.84.204";
IdHTTP1.Request.ContentLength:=93;
IdHTTP1.Request.Pragma:="no-cache";
send_sms.Add("number_sms=number_sms_send&termtype=G&translit=&x=5&y=4&prf=7705&p hone=856654&message=Memo1.text");
IdHTTP1.Post("http://217.118.84.204/servlet/send/sms/",send_sms,Response);
end;
подскажите правельно сделан запрос или нет, и если есть ссылки по поводу пост и гет запросов буду очень благодарен


 
alucard ©   (2006-11-22 10:04) [1]

тут не шарят


 
DVM ©   (2006-11-22 10:29) [2]


> подскажите правельно сделан запрос или нет, и если есть
> ссылки по поводу пост и гет запросов буду очень благодарен

Возьми снифер и погляди разницу между твоим запросом и рабочим заведомо. Делай по образцу. Или RFC 2616 читай.

> alucard ©   (22.11.06 10:04) [1]
> тут не шарят

ftp://ftp.rfc-editor.org/in-notes/rfc2616.txt


 
flaxe ©   (2006-11-24 13:13) [3]

Если не ошибаюсь совсем не правильно...
Это строка GET запроса
"number_sms=number_sms_send&termtype=G&translit=&x=5&y=4&prf=7705&p hone=856654&message=Memo1.text"
И в пост она никак у тебя не передается
Решение простое:
uses IdMultiPartFormData

....
procedure TForm4.Sendit;
var
mpfds: TIdMultiPartFormDataStream;
begin
mpfds := TIdMultiPartFormDataStream.Create();
mpfds.AddFormField("id",edit1.text);
mpfds.AddFile("userfile","tempfile.lbs","text/plain");
form1.idhttp1.Post("http://****/****.php", mpfds);
end;



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

Форум: "Сети";
Текущий архив: 2007.06.03;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.047 c
11-1160962882
Grademax
2006-10-16 05:41
2007.06.03
Как в KOL создать кнопку в стиле XP с картинкой


11-1158851694
Vladimir Kladov
2006-09-21 19:14
2007.06.03
Версия 2.39


9-1152542077
VolanD666
2006-07-10 18:34
2007.06.03
Задачка по математике


15-1178615955
Jan1
2007-05-08 13:19
2007.06.03
Защита программы от крэка


15-1178796898
Gero
2007-05-10 15:34
2007.06.03
Персональная ветка ArtemESC





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский