#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
Um auf dieses Thema zu ANTWORTEN bitte erst » hier kostenlos registrieren!!
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