VPF::WINSOCK и код ответа сервера - Форум программистов

SergXP

Дата 11.12.2009, 16:41 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 150
Регистрация: 16.4.2008

Репутация: нет
Всего: нет

Добрый вечер.
Скажите пжл, как получить ответ(200,303,404 и тд) сервера используя winsock?

--------------------

База IMEI-номеров украденных и утерянных мобильных телефоновhttp://imeis.net.ru/

Демо

Дата 11.12.2009, 17:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 3
Всего: 50

Цитата(SergXP @ 11.12.2009, 16:41

)

Скажите пжл, как получить ответ(200,303,404 и тд) сервера используя winsock?

Что значит получить?
Тебе сервер должен возвращать эти ошибки.

--------------------

SergXP

Дата 11.12.2009, 17:25 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 150
Регистрация: 16.4.2008

Репутация: нет
Всего: нет

Демо,

Код


{создаем сокет}
     s:=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
     FillChar(addr, SizeOf(sockaddr_in), 0);
     addr.sin_family:=AF_Inet;
     addr.sin_port:=htons(80);
     addr.sin_addr.S_addr:=inet_addr(PChar('<тут ip>'));
     {коннектимся}
     Connect(S,addr,SizeOf(TSockAddr));
     sendbuff := 'GET http://<тут адрес>' + str;
     sendbuff := sendbuff + ' HTTP/1.0'#13#10#13#10;
     {шлем запрос}
     send(s, sendbuff[1] , Length(sendbuff), 0);
     {считываем ответ}
     reply:=recvdata(s);
     {закрываем сокет}
     closesocket(s);

получаю ответ:

Код


HTTP/1.1 200 Ok
Connection: Close
Cache-control: no-cache, max-age=0
Expires: Thu, 01 Jan 1970 00:00:01 GMT
Content-Type: text/xml; charset=windows-1251

как мне выбрать только код ответа?

--------------------

База IMEI-номеров украденных и утерянных мобильных телефоновhttp://imeis.net.ru/

Демо

Дата 11.12.2009, 17:29 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 3
Всего: 50

Цитата(SergXP @ 11.12.2009, 17:25

)

как мне выбрать только код ответа?

Только обработать строку

Цитата(SergXP @ 11.12.2009, 17:25

)

HTTP/1.1 200 Ok

и самому получить из этой строки код.

--------------------

SergXP

Дата 11.12.2009, 18:31 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 150
Регистрация: 16.4.2008

Репутация: нет
Всего: нет

вот, обработал..вроде работает))

Код


      response:= Pos ('HTTP/1.1', reply);
      if (response<>0) then
      begin
        Delete(reply, 1, 9);
        response := Pos(' ', reply);
        response := StrToInt(Copy(reply2, 1, response - 1));
         Form1.Memo4.Lines.Add(IntToStr(response));
      end;

а если допустим код будет не 200, а 404, то результат обрежется и покажет 404? т.е. данный метод универсален?

--------------------

База IMEI-номеров украденных и утерянных мобильных телефоновhttp://imeis.net.ru/

Демо

Дата 11.12.2009, 19:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 3
Всего: 50

Цитата(SergXP @ 11.12.2009, 18:31

)

а если допустим код будет не 200, а 404, то результат обрежется и покажет 404? т.е. данный метод универсален?

Для протокола HTTP - конечно. (но вкупе с обработкой ошибок самого сокета - WSAGetLastError).

--------------------

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »