Jeg er ved at lave et lille klient/server program og problemet ligger indtil videre på klient siden.
Meningen med nedenstående kode er at når der bliver trykket på en knap, så opretter klienten en forbindelse til serveren og sender en tekststreng afsted.
Problemmet er at det tager lidt tid at oprette en forbindelse og hvis jeg fyrer det hele af på et par linier så får jeg en fejl der siger " Forbindelsen ikke klar endnu" (eller noget i den stil).
Nu har jeg så lavet en smart lille løkke der kører indtil at forbindelsen er klar (indtil state = 7 (connected)), MEN det der sker at state aldrig bliver 7 og løkken kører derfor uendeligt...
HVAD ER PROBLEMET???
PS: har prøvet state 1 (open) uden resultat
Mvh,
Daniel
--------------------------------------------------- Private Sub cmdConnect_Click() Dim txtSMS As String, connection_state As Integer Dim run_loop As Integer
run_loop = 0 Do While run_loop = 0 connection_state = tcpclient.State If connection_state = 7 Then txtSMS = "999999999;Hej Med Dig" tcpclient.SendData txtSMS Exit Do End If Loop
End Sub ---------------------------------------------
Hej. Jeg vil foreslå en error-handling, der ved hjælp af en timer forsøger nogle gange. Lykkes det så ikke må der jo være en fejl ved at forbinde til serveren, så må brugeren tilbydes at forsøge igen senere.
Private Sub cmdConnect_Click() m_Complete = True tcpclient.LocalPort = 0 tcpclient.Connect "192.168.1.2", 1001 End Sub
Private Sub tcpclient_Connect() 'Når du har fået fat i server køre Connect Dim txtSMS As String Dim run_loop As Integer
run_loop = 0
Do While run_loop = 5 'Sender 5 gange DoEvents If m_Complete = True Then txtSMS = "999999999;Hej Med Dig" tcpclient.SendData txtSMS run_loop = run_loop + 1 m_Complete = False End If Loop End Sub
Private Sub tcpclient_SendComplete() 'Når det du har sende er motaget køre SendComplete m_Complete = True End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
