Модераторы: Snowy, Poseidon, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Установка таймаута на сокет, Не могу установить таймаут на сокет 
:(
    Опции темы
dmitry8
Дата 7.2.2018, 07:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Привет!
Подскажите, пожалуйста, как установить  в клиенте таймаут для отправки и получения данных на сокет в блокирующем режиме.
Пытаюсь сделать как в коде ниже, но функция getsockopt возвращает значения, равные 4 миллисекунды, хотя я устанавливал 500.
Проблема в том, что connect(fSocket, fSockAddr, sizeof(TSockAddr)) длится более 20 секунд, если сервер не доступен (скажем, нет пинга).
Код

function Form1.SockConnect: Boolean; 
var
  send_in, rec_in: Integer;
  send_out, rec_out: Integer;
  fSockConnected: Boolean;
begin
  Result := false;
  fSockConnected := true;
  fSocket := socket(AF_INET, SOCK_STREAM, IPPROTO_IP);
  if fSocket = INVALID_SOCKET
   then
    begin
     fSockConnected := false;
     Exit;
    end;

  send_in:= 500;
  rec_in:= 500;

  if (setsockopt(fSocket, SOL_SOCKET, SO_SNDTIMEO, @send_in, SizeOf(send_in)) = 0)
   then
    begin
     if (getsockopt(fSocket, SOL_SOCKET, SO_SNDTIMEO, @send_out, send_out) = 0)
       then ShowMessage(IntToStr(send_out));
    end;

  if (setsockopt(fSocket, SOL_SOCKET, SO_RCVTIMEO, @rec_in, SizeOf(rec_in)) = 0)
   then
    begin
     if (getsockopt(fSocket, SOL_SOCKET, SO_RCVTIMEO, @rec_out, rec_out) = 0)
       then ShowMessage(IntToStr(rec_out));
    end;

  FillChar(fSockAddr, sizeof(TSockAddr), 0);
  fSockAddr.sin_family := AF_INET;
  fSockAddr.sin_port := htons(iPort);
  fSockAddr.sin_addr.S_addr := inet_addr(PAnsiChar(sIP));

  if (connect(fSocket, fSockAddr, sizeof(TSockAddr)) = SOCKET_ERROR)
   then
    begin
     fSockConnected := false;
     Exit;
    end;

  Result := true;
end;



Это сообщение отредактировал(а) dmitry8 - 7.2.2018, 08:22
PM MAIL   Вверх
Snowy
Дата 7.2.2018, 11:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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



SO_RCVTIMEO и SO_SNDTIMEO устанавливают таймаут на приём и отправку данных. не на коннект. То есть уже после соединения.

В случае ожидания соединения, следует поместить connect в цикл и делать последовательные попытки соединения.

Попытка соединения 1...
Попытка соединения 2...
Попытка соединения 3...
Попытка соединения 4...

PM MAIL   Вверх
dmitry8
Дата 7.2.2018, 12:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Как же тогда досрочно прервать не успешный коннект, скажем, через 500 мсек, если сервер не отвечает (нет пинга).
Т.е. не ждать 20 секунд, чтобы понять, что коннект не удачен?
PM MAIL   Вверх
Snowy
Дата 8.2.2018, 11:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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



Ну так цикл же твой. Как хочешь так его и прерывай.
Можешь завести переменную-флажок и устанавливать её, например, по нажатию кнопки, а в цикле проверять.
PM MAIL   Вверх
dmitry8
Дата 27.2.2018, 12:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



connect проходит успешно,
после него пытаюсь установить таймаут,
однако же getsockopt возвращает 4 миллисекунды вместо 500
??? 

Код

function Form1.SockConnect: Boolean; 
var
  send_in, rec_in: Integer;
  send_out, rec_out: Integer;
  fSockConnected: Boolean;
begin
  Result := false;
  fSockConnected := true;
  fSocket := socket(AF_INET, SOCK_STREAM, IPPROTO_IP);
  if fSocket = INVALID_SOCKET
   then
    begin
     fSockConnected := false;
     Exit;
    end;

  FillChar(fSockAddr, sizeof(TSockAddr), 0);
  fSockAddr.sin_family := AF_INET;
  fSockAddr.sin_port := htons(iPort);
  fSockAddr.sin_addr.S_addr := inet_addr(PAnsiChar(sIP));
  if (connect(fSocket, fSockAddr, sizeof(TSockAddr)) = SOCKET_ERROR)
   then
    begin
     fSockConnected := false;
     Exit;
    end;

  send_in:= 500;
  rec_in:= 500;
  if (setsockopt(fSocket, SOL_SOCKET, SO_SNDTIMEO, @send_in, SizeOf(send_in)) = 0)
   then
    begin
     if (getsockopt(fSocket, SOL_SOCKET, SO_SNDTIMEO, @send_out, send_out) = 0)
       then ShowMessage(IntToStr(send_out));
    end;
  if (setsockopt(fSocket, SOL_SOCKET, SO_RCVTIMEO, @rec_in, SizeOf(rec_in)) = 0)
   then
    begin
     if (getsockopt(fSocket, SOL_SOCKET, SO_RCVTIMEO, @rec_out, rec_out) = 0)
       then ShowMessage(IntToStr(rec_out));
    end;

  Result := true;
end;

PM MAIL   Вверх
Snowy
Дата 27.2.2018, 17:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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



4 - это не таймаут - это длина Integer - ты же используешь одну и ту же переменную для получения значения и для размера.
Попробуй наоборот:
Код
(getsockopt(fSocket, SOL_SOCKET, SO_SNDTIMEO, @send_out, send_in)

Код
(getsockopt(fSocket, SOL_SOCKET, SO_SNDTIMEO, @send_in, send_out)

PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.

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


 




[ Время генерации скрипта: 0.1248 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.