DELPHI SOURCE CODE: July 2009

Friday, July 31, 2009

Kirim SMS dengan Delphi dan TOxygen

TOxygen

Fitur :

Supports Nokia 3210, 3310, 3330, 3390, 3350, 3410, 3510, 5110, 5130, 5190, 5210, 6110, 6130, 6150, 6190, 6210, 6250, 6310, 6310i, 6510, 7110, 7190, 8210, 8290, 8250, 8310, 8390, 8850, 8855, 8890, 8910 phones.
Bekerja dengan kabel data atau InfraRed
Mendeteksi Model HP secara otomatis
Bisa kirim SMS ke SMS Center apa aja
Bisa kirim dan terima SMS teks atapun gambar
Bisa kirim ringtone, logo ataupun flash message
Bisa hapus pesan dan report nya otomatis
Bisa mendapatkan parameter HP seperti IMEI, model, SMSCenter phone number, Hardware/Software revision dan tanggaknya, Battery dan Signal level.
Componen di Borland Delphi 3,4,5,6,7 dan Borland C++ Builder 5.

Bayangkan, dengan kemampuan nya seperti itu, kita bisa buat aplikasi apa saja via SMS. Pooling, survey, undian dll. Bisa buat skripsi, tugas akhir, tugas de el el.

download componennnya disini

Custom MessageDlg

Artikel ini merupakan lanjutan dari Meng-Indonesia-kan MessageDlg yang pernah saya publikasikan beberapa bulan yang lalu (lebih tepatnya tahun yang lalu). Sebenarnya saya ingin mengangkat tema lain yang menurut saya lebih menarik, namun berhubung ada diskusi di forum Delphi Indonesia (Delphi-ID) mengenai membuat MessageDlg sesuai dengan keinginan secara dinamis, maka saya putuskan untuk menulisnya terlebih dahulu.

Ada anggapan bahwa artikel tersebut hanya menitik beratkan pada lokalisasi teks MessageDlg, sebenarnya lebih dari itu. Jika dicermati, saya memaparkan trik bagaimana mengubah judul dan tombol yang digunakan MessageDlg pada saat aplikasi berjalan (run-time). Kemudian trik tersebut saya kuatkan dengan demo agar lebih jelas dipahami. Oiya sekedar untuk diketahui trik tersebut berlaku global, untuk semua MessageDlg yang dipanggil oleh aplikasi yang menggunakan, tidak peduli berasal dari mana form atau unit pemanggilnya sampai aplikasi ditutup.

Ada anggapan bahwa trik tersebut bersifat sekali pakai saja, tidak dinamis. Nah inilah yang perlu saya luruskan. Tentu saja trik tersebut dapat dipanggil dan digunakan berkali – kali untuk menampilkan MessageDlg dengan judul dan teks tombol yang berbeda – beda pula.

Lalu bagaimanakah cara agar dapat menampilkan MessageDlg sesuai dengan konteks teks judul dan tombol yang kita inginkan?

Tentu saja cukup mudah!

Cukup panggil method ReplaceResourceString dengan parameter judul, tombol mana yang ingin diubah teks-nya.

Misalnya:

ReplaceResourceString(@SMsgDlgConfirm, 'Konfirmasi Penyimpanan');
ReplaceResourceString(@SMsgDlgYes, 'Simpan Perubahan');
ReplaceResourceString(@SMsgDlgNo, 'Jangan Simpan');

Ok, cukup, saya rasa Anda sudah mendapatkan inti-nya. Jika masih belum, coba simak kode sumber demo berikut, bagi yang belum paham, baca juga penjelasan yang saya tambahkan sebagai komentar:

{-----------------------------------------------------------------------------
The contents of this file are subject to the Mozilla Public License
Version 1.1 (the "License"); you may not use this file except in compliance
with the License. You may obtain a copy of the License at
http://www.mozilla.org/MPL/MPL-1.1.html

Software distributed under the License is distributed on an "AS IS" basis,
WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for
the specific language governing rights and limitations under the License.

The Original Code is: CustomMessageDlgDemoUnit.pas, released on 2008-08-05

The Initial Developer of the Original Code is Bayu Prasetio
Portions created by Bayu Prasetio are Copyright (C) 2007, 2008 Bayu Prasetio.
All Rights Reserved.
-----------------------------------------------------------------------------}

