Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Probleme mit Winsock
Autor: Alpha Wolf
Datum: 11.02.02 17:58
Also ein Chat-Server soll es mal werden! Aber der leitet die ankommenden Client-Nachrichten nicht weiter! Hier seht: Private Sub Form_Load() For i = 1 To 19 Server(i).LocalPort = 2000 + i Next i End Sub Private Sub Server_ConnectionRequest(Index As Integer, ByVal requestID As Long) Dim serverindex As Long serverindex = FindFreeWinsock("Server") If serverindex = -1 Then serverindex = Server.UBound + 1 Load Server(Server.UBound + 1) End If Server(serverindex).Accept requestID status.Text = status.Text + "User angeschlossen..." + vbCrLf '########################################################################### '# Begrüßungsnachricht # Server(serverindex).SendData "Server bereit!" '# # '########################################################################### End Sub Private Sub Server_DataArrival(Index As Integer, ByVal bytesTotal As Long) Dim TempBuffer As String Server(Index).GetData TempBuffer ausgabe.Text = ausgabe.Text + TempBuffer + vbCrLf sende TempBuffer End Sub Private Sub sende(Data As String) For s = 0 To Server.UBound - 1 If Server(s).State = 1 Then Server(s).SendData Data + " Request" + vbCrLf: status.Text = status.Text + "sende" + vbCrLf Next s End Sub Private Sub Server_Error(Index As Integer, ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean) CancelDisplay = True Debug.Print "Winsock-Error:: Number:" & Number & " Description:" & Description End Sub Public Function FindFreeWinsock(ws As String) As Long Dim i As Long Select Case UCase(ws) Case "SERVER" 'fuer die Zukunft If Server.UBound < 1 Then FindFreeWinsock = -1 Exit Function Else For i = 1 To Server.UBound If Server(i).State = 0 Then FindFreeWinsock = i: Exit Function Next i End If FindFreeWinsock = -1 End Select End Function Private Sub so_Click() For i = 1 To Server.UBound Server(i).Listen Next i status.Text = status.Text + "Server Online!" + vbCrLf End Sub Private Sub sof_Click() For i = 1 To Server.UBound Server(i).Close Next i status.Text = status.Text + "Server Offline!" + vbCrLf End Sub Wißt ihr warum? Bitte helft mir!

Probleme mit Winsock

85

Alpha Wolf

11.02.02 17:58

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen