Saat menggunakan protokol TCP, jika Anda perlu membuat aplikasi klien, Anda harus mengidentifikasi nama atau alamat IP server. Port komunikasi aplikasi akan memantau dengan cermat pesan yang dikirim oleh pihak lain kapan saja, yang merupakan jaminan koneksi sistem yang andal. Setelah koneksi terjadi, salah satu pihak dapat mengirim dan menerima data melalui SendData dan memisahkan datanya sendiri melalui GetData. Saat mentransmisikan data, Anda perlu menyetel atribut LocalPort klien terlebih dahulu. Server hanya perlu menyetel atribut RemoteHost ke alamat Ethernet klien, menyetel alamat port yang sama dengan atribut LocalPort klien, dan mulai mengirim pesan dengan metode SendData. Klien memisahkan informasi yang dikirim melalui acara DataArrival di acara GetData. Kontrol Winsock memungkinkan komputer lokal untuk terhubung ke komputer jarak jauh menggunakan protokol UDP atau TCP. Kedua protokol dapat membuat aplikasi klien dan server.
Saat menggunakan kontrol Winsock, kedua pihak dalam komunikasi harus memilih protokol yang sama. Protokol TCP cocok untuk mentransmisikan file data berkapasitas besar yang memerlukan jaminan keamanan, sedangkan protokol UDP cocok untuk situasi di mana Anda perlu berkomunikasi dengan banyak bawahan secara terpisah, atau ketika terdapat banyak koneksi yang bervariasi waktu, terutama ketika jumlah datanya kecil. Anda dapat menggunakan metode Winsock1.PRotocol=sckTCPProtocol saat mengatur. Pertama, temukan nama komputer Anda dan tambahkan ke properti LocalHost Winsock.
Saat membuat aplikasi, Anda harus terlebih dahulu menentukan apakah Anda sedang membangun aplikasi klien atau layanan server. Hanya ketika aplikasi server yang dibuat mulai bekerja dan memasuki kondisi mendengarkan, aplikasi klien mulai membuat koneksi dan memasuki kondisi komunikasi normal. . Penulis membuat sebuah aplikasi yang fungsinya agar ketika mouse client bergerak maka aplikasi server dapat menampilkan posisi mouse secara real time.
Berikut cara membangun aplikasi server:
1. Buat file EXE standar baru;
2. Tambahkan kontrol Winsock;
3. Tambahkan kode berikut:
PrivateSubFormLoad()
tcpServer.LocalPort=1001
tcpServer.Localhost=server
tcpServer.remotePort=1002
tcpServer.Localhost=klint
tcpServer.Dengarkan
Sub Akhir
'Pemeriksaan koneksi
PrivateSubtcpServerConnectionRequest (ByValrequestIDAsLong)
IftcpServer.State＜＞sckClosedThen
tcpServer.Tutup
tcpServer.AcceptrequestID
Sub Akhir
'Kirim datanya
ServerSubfrm Pribadimonsemove(x,y)
tcpServer.SendDatax&str(x)
tcpServer.SendDatay&str(y)
Sub Akhir
Cara membangun aplikasi pelanggan adalah:
1. Buat file EXE standar baru;
2. Tambahkan kontrol Winsock;
3. Tambahkan dua kotak teks - txtx dan txty;
4. Tambahkan kode berikut:
PrivateSubFormLoad()
tcpServer.LocalPort=1002
tcpServer.Localhost=klint
tcpServer.remotePort=1001
tcpServer.Localhost=server
tcpServer.Dengarkan
Sub Akhir
'Pemeriksaan koneksi
Permintaan Koneksi PrivateSubtcpklint
(OlehValrequestIDAsLong)
Iftcpklint.State＜＞sckClosedThen
tcpklint.Tutup
tcpklint.AcceptrequestID
Sub Akhir
menerima data
Kedatangan PrivateSubtcpClientData
(BerdasarkanValbytesTotalAsLong)
DimstrDataAsString
tcpklint.GetDatastrData
ifleft(strData,1)=Xlalu
txtx.Teks=strData
kalau tidak
txty.Teks=strData
endif
Sub Akhir
Rutinitas di atas mengimplementasikan komunikasi point-to-point yang sangat sederhana. Dengan sedikit modifikasi atas dasar ini, sistem komunikasi interaktif AA jaringan komputer real-time yang kompleks secara fungsional dapat dibentuk untuk kontrol, simulasi grafis, dll. Winsock di VB memberi kita metode transmisi data sederhana, memungkinkan kita mencapai komunikasi jaringan point-to-point dengan mudah.
->