Cara Membuat Aplikasi Chatting Menggunakan Delphi 7

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
SELAMAT MENCOBA

Program Kalkulator sederhana menggunakan Delphi 7

Program-program dasar untuk melatih penggunaan operator penghitungan untuk program Borland Delphi 7. Program delphi ini adalah sebuah kalkulator sederhana yang berisi penjumlahan, pengurangan, perkalian, dan pembagian untuk dua bilangan.


Komponen-komponen yang dibutuhkan untuk pembuatan program :
  1. 2 buah Tlabel
  2. 3 buah Tedit
  3. 4 buah Tbutton
Komponen dapat disusun seperti gambar berikut :
Untuk script hanya di masukkan ke dalam Tbutton :

  1. Klik dua kali button + dengan nama default button1. Dan akan muncul jendela baru dan berikan command/script seperti berikut. 
  2. Dan berikut source code untuk button1 untuk penjumlahan :
    procedure TForm1.Button1Click(Sender: TObject); var x,y,z : real; begin x:=StrToFloat(Edit1.Text); y:=StrToFloat(Edit2.Text); z:=x+y; Edit3.Text:=FloatToStr(z); end;
    Keterangan variabel x,y,z di deklarasikan sebagai variabel non-global. Dan digolongkan ke dalam type data real.
  3. Klik dua kali button - dengan nama default button2. Dan akan muncul jendela baru dan berikan command/script seperti berikut. Dan berikut source code untuk button2 untuk pengurangan :
    procedure TForm1.Button2Click(Sender: TObject); var x,y,z : real; begin x:=StrToFloat(Edit1.Text); y:=StrToFloat(Edit2.Text); z:=x-y; Edit3.Text:=FloatToStr(z); end;
  4. Klik dua kali button * dengan nama default button3. Dan akan muncul jendela baru dan berikan command/script seperti berikut. Dan berikut source code untuk button3 untuk perkalian :
    procedure TForm1.Button3Click(Sender: TObject); var x,y,z : real; begin x:=StrToFloat(Edit1.Text); y:=StrToFloat(Edit2.Text); z:=x*y; Edit3.Text:=FloatToStr(z); end;
  5. Klik dua kali button / dengan nama default button4. Dan akan muncul jendela baru dan berikan command/script seperti berikut. Dan berikut source code untuk button4 untuk pembagian :
    procedure TForm1.Button4Click(Sender: TObject); var x,y,z : real; begin x:=StrToFloat(Edit1.Text); y:=StrToFloat(Edit2.Text); z:=x / y; Edit3.Text:=FloatToStr(z); end;