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 biru
tidak 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;
end.
NB : Untuk Source code yang saya kasih
warna oranye, 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.
Posting Komentar