Contoh Program Pemrosesan Paralel

Program yang dituliskan dengan menggunakan bahasa pemrograman delphi ini merupakan implementasi socket programming pada level terendah yang digunakan untuk mengirimkan pesan antar komputer menggunakan socket dan dibuat menggunakan aplikasi Delphi 7.

Program ini terdiri dari dua form yang diinstallkan pada dua komputer yang bertindak sebagai server untuk menerima pesan dari komputer klien.

Form yang digunakan di sever dibangun menggunakan 4 komponen :

1. server socket

2. 3 buah lisbox

3. 2 label

4. 2 panel(asesoris)

Komponen server socket harus diaktifkan dulu jika kita menggukan delphi 7. cara mengaktikannya klik compnent-install packet. pilih tombol add dan cari lah file bernama dclsockets70.bpl yang terletak didirektori delphi/bin

Setelah socket ini aktif, masukan socket yang berada pada tab internet-serversocket.

beri nomor dan aktifkan. selain itu masukan 3 listbox dan dua label yang captionnya diganti pesan dan klien. aturlah tampilannya seperti tampak pada gambar

Buka kode program tambahkan perintah berikut ini pada kelompok private

procedure REFRESHKLIEN(var Msg : TMessage);message WM_REFRESHKLIEN;

Tambahkan perintah dibawah ini dan letakan diatas type

const WM_REFRESHKLIEN= WM_USER +100;

klik serversocket dan lihat object inpector tab event, klik 2 kali onclient connect dan tambahkan kode program berikut ini :

listbox3.Items.Add('TERHUBUNG KE : '+socket.RemoteHost+'('+socket.RemoteAddress+')');

PostMessage(Handle,WM_REFRESHKLIEN,0,0);

klik 2 kali onclient disconnect dan tambahkan program ini :

listbox3.Items.Add('TERPUTUS DARI : '+socket.RemoteHost+'('+socket.RemoteAddress+')');

PostMessage(Handle,WM_REFRESHKLIEN,0,0);

klik 2 kali onclient read dan tambahkan program ini :

istbox2.Items.Add(socket.RemoteHost+' : '+socket.ReceiveText);

Buka unit(tempat menulis kode program) dan tambahkan prosedur ini :

procedure TSever.REFRESHKLIEN(var Msg:Tmessage);

var i:integer;

begin

listbox1.Clear;

for i:= 0 to serversocket1.Socket.ActiveConnections-1 do

with

serversocket1.Socket.Connections[i] do

listbox1.Items.Add(remoteaddress+'('+remotehost+')');

end;

Selanjutnya, perancangan form klien. untuk itu dibutuhkan komponen edit, label cekbox,memo button. aturlah komponen itu seperti pada gambar disamping

dan tambahkan kode program check box :

if not clientsocket1.Active then

clientsocket1.Address:=edit1.Text;

clientsocket1.Active:=checkbox1.Checked;

Serta tambahkan kode program pada button :

clientsocket1.Socket.SendText(memo1.Text);