Καλώς ορίσατε στο dotNETZone.gr - Σύνδεση | Εγγραφή | Βοήθεια
σε

 

Αρχική σελίδα Ιστολόγια Συζητήσεις Εκθέσεις Φωτογραφιών Αρχειοθήκες

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

Îåêßíçóå áðü ôï ìÝëïò ntaryl. Τελευταία δημοσίευση από το μέλος ntaryl στις 17-02-2010, 18:25. Υπάρχουν 3 απαντήσεις.
Ταξινόμηση Δημοσιεύσεων: Προηγούμενο Επόμενο
  •  16-02-2010, 20:14 57161

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

    καλησπερα  

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

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

    καλο  βραδυ   




    Rookie learn to fly U are my Inspiration...
    Who said Multithreading is impossible
    Try it First and after Deside if is Possible
  •  17-02-2010, 09:00 57165 σε απάντηση της 57161

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

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

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

     

    George J.


    George J. Capnias: Χειροπρακτικός Υπολογιστών, Ύψιστος Γκουράρχης της Κουμπουτερολογίας
    w: capnias.org, t: @gcapnias, l: gr.linkedin.com/in/gcapnias
    dotNETZone.gr News
  •  17-02-2010, 15:40 57173 σε απάντηση της 57165

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

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

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

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

    ευχαριστω   


    Rookie learn to fly U are my Inspiration...
    Who said Multithreading is impossible
    Try it First and after Deside if is Possible
  •  17-02-2010, 18:25 57174 σε απάντηση της 57173

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

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

    Φιλε  μου  το 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



    Rookie learn to fly U are my Inspiration...
    Who said Multithreading is impossible
    Try it First and after Deside if is Possible
Προβολή Τροφοδοσίας RSS με μορφή XML
Με χρήση του Community Server (Commercial Edition), από την Telligent Systems