Microsoft Winsock Control 6.0

Fx Winsock.Connect \"127.0.0.1\"

Det her kan måske virke som et dumt spørgsmål, men kalder du til et server program eller kalder du bare ud i.... øh den blå luft. Man kan jo aldrig vide.

Hvis du vil kan jeg lave et lille eksempel til dig, bare noget simpelt, som f.eks. at sende en tekststreng.

Hmm.. Jeg har selvfølgelig en server... men nu ved jeg ikke rigtig hvordan man sender data.

Man kan ikke bare sende Winsock.SendData \"Tekststreng\"
vel? jeg får nemlig en fejl:

40006: Wrong protocol or connection state for the requested transaction or request.

Kan du give et eksempel på en lille server som kan modtage og en client som kan sende??

Tak! :)

(bare en tekststreng, ja :)

Hmmm det lyder som om du slet ikke er tilsluttet det andet program.
for at finde ud af om du er det: \"Tegn\" et timer object på din form,sæt dens interval til 100.
Indsæt denne linje \"label1.caption = Wsck1.state\"
Lav et label. HVIS altså dit label hedder label1 og dit winsock object hedder Wsck1.... men det vidste du sikkert.

Jeg har lige lavet et lille eksempel (som faktisk virker), så hvis du vil give mig din mail addresse så kan jeg sende det til dig...

Ja, det vidste jeg godt (!!) - jeg er ikke helt nybegynder!! :)

OK, tak skal du have - send det til mikkelbj@hotmail.com

thanx

Her er to små programmer Client og Server

\'------------------------------ Client ------------------------------
\'Brug til client: Text1 og Command1 og Winsock1
\'--------------------------------------------------------------------
Private Sub cmdConnect_Click()
Winsock1.Close \'Lukker winsock
Winsock1.Connect \"127.0.0.1\", 8812 \'Connect til server over port 8812
End Sub

Private Sub cmdDisconnect_Click()
Winsock1.Close \'Lukker winsock
End Sub

Private Sub cmdSenddata_Click()
Winsock1.SendData Text1.Text \'Send data til server
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim NewData As String
    Winsock1.GetData NewData, vbString, bytesTotal \'Henter data når server sender data
Text1.Text = NewData \'Data bliver vist i Text1
End Sub
\'------------------------------ Client ------------------------------


\'------------------------------ Server ------------------------------
\'Brug til server: Text1 og Timer1 og Winsock1
\'--------------------------------------------------------------------
Private Sub Form_Load()
Timer1.Interval = 4000 \'Setter Timer1 til 4 sec
Winsock1.LocalPort = 8812 \'Setter port til 8812
Winsock1.Close \'Lukker winsock
Winsock1.Listen \'Søger efter client
End Sub

Private Sub Timer1_Timer()
If Winsock1.State <> 7 Then \'7 = connected
Winsock1.Close \'Lukker winsock
Winsock1.Listen \'Søger efter client
End If
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close \'Lukker winsock
Winsock1.Accept requestID \'Accept Connection
Winsock1.SendData \"Successfull connection\" \'Sender \"Successfull connection\" til client
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim NewData As String
    Winsock1.GetData NewData, vbString, bytesTotal \'Henter data når client sender data
Text1.Text = NewData \'Data bliver vist i Text1
End Sub
\'------------------------------ Server ------------------------------

Tusind tak! Det virker sgu! :)
Her er lidt point til jer begge!

/Mikkel

Nu er dette spam lukket så det er ikke engang sikkert at du får dette at se men alligevel.

Et lille tip:
I din winsock errorprocedure indsæt

with Winsock1
    .close
    .listen
end with


Du vil hurtigt finde ud af hvor nyttigt det er.

Jeg takker forresten

Hvis du vil lave multiconnections kan du lige kigge her:

www.friserverplads.dk/northcode/opgaver/chat.zip

Mvh.
NorthCode