WinSock - Kód pro WinSock
Pojďme se rychle podívat na kód pro budování jednoduchých komunikačních programů pomocí komponenty WinSock. Tento kód je jen malým rozšířením toho, co jme již dělali dříve.
Otevření
spojení
If Winsock1.State
<> sckClosed Then Winsock1.Close
Winsock1.RemotePort = 1008
Winsock1.RemoteHost = "127.0.0.1"
Winsock1.Connect
Čekání na spojení
Do Until Winsock1.State = sckConnected
DoEvents: DoEvents: DoEvents: DoEvents
If Winsock1.State = sckError Then
MsgBox "Spojení se nepodařilo navázat !!!"
Exit Sub
End If
Loop
Naslouchání
komunikaci
Winsock1.LocalPort
= 1008
Winsock1.Listen
Akceptování příchozího
požadavku na spojení
Private Sub
Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub
Odeslání dat
Winsock1.SendData
("Nějaká data")
Obdržení dat
Private
Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strIncoming As String
Winsock1.GetData strIncoming
x = strIncoming
End Sub