Πώς να στείλει ένα Array μέσω Winsock σε Visual Basic 6

Ο έλεγχος winsock σε Visual Basic 6 σας επιτρέπει να δημιουργήσετε τα προγράμματα που δημιουργούν συνδέσεις μεταξύ τους μέσω ενός δικτύου , με ένα πρόγραμμα που ενεργεί ως διακομιστής και το άλλο ως πελάτης . Ο έλεγχος winsock έχει διάφορες μέθοδοι που χρησιμοποιούνται για τη σύνδεση , την αποστολή και λήψη δεδομένων . Μπορείτε να χρησιμοποιήσετε κυριολεκτική δεδομένα , πληροφορίες από τα πλαίσια κειμένου ή ακόμη μεταβλητές για να περάσει τις πληροφορίες . Ωστόσο , επειδή χρησιμοποιεί συστοιχίες δείκτες και έχουν αρκετά στοιχεία, περνώντας τα έργα αυτά είναι λίγο διαφορετικά από ό, περνώντας από άλλα είδη δεδομένων . Οδηγίες
Πρόγραμμα διακομιστή
Η

1 Ανοίξτε ένα νέο έργο της Visual Basic . Κάντε κλικ στο " Project" στο μενού και στη συνέχεια κάντε κλικ στο κουμπί " στοιχεία". Μετακινηθείτε προς τα κάτω στο παράθυρο διαλόγου και, στη συνέχεια , κάντε κλικ στο "Microsoft Winsock ελέγχου 6,0 " για να θέσει έναν έλεγχο σε αυτό , στη συνέχεια, κάντε κλικ στο "OK " κουμπί . 2

διπλό κλικ στο στοιχείο ελέγχου Winsock στην εργαλειοθήκη για να το προσθέσετε στη φόρμα . Επίσης, κάντε διπλό κλικ στο στοιχείο ελέγχου CommandButton και το στοιχείο ελέγχου πλαισίου κειμένου δύο φορές για να προσθέσετε αυτά τα τρία στοιχεία ελέγχου στη φόρμα . Κάντε κλικ και σύρετε τους να τους οργανώσει , όπως θα θέλατε .
Εικόνων 3

διπλό κλικ στη φόρμα για να ανοίξει την υπορουτίνα Form_Load . Πληκτρολογήστε τον ακόλουθο κώδικα :

WinSock1.LocalPort = portNumberWinSock1.Listen

Όταν το πρόγραμμα διακομιστής τρέχει , αυτός ο κώδικας ανοίγει το winsock και ακούει για μια σύνδεση του πελάτη στο παρεχόμενο αριθμό θύρας . Είτε να χρησιμοποιήσετε μια μεταβλητή για να ορίσετε έναν αριθμό θύρας ή πληκτρολογήστε έναν ακέραιο άμεσα, όπως η θύρα 21 ή 22
Η 4

Ανοίξτε την υπορουτίνα WinSock1_ConnectionRequest και πληκτρολογήστε τον ακόλουθο κώδικα : .

Εάν WinSock1 . μέλος <> sckClosed ThenWinSock1.CloseEnd IfWinSock1.Accept requestID

Αυτό ελέγχει για να δει εάν ο έλεγχος winsock έχει δημιουργήσει μια σύνδεση και, εάν ναι , να κλείνει στη συνέχεια δέχεται αιτήσεις από τους πελάτες για να δημιουργήσει μια νέα σύνδεση .
5

Ανοίξτε την υπορουτίνα WinSock1_DataArrival και πληκτρολογήστε τον ακόλουθο κώδικα :

Dim strData Όπως StringWinSock1.GetData strData , vbStringText1.Text = Text1.Text & strData

η πρώτη γραμμή δημιουργεί μια νέα μεταβλητή συμβολοσειράς για να πάρει τα εισερχόμενα δεδομένα από τον πελάτη . Η δεύτερη γραμμή διευθύνει ο έλεγχος Winsock αποθηκεύει τα δεδομένα στη μεταβλητή . Η τρίτη γραμμή προσθέτει τα νέα δεδομένα σε οποιοδήποτε υπάρχον κείμενο στο πρώτο πλαίσιο κειμένου
Η 6

Ανοίξτε την υπορουτίνα Command1_Click και πληκτρολογήστε τον ακόλουθο κώδικα : .

WinSock1.SendData Text2.Text

Αυτή η γραμμή απλά στέλνει πληροφορίες από το δεύτερο πλαίσιο κειμένου με το πρόγραμμα -πελάτη .
εικόνων πρόγραμμα πελάτη
Σελίδα 7

Ανοίξτε ένα νέο έργο της Visual Basic . Κάντε διπλό κλικ στο στοιχείο ελέγχου Winsock , CommandButton ελέγχου και ελέγχου πλαίσιο κειμένου για να προσθέσετε το καθένα από αυτά στη φόρμα . Κάντε κλικ και σύρετε τους να τους οργανώσει , όπως θα θέλατε .
8

διπλό κλικ στη φόρμα για να ανοίξει την υπορουτίνα Form_Load . Πληκτρολογήστε τον ακόλουθο κώδικα :

WinSock1.RemoteHost = hostIPWinSock1.RemotePort = portNumberWinSock1.Connect

Αυτές οι γραμμές να στείλετε μια αίτηση σύνδεσης σε ένα διακομιστή χρησιμοποιώντας το hostip και τις αξίες Αριθμός_θύρας . Αντικαταστήστε το με μεταβλητές που κατέχουν αυτές τις αξίες ή με μια τιμή συμβολοσειράς για την hostip και έναν ακέραιο για την Αριθμός_θύρας . Για παράδειγμα, χρησιμοποιήστε το " 127.0.0.1 " ως τιμή υποδοχής, η οποία είναι η τοπική υποδοχής , ώστε να μπορείτε να ελέγξετε το πρόγραμμά σας στον τοπικό υπολογιστή σας .
Η 9

Ανοίξτε την υπορουτίνα WinSock1_DataArrival και πληκτρολογήστε την ακόλουθη Κωδικός :

Dim strData όπως StringWinSock1.GetData strData , vbStringText1.Text = Text1.Text & strData

ο κωδικός αυτός λειτουργεί ακριβώς το ίδιο με την υπορουτίνα άφιξης δεδομένων για τον έλεγχο winsock στο διακομιστή πρόγραμμα
Η 10

Ανοίξτε την υπορουτίνα Command1_Click και πληκτρολογήστε τον ακόλουθο κώδικα : .

Dim myArray ( 3 ) Όπως Stringmyarray ( 0 ) = " Αυτό " myArray ( 1 ) = " ? είναι " myArray ( 2 ) = " μου " myArray ( 3 ) = " συστοιχίες " Για i = 0 να UBound ( myArray ) WinSock1.SendData myArray ( i ) Next i

Η . πέντε πρώτες γραμμές θα δημιουργήσει μια σειρά με τέσσερα στοιχεία κορδόνι και προετοιμάζει κάθε αξία. Οι επόμενες τρεις γραμμές εκτελέσετε μια θηλιά που στέλνουν κάθε στοιχείο του πίνακα , ένα κάθε φορά μέσω του ελέγχου winsock στο πρόγραμμα server . Μπορείτε να αντιγράψετε αυτόν τον κώδικα στο πρόγραμμα διακομιστή για την αποστολή συστοιχίες από εκεί στο πρόγραμμα -πελάτη .
Η
εικόνων