Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2003.11.03;
Скачать: [xml.tar.bz2];

Вниз

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

 
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 вся ветка

Форум: "Сети";
Текущий архив: 2003.11.03;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.016 c
1-8490
IGORYOK
2003-10-23 20:24
2003.11.03
try a:=StrToInt(b) except on EConvertError do ...


4-8717
Evgeniy
2003-08-29 14:37
2003.11.03
Передвижение формы по экрану


1-8526
Term
2003-10-23 16:43
2003.11.03
TTreeView...... подскажите где ошибка


1-8427
angel2000
2003-10-22 11:06
2003.11.03
Прерывание выполнения цикла


1-8368
Stepasha
2003-10-22 23:33
2003.11.03
Графика





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский