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……

Iklan

~ oleh Triswantoro Putro pada Juni 23, 2008.

13 Tanggapan to “Membuat program chating sederhana dengan delphi 6”

  1. share aplikasi delphi yang buat interfacing DUOONNKKK

  2. iya dop. ntar tak masukin. tunggu ya……….

  3. opo mas…. aku gak ngerti yang drimu omongkan…

  4. mas trez eleeeekkkkkk

  5. ngomong apa seh…??? lagian dimana nyari form 1..
    form 1 itu apa note pad apa apa….dasar

  6. ellthyas gak tau cos. SOKTAU

  7. abang —> mas blm pernah buka delphi ya??? form1 tu ya yang terlihat di gambar itu mas. coba buka delphi dlu baru baca tulisan diatas….

  8. server socket tu ada di palette apa???qo gak ktmu ya??dtnggu jwaban’y!!!!

  9. server socket tu dmn ya???sya pke delphi7 qo gak bs???gak ktmu…

  10. ->yono -> buka aja di component trus install packages trus cari ja socket disitu….. OK

  11. mas Ko Gak jalan Ya!!!!!!!!

  12. 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…

  13. 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

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

 
%d blogger menyukai ini: