Komponen yang kita manfaatkan adalah komponen winsock (windows socket) yaitu sebuah komponen OCX yang memanfaatkan protocol TCP dan UDP untuk melakukan komunikasi data antar komputer .
Sedikit penjelasan tentang properties winsock dan fungsinya..
localPort = untuk menentukan lokal port yang akan di buka oleh program
remotePort = menentukan port mana yang akan di hubungi oleh program . . .remote port ini adalah localport di komputer remote . . .
remote IP = IP addres tujuan . ..
asumsi lokal disini berarti komputer kita dan remote adalah komputer tujuan seperti kita mengakses web dengan http://127.0.0.1:1337 dimana kita mengetikkan IP komputer tujuan berikut portnya
kemudian ada beberapa event prosedure yang sudah di sediakan oleh componen winsock di antaranya:
localPort = untuk menentukan lokal port yang akan di buka oleh program
remotePort = menentukan port mana yang akan di hubungi oleh program . . .remote port ini adalah localport di komputer remote . . .
remote IP = IP addres tujuan . ..
asumsi lokal disini berarti komputer kita dan remote adalah komputer tujuan seperti kita mengakses web dengan http://127.0.0.1:1337 dimana kita mengetikkan IP komputer tujuan berikut portnya
kemudian ada beberapa event prosedure yang sudah di sediakan oleh componen winsock di antaranya:
close = saat koneksi terputus
connected =saat berhasil membangun koneksi
connectionReques = permintaan koneksi dari luar
dataArrival = penerimaan data berupa pesan . .
send progress = perjalanan data
sendComplete = data berhasil di kirim
nah dengan mengetahui bagian dasar dari komponen tersebut mari kita mempraktekkannya dengan membuat sebuah program sederhana yaitu sebuah program penampil pesan "bisa di kembangkan menjadi aplikasi chatting"
langkah pertama membuat project baru kemudian tambahkan beberapa komponen :
satu buah label = untuk menampilkan pesan
satu buah textbox untuk menginputkan pesan
tiga buah common button sebagai tombol kendali (tombol konek,diskonek dan tombol kirim)
satu buah winsock kontrol sebagai media transfer data
berikut kode programnya
saat tombol konek di click akan membuat koneksi
Code:
Private Sub cmdconect_Click()
winsock.Close
winsock.Connect
End Sub saat tombol diskonek di click akan memutuskan koneksi
Code:
Private Sub cmddisconect_Click()
winsock.Close
End Sub saat tombol kirim di click
Code:
Private Sub cmdkirim_Click ()
winsock.SendData=textpesan.text
end sub kode saat form di load
Code:
Private Sub Form_Load()
winsock.RemoteHost = "127.0.0.1" ' ip komputer tujuan saya mengisikannya dengan ip localhost
winsock.RemotePort = 1337 ' port komputer tujuan
winsock.listen ' winsock lisning atau binding
end sub saat koneksi terputus
Code:
Private Sub wskclient_Close()
wskclient.Close
end sub saat winsock menerima data
Code:
Private Sub wskserver_DataArrival(ByVal bytesTotal As Long)
Dim pesan As String
winsock.GetData pesan
labelpesan.caption = pesan
end sub saat winsock menerima reques
Code:
Private Sub wskserver_ConnectionRequest(ByVal requestID As Long)
winsock.Close
winsock.Accept requestID
end subnote:
buat 2 project kemudian buat file exe dan installer untuk testing untuk aplikasi server tidak perlu tombok connect dan disconnect
0 komentar:
Posting Komentar