Membuat Aplikasi Chatting dengan Delphi

Aplikasi Chatting Sudah Banyak digunakan didunia maya. entah itu di Jejaring sosial Facebook, MIRC dan Banyak lagi. Pernahkah Sobat Berfikir untuk membuat aplikasi seperti itu?? Jika ia, mari kita wujudkan karena Disini kita akan belajar bagaimana membuat sebuah aplikasi Chatting dengan Menggunakan Bahasa Pemrograman Delphi. disimak ya... :)
1. Buka Delphi Anda
2. Desain Form Seperti ini :
Komponen Pentingnya adalah 
1. ClientSocket
2. Server Socket 
Tampilannya Saya Percantik dengan SuiSkin, Jika Sobat tidak punya. Menggunakan Tampilan Default Juga Tidak Apa".. :)

Berikut Listing Codenya :

{$R *.dfm}

function GetNetUser : Ansistring;
var
dwl : DWORD;
begin
dwl :=MAX_PATH;
SetLength(Result, dwl+1);
if WNetGetUser(Nil,PChar(Result),dwl)=no_error then
SetLength(Result,StrLen(PChar(Result)))
else
SetLength(Result,0);
end;

procedure TForm1.suiButton1Click(Sender: TObject);
begin
if suiButton1.Caption='Putus' then
begin
ClientSocket1.Active:=false;
suiButton1.Caption:='Connect'
end else
begin
ClientSocket1.Host:=Edit1.Text;
ClientSocket1.Port:=1880;
ClientSocket1.Active:=True;
suiButton1.Caption:='Putus';
if MessageDlg('Koneksi Berhasil, Silahkan Chat Sepuasnya..',mtInformation,[mbYes],0)=1 then
begin
Edit3.SetFocus;
end else
if MessageDlg('Koneksi Bermasalah !! Sambungan Gagal',mtError,[mbOk],0)=mrOk then
begin
Abort;
end else
Abort;
end;
end;

procedure TForm1.suiButton2Click(Sender: TObject);
begin
if (ClientSocket1.Socket.Connected) then
begin
if Trim(Edit2.Text)='' then
begin
memo1.Lines.Add(Edit2.Text+Edit3.Text);
end else
begin
memo1.Lines.Add(Edit2.Text+':'+Edit3.Text);
ClientSocket1.Socket.sendtext(Edit2.Text+':'+Edit3.Text);
end;
Edit3.Text:='';
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ServerSocket1.Port:=1880;
ServerSocket1.Open;
Edit2.Text:=GetNetUser;
end;


procedure TForm1.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
if MessageDlg('Koneksi Bermasalah !! Sambungan Gagal',mtError,[mbOk],0)=mrOk then
begin
Abort;
end else
Abort;
end;
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo1.Lines.Add(Socket.ReceiveText);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
Edit3.SetFocus;
end;

end.