Saat menggunakan menu drop down TransMenus, ada beberapa sub menu yang tidak terlihat karena tertutupi oleh banner flash yang posisinya persis dibawah menu itu dan ini cukup mengganggu. Usut punya usut ternyata perlu ditambahkan opsi ‘wmode’=>’opaque’ di paramater flashnya. Dengan plugin sfSwfObjectHelperPlugin di Symfony settingnya menjadi
use_helper( 'Flash' );
<?php $id = 'banner_atas'; ?>
<?php
$params = array( 'id' => 'flash_movie',
'movie' => 'conto_iklan',
'size' => '417x50',
'version' => '8',
'background_color' => '',
'params' => array( 'allowScriptAccess' => 'sameDomain','quality' => 'high','wmode'=>'opaque' ),
'create_proxy' => true );
?>
<div style="position:relative; top:4px; left:10px;">
<?php echo flash_object( $id, $params ); ?>
</div>


dan sub menu drop down akan muncul berada diatas tampilan flash

Berikut adalah setting virtual host di apache yang biasa saya gunakan bersama Symfony

NameVirtualHost 127.0.0.1

<VirtualHost 127.0.0.1:80>
DocumentRoot "C:\AppServ\www"
ServerName localhost
</VirtualHost>

<VirtualHost 127.0.0.1:80>
DocumentRoot "C:\AppServ\www\cms3\web"
ServerName www.cms3.com
<Directory "C:\AppServ\www\cms3\web">
Options Indexes FollowSymLinks Includes
AllowOverride All
Order deny,allow
Deny from all
Allow from 127.0.0.1
DirectoryIndex index.php
</Directory>

DirectoryIndex index.php
Alias /sf C:\AppServ\php5\PEAR\data\symfony\web\sf

<Directory "C:\AppServ\php5\PEAR\data\symfony\web\sf">
AllowOverride All
Allow from All
</Directory>

</VirtualHost>

<VirtualHost 127.0.0.1:80>
DocumentRoot "C:\AppServ\www\cmsku\web"
ServerName www.cmsku.com
<Directory "C:\AppServ\www\cmsku\web">
Options Indexes FollowSymLinks Includes
AllowOverride All
Order deny,allow
Deny from all
Allow from 127.0.0.1
DirectoryIndex index.php
</Directory>

DirectoryIndex index.php
Alias /sf C:\AppServ\php5\PEAR\data\symfony\web\sf

<Directory "C:\AppServ\php5\PEAR\data\symfony\web\sf">
AllowOverride All
Allow from All
</Directory>

</VirtualHost>

Juga isi dari file hosts di lingkungan windows (C:\WINDOWS\system32\drivers\etc\hosts)

127.0.0.1 localhost
127.0.0.1 www.cms3.com
127.0.0.1 www.cmsku.com


802.11a, b atau g, secara singkat yang membedakan ketiganya adalah :
802.11a :

• Memakai frekuensi 5 GHz

• Kecepatan sampai dengan 54 Mbps

• Jangkauan mencapai 75 feet (22 meter)

802.11b :

• Memakai frekuensi 2.4 GHz

• Kecepatan sampai dengan 11 Mbps

• Jangkauan mencapai 150 feet (45 meter)

802.11g :

• Memakai frekuensi 2.4 GHz

• Kecepatan sampai dengan 54 Mbps

• Jangkauan mencapai 100 feet (30 meter) atau 150 feet (45 meter) dengan mengurangi kecepatannya

• Kompatibel dengan 802.11b pada kecepatan 11 Mbps

Kelebihan query di stored procedure dibandingkan dengan query yang diletakkan di aplikasi tier adalah

• membuat proses query SQL menjadi terpusat di data tier

• mengurangi kepadatan trafik jaringan untuk proses query, terutama bila query itu dilakukan berulang-ulang

• menjadikan kode query menjadi bersifat reusability atau bisa dipakai ulang untuk proses yang lain tanpa membuat query yang sama lagi

• dapat melakukan perubahan di data tier tanpa mengubah kode di sisi aplikasi tier

• memiliki stabilitas waktu respon untuk tiap query-nya

Di Borland Delphi, stored procedure digunakan dengan perantara TADOStoredProc dengan database yang dipakai sesuai dengan property ‘ConnectionString’ yang diset pada komponen ini dan kemudian nama stored procedure (property ‘ProcedureName’) serta parameter-parameternya (property ‘Parameters’) dapat langsung diakses dari sisi client

Berikut adalah contoh stored procedure dengan T-SQL di MSSQL Server untuk proses insert, update dan delete data table :

create procedure retrieveData
@select varchar(1),
@id int = null,
@cat_id int = null,
@dateposted datetime = null,
@subject varchar(100) = null,
@body varchar(max) = null
as
if @select='I'
begin
insert entries (cat_id,dateposted,subject,body)
values (@cat_id,getdate(),@subject,@body)
if @@ERROR 0 goto err_handle
return 0
end

if @select='U'
begin
update entries set cat_id=@cat_id, dateposted=@dateposted, subject=@subject, body=@body
where id=@id
if @@ERROR 0 goto err_handle
return 0
end

if @select='D'
begin
delete entries where id=@id
if @@ERROR 0 goto err_handle
return 0
end

err_handle:
begin
rollback transaction
return -101
end

go

Contoh berikut untuk meretrieve data penjualan dengan melakukan penyaringan data (fungsi ‘case’) pada query-nya

create procedure Retrieve_Penjualan
as
select substring (judul, 1, 20) as Judul,
case jenis
when 'Pemrograman Komputer' then ' Buku Komputer'
when 'Jaringan Komputer' then ' Buku Komputer'
when 'Masakan Modern' then ' Buku Memasak'
else ' Buku Lain'
end as Type,
'Penjualan : ' +
case
when penjualan < 10 then 'kurang'
when penjualan between 10 and 20 then 'sedang'
when penjualan > 20 then 'banyak'
else 'Unknown'
end as Penjualan
from buku
go

Pemrograman high-level dibagi menjadi dua, interpreted dan compiled. Interpreted diubah ke bahasa mesin dengan bantuan program lain, yaitu interpreter. Interpreter mengubah setiap statement program ke bahasa mesin dan langsung mengeksekusinya sebelum statement selanjutnya di proses. Compiled diubah ke bahasa mesin oleh compiler. Compiler mengubah semua statement program ke bahasa mesin dahulu sebelum dieksekusi, hasil proses compiler ini biasa disebut sebagai executable
Interpreted harus selalu diubah ke bahasa mesin dahulu untuk setiap pemakaiannya (running), Compiled diubah ke bahasa mesin hanya sekali dan dapat digunakan terus tanpa mengubah ke bahasa mesin lagi.

Dengan thread, aplikasi dapat mengerjakan satu atau lebih perintah secara bersama, dalam artian perintah satu tidak menunggu selesainya perintah sebelumnya bila akan dikerjakan. Variabel-variabel dalam tiap perintah dapat independen dan tidak saling mengganggu untuk tiap-tiap perintah yang ada. Sistem operasi yang mendukung multitasking mengijinkan perintah-perintah dikerjakan secara bersamaan dengan thread.

Thread dipakai bila:

• diperlukan proses-proses yang independent, misalnya : hardware pooling, animasi obyek
• aplikasi dengan multiprosessor
• diperlukan proses ‘idle’ dalam waktu kerjanya
• ingin belajar thread tentunya..

Contoh sederhana ini menggunakan tiga thread yang masing-masing melakukan counter mandiri dari 0 ke 100000

Inisialisasi thread :
type
TThreadSatu = class(TThread)
private
VarLokal: Integer;
protected
public
constructor CreateIt;
procedure Execute; override;
destructor Destroy; override;
end;

TThreadDua = class(TThread)
private
VarLokal: Integer;
protected
public
constructor CreateIt;
procedure Execute; override;
destructor Destroy; override;
end;

TThreadTiga = class(TThread)
private
VarLokal: Integer;
protected
public
constructor CreateIt;
procedure Execute; override;
destructor Destroy; override;
end;

TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
procedure pesan1(Sender:TObject);
procedure pesan2(Sender:TObject);
procedure pesan3(Sender:TObject);
private
CriticalSection: TCriticalSection;
tred1:TThreadSatu;
tred2:TThreadDua;
tred3:TThreadTiga;
public

