Ad (728x90)

Showing posts with label Delphi. Show all posts
Showing posts with label Delphi. Show all posts

Tuesday, October 23, 2012

Kumpulan Tips Trik Delphi di Tips Explorer 2008

Bagi penggemar pemrograman delphi, tips explorer merupakan salah satu fasilitas referensi yang sangat bagus, disana terdapat 3000 lebih tips trik. Tips explorer ini mengambil dari berbagai situs pemrograman delphi terkemuka di dunia dan kontribusi dari para master delphi.

Dibagi atas berbagai jenis kategori: System, Application, Database, VCL, WinAPI, dst. Setiap kategori mempunyai beberapa sub-kategori. Ada fitur pencarian tips, simpan tips ke dalam bentuk teks, rtf bahkan html (dengan syntax highlight).

Tips explorer bisa juga diprint, proses simpan & print bisa satu persatu atau satu kategori sekaligus.
Tips Explorer 2008 dibangun menggunakan dbms Firebird 1.5 dan berlisensi freeware.


Silahkan download tips explorer 2008 disini

Delphi

Monday, October 8, 2012

Cara Mengatasi Masalah Instalasi Delphi 7 Pada Windows 7 (seven)

Masalah instalasi delphi 7, biasanya terjadi bagi pengguna windows seven atau vista .Ketika Delphi 7 sudah terinstal, dan akan dijalankan mendapati pesan
kesalahan seperti gambar berikut :
 
Vista-4 copy.jpg
 
Hal ini sering banyak dijumpai pada OS Windows 7 dan Vista. Memang ketika mengklik tombol "Jalankan program", Delphi akan mulai, tapi dengan adanya pesan kesalahan seperti di atas yang mengatakan kepada user bahwa Delphi tidak diperbolehkan untuk mengganti nama delphi32.$$$ menjadi delphi32.dro.
 
Dan setelah mengklik OK, Delphi akan terbuka tapi tanpa ada sebuah proyek yang terbuka.
 
 
Masalah di atas alasannya jelas bahwa aplikasi Delphi32.exe tidak diperkenankan oleh Windows untuk menulis di direktori Delphi7\Bin.
 
Cara mengatasinya adalah :
Ubah Permissions
Untuk mengatasi ini, kita perlu untuk memungkinkan para pengguna laptop/pc untuk "mengubah" isi dari  direktori ini, seperti ditunjukkan pada gambar berikut:
Untuk bisa masuk ke tab security seperti di bawah ini,
  1. Buka C:\Program Files\Borland\Delphi7
  2. Klik Kanan Pada Folder Bin – Properties,
  3. Pilih Security,
  4. Pilih user name kemudian pili edit
  5. Aktifkan/Checklist Modify Pada Kolom Allow
2.jpg
 
Terlepas dari direktori Delphi7\Bin, kita juga harus memungkinkan pengguna pc/laptop untuk mengubah isi dari direktori Delphi7 \Proyek agar aplikasi dikompilasi dan paket dapat digunakan.
 
3.jpg
 
 
Perhatikan bahwa semua direktori lain yang kalian butuhkan untuk menulis untuk (direktori unit seperti  output) juga harus dibuka sebelum kalian benar-benar dapat mengkompilasi dan menjalankan aplikasi Delphi.
 
Jika  cara di atas telah selesai dilakukan maka Delphi pun akan terbuka dan berjalan seperti biasa.
 
h.jpg
 
Semoga Bermanfaat
Delphi

Sunday, October 7, 2012

Cara Instal FastReport 4 Pada Delphi 7

FastReport merupakan visual komponen librari (VCL) yang digunakan untuk membuat laporan dinamis secara cepat dan efisien. FastReport  menyediakan semua alat yang diperlukan untuk mengembangkan laporan, didalamnya juga terdapat  visual report designer, reporting core, dan untuk tampilan preview sebelum dicetak. Selain itu juga dapat menyajikan laporan dalam bentuk grafik.

Cara Instalasi FastReport

 Langkah 1. Copy runtime packages ke dalam System folder
 
- Tutup terlebih dahulu Delphi Anda
- copy \Lib\fs*.bpl file (* = Versi delphi yang Anda gunakan ) ke Windows\System32
  (Windows\System untuk Windows 95/98/ME)
- copy \Lib\fsDB*.bpl file ke Windows\System32
- copy \Lib\fsBDE*.bpl file ke Windows\System32
- copy \Lib\fsADO*.bpl file ke Windows\System32
- copy \Lib\fsIBX*.bpl file ke Windows\System32
- copy \Lib\fsTee*.bpl file ke Windows\System32
- copy \Lib\frx*.bpl file ke Windows\System32
- copy \Lib\frxDB*.bpl file ke Windows\System32
- copy \Lib\frxBDE*.bpl file ke Windows\System32
- copy \Lib\frxADO*.bpl file ke Windows\System32
- copy \Lib\frxIBX*.bpl file ke Windows\System32
- copy \Lib\frxDBX*.bpl file ke Windows\System32
- copy \Lib\frxTee*.bpl file ke Windows\System32
- copy \Lib\frxe*.bpl file ke Windows\System32

