Cara Mengetahui Serial Number Motherboard dengan Delphi

Cara Mengetahui  Serial Number Motherboard dengan Delphi  adalah suatu yang sangat penting untuk diketahui dalam kaitannya dengan Cara Melindungi Program Dari Pembajakan. Karena dengan memanfaatkan Serial Number pada Motherboard pada computer kita sebagai programmer Delphi dapat menciptakan Serial number yang unik untuk masing masing computer yang berbeda, mengenai hal ini dapat anda baca di  Cara Melindungi Program Dengan Serial Number.  Adapun  Cara Mengetahui  Serial Number Motherboard dengan Delphi adalah dengan membuat sebuah Function  ( Fungsi pada Delphi). Namun sebelum membuat Function , Anda  harus  mengimport Microsoft WMIScripting Library , Dengan cara  masuk ke menu  Component-Import Component Kemudian Pilih  Import type library. Perhatikan gambar berikut:

Akan muncul window dialog pilihan, Kemudian Pilih  Import type library.kemudian tekan Next sampai muncul lagi windows dialog seperti berikut:

Pilih Microsoft WMIScripting Library kemudian klik Next - Next dan seterusnnya dan dilanjutkan dengan Proses seperti  Proses Install Komponen. Proses ini akan menghasilkan sebuah unit  bernama

WbemScripting_TLB.dcu tersimpan di folder library delphi anda bersama unit unit lainnya

Langkah Selanjutnya adalah membuat unit seperti berikut ini:

 yang ini buat di Copy Paste:

uses
  ActiveX,
  WbemScripting_TLB;

{$R *.dfm}

Function  Baca_SN_Mainboard:string;
var
  WMIServices : ISWbemServices;
  Root        : ISWbemObjectSet;
  Item        : Variant;
begin
  WMIServices := CoSWbemLocator.Create.ConnectServer('.', 'root\cimv2','', '', '', '', 0, nil);
  Root  := WMIServices.ExecQuery('Select SerialNumber From Win32_BaseBoard','WQL', 0, nil);
  Item := Root.ItemIndex(0);
  Result:=VarToStr(Item.SerialNumber);
end;

Cara Pakenya tinggal panggil Functionnya misalnya seperti berikut:

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=BacaSNMainboard;
end;

Demikian Postingan saya kali ini tentang Cara Mengetahui  Serial Number Motherboard dengan Delphi  semoga bermanfaat bagi semua programmer delphi. Jika ada pertanyaan jangan ragu bertanya pada kolom komentar. Jika ada kritik dan saran dipersilahkan juga menulisnya pada kolom komentar.

Salam Delphi.

»»  READMORE...

Cara Merubah Warna TDBGrid

Cara Merubah Warna TDBGrid

»»  READMORE...

Cara Melindungi Program dari pembajakaan

Cara Melindungi Program dari pembajakaan. Adalah hal wajib yang harus diketahui oleh seorang programmer. Agar program yang dibuat  buat tetap daapat memberikan penghasilan bagi programmer. Artinya setiap orang yang ingin menggunakan programm yang kita buat harus membelinya dari kita.

Seandainya kita tidak melindungi program kita, sudah pasti bisa diperbanyak oleh orang lain, sehingga kita sebagai programer tidak lagi mendapatkan penghasilan dari program buatan kita.    

 

Secara garis besar ada dua Cara Melindungi Program dari pembajakan yaitu Cara Melindungi Program dengan Serial Nomer dan Cara Melindungi program dengan Dongle.

Cara Melindungi Program dengan serial nomer adalah mewajibkan setiap user yang akan menggunakan program kita harus memasukan serial nomer tertentu yang kita tentukan kedalam program, Jika Serial nomernya tidak cocok maka program tidak bisa dijalankan. Untuk lebih jelasnya silahkan lihat dalam postingan ini. <Klik Disini Untuk Melihat Postingannya>

Cara Melindungi program dengan Dongle adalah melindungi program dengan menggunakan alat berupa USB device, bentuknya seperti Flash Disk, dimana setiap user ingin menjalankan program harus menancapkan usb dongle tersebut ke komputernya. Jadi kalau usb dongle tersebut tidak ada maka program tidak bisa dijalankan. Untuk lebih Jelasnya tentang Cara Melindungi Program dengan dongle dapat dilihat dalam postingann berikut ini.<Klik Disini Untuk Melihat Postingannya>