end;

Jangan lupa menjabarkan constructor, destructor dan executenya :
constructor TThreadSatu.CreateIt;
begin
inherited Create(true); // thread di suspend dulu
FreeOnTerminate:=true;
Form1.Label3.Caption:='';
Suspended:=false; // suspend dilepas, thread dieksekusi
end;

constructor TThreadDua.CreateIt;
begin
inherited Create(true); // thread di suspend dulu
FreeOnTerminate:=true;
Form1.Label4.Caption:='';
Suspended:=false; // suspend dilepas, thread dieksekusi
end;

constructor TThreadTiga.CreateIt;
begin
inherited Create(true); // thread di suspend dulu
FreeOnTerminate:=true;
Form1.Label6.Caption:='';
Suspended:=false; // suspend dilepas, thread dieksekusi
end;

procedure TThreadSatu.Execute;
begin
repeat
Form1.CriticalSection.Acquire;
try
Application.ProcessMessages;
Inc(VarLokal);
Form1.Label1.Caption:=inttostr(VarLokal);
finally
Form1.CriticalSection.Release;
end;
until VarLokal=100000;
end;

procedure TThreadDua.Execute;
begin
repeat
Form1.CriticalSection.Acquire;
try
Application.ProcessMessages;
Inc(VarLokal);
Form1.Label2.Caption:=inttostr(VarLokal);
finally
Form1.CriticalSection.Release;
end;
until VarLokal=100000;
end;

procedure TThreadTiga.Execute;
begin
repeat
Form1.CriticalSection.Acquire;
try
Application.ProcessMessages;
Inc(VarLokal);
Form1.Label5.Caption:=inttostr(VarLokal);
finally
Form1.CriticalSection.Release;
end;
until VarLokal=100000;
end;

destructor TThreadSatu.Destroy;
begin
inherited Destroy;
end;

destructor TThreadDua.Destroy;
begin
inherited Destroy;
end;

destructor TThreadTiga.Destroy;
begin
inherited Destroy;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
CriticalSection:=TCriticalSection.Create; // Critical Section dibuat
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
CriticalSection.Free; // Critical Section dilepas
end;

procedure TForm1.pesan1(Sender:TObject);
begin
Label3.Caption:='Thread satu selesai';
end;

procedure TForm1.pesan2(Sender:TObject);
begin
Label4.Caption:='Thread dua selesai';
end;

procedure TForm1.pesan3(Sender:TObject);
begin
Label6.Caption:='Thread tiga selesai';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
tred1:=TThreadSatu.CreateIt;
tred1.OnTerminate:=pesan1; // tred1 utk akhir operasinya berada di proses pesan1
tred2:=TThreadDua.CreateIt;
tred2.OnTerminate:=pesan2; // tred2 utk akhir operasinya berada di proses pesan2
tred3:=TThreadTiga.CreateIt;
tred3.OnTerminate:=pesan3; // tred3 utk akhir operasinya berada di proses pesan3
end;

CriticalSection dipakai bila thread mengakses variabel global, kelas TCriticalSection memerlukan “SyncObjs” di deklarasi global uses

Sebagai contoh, server diidentifikasikan oleh 4 byte IP address (misal 10.231.14.124) dengan port yang disediakan untuk melayani client (misal port 1234).
Ketika client (misal 10.231.12.12) melakukan koneksi ke server itu melalui client socket 983, server membuat socket baru yang unik (server client socket) yang meng-handle koneksi client itu misalnya 755. Dan koneksi yang ada adalah server 10.231.14.124 (755) – client 10.231.12.12 (983),

Bila ada client melakukan koneksi ke server port 1234 lagi (misal client 10.231.12.14 dengan socket 678) maka hal yang sama terjadi lagi, koneksi bertambah menjadi server 10.231.14.124 (755) – client 10.231.12.12 (983), server 10.231.14.124 (757) – client 10.231.12.14 (678), Bila ada client melakukan koneksi lagi menjadi
server 10.231.14.124 (755) – client 10.231.12.12 (983),
server 10.231.14.124 (757) – client 10.231.12.14 (678),
server 10.231.14.124 (761) – client 10.231.12.17 (378)

