WinSock, Не могу разорвать коннект!

[waleri]

Скорее всего они через какое-то время закроются эти соединения.
ПОнаблюдайте и замерьте время.

[lollollollol]

я также думал, но 2 часа висят и не закрываются точно.

Понаблюдал внимательней, заметил что этот глюк касается только ssl подключений, которые создаютс так:

function TSLESH_SSL_Socket.Connect(ip:String; port:word):boolean;
var
  nip:integer;
  phe:PHostEnt;
  SendBuff: String;
  buff: array[1..512] of char;
  D1,D2:Byte;
  D3:word;
  TimeOutSSS:integer;
begin
  TimeOutSSS:=20000;
  result := false;
  sock := socket(AF_INET, SOCK_STREAM, 0);
  ErrorFlag := sock = INVALID_SOCKET;
  // если сокет создался
  if (ErrorFlag = false) then begin
    if (ProxyType=0) then begin
      nip := inet_addr(PAnsichar(ip));
      if nip = INADDR_NONE then begin
        // резолвим имя
        phe := gethostbyname(PAnsichar(ip));
        if phe <> nil then begin
          nip := integer(pointer(phe^.h_addr^)^);
        end;
      end;

      if nip <> INADDR_NONE then begin
        caddr.sin_family := AF_INET;
        caddr.sin_addr.s_addr := nip;
        caddr.sin_port := htons(port);

        // коннектитмся
        if winsock.connect(sock, caddr, sizeof(caddr)) <> SOCKET_ERROR then begin
          SetSockOpt(sock, SOL_SOCKET, SO_RCVTIMEO, @TimeOutSSS, SizeOf(TimeOutSSS));
          // если сконнектились то настраиваем SSL
          SSL_set_fd(ssl, sock);
          SSL_connect(ssl);
          result := true;
        end;
      end;
    end else begin
      //Коннектимся к прокси
      if (ProxyType>=2) then begin
        caddr.sin_family := AF_INET;
        caddr.sin_addr.s_addr := ProxyServer;
        caddr.sin_port := ProxyPort;
        if winsock.connect(sock, caddr, sizeof(caddr)) <> SOCKET_ERROR then begin
          SetSockOpt(sock, SOL_SOCKET, SO_RCVTIMEO, @TimeOutSSS, SizeOf(TimeOutSSS));
          SendBuff:=#5#1#0;
          winsock.send(sock, SendBuff[1], 3, 0);
          winsock.recv(sock, buff, 2, 0);
          if (buff[1] <> #5) then begin
            result:=False;
            Connected := result;
            winsock.CloseSocket(sock);
            exit;
          end;
          D3:=htons(port);
          asm
            mov ax, D3
            mov D1, al
            mov D2, ah
          end;
          SendBuff:=#5#1#0#3+chr(length(ip))+ip+chr(D1)+chr(D2);
          winsock.send(sock, SendBuff[1], Length(SendBuff), 0);
          winsock.recv(sock, buff, SizeOf(Buff), 0);
          if ((buff[1]=#5)and(buff[2]=#0)) then result:=true else result:=False;
          if (result=True) then begin
            SSL_set_fd(ssl, sock);
            SSL_connect(ssl);
          end else begin
            winsock.CloseSocket(sock);
          end;
        end;
      end;
    end;
  end;
  Connected := result;
end;

А разрываются как я показал в первом посте. Точнее сказать разрываются не все.
Примечательно, что данные отправляются/принимаются в полном объёме.


Теоретический вопрос, может ли висеть поделючение, если удалённый сервер разорвал его, т.е. выполнил closesocket?

[Stilet]

может ли висеть поделючение, если удалённый сервер разорвал его, т.е. выполнил closesocket?

Не должно висеть.

[waleri]

Я не разбираюсь в OpenSLL библиотеке, но если есть SSL_connect то что-то подсказывает, что должна быть и обратная функция, разве нет?

Кстати, а если отключить Firewall результат тот же?

[lollollollol]

вот все ссл функции из ssleay32.dll

      @SSL_library_init := GetProcAddress(h, 'SSL_library_init');
      @SSLv3_client_method := GetProcAddress(h, 'SSLv3_client_method');
      @SSL_CTX_new := GetProcAddress(h, 'SSL_CTX_new');
      @SSL_set_fd := GetProcAddress(h, 'SSL_set_fd');
      @SSL_connect := GetProcAddress(h, 'SSL_connect');
      @SSL_free := GetProcAddress(h, 'SSL_free');
      @SSL_read := GetProcAddress(h, 'SSL_read');
      @SSL_write := GetProcAddress(h, 'SSL_write');
      @SSL_new := GetProcAddress(h, 'SSL_new');

Я не разбираюсь в OpenSLL библиотеке, но если есть SSL_connect то что-то подсказывает, что должна быть и обратная функция, разве нет?

Не совсем, по идеи это SSL_free, и оно высвобождает ресурсы ssl, уже после разрыва соединения.
Смысл ссл в том, что я создаю подключение обычным способом, привязываю это сокетное подключение к инициализированному ssl контексту, выполняю обычным методом подключение к удалённому серверу, а SSL_connect выполняет настройку подключений для передачи данных, в соответствии с ssl протоколом.

При завершении работы с ssl подключением нужно вызвать SSL_free. Так как она просто освободит занятую память ssl, это нужно вызвать уже после работы с сокетом, т.е. даже после закрытия его, я это делаю.

[lollollollol]

фаервол точно не виноват, иначе висели бы все, а не часть

[lollollollol]

Вообщем сам не понял суть проблемы. Сделал вызов функции закрытий подключений 3 раза подряд с таймаутами, стало закрываться всё как положено.

Думаю тему можно закрыть.