Quantcast

WinSock u VB 6.0?!?

ZombiEYU

Obećava
Poruka
76
Ovako, imam jedan mali problem... Napravio sam programcic za setanje po LANu pomocu winsocka. Znaci, postoji Client i Server (Predajnik i Prijemnik), sad stvar je u tome sto se ja super konektujem i program odlicno radi, problem je kada se diskonektujem preko Clienta, i kad pokusam ponovo da se konektujem... nece :o)
Ajde molim vas ako neko zna u cemu je stvar neka mi pomogne, bicu veoma zahvalan, hvala...
________________________
Pokusao sam da stavim sub winsock_error i unutra stavio komande za zatvaranje servera i ponovno njegovo otvaranje (winsock.close; winsock.listen) ali nece...
_________________________
 

anebojsa

Početnik
Poruka
43
nek ti kod servera ta kontrola ima indekse
napravi brojac
pa za uspostavu svake konekcije nek se taj brojac uvecava za 1

Dim intMax1 As Integer
Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
On Error GoTo greska
If Index = 0 Then
intMax1 = intMax1 + 1
Load Me.Winsock1(intMax1)
If Winsock1(intMax1).State <> sckClosed Then Winsock1(intMax1).Close
Me.Winsock1(intMax1).Accept requestID
End If
Exit Sub
greska:
End Sub

kako je sad stanje
ako ne radi ipak napisi deo koda
 

Top