Program Komunikasi dengan Ethernet(TCP/IP) dengan Delphi 7

Ethernet(TCP/IP) dengan Delphi 7

Didalam Delphi 7 terdapat fasilitas atau component yang dapat digunakan untuk komunikasi jaringan Ethernet (TCP/IP). Dengan menggunakan komponen ServerSocket dan ClinetSocket yang tersedia pada palette internet pada Delphi 7, jika pada saat menggunakan Delphi 7 tidak terdapat komponen Socket maka anda harus memasukannya dengan cara di bawah ini ;

1.Buka program Delphi

2.Pilih File | Close All

3.Masuk Menu Component | Install Packege….. setelah itu akan tampil form seperti berikut :

Gambar Tampilan Menu Install Packege

4.Pilih Add lalu arahkan pada C:\Program Files\Delphi7SE\Bin\dclsockets70.bpl lalu tekan OK

5.Untuk melihat hasil instalasi, anda dapat melihat komponen ClientSocket dan Server Socket akan muncul pada Palette Internet.

Dengan memanfaatkan komponen ini dapat mengkomunikasikan antar komputer menggunakan TCP/IP melalui sebuah jaringan komputer. Jika komputer anda sudah memiliki jaringan local maka anda dapat melakukan antar komputer, akan tetapi jika anda tidak ada maka anda dapat memakai sebuah komputer yang nantinya bertindak sebagai server sekaligus client. Jika menggunakan satu buah komputer pakailah 127.0.0.1(localhost) yang merupakan alamat tetap dari komputer.

 Aplikasi Server

1.Buatlah Form seperti dibawah ini

Gambar Rancangan Server

2.

Komponen	Properti	Isi
Memo  (Pada Palette Standart)	Name  Lines ScrollBars	Memo1  (Kosong) ssBoth
ServerSocket  (Pada Palette Internet)	Name  Port Active	ServerSocket1  5000 True

3. Pilihlah komponen ServerSocket1,kemudian pada object Inspector pilihlah tab Even, klik ganda pada kotak kosong disebelah kanan OnClientRead dan isikan kode dibawah ini.

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;

Socket: TCustomWinSocket);

begin

memo1.Lines.Add(Socket.ReceiveText)

end;

4. Simpan Aplikasi tersebut dengan nama CobaServer

 Aplikasi Client

1. Buatlah form seperti di bawah ini

Gambar Rancangan Client

2.

Komponen	Properti	Isi
Button (Pada Palette Standart)	Name Caption	Button1 Kirim
Edit (Pada Palette Standart)	Name Text	Edit1 (Kosong
ClientSocket (Pada Palette Internet)	Name Active Address Port	ClientSocket1 False 127.0.0.1 5000

3. Klik ganda pada form yang kosong untuk menambahkan perintah koneksi dengan ServerSocket, koneksi dapat dilakukan jika Server dalam keadaan aktif, Jadi kalo pada server langsung di aktif tetapi pada Client ini aktif saat form terbuka dengan memasukan code program sebagai berikut.

procedure TForm1.FormCreate(Sender: TObject);

begin

clientsocket1.Active:=True;

end;

4. Klik ganda pada button1 dan masukkan kode berikut :

procedure TForm1.Button1Click(Sender: TObject);

begin

clientsocket1.Socket.SendText(edit1.Text)

end;

Untuk mengetahui jalannya program langsung aja di jalankan kedua program yang telah di buat.

1. Jalankan server terlebih dahulu

Gambar Aplikasi Server

2. Jalankan Client

Gambar aplikasi Client

3. Pada Aplikasi Client isikan pesan pada edit dan tekan tombol kirim

Gambar Percobaan Komunikasi

skianlah gambaran dari Program Komunikasi dengan Ethernet(TCP/IP) dengan Delphi 7

smoga bermanfaat bagi kita smua....

salam hormat;

eka sahputra