Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.09.2009, 13:44   #1
Terikon
Форумчанин
 
Регистрация: 22.02.2009
Сообщений: 174
По умолчанию Post TcpClient1

В общем дело в следующем
Пытаюсь зарегисрироватся на сайте....
Код:
PostData:='reglogin=gtavtower'+'&'+'regpass=1111'+'&'+'pass2=1111'+'&'+'email=234240@rambler.ru'+'&'+'name1=dfg&name2=dfgd&name3=hhd'+'&'+'phone='+'&'+'cphone='+'&'+'country=1'+'&'+'indeks=2342'+'&'+'adres=%D2%F3%EB%FC%F1%EA%E0%FF+%EE%E1%EB.%C0%EB&agree=agree&reggo=%C7%E0%F0%E5%E3%E8%F1%F2%F0%E8%F0%EE%E2%E0%F2%FC%F1%FF';

PostData1:='reglogin=gtavtower'+'&'+'regpass=1111'+'&'+'pass2=1111'+'&'+'email=234240@rambler.ru'+'&'+'name1=dfg&name2=dfgd&name3=hhd'+'&'+'phone='+'&'+'cphone='+'&'+'country=1'+'&'+'indeks=2342'+'&'+'adres=%D2%F3%EB%FC%F1%EA%E0%FF+%EE%E1%EB.%C0%EB&agree=agree&reggo=%C7%E0%F0%E5%E3%E8%F1%F2%F0%E8%F0%EE%E2%E0%F2%FC%F1%FF';

s:=
'POST /?act=register HTTP/1.1'+ #13#10 +
....
....
TcpClient1.Open;
  TcpClient1.Sendln(s+PostData+PostData1,#$D#$A);
  ShowMessage(Form1.TcpClient1.Receiveln(#$D#$A));
  TcpClient1.Close;
  TcpClient1.Free;
Теперь собственно в чём проблема, без добавления PostData1 регистрация не проходит, программа зависает
Вот что отправляется (PostData)
Код:
reglogin=gtavtower&regpass=1111&pass2=1111&email=234240@rambler.ru&name1=dfg&name2=dfgd&name3=hhd&phone=&cphone=&country=1&indeks=2342&adres=%D2%F3%EB%FC%F1%EA%E0%FF+%EE%E1%EB.%C0%EB&agree=agree&reggo=%C7%E0%F0%E5%E3%E8%F1%F2%F0%E8%F0%EE%E2%E0%F2%FC%F1%FF
а теперь, PostData+PostData1 регистрация проходит успешно

Вот что отправляется (PostData+PostData1)
Код:
reglogin=gtavtower&regpass=1111&pass2=1111&email=234240@rambler.ru&name1=dfg&name2=dfgd&name3=hhd&phone=&cphone=&country=1&indeks=2342&adres=%D2%F3%EB%FC%F1%EA%E0%FF+%EE%E1%EB.%C0%EB&agree=agree&reggo=%C7%E0%F0%E5%E3%E8%F1%F2%F0%E8%F0%EE%E2%E0%F2%FC%F1%FFreglogin=gtavtower&regpass=1111&pass2=1111&em
Эталонный Post
Код:
reglogin=gtavtower&regpass=1111&pass2=1111&email=234240%40rambler.ru&name1=dfg&name2=dfgd&name3=hhd&phone=&cphone=&country=1&indeks=2342&adres=%D2%F3%EB%FC%F1%EA%E0%FF+%EE%E1%EB.%C0%EB&agree=agree&reggo=%C7%E0%F0%E5%E3%E8%F1%F2%F0%E8%F0%EE%E2%E0%F2%FC%F1%FF
Скажите в чём проблема? Как обойтись без PostData1

Последний раз редактировалось Terikon; 05.09.2009 в 15:54.
Terikon вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
отправка POST CraZZy RabbIt Работа с сетью в Delphi 8 24.04.2009 16:48
post из ссылки memka PHP 4 16.04.2009 20:53
WebBrowser POST micq Компоненты Delphi 5 19.09.2008 21:37
POST Stanislav Работа с сетью в Delphi 3 03.03.2008 18:05