Komunikasi Serial Menggunkan Delphi

Untuk komunikasi serial saya menggunakan HandPhone T230 untuk mencoba akses AT Command dengan program, pada delphi yang perlu di persiapkan adalah komponen, dalam program ini saya menggunakan komponen serialNG bisa di download disini. Untuk cara instalasinya melalui menu component kemudian install komponen lalu install mudah kok.

Kemudian kalo anda menggunakan HP sebagai komunikasi serial maka coba di hyperterminal buat koneksi lalu jalankan perintah AT Command :
ATZ
jika koneksi sukses maka anda akan dapat kembalian OK jika tidak ada kembalian maka coba dicek lagi kabel atau sambungan dari peralatan anda ke komputer.

Procedure Untuk Baca data dari Serial :

procedure TForm1.SerialPortNG1RxClusterEvent(Sender: TObject);
var
i,j,k,l : integer;

begin
if SerialPortNG1.NextClusterSize >= 0 then
begin
if SerialPortNG1.NextClusterCCError = 0 then
 begin
   Edit3.Text := '-';
   end
else
 Edit3.Text := '-';
 Edit3.Text := SerialPortNG1.ReadNextClusterAsString;
end;
end;

Procedure Untuk Tulis data dari Serial :

procedure TForm1.kirimKoneksi (SendStr:String);
begin
setKoneksi(eCP.Text,StrToInt(eBR.Text));
//setKoneksi('COM1',9600);
SendStr := SendStr+#$0d;
SerialPortNG1.SendString(SendStr);
end;

Procedure Untuk Set Serial nya :

procedure TForm1.setKoneksi (commPort:ShortString;bautrate : Cardinal);
begin
SerialPortNG1.Active := True;
SerialPortNG1.CommPort := commPort;
SerialPortNG1.BaudRate := bautrate;
end;

Procedur untuk Keluar dari Program :

procedure TForm1.FormDestroy(Sender: TObject);
begin
SerialPortNG1.Active := False;
end;

Program Exe nya bisa di doanlaod disini :