Membuat program chating sederhana dengan delphi 6
Bagi mereka2 yang suka ber chating ria dengan baik YM maupun mIRC pasti harus ke warnet dulu untuk menyalurkan hobinya. ribet…meski yang kita ajak chating hanya ada ruangan sebelah kita.
Sekarang kita bisa membuat mesin chating sendiri untuk jaringan lokal. Bagi yang sudah mengenal bahasa pemograman delphi pasti sudah familier dengan program ini. cukup dengan hanya kabel UTP kita bisa chatingan antar komputer. berikut source code nya.
antara 2 komputer yang dipakai, salah satunya sebagai server dan yang lain sebagai client.
berikut yang digunakan sebagai server.
procedure TForm1.Button1Click(Sender: TObject); // connect client
begin
serversocket1.Open;
memo1.Clear;
end;
procedure TForm1.Button2Click(Sender: TObject); //tombol kirim
begin
memo1.Lines.Add(‘server : ‘+memo2.Text);
if (serversocket1.Socket.ActiveConnections>0) then
serversocket1.Socket.Connections[0].SendText(‘server : ‘+memo2.Text);
memo2.Clear;
end;
{procedure TForm1.ServerSocket1Accept(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo1.Lines.Add(‘accept dari’ + socket.RemoteHost);
end;}
{procedure TForm1.ServerSocket1Listen(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo1.Lines.Add(‘accept + dari’ + socket.LocalHost);
end;}
procedure TForm1.ServerSocket1ClientError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
memo1.Lines.Add(‘error dari’ + inttostr(errorcode));
end;
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo1.Lines.Add(socket.ReceiveText);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Clear;
memo2.Clear;
serversocket1.Port:=25;
end;
procedure TForm1.Memo2KeyPress(Sender: TObject; var Key: Char);
begin
if key = chr(13) then
begin
memo1.Lines.Add(‘server : ‘+memo2.Text);
if (serversocket1.Socket.ActiveConnections>0) then
serversocket1.Socket.Connections[0].SendText(‘server : ‘+memo2.Text);
memo2.Clear;
end;
end;
end.
sedangkan untuk client source code nya sebagai berikut
procedure TForm1.Button1Click(Sender: TObject);
begin
clientsocket1.Open;
memo1.Clear;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
memo1.Lines.Add(‘client :’ +memo2.Text);
if (clientsocket1.Socket.Connected) then
clientsocket1.Socket.SendText(‘client : ‘+memo2.Text);
memo2.Clear;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Clear;
memo2.Clear;
clientsocket1.Host :=’10.111.210.69’;
clientsocket1.Port :=25;
end;
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo1.Lines.Add(socket.RemoteHost);
end;
procedure TForm1.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
memo1.Lines.Add(‘error’ + inttostr(errorcode));
end;
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo1.Lines.Add(socket.ReceiveText);
end;
procedure TForm1.Memo2KeyPress(Sender: TObject; var Key: Char);
begin
if key = chr(13) then
begin
memo1.Lines.Add(memo2.Text);
if (clientsocket1.Socket.Connected) then
clientsocket1.Socket.SendText(‘client : ‘+memo2.Text);
memo2.Clear;
end;
end;
end.
selamat mencoba……
share aplikasi delphi yang buat interfacing DUOONNKKK
dop said this on Juni 25, 2008 pada 5:11 pm |
iya dop. ntar tak masukin. tunggu ya……….
Triswantoro Putro said this on Juni 27, 2008 pada 3:19 am |
opo mas…. aku gak ngerti yang drimu omongkan…
ellthyas said this on Juni 29, 2008 pada 8:51 am |
mas trez eleeeekkkkkk
ulee said this on Juni 29, 2008 pada 12:43 pm |
ngomong apa seh…??? lagian dimana nyari form 1..
form 1 itu apa note pad apa apa….dasar
abang said this on Oktober 6, 2008 pada 1:18 am |
ellthyas gak tau cos. SOKTAU
ARIS said this on Oktober 9, 2008 pada 5:36 am |
abang —> mas blm pernah buka delphi ya??? form1 tu ya yang terlihat di gambar itu mas. coba buka delphi dlu baru baca tulisan diatas….
Triswantoro Putro said this on Oktober 29, 2008 pada 10:08 am |
server socket tu ada di palette apa???qo gak ktmu ya??dtnggu jwaban’y!!!!
Yono said this on Desember 23, 2008 pada 6:44 am |
server socket tu dmn ya???sya pke delphi7 qo gak bs???gak ktmu…
Yono said this on Desember 23, 2008 pada 6:57 am |
->yono -> buka aja di component trus install packages trus cari ja socket disitu….. OK
Triswantoro Putro said this on Desember 23, 2008 pada 1:29 pm |
mas Ko Gak jalan Ya!!!!!!!!
Yhan said this on Februari 21, 2009 pada 11:20 am |
mas tuk cri source code untuk socket di internet gmna cranya?n trus klo da pnya source code socket instalnya di instal packgaes tu kan
or source code socket mank uda bwaan dari masternya ta mas??
trims…matur nuwun…
dani said this on Maret 19, 2009 pada 6:12 pm |
tambahan partanyaan diatas .mas q da cri socket di instal packages tp g da…brti q harus cari source codenya di internet kan mas?bisa beri tau kata kuncinya mas untuk cri source codenya
dani said this on Maret 19, 2009 pada 6:18 pm |