Langkah 2. Install packages

 
- in the Delphi IDE, pilih "Component|Install Packages..." menu item
- tekan tombol "Add..." dan pilih \Lib\dclfs*.bpl file (* = Versi delphi yang Anda gunakan)
- tekan tombol "Add..." dan pilih \Lib\dclfsDB*.bpl file
- tekan tombol "Add..." dan pilih \Lib\dclfsBDE*.bpl file
- tekan tombol "Add..." dan pilih \Lib\dclfsADO*.bpl file (D5+)
- tekan tombol "Add..." dan pilih \Lib\dclfsIBX*.bpl file (D5+)
- tekan tombol "Add..." dan pilih \Lib\dclfsTee*.bpl file
- tekan tombol "Add..." dan pilih \Lib\dclfrx*.bpl file
- tekan tombol "Add..." dan pilih \Lib\dclfrxDB*.bpl file
- tekan tombol "Add..." dan pilih \Lib\dclfrxBDE*.bpl file
- tekan tombol "Add..." dan pilih \Lib\dclfrxADO*.bpl file (D5+)
- tekan tombol "Add..." dan pilih \Lib\dclfrxIBX*.bpl file (D5+)
- tekan tombol "Add..." dan pilih \Lib\dclfrxDBX*.bpl file (D6+)
- tekan tombol "Add..." dan pilih \Lib\dclfrxTee*.bpl file
- tekan tombol "Add..." dan pilih \Lib\dclfrxe*.bpl file

Langkah 3. Tambah paths kedalam library path


- Pada tampilan Delphi, pilih menu "Tools|Environmet options..."
- klik tab "Library", "Library path" edit box
- tambah path ke folder "FastReport 4\Lib"

 Semoga berhasil :)
Delphi

Monday, July 2, 2012

Mempercantik Panel dan Tombol di Delphi dengan xicontrol


Salah satu keunggulan program Delphi adalah dapat fleksibel menambah komponen eksternal ( baca : plugin ) untuk memperindah tampilan, atau membuat sesuatu yang tidak terdapat pada bawaan Delphi.
XiControls  dikembangkan oleh Eugene Genev, untuk memperindah tombol dan panel di Delphi dengan aneka warna gradiasi. (www.deadlogic.co.nr ) 

Cara Instal XiControl di Delphi

Untuk menggunakan komponen tersebut, Anda harus menginstal terlebih dahulu :
  1. Ekstrak xicontrol, jika belum punya bias Anda download XiControl disini
  2. Copy file tersebut dibawah ini ke folder Borland/Delphi/lib :
-          XiButton
-          XiControls
-          XiPanel
-          XiProgressBar
-          XiTrackbar

      3.   Buka Delphi Anda klik component, install component :



    4.       Klik Browser, dan masuk ke folder Borland/Delphi/Lib, kemudian pilih 5 file yang telah dicopy tersebut, selanjutnya klik Open :


    5.       Klik pada tab into new pack, klik browser pada package file name dan pilih dclr.dpk dan klik Ok.

Sekarang status komponen XiControl sudah terinstal di delphi Anda. Komponen tambahan delphi yang terakhir diinstal biasanya terdapat pada sudut kanan component palete. silahkan cek pada xiControl

Contoh tampilan tombol xicontrol pada form delphi  :


Semoga bermanfaat :)
        


Delphi

Tuesday, June 26, 2012

Teknik Enkripsi dan Deskripsi Sederhana

Enkripsi dalah sebuah proses yang melakukan perubahan sebuah kode dari yang bisa dimengerti menjadi sebuah kode yang tidak bisa dimengerti (tidak terbaca). Enkripsi dapat diartikan sebagai kode atau chiper. Sebuah sistem pengkodean menggunakan suatu table atau kamus yang telah didefinisikan untuk mengganti kata dari informasi atau yang merupakan bagian dari informasi yang dikirim. Sebuah chiper menggunakan suatu algoritma yang dapat mengkodekan semua aliran data (stream) bit dari sebuah pesan menjadi cryptogram yang tidak dimengerti (unitelligible). Karena teknik cipher merupakan suatu sistem yang telah siap untuk di automasi, maka teknik ini digunakan dalam sistem keamanan komputer dan network.

Berikut ini contoh teknik logika sederhana enkripsi dengan cara menggeser kata sebanyak n karakter. n karakter menyatakan jumlah data yang digeser.

Contoh :
Bila n = 1 , dan kata yang di enkripsi adalah B A C A
maka menjadi :
C B D B

Sintaknya sebagai berikut :

function Encrypt(const s: String; CryptInt: Integer): String;
var
  i: integer;
  s2: string;
begin
  if not (Length(s) = 0) then
    for i := 1 to Length(s) do
      s2 := s2 + Chr(Ord(s[i]) + CrypTint);
  Result := s2;
end;

Pola function :
Encrypt( kata_yang_akan_dienkripsi, digeser_sebanyak_n_karakter )

Cara Penggunaannya :
Encrypt( 'BACA', 1);

Sintak cara mengembalikan enkripsi ( Dekripsi ) :

function Decrypt(const s: String; CryptInt: Integer): String;
var
  i: integer;
  s2: string;
begin
  if not (Length(s) = 0) then
    for i := 1 to Length(s) do
      s2 := s2 + Chr(Ord(s[i]) - cryptint);
  Result := s2;
end;


Untuk mengembalikan ( dekripsi ), penggeseran karakternya harus sama seperti pada saat enkripsi.
Smoga bermanfaat,selamat mencoba :) .


Delphi

 

We are featured contributor on entrepreneurship for many trusted business sites:

  • Copyright © Kodepedia™ is a registered trademark.
    Designed by Templateism. Hosted on Blogger Platform.