Cara Membuat Aplikasi Chatting Menggunakan Delphi 7

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.