Seluruh kode yang ditulis di sini memerlukan unit DB dan jpeg sehingga harus dituliskan
uses DB, jpeg;
Cara untuk menyimpan file gambar ke dalam field "photo" bertipe text milik tabel dalam basis data SQL Server adalah sebagai berikut :
Tambahkan komponen bernama OpenDialog1, ADOQuery1, Button1, dan Image1
Pada event onClick komponen tombol Button1, tuliskan kode berikut :
procedure TFormPustaka.Button1Click(Sender: TObject);
var
FileStream:...
Minggu, 25 September 2011
Kamis, 22 September 2011
Enkripsi dan Deskripsi Password
unit uEncrypt;
interface
function Decrypt(const S: AnsiString; Key: Word): AnsiString;
function Encrypt(const S: AnsiString; Key: Word): AnsiString;
implementation
const
C1 = 52845;
C2 = 22719;
function Decode(const S: AnsiString): AnsiString;
const
Map: array[Char] of Byte = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, 0, 0, 63,...
Senin, 05 September 2011
Barangsiapa yang mengenal dirinya, maka sungguh dia akan mengenal Rabb-Nya
Kebetulan dapat kutipan perkataan Yesus dalam Injil Thomas yang dikutip dari buku kajian tentang perpustakaan Nag Hamady, sebagai berikut :
"ketika kalian semua mengenali diri kalian saat itu kalian akan menjadi mengerti (Arifin) …"
Perkataan ini mirip dengan “Barangsiapa yang mengenal dirinya, maka sungguh dia akan mengenal Rabb (Tuhan)-Nya”. yang dianggap Imam Ghazali dalam kitab Kimiya-i Sa'adah sebagai hadits Qudsi. Sejumlah ulama...
Kamis, 01 September 2011
Asal Dosa Manusia
Asal dosa itu adalah mengikuti tipu daya setan jin dan setan manusia.
Dan demikianlah Kami jadikan bagi tiap-tiap nabi itu musuh, yaitu syaitan-syaitan (dari jenis) manusia dan (dan jenis) jin, sebahagian mereka membisikkan kepada sebahagian yang lain perkataan-perkataan yang indah-indah untuk menipu (manusia). Jikalau...
