Membuat Fungsi Random Huruf dan Angka Pada Delphi 7

sedikit sering nih tentang delphi.
awal na saya ingin membuat kode secara acak dan otomatis....
setelah lama mencari di internet ternyata saya mendapatkan fungsi random pada delphi seperti dibawah ini...
langsung ajadeh
di form tambahkan 1 editbox dan 1 button
lalu buat fungsi seperti dibawah ini..
 
function RandomKodeString: string;
const
  Codes64 = '0123456789ABCDEFGHIJ';
var
  i, x: integer;
  s1, s2: string;
begin
  s1 := Codes64;
  s2 := '';
  for i := 0 to 6 do
  begin
    x := Random(Length(s1));
    x := Length(s1) - x;
    s2 := s2 + s1[x];
    s1 := Copy(s1, 1,x - 1) + Copy(s1, x + 1,Length(s1));
  end;
  Result := s2;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
 Edit1.Text := RandomKodeString();
end;

cara ngblok ultrasurf

Di satu hari yang mendung dua satpam sedang duduk bersama. Yang satu bernama Ujo, sedang temannya Dadang. Dadang sedang curhat secuil masalah internet yang jadi salah satu tanggungjawabnya ditempat dia kerja.
Satpam1: Jo, gw ada masalah dikit nih, bisa bantuin ngga?
Satpam2: Ono masalah opo to Dang… pie, mugo2 wae gw bisa bantu!
Satpam1: Ngene Jo, gw alergi sama yang namanya ultrasurf. Tapi gw gak bisa ngeblock tuh proxytool lewat Squid gw…!
Satpam2: Wedalah! kog bisa gitu Dang!! Segitu canggihnya ya tu proxy?
Satpam1: Ya nggak gitu… masalahnya tu proxytool buka koneksi outbond ke port 443. Lha ditempat gw yang lewat si cumi cuman port 80. Sudah gw pastiin di /var/log/squid/access.log yang ada cuman koneksi web biasa sama https via browser. Gw tes koneksi ultrasurf di access.log ga ada niih!!

Satpam2: Oooh begono to…! ga biasanya lo pusing ama yang beginian. Lha dulu-dulu gemana?
Satpam1: Dulu si ultrasurf nembak ke proxy sebelah, jadi internet gw bebannya gak terlalu berat :p Nah sekarang tu proxy sebelah akhirnya bisa ngeblok ultrasurf.

Satpam2: Kena karma lo gan … emang ditempat lo ada perangkat apa aja? topologinya bigimana?
Satpam1: Cara kerja ultrasurf kan dia bangun koneksi ke server port 443. Servernya banyak pula!!! Trus di lokal pc dia bikin port random buat receive paket dari server sama port buat diakses si browser.
Ditempat gw sih ada router, firewall keduanya pake Cisco. Yang terakhir Proxy Squid gw pastinya. Alur datanya sih, paket-paket dari komputer klien yang request ke port http internet langsung di-divert si router ke Proxy server via port-redirection. Si Squid nerusin ke webserver internet via Cisco PIX Firewall.
Masalahnya ya itu, si Squid dibikin transparent n dapet request http hasil port-redirection di Cisco router gw. Koneksi ultrasurf nggak lewat Proxy Squid gw

Satpam2: Emang kalo misalnya port 443 masuk proxy juga, lo bisa ngebloknya?
Satpam1: Gampang Jo!! Koneksi outbond ke port 443 itu kan ada 2 macem. Hal yang diinginkan dan hal yang nggak diinginkan *si Ujo merem-melek nggak mudeng omongannya Dadang.
Hal yang diinginkan itu misalnya autentikasi GMAIL, YAHOO, dll yang pake port 443 juga. Hal yang ga diinginkan ya Ultrasurf itu!! Nha, bedanya koneksi Ultrasurf dibangun ke server-servernya via IP ADDRESS, bukan DOMAIN. Gitu penjelasan simplenya. Tinggal bikin aja rule koneksi outbond ke port 443 yang pake IP ADDRESS di-deny, koneksi yang pake domain di-allow.
Satpam2: Gile, barusan gw nyobain Ultrasurf. Ternyata server dia banyak banget!! katakanlah lo mau ngeblock Ultrasurf via IP Servernya. Kayaknya susah deh collect daftar IP-nya. Cari referensinya di simbah juga susah. Eh, nemu satu nih!
Kebalikannya kalo lo mau nutup koneksi outbond ke port 443, lo mesti buka satu2 koneksi-koneksi yang termasuk “hal yang diinginkan”, istilah lo tadi
Satpam1:
Satpam2: Ada beberapa jalan gan…
Yang pertama lo block port 443. Lo dah tau konsekwensinya kaan ??
Kedua, block server-server Ultrasurf. Tapi kayaknya yang ini hil yang mustahal dech! *ujar Ujo sangat yakin.
Ketiga, lo kan pake antivirus client-server di jaringan lo. Kaspersky yach? Pake tu KAV buat ngeblok aplikasi Ultrasurf.
Keempat, rubah topologi jaringan lo, eh… konfig ulang Squid n Firewall lo. Drop semua koneksi internet kecuali dari Proxy n server-server lo. Bikin Squid lo nggak transparent. Bikin rule yang lo bilang tadi, trus setting proxy deh disemua  browser klien lo. Jadi mau gak mau komputer klien harus pake proxy.
Satpam1: ntar ye Jo… gw mo bertapa dulu nih! cari wangsit!!!
Satpam2: semangat gan!!!

(hanya angka)Isi editbox tidak bisa diisi Angka atau editbox tidak bisa disi Huruf(hanya huruf)

terkadang ketika kita membuat program baik di delphi atau vb sebuah editbox atau textbox harus huruf saja atau angka saja. nah kali ini saya ingin berbagi ilmu cara membuat editbox pada delphi hanya angka atau huruf saja.sbb: 
pilih editbox mana yang ingin dibuat validasi, trz pd object inspector pilih event OnKeyPress, klik 2x dan masukan sintak di bawah ini :
//untuk editbox hanya angka saja
if (key in['0'..'9',#8])then
begin
beep;//buat suara
key:=#0;//supaya tidak bisa diinput selain angka
end;
//untuk editbox hanya huruf saja
if not(key in['0'..'9',#8])then
begin
beep;//buat suara
key:=#0;//
end;
contoh listing untuk huruf saja.
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
//listing untuk edit bisa di input hanya huruf saja
if not (key in ['A'..'z',#8]) then
begin
beep;
key := #0;//supaya tidak bisa diinput selain huruf
end;
end;

Membuat aplikasi web browser dengan delphi 7

Di delphi 7 banyak tool yang membantu kita untuk membuat aplikasi seperti aplikasi web browser.
Pertama, kita siapkan komponen-komponen:
1. Buat Aplikasi baru , tambahkan sebuah panel dengan Align= albottom.
2. Tambahkan sebuah PageControl dengan align=alclient.
3. Pada PageControl, Tambahkan dua Tabsheet dengan cara klik kanan pada PageControl, pilih New Page
4. Pada TabSheet Pertama, Tambahkan sebuah Komponen Memo. Ubah font-name dari memo tsb jadi 'Courier New'
5. Pada Tabsheet Kedua, Tambahkan sebuah Komponen WebBrowser(Dari Page Internet)
6.Tambahkan Juga Sebuah Komponen PageProcedur(juga dari Page Internet)
Tampilan Form Seperti dibawah ini

delphi 7 dengan banner cantik (swishmax)

sebelumnya kita buat dulu banner di swishmax 3
setelah itu kita save ke format *swf dan kita ganti nama dengan bannergue
klo uda simpan di folder bareng dengan project delphi
di form kita tambahkan component dari aktiveX yaitu ShockwaveFlash
kemudian tulis listing di form create atau klik dua kali pada form nya(bukan di ShockwaveFlash nya )
listing sebagai berikut;
procedure TForm1.FormCreate(Sender: TObject);
begin
ShockwaveFlash1.Movie:= GetCurrentDir +' /bannergue.swf ';
ShockwaveFlash1.Play;
end;
selamat mencoba
download contoh program dibawah ini
http://www.4shared.com/file/BMyc5iBe/tugas_blog.html

Membuat Form Yang menarik di delphi 7

Sebagian orang(programmer) menyukai tampilan user interface yang fancy(menarik), beda dengan bentuk window biasa. Bentuk bias bulat, ellipse, atau bentuk-bentuk lainnya. Tetapi yang sangat menarik bentuk form yang mengikuti gambar. Delphi menyediakan kemudahan untuk membuat tampilan seperti ini. Yang perluh kita siapkan adalah sebuah gambar yang akan menjadi background dari form. Gambar tersebut memiliki bagian background yang akan dijadikan tansparan. Contoh gambar seperti dibawah ini.

Gambar seperti diatas dibuat menggunakan aplikasi seperti adobe photo shop versi 7 ke paling baru.

Cara membuat form transparan dengan tampilan seperti diatas sebagai berikut:

Ø  Pada form , tambahkan sebuah komponen Image yang ada pada pallete additional yang akan menjadi background

Ø  Ubah properties Borderstyle pada form menjadi bsNone, agar form tidak memiliki border

Ø  Ubah properties Autosize pada image dan form menjadi true agar menyesuaikan besar dan kecil ukuran image

Ø  Tambah komponen lain yang dibutuhkan sesuai dengan program

Ø  Ubah properties transparantcolor pada form menjadi true, agar form bias transparan

Ø  Klik dua kali pada form lalu ketikan listing sebagai berikut

procedure TForm1.FormCreate(Sender: TObject);

begin

TransparentColorValue:=image1.Canvas.Pixels [0,0];//mengambil warna dari image

end;

Ø  Klik image sekali selelah itu pada event ganti onmousedown sehingga muncul seperti listing dibawa ini

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

Begin

//untuk menggeser form dengan parameter  $F012

ReleaseCapture;

Perform(WM_SYSCOMMAND,$F012,0);

end;

jalankan form yang sudah dibuat gambar seperti dibawa ini

mengubah win xp sp2 ke win xp3 melalui regedit

Langkah-langkahna kaya gini:

1. Jalanin Regedit carana klik Start -> Run , ketikin regedit lalu tekan enter.
2. Buatlah backup data pada registry anda untuk berjaga-jaga jika ada kesalahan.
3. di window regedit cari deh "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Windows"
4. Ubah nilai "CSDVersion" dari "0x00000200" (SP2) ke Windows XP SP3 dengan nilai "0x00000300"
5. Tutup deh registry editor
6.  terus Restart komputer .

Latihan delphi 7 menggunakan database ms. access melalui koneksi adotable

komponen-komponen dalam program
5 editbox, 4 radiobutton, 1 combobox,6 bitbtn, 1 adotable, 1datasource, 1dbgrid,2 grupbox, dan 8 label
ketentuan program
1)program ketika dijalankan semua edit,radiobutten dan combobox false(tidak bisa di input)
2)ketika di klik tambah semua edit,radiobutten dan combobox menjadi true(bisa di input)
3) no induk,nama, alamat, tempat dan tanggal lahir serta asal sekolah di input
4) jenis kelamin, gelombang dan jurusan dipilih
5) ketika di tekan simpan muncul pesan "data sudah disimpan"
6) ketika di tekan batal semua edit,radiobutten dan combobox menjadi false(tidak bisa di input)
7)ketika ditekan ubah atau hapus muncul inputbox
8)ketika ditekan keluar muncul pesan "Anda yakin ingin keluar?" jika dipilih yes keluar dari
program dan jika dipilih no muncul "Tidak jadi"
selengkapnya download di sini
http://www.4shared.com/document/lpNECe_9/materi_delphi_upload.html
selamat mencoba...

Aplikasi Penilaian Pada Kuliah Menggunakan Delphi 7

 aplikasi penilaian pada perkuliahan menggunakan aplikasi delphi 7 dan database ms. access
silakan download disini
http://www.4shared.com/document/cynoy4n9/delphi_7_Project_Kuliahrevisi.html
untuk melihat program jadinya silahkan download disini
http://www.4shared.com/file/l5R4qFiR/program_delphi.html

Sejarah Borland Delphi

Sejarah Bahasa Pemrograman Delphi

Delphi…merupakan salah satu jenis bahasa pemrograman yang fleksibel penggunaannya untuk mengembangkan aplikasi program under Windows dengan tampilan yang smooth seperti pada Sistem Operasi Windows itu sendiri..

Mendengar kosakata Delphi mungkin orang sudah tidak asing dengan nama ini yang memang menggunakan kosakata bahasa Yunani. Konon dalam sejarah mitologi Yunani, Delphi adalah kuil yang dibangun untuk menyembah Dewa Apollo, salah satu Dewa yang disegani oleh orang-orang Yunani selain Dewa-Dewa lain seperti Jupiter, Titan dan lain sebagainya.

Borland sebagai pengembang perangkat lunak yang sudah ada sejak era 1980′an menggunakan ikon dan nama Delphi sebagai salah satu perangkat lunak pembantu pemrograman untuk membuat program yang sudah mengarah ke Pemrograman Yang Berorientasi pada Objek atau dikenal dengan istilah OOP (Object Oriented Programming).

Semenjak zaman produk-produk “turbo” dengan Turbo Pascal, Turbo/Borland C/C++, Turbo Assembler
belasan tahun silam hingga RAD Tool Delphi, C++ Builder saat ini. Kesemua jajaran produk borland tersebut pernah berjaya sebagai produk-produk unggulan di masanya.

 

Perjalanan Panjang Delphi

 

Mengenal Delphi berarti kita harus melakukan perjalanan ulang (flash-back), dimana Delphi sendiri sudah melalui perjalanan panjang nan berliku-liku dan ujian dalam sejarahnya hingga dapat hadir dan dipakai hingga saat ini.