{-----------------------------------------------------------------------------
 Perhatian :
   Apa yang tertera pada kode sumber ini sebaiknya dipahami terlebih dahulu,
   jangan asal 'copy-paste' dan melakukan protes jika tidak sesuai dengan
   keinginan.

   Yang perlu saya tekankan adalah, bahwa materi yang terdapat dalam kode
   sumber ini sekedar demo, 'proof-of-concept' untuk mendukung eksplorasi
   lanjutan dari 'Meng-Indonesia-kan MessageDlg' sampai ke batas yang Anda
   tentukan sendiri berdasarkan imajinasi dan kreativitas Anda. Ingat, demo
   ini belum optimal dan terbaik. Dan tentu saja harapan saya adalah Anda
   dapat mengeksplorasi dan mengembangkan jauh lebih baik dari yang ada di
   demo ini.

   Kelemahan mendasar adalah:
   - Ukuran tombol hanya berubah pada saat 'ReplaceResourceString' pertama,
     pemanggilan berikutnya tidak mengubah ukuran tombol
-----------------------------------------------------------------------------}

unit CustomMessageDlgDemoUnit;

interface

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

type
 TfrmCustomMessageDlg = class(TForm)
   btnStandard: TButton;
   btnIndonesian: TButton;
   btnContextSave: TButton;
   mmoLegend: TMemo;
   stbMain: TStatusBar;
   btnContextPrint: TButton;
   procedure btnStandardClick(Sender: TObject);
   procedure btnIndonesianClick(Sender: TObject);
   procedure btnContextSaveClick(Sender: TObject);
   procedure btnContextPrintClick(Sender: TObject);
 private
   { Private declarations }
   procedure ReplaceResourceString(RStringRec: PResStringRec; AString: PChar);
   procedure SetCustomMessageStandard;
   procedure SetCustomMessageIndonesian;
   procedure SetCustomMessageContextSave;
   procedure SetCustomMessageContextPrint;
 public
   { Public declarations }
 end;

var
 frmCustomMessageDlg: TfrmCustomMessageDlg;

implementation

{$R *.dfm}

uses
 Consts;

const
 // konstanta default untuk MessageDlg
 _SMsgDlgWarning = 'Warning';
 _SMsgDlgError = 'Error';
 _SMsgDlgInformation = 'Information';
 _SMsgDlgConfirm = 'Confirm';
 _SMsgDlgYes = '&Yes';
 _SMsgDlgNo = '&No';
 _SMsgDlgOK = 'OK';
 _SMsgDlgCancel = 'Cancel';
 _SMsgDlgHelp = '&Help';
 _SMsgDlgHelpNone = 'No help available';
 _SMsgDlgHelpHelp = 'Help';
 _SMsgDlgAbort = '&Abort';
 _SMsgDlgRetry = '&Retry';
 _SMsgDlgIgnore = '&Ignore';
 _SMsgDlgAll = '&All';
 _SMsgDlgNoToAll = 'N&o to All';
 _SMsgDlgYesToAll = 'Yes to &All';

 // konstanta MessageDlg untuk Bahasa Indonesia
 _SMsgDlgWarningIndonesian = 'Peringatan';
 _SMsgDlgErrorIndonesian = 'Kesalahan';
 _SMsgDlgInformationIndonesian = 'Informasi';
 _SMsgDlgConfirmIndonesian = 'Konfirmasi';
 _SMsgDlgYesIndonesian = '&Ya';
 _SMsgDlgNoIndonesian = '&Tidak';
 _SMsgDlgOKIndonesian = 'OK';
 _SMsgDlgCancelIndonesian = 'Batal';
 _SMsgDlgHelpIndonesian = '&Panduan';
 _SMsgDlgHelpNoneIndonesian = 'Panduan tidak tersedia';
 _SMsgDlgHelpHelpIndonesian = 'Panduan';
 _SMsgDlgAbortIndonesian = '&Batal';
 _SMsgDlgRetryIndonesian = '&Ulang';
 _SMsgDlgIgnoreIndonesian = 'A&cuh';
 _SMsgDlgAllIndonesian = '&Semua';
 _SMsgDlgNoToAllIndonesian = 'T&idak untuk Semua';
 _SMsgDlgYesToAllIndonesian = 'Ya untuk S&emua';

 // konstanta MessageDlg untuk konteks Pencetakan
 // yang digunakan adalah konfirmasi, mbOK, mbYes dan mbNo
 _SMsgDlgWarningContextPrint = 'Peringatan';
 _SMsgDlgErrorContextPrint = 'Kesalahan';
 _SMsgDlgInformationContextPrint = 'Informasi';
 _SMsgDlgConfirmContextPrint = 'Konfirmasi Tujuan Pencetakan';
 _SMsgDlgYesContextPrint = '&Printer';
 _SMsgDlgNoContextPrint = 'Dokumen PD&F Lebar Yak';
 _SMsgDlgOKContextPrint = '&Layar';
 _SMsgDlgCancelContextPrint = 'Batal';
 _SMsgDlgHelpContextPrint = '&Panduan';
 _SMsgDlgHelpNoneContextPrint = 'Panduan tidak tersedia';
 _SMsgDlgHelpHelpContextPrint = 'Panduan';
 _SMsgDlgAbortContextPrint = '&Batal';
 _SMsgDlgRetryContextPrint = '&Ulang';
 _SMsgDlgIgnoreContextPrint = 'A&cuh';
 _SMsgDlgAllContextPrint = '&Semua';
 _SMsgDlgNoToAllContextPrint = 'T&idak untuk Semua';
 _SMsgDlgYesToAllContextPrint = 'Ya untuk S&emua';

 // konstanta MessageDlg untuk konteks Penyimpanan
 // yang digunakan adalah konfirmasi, mbYes dan mbNo
 _SMsgDlgWarningContextSave = 'Peringatan';
 _SMsgDlgErrorContextSave = 'Kesalahan';
 _SMsgDlgInformationContextSave = 'Informasi';
 _SMsgDlgConfirmContextSave = 'Konfirmasi Penyimpanan';
 _SMsgDlgYesContextSave = '&Simpan';
 _SMsgDlgNoContextSave = '&Lanjut Saja';
 _SMsgDlgOKContextSave = 'OK';
 _SMsgDlgCancelContextSave = 'Batal';
 _SMsgDlgHelpContextSave = '&Panduan';
 _SMsgDlgHelpNoneContextSave = 'Panduan tidak tersedia';
 _SMsgDlgHelpHelpContextSave = 'Panduan';
 _SMsgDlgAbortContextSave = '&Batal';
 _SMsgDlgRetryContextSave = '&Ulang';
 _SMsgDlgIgnoreContextSave = 'A&cuh';
 _SMsgDlgAllContextSave = '&Semua';
 _SMsgDlgNoToAllContextSave = 'T&idak untuk Semua';
 _SMsgDlgYesToAllContextSave = 'Ya untuk S&emua';

procedure TfrmCustomMessageDlg.btnContextPrintClick(Sender: TObject);
begin
 SetCustomMessageContextPrint;
end;

procedure TfrmCustomMessageDlg.btnContextSaveClick(Sender: TObject);
begin
 SetCustomMessageContextSave;
end;

procedure TfrmCustomMessageDlg.btnIndonesianClick(Sender: TObject);
begin
 SetCustomMessageIndonesian;
end;

procedure TfrmCustomMessageDlg.btnStandardClick(Sender: TObject);
begin
 SetCustomMessageStandard;
end;

{-- taken from bpCodeReplacement.pas by Bayu Prasetio}
procedure TfrmCustomMessageDlg.ReplaceResourceString(RStringRec: PResStringRec;
 AString: PChar);
var
 OldProtect: Cardinal;
begin
 if RStringRec = nil then Exit;
 if VirtualProtectEx(GetCurrentProcess, RStringRec, SizeOf(RStringRec^), PAGE_EXECUTE_READWRITE, OldProtect) then
 begin
   RStringRec^.Identifier := Integer(AString);
   VirtualProtectEx(GetCurrentProcess, RStringRec, SizeOf(RStringRec^), OldProtect, @OldProtect);
 end;
end;

procedure TfrmCustomMessageDlg.SetCustomMessageContextPrint;
begin
 // sebagai contoh, ubah resource string untuk MessageDlg berdasarkan konteks kejadian
 // dalam hal ini adalah proses pencetakan
 // mbOK disetarakan tayang ke layar (preview)
 // mbYes disetarakan cetak ke printer
 // mbNo disetarakan cetak ke dokumen PDF
 ReplaceResourceString(@SMsgDlgConfirm, _SMsgDlgConfirmContextPrint);
 ReplaceResourceString(@SMsgDlgYes, _SMsgDlgYesContextPrint);
 ReplaceResourceString(@SMsgDlgNo, _SMsgDlgNoContextPrint);
 ReplaceResourceString(@SMsgDlgOK, _SMsgDlgOKContextPrint);

 // gunakan ModalResult dari MessageDlg untuk menentukan tindakan selanjutnya
 // hati - hati, Anda tidak dapat menggunakan ShowMessage sekehendak hati
 // karena ShowMessage sebenarnya MessageDlg dengan parameter MessageType mtInformation
 // dan Buttons [mbOK]. Pahamkan mengapa tombol 'OK' berubah menjadi 'Layar' ?
 case MessageDlg('Tentukan tujuan pencetakan dokumen ?', mtConfirmation, [mbOK, mbYes, mbNo], 0) of
   mrOK : ShowMessage('Dokumen ditayangkan ke layar');
   mrYes : ShowMessage('Dokumen dicetak ke printer');
   mrNo : ShowMessage('Dokumen disimpan dalam format .PDF');
 end;
end;

procedure TfrmCustomMessageDlg.SetCustomMessageContextSave;
begin
 // sebagai contoh, ubah resource string untuk MessageDlg berdasarkan konteks kejadian
 // dalam hal ini adalah proses simpan
 ReplaceResourceString(@SMsgDlgConfirm, _SMsgDlgConfirmContextSave);
 ReplaceResourceString(@SMsgDlgYes, _SMsgDlgYesContextSave);
 ReplaceResourceString(@SMsgDlgNo, _SMsgDlgNoContextSave);
 ReplaceResourceString(@SMsgDlgCancel, _SMsgDlgCancelContextSave);

 MessageDlg('Anda Yakin akan menyimpan dokumen ini ?', mtConfirmation, mbYesNoCancel, 0);
end;

procedure TfrmCustomMessageDlg.SetCustomMessageIndonesian;
begin
 // ubah semua resource string untuk MessageDlg ke bahasa Indonesia
 ReplaceResourceString(@SMsgDlgWarning, _SMsgDlgWarningIndonesian);
 ReplaceResourceString(@SMsgDlgError, _SMsgDlgErrorIndonesian);
 ReplaceResourceString(@SMsgDlgInformation, _SMsgDlgInformationIndonesian);
 ReplaceResourceString(@SMsgDlgConfirm, _SMsgDlgConfirmIndonesian);
 ReplaceResourceString(@SMsgDlgYes, _SMsgDlgYesIndonesian);
 ReplaceResourceString(@SMsgDlgNo, _SMsgDlgNoIndonesian);
 ReplaceResourceString(@SMsgDlgOK, _SMsgDlgOKIndonesian);
 ReplaceResourceString(@SMsgDlgCancel, _SMsgDlgCancelIndonesian);
 ReplaceResourceString(@SMsgDlgHelp, _SMsgDlgHelpIndonesian);
 ReplaceResourceString(@SMsgDlgHelpNone, _SMsgDlgHelpNoneIndonesian);
 ReplaceResourceString(@SMsgDlgHelpHelp, _SMsgDlgHelpHelpIndonesian);
 ReplaceResourceString(@SMsgDlgAbort, _SMsgDlgAbortIndonesian);
 ReplaceResourceString(@SMsgDlgRetry, _SMsgDlgRetryIndonesian);
 ReplaceResourceString(@SMsgDlgIgnore, _SMsgDlgIgnoreIndonesian);
 ReplaceResourceString(@SMsgDlgAll, _SMsgDlgAllIndonesian);
 ReplaceResourceString(@SMsgDlgNoToAll, _SMsgDlgNoToAllIndonesian);
 ReplaceResourceString(@SMsgDlgYesToAll, _SMsgDlgYesToAllIndonesian);

 MessageDlg('Anda Yakin akan menyimpan dokumen ini ?', mtConfirmation, mbYesNoCancel, 0);
end;

procedure TfrmCustomMessageDlg.SetCustomMessageStandard;
begin
 // ubah semua resource string untuk MessageDlg ke default
 ReplaceResourceString(@SMsgDlgWarning, _SMsgDlgWarning);
 ReplaceResourceString(@SMsgDlgError, _SMsgDlgError);
 ReplaceResourceString(@SMsgDlgInformation, _SMsgDlgInformation);
 ReplaceResourceString(@SMsgDlgConfirm, _SMsgDlgConfirm);
 ReplaceResourceString(@SMsgDlgYes, _SMsgDlgYes);
 ReplaceResourceString(@SMsgDlgNo, _SMsgDlgNo);
 ReplaceResourceString(@SMsgDlgOK, _SMsgDlgOK);
 ReplaceResourceString(@SMsgDlgCancel, _SMsgDlgCancel);
 ReplaceResourceString(@SMsgDlgHelp, _SMsgDlgHelp);
 ReplaceResourceString(@SMsgDlgHelpNone, _SMsgDlgHelpNone);
 ReplaceResourceString(@SMsgDlgHelpHelp, _SMsgDlgHelpHelp);
 ReplaceResourceString(@SMsgDlgAbort, _SMsgDlgAbort);
 ReplaceResourceString(@SMsgDlgRetry, _SMsgDlgRetry);
 ReplaceResourceString(@SMsgDlgIgnore, _SMsgDlgIgnore);
 ReplaceResourceString(@SMsgDlgAll, _SMsgDlgAll);
 ReplaceResourceString(@SMsgDlgNoToAll, _SMsgDlgNoToAll);
 ReplaceResourceString(@SMsgDlgYesToAll, _SMsgDlgYesToAll);

 MessageDlg('Anda Yakin akan menyimpan dokumen ini ?', mtConfirmation, mbYesNoCancel, 0);
end;

end.

Dan sebagai catatan, ada kelemahan yang perlu diketahui perihal trik, yaitu ukuran tombol hanya berubah pada saat ‘ReplaceResourceString’ pertama, pemanggilan berikutnya tidak mengubah ukuran tombol.

Ok, seperti yang telah saya tulis komentar di kode sumber, “harapan saya adalah Anda dapat mengeksplorasi dan mengembangkan jauh lebih baik dari yang ada di demo ini”. Saya sengaja membuat demo ini belum optimal, jadi silahkan gunakan logika, kreativitas dan imajinasi Anda.

Semoga bermanfaat.

Thursday, July 30, 2009

Hindari FieldByName pada Penggunaan Intensif

Bagi Delphiers yang sering berinteraksi dengan database, tentu tidak asing dengan penggunaan FieldByName. Pada operasi akses field yang bersifat intensif, misalnya konversi data, penyalinan data dari satu database atau tabel ke database atau tabel lainnya, penggunaan FieldByName harus dihindari.

Untuk mencapai suatu field dengan menggunakan FieldByName, terlebih dahulu harus dilakukan pencarian alamat referensi field yang dimaksud dengan melakukan iterasi setiap field pada daftar field (FieldList) dari awal hingga akhir untuk mencocokkan namanya (FieldName). Proses iterasi akan berhenti ketika ditemukan nama field pada daftar field. Proses kemudian mengembalikan alamat referensi field yang dimaksud.

Sekilas, proses yang terjadi pada FieldByName ditunjukkan pada potongan kode berikut:

function TFields.FieldByName(const FieldName: WideString): TField;
begin
 Result := FindField(FieldName);
 if Result = nil then DatabaseErrorFmt(SFieldNotFound, [FieldName], DataSet);
end;

Jika ditelusuri, fungsi FindField adalah sebagai berikut:

function TFields.FindField(const FieldName: WideString): TField;
var
 I: Integer;
begin
 for I := 0 to FList.Count - 1 do
 begin
   Result := FList.Items[I];
   if WideCompareText(Result.FFieldName, FieldName) = 0 then Exit;
 end;
 Result := nil;
end;

Oke, untuk lebih mantapnya, perlu kita buat sebuah rutin untuk mengukur bagaimana penggunaan FieldByName pada operasi yang intensif mengakses field. Perlu diingat bahwa kode yang dijadikan sebagai contoh dibuat sesederhana mungkin, hanya mengakses 2 field saja dan tidak ada operasi lain yang menyertainya seperti perhitungan, seleksi kondisi dan sebagainya. Pada keadaan sesungguhnya, bentuk operasi bisa jauh lebih kompleks dan bervariasi.