Yang dilakukan server dan client dalam proses ini adalah:
Untuk Server:

• Socket membuat record dan menunjuk handle pada record ini

• Melakukan proses bind yang menyiapkan alamat dari server untuk menerima permintaan data

• Listen, siap menerima client

• Ketika client datang, menerima dan membuat socket untuk client

• Menerima dan mengirim data

• Menutup (close) koneksi client

Untuk Client:

• Socket membuat record dan menunjuk handle pada record ini

• Melakukan koneksi ke server dan menunggu hingga server membuat socket baru

• Menerima dan mengirim data

• Menutup (close) koneksi client

Contoh berikut implementasi menggunakan TServerSocket untuk server dan TClientSocket untuk client. Prosesnya adalah, client meminta data tertentu dan server merespond dengan data string dengan panjang data 325 char.

Server :
unit Servunit;

interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs, ScktComp, StdCtrls, ComCtrls, Math;
type
TForm1 = class(TForm)
ServSock: TServerSocket;
Memo1: TMemo;
btnBroadcast: TButton;
CbEcho: TCheckBox;
Edit1: TEdit;
StaticText1: TStaticText;
Edit2: TEdit;
RichEdit1: TRichEdit;
StaticText2: TStaticText;
Edit3: TEdit;
procedure ServSockClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure ServSockClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure ServSockClientRead(Sender: TObject;
Socket: TCustomWinSocket);
procedure ServSockListen(Sender: TObject; Socket:
TCustomWinSocket);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure btnBroadcastClick(Sender: TObject);
procedure ServSockClientError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
procedure fillMemo(data:string);
private
tekskirim:string;
{ Private declarations }
public
{ Public declarations }
end;

procedure SockRead( Socket: TCustomWinSocket;
var pMem: Pointer;
var SizeRead: integer);
var
Form1: TForm1;

Implementation

{$R *.DFM}

procedure SockRead( Socket : TCustomWinSocket;
var pMem : Pointer;
var SizeRead: integer);
var
Stream : TMemoryStream;
BlockSize : integer;
begin
if Socket.Receivelength > 0 then
begin
BlockSize := Socket.ReceiveLength;
Stream := TMemoryStream.Create;
pMem := AllocMem( BlockSize );
while BlockSize > 0 do
begin
Socket.ReceiveBuf( pMem^, BlockSize );
Stream.Write( pMem^, BlockSize );
BlockSize := Socket.ReceiveLength;
if BlockSize > 0 then
ReAllocMem(pMem, BlockSize)
end;
Stream.Position := 0;
ReAllocMem ( pMem, Stream.Size );
Stream.Read( pMem^, Stream.Size );
SizeRead := Stream.Size;
Stream.Free;
end
else begin
pMem := nil;
SizeRead := 0;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ServSock.Port:=strtoint(Edit3.Text);
ServSock.Active := true;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
ServSock.Close;
end;

