Cara Membuat Aplikasi Chatting Sendiri Menggunakan Delphi 7
Lagi seneng - senengnya ngoding jadi semangat untuk buat aplikasi menggunakan Delphi, semoga kedepannya lebih banyak aplikasi yang bisa saya buat sendiri, tentunya dengan bantuan para teman - teman di dumay . . hehe . . Dan pastinya akan saya share disini. Oke, setelah kemarin saya memposting artikel Cara Membuat Web Browser Sendiri sekarang saya ingin memberi tahu bagaimana Cara Membuat Aplikasi Chating Sendiri Menggunakan Delphi 7. Tapi aplikasi ini baru untuk jaringan lokal atau LAN, semoga saya atau anda bisa mengembangkannya menjadi aplikasi untuk jaringan yang lebih luas, amiiin :). Sudah banyak aplikasi chating untuk saat ini seperti mIRC, Yahoo Messenger, Google Talk, Skype, dll. Tapi apakah anda tahu bagaimana cara membuat programnya ? Saya disini menggunakan Aplikasi Pemrograman Delphi 7. Mari simak langkah - langkahnya.
Langkah - langkah Cara Membuat Aplikasi Chating Sendiri Menggunakan Delphi 7
1. Masuk ke Delphi 7.
2. Klik menu file --> New --> Application.
3. Buat desain interfacenya terlebih dahulu seperti gambar dibawah ini.
4. Komponen yang digunakan adalah dan isikan propertiesnya, caranya hampir sama dengan Membuat Browser dengan Delphi 7 :
- Edit1
- Edit2 --> Name : eUser
- Edit3 --> Name :eSend
- Button1 --> Caption : Hubungkan
- Button2 --> Caption : Kirim
- Label1
- Memo1
- Label2
- ClientSocket1
- ServerSocket1
NB : 1. Untuk komponen diatas, selain yang warna birutidak usah diganti setingan propertiesnya, biarkan default saja.
2. Untuk yang berwarna merah berada di pallete internet. Oya hampir lupa, sebelum menggunakan komponen ClientSocket1 & ServerSocket1. Kita diharuskan menginstal terlebih dahulu komponen tersebut. Karena di Delphi ini blum desediakan langsung, kita diharuskan menginstal packages terlebih dahulu. Caranya masuk ke menu Component > Instal Packages... > Klik Add > Cari file yang bernama dclsockets70.bpl > Open > Ok. Maka ClientSocket1 & ServerSocket1 sudah muncul.
5. Setelah itu masukkan source code dibawah ini.
function GetNetUser : Ansistring;
var
dwI : DWord;
begin
dwI := MAX_PATH;
SetLength (Result, dwI + 1);
if WNetGetUser (Nil, PChar (Result), dwI) = NO_ERROR then
SetLength (Result, StrLen (PChar (Result)))
else
SetLength (Result, 0)
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if Button1.Caption = 'Putuskan' then
begin
ClientSocket1.Active:= False;
Button1.Font.Color :=clSkyBlue;
Button1.Caption := 'Hubungkan';
end
else
begin
ClientSocket1.Host := Edit1.Text;
ClientSocket1.Port := 1880;
ClientSocket1.Active:= True;
Button1.Font.Color :=clRed;
Button1.Caption := 'Putuskan';
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if (ClientSocket1.Socket.Connected) then
begin
if trim(eUser.Text)='' then
begin
Memo1.Lines.Add(eUser.Text+eSend.Text);
ClientSocket1.Socket.SendText(eUser.Text+eSend.Text);
end
else
begin
Memo1.Lines.Add(eUser.Text+':'+eSend.Text);
ClientSocket1.Socket.SendText(eUser.Text+':'+eSend.Text);
end;
eSend.Text := '';
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ServerSocket1.Port:=1880;
ServerSocket1.Open;
eUser.Text := GetNetUser;
end;
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Label1.Font.Color :=clBlue;
Label1.Caption := 'Terhubung :)';
end;
procedure TForm1.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
Label1.Font.Color :=clRed;
Label1.Caption := 'Gagal terhubung ...';
end;
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.Lines.Add(Socket.ReceiveText);
end;
procedure TForm1.Label3Click(Sender: TObject);
begin
ShellExecute(Handle,'open','http://www.dwi-rahmadi.blogspot.com',nil,nil, SW_SHOWNORMAL);
end;
procedure TForm1.Label2MouseEnter(Sender: TObject);
begin
Label1.Font.Style:=[fsUnderline];
end;
procedure TForm1.Label2MouseLeave(Sender: TObject);
begin
Label1.Font.Style:=[];
end;
- NB : Untuk Source code yang saya kasih warnaoranye, anda tinggal klik 2 kali pada buttonnnya. Dan untuk yang saya beri warna ungu, letakkan saja dimana saja.
6. Setelah sudah memasukkan semua source codenya tinggal mencoba antar komputer. :)
