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

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.038 c
2-1179129401
Leshas0
2007-05-14 11:56
2007.06.03
поиск подстроки POS


15-1178298367
N3xt
2007-05-04 21:06
2007.06.03
задачка)


1-1175667957
DelphiLexx
2007-04-04 10:25
2007.06.03
Как в DBGridEh e запрептить перемещать колонки


11-1160727895
AndreyRus
2006-10-13 12:24
2007.06.03
Прикол от Taddy :)


15-1178567172
Kostafey
2007-05-07 23:46
2007.06.03
try...except...finally...end





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский