Форум: "Сети";
Текущий архив: 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