Visual Basic 6.0

Απ: Ευρεση ποιο Socket εχει κλεισει

ntaryl — Thu, 18 Feb 2010 02:25:27 GMT

Καλησπερα και παλι

Φιλε μου το Close event

Private Sub Listen_Sock_Close(Index As Integer)
On Error Resume Next
Dim X As Integer
Listen_Sock(Index).Close
        Index = Index - 1
        
        Unload Listen_Sock(Index)

    For X = 1 To Lv.ListItems.Count
       If Lv.ListItems.Item(X).SubItems(1) = Index Then
            Lv.ListItems.Remove (Lv.ListItems.Item(X).Index)
            
        
        
        Me.SkNum.Caption = "(" & Lv.ListItems.Count & ")"
     Exit Sub
    End If
  Next X
End Sub

Απ: Ευρεση ποιο Socket εχει κλεισει

ntaryl — Wed, 17 Feb 2010 23:40:42 GMT

Καλο απογευμα

φιλε μου χρησιμοποιω το winsock control που ερχεται με την vb6 και array ετσι ωστε να εχω την δυνατοτητα να συνδεθουν παραπανω απο ενα.

Μολις παω σπιτι θα ποσταρω τον κωδικα για το Close event

ευχαριστω

Απ: Ευρεση ποιο Socket εχει κλεισει

George J. Capnias — Wed, 17 Feb 2010 17:00:06 GMT

Αν χρησιμοποιείς το Winsock control που έρχεται με την VB6, όταν ένας remote client κλείνει τη σύνδεση, τότε το Close event του control κάνει fire-up. Αν έχεις control array, θα σου περάσει και το Index του control που έχει κλείσει η σύνδεση.

Σε αυτό το event μπορείς να γράψεις το κώδικα που χρειάζεται για να κάνεις το clear-up στην εφαρμογή σου...

George J.

Ευρεση ποιο Socket εχει κλεισει

ntaryl — Wed, 17 Feb 2010 04:14:28 GMT

καλησπερα

Θελω να φτιαξω ενα function ετσι ωστε οταν καποιος server κλεινει και φευγει απο την λιστα (η συνδεση )να μπορω να γνωριζω πιο socket εχει κλεισει .

ευχαριστω πολυ

καλο βραδυ