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

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 3.444 c