Demikian Sedikit Penjelasan Tentang Cara Melindungi Program dari pembajakaan  Semoga bermanfaat dan dapat diterapkan dalam pembuatan program bagi pecinta Pemrograman Delphi.

»»  READMORE...

CARA MENGGANTI FIELDNAME PADA TDBGRID

Dalam pembuatan sebuah aplikasi database dengan Delphi , tentunya kita tidak bisa lepas dari penggunaan komponen TDBGrid, ada satu hal yang perlu diperhatikan saat kita menggunakan komponen TDBGrid ini yaitu headernya atau Field Namenya, dimana secara default nama yang tampil dalam header TDBGrid adalah nama nama Field atau fieldname dari table atau query yang akan kita tampilkan kedalam TDBGrid tersebut.  Pada Postingan Kali ini saya mencoba menjelaskan Cara Mengganti FieldName Pada TDBGrid, Dalam hal ini adalah mengganti nama yang ditampilkan pada Header Sebuah TDBGrid Bukan Mengganti Fieldname pada Tabelnya.

Seperti kita lihat pada gambar diatas nama nama Field yang ada pada TDBGrid sama dengan nama nama Field yang ada dalam tabel yang di akses, nama nama ini kurang bagus untuk dilihat, untuk itu kita perlu menggantinya dengan nama nama yang lebih bagus, selain mengganti namanya kita juga perlu mengatur alingmennya ( Rata Kanan Kiri atau Tengahnya ). Cara Mengganti FieldName Pada TDBGrid dapat dilakukan dengan cara sebagai berikut:
- Klik Dua Kali ( Double Click ) pada Komponen TDBGrid sehingga muncul gambar sebagai berikut:

- Kemudian Klik Kanan Pada Ruang Kosong pada Editing.DBgrid.Colomns tersebut, kemudian Klik Menu Add all Fields ( Artinya Kita menambahkan semua Field yang ada dalam tabel atau query yang ingin kita tampilkan kedalam TDBGrid ) Sehingga Tampilan Berubah menjadi seperti gambar berikut:

- Klik Nama Field yang akan dirubah namanya kemudian Tekan Tombol F11 Untuk MEnampilkan Object Inspector Seperti Gambar Berikut:

- Pada Object Inspector Cari Bagian Title , Kemudian Ganti Captionnya Sesuaikan dengan nama yang ingin anda tampilkan pada TDBGrid, Disini Anda juga bisa mengatur jenis Font/Huruf, Warna Huruf, Warna Latar Belakang, dan DApat Juga mengatur Alingmentnya ( Rata Kiri, Tengah atau Kanan ).

Demikian Cara Mengganti FieldName Pada TDBGrid Semoga Bermanfaat bagi kawan kawan pencinta Pemrograman Delphi.

»»  READMORE...

Cara Setting Database MySQL Pada Delphi dengan Zeos

Pada postingan kali ini saya mencoba menjelaskan tentang Cara Setting Database MySQL Pada Delphi dengan Zeos, bagi yang belum menginstall komponen Zeos pada Delphinya silahkan membacanya disini. Jika sudah menginstall komponen zeos, tambahkan zconnection ke dalam form yang kita buat, atau taruh di Data Module kalau yang biasa pakai, jika sudah maka klik komponen zconnection yang sudah terpasang menuju ke properties, dan lakukan settingan dengan urutan seperti berikut ini :

1. Database      : isikan nama database di MySQL yang ingin kita koneksikan.
2. HostName   : isikan localhost, jika server local, atau isi IP server jika database berada di server.
3. Password     : kosongkan jika tidak memakai password, jika ada password isi paswordnya
4. Port              : pakai standart Port MySql isikan dengan : 3306.
5. Protocol       : pilih mysql.
6. User             : standart install isikan root, atau bisa menambahkan melalui user privilage.
7. LibraryLocation : isikan letak file libmysql.dll biasanya di:C:\mysql\bin\libmysql.dll

 Jika semua properties diatas sudah diisikan kemudian rubah value connected menjadi True. jika tidak bisa berarti masih ada kesalahan, cek kembali nama database, host, port dan lain-lain diatas apakah sudah sesuai..Selanjutnya tinggal melakukan Query pada komponen ZQuery  atau komponen ZTable sesuai dengan keperluan

Demikian  Cara Setting Database MySQL Pada Delphi dengan Zeos Semoga bermanfaat

»»  READMORE...