NET CHATING VIA LAN MENGGUNAKAN DELPHI 7
NET CHATING DEMOS....From Delphi 7 {Coba Dikembang lagi Kalau Sudah Ada yang Bermain Lebih Dalam Yach......} Berikut Coding Net Chat : ___________________________________________________________________ ___________________________________________________________________ DELPHI 7 ___________________________________________________________________ unit Chatmain; interface uses Classes, QControls, QStdCtrls, QExtCtrls, QButtons, QForms, Sockets; type TForm1 = class(TForm) memRecv: TMemo; Panel1: TPanel; memSend: TMemo; Panel2: TPanel; btnSend: TButton; Panel3: TPanel; Label1: TLabel; edtRemoteHost: TEdit; Label2: TLabel; edtRemotePort: TEdit; Label3: TLabel; edtLocalPort: TEdit; btnActivateServer: TButton; TcpClient1: TTcpClient; TcpServer1: TTcpServer; procedure btnSendClick(Sender: TObject); procedure TcpServer1Accept(sender: TObject; ClientSocket: TCustomIpClient); p