POST запрос на winsock как правельно? [D7, WinXP]
LzeX7 © (2005-06-28 03:05:00)
Привет я столкнулся с такой проблемой - вот код.
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:00) [1]
ИМХО
Content-Length: Length('nick=admin&password=123')
Наверх 
ЧАТ |
Орешник |
|
