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

Если не ошибаюсь совсем не правильно...
Это строка 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;

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