Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Отправка формы на сервер

Sural © (2003-09-07 09:27:00)
Есть форма:

Делаю так:

ClientSocket1.Open;

procedure TForm1.ClientSocket1Write(Sender: TObject;
Socket: TCustomWinSocket);
var content:string;
begin
Socket.SendText("POST /sms.php HTTP/1.0"+#13#10);
Socket.SendText("Content-Type: application/x-www-form-urlencoded"+#13#10);
content:="number=79103373626&mess=aaa&count=3";
Socket.SendText("Content-Length: "+floattostr(length(content))+#13#10+#13#10);
Socket.SendText(content+#13#10+#13#10);
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo1.Text:=memo1.text+Socket.ReceiveText;
end;

Сервер пишет
HTTP/1.1 200 OK
Date: Sun, 07 Sep 2003 05:13:23 GMT
Server: Apache/1.3.27 (Unix) PHP/4.3.2 rus/PL30.17
X-Powered-By: PHP/4.3.2
Connection: close
Content-Type: text/html; charset=windows-1251
Expires: Thu, 01 Jan 1970 00:00:01 GMT
Last-Modified: Sun, 07 Sep 2003 05:13:24 GMT

что всё ok, но вместо того, чтобы возвращать страницу с надписью что-то типа "ваш запрос принят" возвращает страницу с формой, которую я пытаюсь отправить.

Подскажите, в чём моя ошибка и как её испаравить.

Sural (2003-09-08 22:58:00) [1]
Помоги себе сам.
Методом научного тыка было выяснено в чём ошибка - отсылались не полные данные, короче если content:="number=79103373626&mess=abc&count=5&send_ok=+O%F2%EF%F0%E0%E2%E8%F2%FC+" , то всё работает.
Тока опять одна проблема - сервер очень долго шлёт ответ. Если отправлять форму IE, то ответ приходит через 29 секунд, а если так, то через 1 мин. 44 сек.
Что я опять не так делаю ?

Beginer1 (2003-09-08 09:33:00) [2]
спец символы надо кодировать
вместо & ставить %26
а что за сайт.
там наверно cookie ещё

Sural (2003-09-08 00:35:00) [3]

Ну что, никто не знает ?

Наверх

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