Tutorial Delphi

Sekedar Informasi, Gammu yang bisa menjalankan perintah USSD command adalah versi 1.3 keatas. Jika anda masih menggunakan versi lawas anda dapat mendownload gammu versi 1.33 yang telah saya paketkan menjadi installer pada step dibawah ini

1. Gunakan gammu versi 1.33 atau yang lebih baru. Download Gammu Installer Versi 1.33 disini.

2. Pastikan Koneksi gammu dan Modem sudah tidak ada masalah. cara setting gammu lihat disini.

3. Silahkan Download Source Code Aplikasi Cek Pulsa dengan Gammu disini.

Sebenarnya anda juga dapat dengan mudah mengecek pulsa modem dengan Perintah gammu getussd *123# melalui Console dimana hasilnya kurang lebih akan seperti dibawah ini


Jadi Secara Sederhana Aplikasi ini lebih memfokuskan tentang bagaimana kita mengambil Output dari Perintah yang kita jalankan di Command Prompt (DOS) Lalu menampilkannya melalui Memo di dalam Aplikasi kita. Bahasa kerennya disebut Capture DOS Output.

1. Tahap Awal adalah menambahkan Registry kedalam Uses anda.

2. Langkah kedua, buatlah sebuah variabel global reg dengan type Tregistry;

3. Tambahkan dua buah Button dan sebuah memo kedalam Form anda
   Button1.Caption = Tulis ke Regedit
   Button2.Caption = Baca Regedit

4. Berikut adalah contoh coding untuk menulis ke regedit

reg :=tregistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('SOFTWARE\Koneksi',true);
reg.WriteString('Hostname','localhost');
reg.WriteString('DataBasename','namadb');
reg.WriteString('User','root');
reg.WriteString('Password','password');
reg.WriteString('Port','3306');
reg.WriteString('Kunjungi','http://delphitutor.blogspot.com');
reg.Free; 

Hasil dari Coding diatas dapat anda lihat di Regedit langsung yang lokasinya di HKEY_LOCAL_MACHINE\SOFTWARE\Koneski\. Jika tidak ingin repot kita juga bisa menampilkan Valuenya pada memo dengan coding pada step 5 dibawah ini

5. Berikut adalah contoh coding untuk membaca regedit

Memo1.Clear;
reg :=tregistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('SOFTWARE\Koneksi',true);
memo1.Lines.Add(reg.ReadString('Hostname'));
memo1.Lines.Add(reg.ReadString('DataBasename'));
memo1.Lines.Add(reg.ReadString('User'));
memo1.Lines.Add(reg.ReadString('Password'));
memo1.Lines.Add(reg.ReadString('Port'));
memo1.Lines.Add(reg.ReadString('Kunjungi'));
reg.Free;

Contoh Source Code dapat anda Download disini. Selamat Mencoba.

Langkah - Langkah Membuat File DLL

1. Buka Delphi | File -> New -> Other -> DLL Wizard -> OK

2. Letakan Coding berikut dibawah {$R *.res}

// Fungsi Tambah
function tambah(_a, _b: integer): integer; stdcall;
begin
  Result := _a + _b;
end;
// Fungsi Kurang
function kurang(_a, _b: integer): integer; stdcall;
begin
  Result := _a - _b;
end;
// Fungsi Kali
function kali(_a, _b: integer): integer; stdcall;
begin
  Result := _a * _b;
end;
//Fungsi Bagi
function bagi(_a, _b: Real): Real; stdcall;
begin
  Result := _a / _b;
end;

// Export
exports
tambah,
kurang,
kali,
bagi;

3. Simpan Lalu Build Projek anda. Setelah Proses ini dilakukan maka File DLL sudah terbentuk didalam Folder Projek anda :)

Langkah - Langkah Memanggil File DLL 

1. Buka Menu File -> New -> Aplication

2. Tambahkan Beberapa Komponen sehingga menjadi seperti gambar dibawah ini


3. Letakan Coding berikut sebagai variabel global

 function tambah(_a, _b: integer): integer; stdcall; external 'dll_projek.dll';
 function kali(_a, _b: integer): integer; stdcall; external 'dll_projek.dll';
 function bagi(_a, _b: integer): integer; stdcall; external 'dll_projek.dll';
 function kurang(_a, _b: integer): integer; stdcall; external 'dll_projek.dll';

4. Simpan terlebih dahulu Projek anda didalam Folder File DLL yang tadi dibuat

5. Setelah itu, anda bisa memanggil fungsi yang ada didalam file DLL dengan cara

kurang(StrToInt(Edit1.Text),StrToInt(Edit2.Text));
kali(StrToInt(Edit1.Text),StrToInt(Edit2.Text));
bagi(StrToInt(Edit1.Text),StrToInt(Edit2.Text));
tambah(StrToInt(Edit1.Text),StrToInt(Edit2.Text));  

Untuk Lebih Jelasnya, Anda Dapat Mendownload Contoh Projek yang saya buat disini. Selamat mencoba semoga berhasil. :)    

Terkadang dalam membangun sebuah Aplikasi kita perlu menjalankan Aplikasi yang kita bangun dengan akses Administrator di Windows. Suatu misal untuk menjalankan perintah-perintah yang membutuhkan akses administrator semisal menghentikan service yang sedang berjalan atau menjalankan sebuah service. Disini saya akan coba berbagi cara Membuat aplikasi kita dijalankan dengan level Administrator.

1. Kita memerlukan dua buah file manifest dan file rc kedua file tersebut dapat anda Download disini

2. Extrack File tersebut ke direktori D:\

3. Selanjutnya kita akan membuat sebuah File RES dengan memanfaatkan Tools brcc32

4. Buka Command Prompt dan Masuk ke Direktory Folder Hasil Ekstrak File (Step 2) kemudian ketikan perintah brcc32 ReqAdmin.rc


5. akan terbentuk sebuah file baru dengan nama ReqAdmin.res. Copy Semua File tersebut kedalam Folder Projek anda lalu Tambahkan code {$R 'ReqAdmin.res'} kedalam projek anda seperti gambar dibawah ini


6. Compile Projek Anda dengan menekan CTRL+F9 (Jangan di Run / F9)

7. Lihat Hasil Compile kemudian Coba Jalankan. Jika anda menggunakan komponen XPMan kemungkinan tidak akan berhasil silahkan hapus komponen tersebut dari form dan uses projek anda.

Silahkan Download Contoh Projek Hasil Compile saya disini. Selamat Mencoba Semoga Berhasil. :)

Menginstal ActiveX Acrobat Reader

1. Buka Delphi Anda kemudian klik menu Component -> Import ActiveX Control



2. Jika Muncul Pesan Konfirmasi tekan saja OK/Yes. Setelah Proses tersebut dijalankan coba buka Pallete ActiveX


3. Langkah Selanjutnya adalah Tambahkan Komponen Beberapa Komponen kedalam Form Anda

- ActiveX -> AcroPDF 1 Buah
- Dialog -> Open Dialog 1 Buah
- Standart -> Button 1 Buah

4. Klik dua kali Button yang sudah anda tambahkan lalu masukan coding dibawah ini

if OpenDialog1.Execute then
AcroPDF1.LoadFile(OpenDialog1.FileName);

Contoh Source Code yang saya Buat Dapat Anda Download disini. Selamat Mencoba dan semoga berhasil.