| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

SMS+Проблема с Post запрсом [D7, Win2k]

FaTRuS ©   (2006-11-22 09:27:00) 

Я пишу прогу для отправки смс на билаин, проблемка такая я практически ничего незнаю как в Дельфи формировать Пост запрос.
Это запрос полученный 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;
подскажите правельно сделан запрос или нет, и если есть ссылки по поводу пост и гет запросов буду очень благодарен

---

flaxe   (2006-11-24 13:13:00) [1]

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


---

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

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

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

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

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

---

alucard   (2006-11-22 10:04:00) [3]

тут не шарят

---

Наверх