Basic-Server-Fehler

#0
26.01.2004, 21:33
Member
Avatar Dafra

Beiträge: 1122
#1 Hallo nochmal,
ich wollte mir ein server client programm zusammenschniedern für mein Netzwerk. Aber beim Server bekomme ich immer die Fehlermeldung "Byref argument type mismatch"
Hier der Quellcode:
SERVER::
Private Sub Form_Load()
Ws.LocalPort = 33334 'Beispielport, bitte anderen wählen
Ws.Close 'Sorgt dafür, dass die Winsock frei ist
Ws.Listen 'Winsock wartet auf Connection
End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
If Ws.State <> sckClosed Then Ws.Close 'Winsock schließen
Ws.Accept requestID 'Connetion zulassen
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
KommanDo = ""
ParameTer = ""
Ws.GetData tmP
'Auswertung: Wo Parameter?
EndC = 0
For X = 1 To Len(tmP)
If Mid(tmP, X, 1) = " " Then
EndC = X
X = Len(tmP)
End If
Next X
If EndC = 0 Then
KommanDo = tmP
GoTo nÄchstes
End If
ParameTer = Mid(tmP, EndC + 1, Len(tmP) - EndC)
KommanDo = Mid(tmP, 1, EndC - 1)
nÄchstes:
InterPretierEn KommanDo, ParameTer
End Sub


Hier das Modul::
Public Function InterPretierEn(c As String, p As String)
Select Case LCase(c) 'Sicherstellen dass alles klein geschrieben ist

Case "showmessage"
MsgBox p, vbSystemModal, "Message!" 'Zeigt Paramteter p als Text an

Case "showinput"
Dim ansWer As String
ansWer = InputBox(p, "Request")
Form1.Ws.SendData ansWer 'Antwort wird an Client gesendet.

Case "close"
End

End Select
End Function

THX FÜR AnTWorten
Seitenanfang Seitenende
Um auf dieses Thema zu ANTWORTEN
bitte erst » hier kostenlos registrieren!!

Folgende Themen könnten Dich auch interessieren: