Aplikasi Chatting dengan Borland C++ Builder (Server Side)

Salah satu contoh penerapan Socket dalam aplikasi adalah Aplikasi Chatting (Server dan Client).

Chatting dua arah antara Client dan Server.
Di sini akan dibangun aplikasi Chat Sederhana dengan mempergunakan bahasa pemrograman Borland C++ Builder.

Yang perlu di persiapkan antara lain :
* Tentu saja master “Borland C++ Builder” penulis menggunakan Borland C++ Builder 6 untuk membangun aplikasi saat ini.

* Desaign interface untuk Server di desain seperti gambar di bawah ini

Pada desain di atas terdapat
- 1 server socket
- 2 button (send dan start)
- 2 textfield
- 1 Memo

objek lainnya dapat ditambahkan sendiri,,,objek-objek yang saya sebutkan diatas merupakan objek penting yang berkaitan dengan codding program.

Pada Server Socket terdapat tiga event :
1. event OnClientConnect, yg isinya

//—————————————————————————
void __fastcall TForm1::ssClientConnect(TObject *Sender,
TCustomWinSocket *Socket)
{
AnsiString temp;
temp=Socket->RemoteAddress;
int i;
for(i=0;i<ss->Socket->ActiveConnections;i++)
{
ss->Socket->Connections[i]->SendText(temp+”Terhubung”);
}
Memo1->Lines->Add(temp+” Terhubung !!!”);
}
}
//—————————————————————————

Jadi, pada event OnClientConnect, dideklaasikan sebuah variabel temp dengan tipe AnsiString, variabel ini kemudian diberi nilai Socket->RemoteAddress; yang merupakan alamat IP (IP Address) dari tiap client yang akan terhubung ke server ini.

2. event OnClientRead
//—————————————————————————
void __fastcall TForm1::ssClientRead(TObject *Sender,
TCustomWinSocket *Socket)
{
int i;
AnsiString temp,temp2; //untuk temporarinya
temp=Socket->ReceiveText();
temp2=Socket->RemoteAddress;
for(i=0;iSocket->ActiveConnections;i++)
{
ss->Socket->Connections[i]->SendText(temp2+”:”+temp);
}
Memo1->Lines->Add(temp2+”:”+temp);
}
//—————————————————————————

Sedangkan pada event OnClientRead, dideklarasikan dua buah variabel AnsiString (temp, temp2). temp=Socket->ReceiveText();  // temp berisi pesan yang diterima server dari client
temp2=Socket->RemoteAddress; //temp2 berisi ip address dari client

3. event OnListen
//—————————————————————————
void __fastcall TForm1::ssListen(TObject *Sender, TCustomWinSocket *Socket)
{
Memo1->Lines->Add(“Server Ready!!!”);//artinya di memo ditambahkan pada memo saat server listen karena onlisten
}
//—————————————————————————

untuk button Start event Onclick, masukan codding berikut :

void __fastcall TForm1::btStartClick(TObject *Sender)
{
ss->Port=StrToInt(txtPort->Text);
ss->Open();
}

==================================
keterangan :
ss->Port=StrToInt(txtPort->Text);
ss= nama Server Socket yang kita buat sendiri,
txtPort = nama textfield yang berisi port dari server yang aktif,

syntax Port=StrToInt(txtPort->Text); dilakukan karena port berupa angka sedangkan textfield berupa string sehingga nilainya harus di parsing dari string ke integer.

syntax ss->Open(); // mengaktifkan server socket

Sementara untuk button Send, masukan penggalan codding berikut :

void __fastcall TForm1::btSendClick(TObject *Sender)
{
for(int i=0;i<ss->Socket->ActiveConnections;i++){
ss->Socket->Connections[i]->SendText(txtSend->Text);
}

Memo1->Lines->Add(txtSend->Text);
}

button send digunakan untuk mengirim pesan yang diisi pada txtfield dalam kasus ini testfieldnya bernama ‘txtSend’,  dari server ke client.

setelah semua siap maka anda telah berhasil membuat aplikasi chat untuk server (server side)

Nb : perhatikan nama dari tiap objek yang ada pada aplikasi yang anda ciptakan. Nama objek bisa saja berbeda tergantung dari penamaan anda…!!!

Aplikasi diatas belum dapat difungsikan dengan baik, sebelum aplikasi Client diciptakan.
Untuk aplikasi Client akan di Jelaskan kemudian…

Selamat Mencoba..!!!
^___________^V

–t47a–