procedure TForm1.ServSockClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
with Socket do
Memo1.Lines.Add('connected with: <' + RemoteHost+'>
['+RemoteAddress+']');
Edit2.Text := IntToStr( ServSock.Socket.ActiveConnections );
end;

procedure TForm1.ServSockClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
with Socket do
memo1.lines.add('disconnect: <' + RemoteHost+'>
['+RemoteAddress+']');
Edit2.Text := IntToStr( ServSock.Socket.ActiveConnections );
end;

procedure TForm1.fillMemo(data:string);
var l_answer:string;
begin
if (pos('r1',data)<>0) then
l_answer:='m_number:1'+'*';
if (pos('r2',data)<>0) then
l_answer:='m_number:2'+'*';
if (pos('r3',data)<>0) then
l_answer:='m_number:3'+'*';
l_answer:=l_answer+'vart:'+
inttostr(randomrange(1000,10000))+'*';
l_answer:=l_answer+'batch_1:'+
inttostr(randomrange(1000000,9000000))+'*';
l_answer:=l_answer+'batch_2:'+
inttostr(randomrange(1000000,9000000))+'*';
l_answer:=l_answer+'batch_3:'+
inttostr(randomrange(1000000,9000000))+'*';
l_answer:=l_answer+'c_tote_1:'+
inttostr(randomrange(1000000,9000000))+'*';
l_answer:=l_answer+'c_tote_2:'+
inttostr(randomrange(1000000,9000000))+'*';
l_answer:=l_answer+'c_tote_3:'+
inttostr(randomrange(1000000,9000000))+'*';
l_answer:=l_answer+'l_tote_1:'+
inttostr(randomrange(1000000,9000000))+'*';
l_answer:=l_answer+'l_tote_2:'+
inttostr(randomrange(1000000,9000000))+'*';
l_answer:=l_answer+'l_tote_3:'+
inttostr(randomrange(1000000,9000000))+'*';
l_answer:=l_answer+'preset:'+
inttostr(randomrange(1000000,9000000))+'*';
l_answer:=l_answer+'comp:'+
inttostr(randomrange(1,9))+'*';
l_answer:=l_answer+'batch_no:'+
inttostr(randomrange(1000000,9000000))+'*';
l_answer:=l_answer+'n_flo:'+
inttostr(randomrange(1000000,9000000))+'*';
l_answer:=l_answer+'a_flo:'+
inttostr(randomrange(1000000,9000000))+'*';
l_answer:=l_answer+'temp:'+
inttostr(randomrange(10,90))+'*';
l_answer:=l_answer+'dens:'+
inttostr(randomrange(1000000,9000000))+'*';
if data='r1' then
begin
l_answer:=l_answer+'s_off:'+'f'+'*';
l_answer:=l_answer+'s_id:'+'f'+'*';
l_answer:=l_answer+'s_del1:'+'f'+'*';
l_answer:=l_answer+'s_del2:'+'f'+'*';
l_answer:=l_answer+'s_del3:'+'f'+'*';
l_answer:=l_answer+'s_stand:'+'t'+'*';
l_answer:=l_answer+'e_tx1:'+'t'+'*';
l_answer:=l_answer+'e_tx2:'+'t'+'*';
l_answer:=l_answer+'e_param:'+'t'+'*';
l_answer:=l_answer+'e_pres:'+'t'+'*';
l_answer:=l_answer+'e_tx:'+'t'+'*';
l_answer:=l_answer+'e_temp:'+'t'+'*';
l_answer:=l_answer+'e_syst:'+'t'+'*';
l_answer:=l_answer+'e_low2:'+'t'+'*';
l_answer:=l_answer+'c_type:'+
inttostr(randomrange(10,90))+'*';
l_answer:=l_answer+'c_data:'+
inttostr(randomrange(10,90))+'*';
l_answer:=l_answer+'ID:'+'123'+'*';
end;
if data='r2' then
begin
l_answer:=l_answer+'s_off:'+'t'+'*';
l_answer:=l_answer+'s_id:'+'t'+'*';
l_answer:=l_answer+'s_del1:'+'t'+'*';
l_answer:=l_answer+'s_del2:'+'t'+'*';
l_answer:=l_answer+'s_del3:'+'t'+'*';
l_answer:=l_answer+'s_stand:'+'f'+'*';
l_answer:=l_answer+'e_tx1:'+'f'+'*';
l_answer:=l_answer+'e_tx2:'+'f'+'*';
l_answer:=l_answer+'e_param:'+'f'+'*';
l_answer:=l_answer+'e_pres:'+'f'+'*';
l_answer:=l_answer+'e_tx:'+'t'+'*';
l_answer:=l_answer+'e_temp:'+'t'+'*';
l_answer:=l_answer+'e_sys:'+'t'+'*';
l_answer:=l_answer+'e_low2:'+'t'+'*';
l_answer:=l_answer+'c_type:'+
inttostr(randomrange(10,90))+'*';
l_answer:=l_answer+'c_data:'+
inttostr(randomrange(10,90))+'*';
l_answer:=l_answer+'id:'+'456'+'*';
end;
if data='r3' then
begin
l_answer:=l_answer+'s_off:'+'t'+'*';
l_answer:=l_answer+'s_id:'+'t'+'*';
l_answer:=l_answer+'s_del1:'+'t'+'*';
l_answer:=l_answer+'s_del2:'+'t'+'*';
l_answer:=l_answer+'s_del3:'+'t'+'*';
l_answer:=l_answer+'s_stand:'+'t'+'*';
l_answer:=l_answer+'e_tx1:'+'t'+'*';
l_answer:=l_answer+'e_tx2:'+'t'+'*';
l_answer:=l_answer+'e_param:'+'t'+'*';
l_answer:=l_answer+'e_pres:'+'t'+'*';
l_answer:=l_answer+'e_tx:'+'f'+'*';
l_answer:=l_answer+'e_temp:'+'f'+'*';
l_answer:=l_answer+'e_sys:'+'f'+'*';
l_answer:=l_answer+'e_low2:'+'f'+'*';
l_answer:=l_answer+'c_type:'+
inttostr(randomrange(10,90))+'*';
l_answer:=l_answer+'c_data:'+
inttostr(randomrange(10,90))+'*';
l_answer:=l_answer+'ID:'+'789'+'*';
end;
tekskirim:=l_answer;
end;

procedure TForm1.ServSockClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
sBuf : string;
pData : pointer;
Size : integer;
begin
SockRead( Socket, pData, Size );
if Size > 0 then
begin
SetLength( sBuf, Size );
Move( pData^, sBuf[1], Size);
memo1.lines.add('received from ' +
Socket.remotehost+'('+inttostr(Socket.RemotePort)+
'-'+inttostr(Socket.SocketHandle)+')'+':'+sBuf);
FreeMem(pData);
RichEdit1.Lines.Clear;
if (pos('r1',sBuf)<>0) or (pos('r2',sBuf)<>0) or
(pos('r3',sBuf)<>0) then
begin
fillMemo(sBuf);
RichEdit1.Lines.Add(tekskirim+' **'+
inttostr(length(tekskirim))+' char');
end else
RichEdit1.Lines.Add('Echo from Server');
Socket.SendText(tekskirim);
end;
end;

procedure TForm1.ServSockListen(Sender: TObject; Socket: TCustomWinSocket);
begin
with Socket do
Memo1.Lines.Add( LocalHost + ' [' +LocalAddress +
'] listening on port ' + IntToStr(LocalPort) + '...');
end;

procedure TForm1.btnBroadcastClick(Sender: TObject);
var
i : integer;
begin
if ServSock.Socket.ActiveConnections > 0 then
for i:=0 to pred(ServSock.Socket.ActiveConnections) do
ServSock.Socket.Connections[i].SendText( Edit1.Text );
end;

procedure TForm1.ServSockClientError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
ErrorCode := 0;
memo1.lines.add('IP-error:'+IntToStr(integer(ErrorEvent)));
end;

end.

// Author : Dirk Claessens

Client :
unit ClientUnit;

interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs,ScktComp, StdCtrls;
type
TForm1 = class(TForm)
ClSock: TClientSocket;
Memo1: TMemo;
btnconnect: TButton;
btnDiscon: TButton;
Button1: TButton;
Edit1: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Edit2: TEdit;
Button2: TButton;
procedure btnconnectClick(Sender: TObject);
procedure ClSockConnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure btnDisconClick(Sender: TObject);
procedure ClSockDisconnect(Sender: TObject; Socket:
TCustomWinSocket);
procedure Button1Click(Sender: TObject);
procedure ClSockRead(Sender: TObject;
Socket: TCustomWinSocket);
procedure ClSockError(Sender: TObject;
Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent; var ErrorCode: Integer);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
procedure SockRead( Socket: TCustomWinSocket;
var pMem: Pointer;
var SizeRead: integer);
var
Form1: TForm1;

implementation
{$R *.DFM}
procedure SockRead( Socket : TCustomWinSocket;
var pMem : Pointer;
var SizeRead: integer);
var
Stream : TMemoryStream;
BlockSize : integer;
begin
if Socket.Receivelength > 0 then
begin
BlockSize := Socket.ReceiveLength;
Stream := TMemoryStream.Create;
pMem := AllocMem( BlockSize );
// loop until all read
while BlockSize > 0 do
begin
Socket.ReceiveBuf( pMem^, BlockSize );
Stream.Write( pMem^, BlockSize );
BlockSize := Socket.ReceiveLength;
if BlockSize > 0 then
ReAllocMem(pMem, BlockSize)
end;
Stream.Position := 0;
ReAllocMem ( pMem, Stream.Size );
Stream.Read( pMem^, Stream.Size );
SizeRead := Stream.Size;
Stream.Free;
end
else begin
pMem := nil;
SizeRead := 0;
end;
end;

procedure TForm1.btnconnectClick(Sender: TObject);
begin
clSock.Host := edit1.Text;
ClSock.Port:= StrToInt(Edit2.Text);
clSock.Active := true;
end;

procedure TForm1.ClSockConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
with Socket do
Memo1.Lines.Add('connected to <' + RemoteHost+'>
['+RemoteAddress+']');
button1.enabled := true;
end;

procedure TForm1.btnDisconClick(Sender: TObject);
begin
ClSock.Close;
button1.enabled := false;
end;

procedure TForm1.ClSockDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
with Socket do
Memo1.Lines.Add('disconnected from : <' + RemoteHost+'>
['+RemoteAddress+']');
button1.enabled := false;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if ClSock.Active then
ClSock.Socket.SendText( edit3.text + #13);
end;

procedure TForm1.ClSockRead(Sender: TObject;
Socket: TCustomWinSocket);
var
sBuf : string;
pData : pointer;
Size : integer;
begin
SockRead( Socket, pData, Size );
if Size > 0 then
begin
SetLength( sBuf, Size );
Move( pData^, sBuf[1], Size);
memo1.lines.add(sBuf+' *** Size:'+
inttostr(length(sBuf))+' Char');
FreeMem(pData);
end;
end;

procedure TForm1.ClSockError(Sender: TObject;
Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
ErrorCode := 0;
memo1.lines.add( 'IP-error :' +
IntToStr(integer(ErrorEvent)));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
memo1.Lines.Clear;
end;

end.

// Author : D. Claessens

Kadangkala diperlukan dua buah form, misalnya form1 dan form2 berjalan beriringan. Maksudnya beriringan yaitu bila form1 sebagai form utama dipindah/didrag maka form2 juga mengikuti pergerakan form1 itu kemanapun posisi pindahnya ya.. form2 yang setia sama form1 ceritanya.
Prosesnya pada message WM_MOVE yang muncul bila form1 digerakkan dan fungsi windows API MoveWindow untuk menggerakkan form2 ke posisi form1 yang baru :
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure FormShow(Sender: TObject);
private
{ Private declarations }
{ meng-override message WM_MOVE}
procedure WMMove(var Msg: TWMMove); message WM_MOVE;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
form2.Show;
end;

{procedure berikut akan dijalankan bila form1/window utama digerakkan/moved}
procedure TForm1.WMMove(var Msg: TWMMove);
begin
{if the toolbar window exists...}
if Form2<>nil then
{...move the toolbar window alongside the main window.}
MoveWindow(Form2.Handle, Form1.Left+Form1.Width+5, Form1.Top, Form2.Width,
Form2.Height, true);
end;

end.

• Phase 1. Analyze the requirement : Identify what your program is required to do

• Phase 2. Design the Program : Determine how the program will meet the requirements

• Phase 3. Implement the design : Write the code

• Phase 4. Test your program : Make sure it works for all legal entries

Akhirnya datang juga kiriman CD NetBeans IDE 5.5.1, CD ini berisi antara lain

• NetBeans IDE 5.5.1 Multilingual (Microsoft Windows, Linux, Solaris(TM) SPARC, Solaris(TM) x86, Mac OS X)

• NetBeans Mobility Pack for NetBeans IDE 5.5.1 Multilingual (Microsoft Windows, Linux)

• NetBeans Profiler for NetBeans IDE 5.5.1 Multilingual (Microsoft Windows, Linux, Solaris(TM) SPARC, Solaris(TM) x86, Mac OS X)

• Sun Java System Application Server Platform Edition 9.0 Update 1 (Microsoft Windows, Linux, Solaris(TM) SPARC, Solaris(TM) x86, Mac OS X)

• NetBeans 5.5.1 Documentation

Thank’s Sun..