Pertama, dimulai dengan ide brilian Prof. Niclaus Wirth yang mengemukakan paparan tentang Struktur Data dan Algoritma (Algorthm and Data Structure). Prof. Niklaus Wirth menerjemahkan paparan ini yang kemudian dikristalisasi ke dalam bahasa yang populer dan digunakan pertama kalinya sebagai bahasa yang berorientasi pada hal-hal yang Science dan Ilmiah yaitu Pascal. Pascal sendiri kemudian distandarisasi ke dalam ANSI PASCAL (Pascal umum) oleh badan standarisasi Amerika Serikat (ANSI).

Kemudian, 20 Nopember 1983, Borland melakukan riset untuk menerjemahkan ide dari kristalisasi ANSI Pascal (Pascal yang distandarisasi) yang kemudian menelurkan kompiler Pascal ke dalam pengembangan perangkat lunaknya yaitu Turbo Pascal 1.0. Turbo Pascal 1.0 berjalan pada sistem operasi PC/MS DOS dengan keterabatasan memory yang saat itu bisa berjalan pada ukuran 1 Mbyte saja.

Pada 17 April 1984, Borland kembali merevisi ulang perangkat lunak Turbo Pascal 1.0 menjadi Turbo Pascal 2.0.

Pada 17 September 1986, Borland kembali merevisi ulang perangkat lunak Turbo Pascal 2.0 menjadi Turbo Pascal 3.0.

Pada 20 Nopember 1987, Borland kembali merevisi ulang perangkat lunak Turbo Pascal 3.0 menjadi Turbo Pascal 4.0

Pada 24 Agustus 1988, Borland kembali merevisi ulang perangkat lunak Turbo Pascal 4.0 menjadi Turbo Pascal 5.0

Pada 2 Mei 1989, Borland kembali merevisi ulang perangkat lunak Turbo Pascal 5.0 menjadi Turbo Pascal 5.5

Pada 23 Oktober 1990, Borland kembali merevisi ulang perangkat lunak Turbo Pascal 5.5 menjadi Turbo Pascal 6.0

Pada 13 Pebruari 1991, Borland melakukan migrasi perangkat lunaknya ke dalam platform sistem operasi Microsoft Windows dengan menelurkan produk Turbo Pascal for Windows 1.0.

Pada 8 Juni 1992, Borland merevisi ulang perangkat lunak Turbo Pascal for Windows 1.0 menjadi Turbo Pascal for Windows 1.5

Pada 27 Oktober 1992, Borland melakukan revitalisasi Turbo Pascal 6.0 dan mengarahkan platform perangkat lunaknya menuju pemrograman berorientasi pada objek dengan menelurkan produk Borland Pascal 7.0 (With Objects).

Pada 14 Pebruari 1995, bertepatan dengan hari Valentine, untuk pertama kalinya dalam sejarah Borland menelurkan produk terbarunya, yang merupakan gabungan pengembangan Turbo Pascal for Windows 1.5 dan Borland Pascal 7.0 (With Objects) dengan menerlurkan Borland Delphi for Windows 95 atau Borland Delphi 1.0. Delphi versi ini berjalan pada Windows 3.1 atau Windows 16 bit.

Pada 10 Pebruari 1996, setahun setelah kelahiran Delphi 1.0, Borland kembali merevisi ulang perangkat lunak ini dan menelurkan produk Borland Delphi 2.0. Delphi versi ini berjalan pada Windows 95 atau Delphi 32 bit.

Tanggal 5 Agustus 1997, Borland kembali merevisi ulang Delphi 2.0 dan menelurkan produk Borland Delphi 3.0. Delphi versi ini berjalan pada Windows 95 ke atas dengan tambahan fitu rinternet atau web.

Pada 17 Juni 1998, Borland kembali merevisi ulang Delphi 3.0 dan menelurkan produk Borland Delphi 4.0.

Pada 10 Agustus 1999, Borland kembali merevisi ulang Delphi 4.0 dan menelurkan produk Borland Delphi 5.0.

Pada 21 Mei 2001, Borland kembali merevisi ulang Delphi 5.0 dan menelurkan produk Borland Delphi 6.0.

Pada 9 Agustus 2002, Borland kembali merevisi ulang Delphi 6.0 dan menelurkan produk Borland Delphi 7.0.

Pada 22 Desember 2003 bertepatan dengan The Mother Day alias Hari Ibu Nasional, Borland melakukan migrasi untuk memindahkan platform Delphi ke arah pemrograman .NeT (dot NET) dengan menelurkan produk Borland Delphi 8.0 for .NET.

Pada 12 Oktober 2004, Borland menggabungkan pengembangan perangkat lunak C# dan Delphi ke dalam satu kendali Integrated Develompment and Environment (IDE) dengan menelurkan produk Borland Delphi 2005.

Pada 10 Oktober 2005, Borland kembali merevisi ulang perangkat lunakn Delphi 2005 ke dalam perangkat lunak baru Borland Delphi Studio 2006.

Semua info sejarah ini diambil dari History of Delphi.