Berikut gambaran singkat mengenai data yang akan dijadikan bahan pengukuran
- Sistem Core2Duo 1.66GHz, 667MHz FSB, 2MB L2 Cache, 1GB RAM, dengan free ram > 256MB (ada program yg berjalan: Delphi2007, FF, EMS SQL Manager, Notepad++)
- Windows XP Professional SP3
- MySQL 5.1.21, akses lokal, konfigurasi standar
- Tabel dengan jenis InnoDB, jumlah record sekitar 29000-an
- Pengukuran menggunakan QueryPerformaceCounter & QueryPerformanceFrequency
- Sangat dimungkinkan terjadi proses caching pembacaan hasil proses sebelumnya. Untuk itu lakukan proses perhitungan dengan jeda waktu yang lama dan berkali - kali untuk meyakinkan nilainya.

Metode 1

Metode 1 menggunakan FieldByName seperti pada potongan kode berikut:

procedure TForm2.btnMethod1Click(Sender: TObject);
var
 A, B          : Double;
 FFreq         : Int64;
 FStartCounter : Int64;
 FStopCounter  : Int64;
 I             : Integer;
begin
 MyConnection1.Connected := True;
 MyQuery1.Active := True;

 A := 0;
 B := 0;
 QueryPerformanceFrequency(FFreq);
 QueryPerformanceCounter(FStartCounter);
 for I := 0 to 1000 do
 begin
   MyQuery1.First;
   while not MyQuery1.Eof do
   begin
     A := MyQuery1.FieldByName('jumlah').AsFloat;
     B := MyQuery1.FieldByName('jumlahnetto').AsFloat;
     MyQuery1.Next;
   end;
 end;
 QueryPerformanceCounter(FStopCounter);

 Label1.Caption := FloatToStr((FStopCounter - FStartCounter) / FFreq);

 MyQuery1.Active := False;
 MyConnection1.Connected := False;
end;

Hasil dari eksekusi rutin tersebut adalah 117,7975 detik.

Hasil Pengukuran Metode 1

Cukup lama bukan ? Lalu adakah teknik untuk mempersingkat operasi tersebut ? Tentu saja ada !

Metode 2

Teknik ini mungkin sudah banyak diketahui, namun mungkin jarang digunakan. Alih - alih menggunakan nama field untuk mencari field yang dikehendaki, teknik ini langsung mengakses alamat referensi dari field yang dikehendaki dengan memanfaatkan nomor indeks field tersebut dalam daftar field. Tentu saja untuk melakukannya harus diketahui terlebih dahulu nomor indeks yang tepat. Field pertama diakses melalui nomor indeks 0, field kedua diakses melalui nomor indeks 1, demikian seterusnya.

Salah satu sebab teknik ini jarang dilakukan adalah karena konsistensi nomor urut field. Jika misalnya terdapat perubahan susunan tabel atau perintah query, maka nomor urut field dimungkinkan tidak sesuai lagi. Dengan demikian harus dilakukan perubahan nomor urut pada kode sumber.

Disisi lain, teknik ini sangat sesuai apabila diterapkan pada aplikasi konversi / migrasi database / tabel dimana jumlah dan nama field sangat variatif. Disini, nama field tidak dapat dijadikan sebagai acuan. Yang perlu dilakukan hanyalah memberikan nomor indeks dari awal hingga akhir dan lakukan proses iterasi per record, dari field awal sampai akhir.

Berdasarkan kode metode 1, maka dilakukan perubahan seperti pada kode berikut:

procedure TForm2.btnMethod2Click(Sender: TObject);
var
 A, B          : Double;
 FFreq         : Int64;
 FStartCounter : Int64;
 FStopCounter  : Int64;
 I             : Integer;
begin
 MyConnection1.Connected := True;
 MyQuery1.Active := True;

 A := 0;
 B := 0;
 QueryPerformanceFrequency(FFreq);
 QueryPerformanceCounter(FStartCounter);
 for I := 0 to 1000 do
 begin
   MyQuery1.First;
   while not MyQuery1.Eof do
   begin
     A := MyQuery1.Fields[12].AsFloat;
     B := MyQuery1.Fields[13].AsFloat;
     MyQuery1.Next;
   end;
 end;
 QueryPerformanceCounter(FStopCounter);

 Label2.Caption := FloatToStr((FStopCounter - FStartCounter) / FFreq);

 MyQuery1.Active := False;
 MyConnection1.Connected := False;
end;

Hasil dari eksekusi rutin tersebut adalah 27,1231 detik. Sangat manjur bukan ?

Hasil Pengukuran Metode 2

Masih belum puas dengan hasil tersebut ? Simak teknik berikutnya.

Metode 3

