Chat Client Server dengan Delphi 2010
D2 TEKNIK KOMPUTER (BSI PROGRAMMER) Sharing Project Chat Client Server untuk kepentingan pemrograman delphi... Tampilan Program : Berikut adalah Coding buat Chat Client : unit Chat; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ScktComp; type TForm1 = class(TForm) GroupBox1: TGroupBox; Button2: TButton; LV: TListView; GroupBox2: TGroupBox; Edit1: TEdit; Memo1: TMemo; Edit2: TEdit; Button3: TButton; SS: TServerSocket; Button1: TButton; procedure SSClientConnect(Sender: TObject; Socket: TCustomWinSocket); procedure SSClientDisconnect(Sender: TObject; Socket: TCustomWinSocket); procedure SSClientRead(Sender: TObject; Socket: TCustomWinSocket); procedure Button3Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); private