Sesuai dengan yang telah saya katakan kemarin, hari ini saya akan membahas bagaimana membuat aplikasi chat sederhana untuk Client Side nya. Sebagai Lanjutan dari aplikasi Server Side yang kemarin dibuat.
Untuk persiapan nya, teman-teman siapkan desain Interface seperti gambar dibawah ini :
Objek-Objek yang penting yang terdapat pada desain interface diatas antara lain :
- 1 Client Socket (cs)
- 2 button (btSend,btConnect)
- 4 textfield (txtip,txtport,txtname,txtmsg)
- 1 Memo (Memo1)
Seperti yang saya pernah katakan sebelumnya, objek lainnya dapat ditambahkan sendiri sesuai keinginan teman-teman.
ok,,, lanjut ke bagian pengisian codding…
Pada Client Socket terdapat dua event
1. event Onconnect, yang isinya :
//—————————————————————————
void __fastcall TForm1::csConnect(TObject *Sender,
TCustomWinSocket *Socket)
{
Memo1->Lines->Add(“Connected to Server”);
}
//—————————————————————————
event OnConnect digunakan terhubung ke server. Saat Client berhasil terhubung ke server maka pada Memo1 Client Side akan ditambahkan kalimat “Connected to Server”.
2. event OnRead
//—————————————————————————
void __fastcall TForm1::csRead(TObject *Sender, TCustomWinSocket *Socket)
{
Memo1->Lines->Add(Socket->ReceiveText());
}
//—————————————————————————
event OnRead digunakan untuk pembacaan pesan yang diterima dari server.
Untuk Button :
1. Button Connect
//—————————————————————————
void __fastcall TForm1::btConnectClick(TObject *Sender)
{
cs->Address=txtip->Text;
cs->Port=StrToInt(txtport->Text);
cs->Open(); //mengaktifkan Client Socket
}
//—————————————————————————
keterangan :
txtip == berisi ip address server yang dituju,,, dalam kasus ini digunakan ip address 127.0.0.1 sebagai localhost, karena saya membuat dan mencoba aplikasi chat ini pada sebuah komputer yang sama(Server dan Client nya berada pada komputer yang sama). Namun jika server nya berada pada komputer yang lain, maka ip address nya disesuaikan dengan ip address komputer dimana server diletakan.
txtport == berisi port server (portnya harus sama dengan port server yang Client mau Konek). Ingat Portnya di parsing dulu ke Integer, karena textfield bertipe String.
2. Button Send
//—————————————————————————
void __fastcall TForm1::btSendClick(TObject *Sender)
{
cs->Socket->SendText(txtname->Text+”#”+txtmsg->Text);
}
//—————————————————————————
Client Socket mengirim pesan yang diinputkan pada txtmsg ke server.
Jangan lupa memperhatikan penamaan dari tiap objek. Karena Borland bersifat case sensitif. Setelah semua penggalan codding diatas diisi sesuai pada tempatnya, maka anda telah berhasil membuat Client Side untuk aplikasi chat sederhana. Silahkan mencoba.,…. Aktifkan dulu server nya dengan menekan tombol START, setelah itu baru jalankan aplikasi Client dan Klik Connect untuk koneksi ke server. Maka Server Side dan Client Side telah berhasil berkomunikasi, dengan bantuan Socket sebagai perantaranya.
Perhatikan pada kedua aplikasi terdapat Socket Server pada server side dan Client Socket pada Client Side. Kedua Socket inilah yang berperan penting dalam proses komunikasi antar Client dan Server. Mengenai Socket telah dibahas pada tulisan-tulisan sebelumnya….
Good Luck ^____^V
–t47a–
t47a