Teknik ini lebih jarang lagi digunakan. Alih - alih melakukan penunjukan field yang dimaksud dengan memberikan nomor indeks yang sesuai pada setiap iterasi record dimana proses penunjukan field membutuhkan proses untuk mengakses kelas TField, teknik ini langsung mengakses kelas TField tersebut berada. Caranya adalah dengan terlebih dahulu mendapatkan alamat dimana kelas TField tersebut berada. Alamat tersebut kemudian di simpan pada variabel lokal yang akan digunakan untuk mengakses field tersebut secara langsung.

Berikut kode untuk metode 3:

procedure TForm2.btnMethod3Click(Sender: TObject);
var
 A, B          : Double;
 FFreq         : Int64;
 FStartCounter : Int64;
 FStopCounter  : Int64;
 I             : Integer;
 AField        : TField;
 AField2       : TField;
begin
 MyConnection1.Connected := True;
 MyQuery1.Active := True;

 A := 0;
 B := 0;
 QueryPerformanceFrequency(FFreq);
 QueryPerformanceCounter(FStartCounter);
 AField := MyQuery1.FieldByName('jumlah');
 AField2 := MyQuery1.FieldByName('jumlahnetto');
 for I := 0 to 1000 do
 begin
   MyQuery1.First;
   while not MyQuery1.Eof do
   begin
     A := AField.AsFloat;
     B := AField2.AsFloat;
     MyQuery1.Next;
   end;
 end;
 QueryPerformanceCounter(FStopCounter);

 Label3.Caption := FloatToStr((FStopCounter - FStartCounter) / FFreq);

 MyQuery1.Active := False;
 MyConnection1.Connected := False;
end;

Hasil dari eksekusi rutin tersebut adalah 26,9201 detik.

Hasil Pengukuran Metode 3

Tentu saja masih ada celah perbaikan walaupun pengaruhnya mungkin tidak signifikan, tergantung dari kode Anda, yaitu dengan mengganti kode FieldByName menjadi Fields[x] dimana x adalah nomor indeks field yang dikehendaki.

Contoh kode diatas sangat intensif menggunakan variabel bertipe TField untuk menampung alamat referensi dari field yang dikehendaki. Lalu bagaimana apabila jumlah field yang diakses sangat banyak atau bahkan sangat bervariasi ? Bukankah sangat tidak efisien apabila mendeklarasikan semua variabel yang diperlukan ? Lalu adakah teknik untuk mensiasatinya ? Simak metode selanjutnya.

Metode 4

Salah satu teknik yang dapat digunakan adalah dengan menggunakan array dinamis. Namun untuk menyederhanakan pembahasan, pada contoh ini hanya akan mengunakan array statis.

procedure TForm2.btnMehtod4Click(Sender: TObject);
var
 A, B          : Double;
 FFreq         : Int64;
 FStartCounter : Int64;
 FStopCounter  : Int64;
 I             : Integer;
 AField        : array [1..2] of TField;
begin
 MyConnection1.Connected := True;
 MyQuery1.Active := True;

 A := 0;
 B := 0;
 QueryPerformanceFrequency(FFreq);
 QueryPerformanceCounter(FStartCounter);
 AField[1] := MyQuery1.FieldByName('jumlah');
 AField[2] := MyQuery1.FieldByName('jumlahnetto');
 for I := 0 to 1000 do
 begin
   MyQuery1.First;
   while not MyQuery1.Eof do
   begin
     A := AField[1].AsFloat;
     B := AField[2].AsFloat;
     MyQuery1.Next;
   end;
 end;
 QueryPerformanceCounter(FStopCounter);

 Label4.Caption := FloatToStr((FStopCounter - FStartCounter) / FFreq);

 MyQuery1.Active := False;
 MyConnection1.Connected := False;
end;

Sama seperti sebelumnya, tentu saja masih ada celah perbaikan walaupun pengaruhnya mungkin tidak signifikan, tergantung dari kode Anda, yaitu dengan mengganti kode FieldByName menjadi Fields[x] dimana x adalah nomor indeks field yang dikehendaki.

Hasil dari eksekusi rutin tersebut adalah 26,8862 detik.

Hasil Pengkuran Metode 4

Sebagai latihan, silahkan mencoba dengan jumlah field yang lebih banyak dan bandingkan hasilnya. Adakah terjadi peningkatan kecepatan ? Silahkan cari tahu sendiri sebabnya.

Semoga bermanfaat.