Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.10.16;
Скачать: CL | DM;

Вниз

POST запрос на winsock как правельно?   Найти похожие ветки 

 
LzeX7   (2005-06-28 03:05) [0]

Привет я столкнулся с такой проблемой - вот код.


var
MSG: String;
RWsaData:  TWsaData;
RSocketZ:   TSocket;
RSockaddrZ: TSockaddr;

procedure TForm1.ButtonStartClick(Sender: TObject);
Var
/////
Begin
///Вот сдесь сам запрос
MSG:= "POST /script HTTP/1.0"+"#13#10"+
"Accept: */*"+#13#10+
"Accept-Language: ru"+#13#10+
"Content-Type: application/x-www-form-urlencoded"+#13#10+
"Accept-Encoding: gzip, deflate"+#13#10+
"User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)"+#13#10+
"Host: 127.0.0.1"+#13#10+
"Content-Length: "+IntToStr(Length(MSG))+#13#10+
"Connection: Keep-Alive"+#13#10+
""+#13#10+"nick=admin&password=123";

 RSocketZ:= Socket(AF_INET, SOCK_STREAM, IPPROTO_IP);
 RSockaddrZ.sin_family:= AF_INET;
 RSockaddrZ.sin_port:= HTONS(80);
 RSockaddrZ.sin_addr.S_addr:= inet_addr("127.0.0.1");

 Connect(RSocketZ,RSockaddrZ,sizeof(RSockaddrZ));//соединились

 Send(RSocketZ,MSG[1],Length(MSG),0);//Отпровляем запрос

procedure TForm1.FormCreate(Sender: TObject);
begin
WsaStartup($101,RWsaData);//Запускаем версию 1 винсок
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
WSACleanup;//закрываем все сокеты
end;


Правельно ли я составил сам заголовок запроса?
я отпровляю запрос таким образом но скрипт их просто не получает /script?nick=admin&password=123
воопщем помогите правельно сделать.


 
Dmitrij_K   (2005-06-28 12:04) [1]

ИМХО
Content-Length: Length("nick=admin&password=123")



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

Текущий архив: 2005.10.16;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.033 c
2-1126973912
Oleg77
2005-09-17 20:18
2005.10.16
Выделение определенных дней в календаре


3-1125416074
Asail
2005-08-30 19:34
2005.10.16
Проблема с TQuery (удаление строк)


2-1126403102
Иванька
2005-09-11 05:45
2005.10.16
Таблица и Excel


3-1125924305
Ragazor
2005-09-05 16:45
2005.10.16
Что нужно делать чтобы программа не требовала инсталяции Firebird


6-1119560559
viktorovich
2005-06-24 01:02
2005.10.16
Подключение к локальной сети