WINSOCK - CONEXAO DO SERVIDOR SEMPRE DISPONIVEL

DANLEONHART 23/12/2011 08:28:25
#391897
Como posso deixar o Servidor sempre disponível para conexões ?

Tipo, se estou com a aplicação [Ô][txt-color=#0000f0]Cliente[/txt-color][Ô] aberta e conectada com a aplicação [Ô][txt-color=#007100]Servidor[/txt-color][Ô] e fecho a aplicação [Ô][txt-color=#0000f0]Cliente[/txt-color][Ô], e tento conectar novamente a aplicação [Ô][txt-color=#007100]Servidor[/txt-color][Ô] dá erro [txt-color=#e80000]RunTime 40020[/txt-color]

Quero deixar a aplicação [Ô][txt-color=#007100]Servidor[/txt-color][Ô] constantemente disponível para aceitar a conexão do [Ô][txt-color=#0000f0]Cliente[/txt-color][Ô] quando for solicitada...
JESUEL.OLIVEIRA 23/12/2011 08:57:05
#391898
Amigo, é só não fechar a conexão.

Se for SGDB alguns bancos tem TIMEOUT você reconectar de novo, o configura um maior TIMEOUT. precisa coloque o código de conexão para analisarmos quem sabe ajudar.
DANLEONHART 23/12/2011 11:37:26
#391906
Amigo JESUEL...

Desculpe, esquecí de mencionar que estou utilizando o componente WinSock...
já corrigi o título
PHOENIX209E 24/12/2011 00:41:31
#391928
voce deve criar um vetor pra receber varias conexoes,segue este exemplo

Load WinSock(1)
Load WinSock(2)
......
DANLEONHART 25/12/2011 20:16:51
#391946
OK !

Para deixar minha aplicação sempre [Ô]escutando[Ô] eu coloquei um Timer para verificar:

Private Sub Tmr1_Timer()
If Wsk(0).State = sckClosing Then
   With Wsk(0)
              .Close
              .Bind 100
              .Listen
   End With
End If
Me.Caption = [Ô]Servidor - [Ô] & Estado(Wsk(0).State)
End Sub


E uma função para deixar mais entendido: 

Function Estado(vStatus As StateConstants) As String
Dim vStt As String
 Select Case vStatus
       Case 0: vStt = [Ô]Fechado.[Ô]
       Case 1: vStt = [Ô]Aberta.[Ô]
       Case 2: vStt = [Ô]Escutando.[Ô]
       Case 3: vStt = [Ô]Pendente.[Ô]
       Case 4: vStt = [Ô]Resolvendo Host.[Ô]
       Case 5: vStt = [Ô]Host Resolvido.[Ô]
       Case 6: vStt = [Ô]Conectando.[Ô]
       Case 7: vStt = [Ô]Conectado.[Ô]
       Case 8: vStt = [Ô]Fechando.[Ô]
       Case 9: vStt = [Ô]Erro.[Ô]
End Select
Estado = vStt
End Function


Agora vou configurar o cliente com a dica do [txt-color=#0000f0]PHOENIX209E[/txt-color] para conectar com varios [Ô]Servidores[Ô]
Tópico encerrado , respostas não são mais permitidas
Voltar