Вниз
Скачать: CL | DM;

Отправка формы на сервер   Найти похожие ветки 

 
Sural   (2003-09-07 09:27) [0]

Есть форма:
<form name="send" method="post" onsubmit="return validate(this)">
<input type=text name=number size=12 maxlength=12>
<textarea rows="5" cols="40" name=mess>
</textarea>
<input size="4" value="0" name="count" type="text">
<input type=submit name=send_ok value=" Oтправить ">
<input type=reset name=reset value=" Очистить ">
</form>

Делаю так:

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 00:35) [1]

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


 
Beginer1 ©   (2003-09-08 09:33) [2]

спец символы надо кодировать
вместо & ставить %26
а что за сайт.
там наверно cookie ещё


 
Sural   (2003-09-08 22:58) [3]

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c
4-8744
Юрий Федоров
2003-08-29 21:58
2003.11.03
EnumThreads


3-8282
abc1
2003-10-13 18:23
2003.11.03
Проблема с ADO


1-8420
Charly
2003-10-22 13:09
2003.11.03
Сложение / смешение цветов


3-8327
bav
2003-10-12 12:41
2003.11.03
Как правильно сделать Связь таблиц в Apollo ?


7-8681
Jini
2003-08-19 21:12
2003.11.03
Думаю, вопрос интересный - Video out




   Наверх