Friday, August 1, 2014

Bermain dengan Printer Menggunakan Delphi

Pada postingan terakhir ini saya ingin mengajak sobat untuk bermain-main dengan printer menggunakan delphi. ada beberapa trik yang akan saya sharing terkait dengan printer diataranya bagaimana menampilkan printer default yang digunakan oleh komputer kita, bagaimana menampilkan list printer apa saja yang ada dikomputer kita, menampilkan job printer serta bagaimana print gambar.

Baik Langsung saja, seperti yang telah saya jelaskan bahwa ini adalah postingan terkhir (mungkin) karena itu jika ada salah-salah kata pada postingan saya atau komentar yang tidak sempat saya balas tolong dimaafkan dan dimaklumi. oke kita kembali ke topik. jadi hasil akhir yang akan kita peroleh nantinya seperti gambar berikut

Bermain dengan Printer Menggunakan Delphi

Karena ada sesuatu dan lain hal jadi saya tidak akan membahas step-stepnya tapi akan langsung saya berikan source codenya. silahkan sobat download disini. selamat mencoba dan happy coding :)

Membuat Aplikasi Print Screen Sederhana dengan Delphi

Baiklah kawan, pada postingan sebelumnya saya sudah membahas bagaimana trik mengosongkan recycle bin windows dengan code delphi yang dapat sobat lihat disini. Selanjutnya pada postingan ini saya ingin berbagi bagaimana melakukan print screen atau screen shoot dengan code delphi. Mungkin hal ini bisa kita lakukan dengan mudah hanya dengan menekan tombol PRTSCSYSRQ yang ada di keyboard tapi bukan itu maksud saya.

Kita akan membuat sebuah aplikasi sederhana yang dapat melakukan aksi print screen atau screen shoot pada layar atau jendela sistem operasi windows dan aplikasinya kita buat dengan delphi. hasil akhir yang kita harapkan seperti gambar berikut

Membuat Aplikasi Print Screen Sederhana dengan Delphi

Lalu Bagaimana membuatnya? 
Tambahkan satu buah komponen Button dan satu buah component Image pada form anda. berikutnya copy paste cource code (function) berikut pada projek anda  
function GetScreenShot: TBitmap; 
var
  Desktop: HDC; 
begin 
  Result  := TBitmap.Create; 
  Desktop := GetDC(0); 
  try 
    try 
      Result.PixelFormat := pf32bit;
      Result.Width := Screen.Width;
      Result.Height := Screen.Height; 
      BitBlt(Result.Canvas.Handle, 0, 0, Result.Width, Result.Height, Desktop, 0, 0, SRCCOPY); 
      Result.Modified := True; 
    finally 
      ReleaseDC(0, Desktop); 
    end; 
  except 
    Result.Free; 
    Result := nil; 
  end; 
end;

Langkah terakhir tambahkan sebaris code berikut pada event onclick milik button (klik dua kali pada komponen button)
Image1.Picture.Bitmap := GetScreenShot;

Empty Recycle Bin dengan Code Delphi

Dalam belajar bahasa pemrograman komputer utamanya keluarga pascal (delphi) selain latihan membangun sebuah aplikasi atau projek sendiri hal yang banyak saya lakukan adalah dengan mempelajari trik-trik yang ada di internet. saya kira menghafal coding memang pelu tapi bukan itu intinya karena jika kita berlatih secara continoue maka secara otomatis coding akan mudah kita hafal.

Berikut saya sharing sedikit trik tentang bagaimana mengosongkan recycle bin dengan code delphi. meskipun hal ini dapat kita lakukan dengan mudah melalui utilitas yang sudah ada di windows tapi saya kira tidak ada salahnya untuk kita pelajari. baiklah, untuk membuat perintah empty recycle bin windows disini saya menggunakan sebuah procedure sebagai berikut   
Procedure KosongkanBakSampah;
Const
SHERB_NOCONFIRMATION = $00000001;
SHERB_NOPROGRESSUI = $00000002;
SHERB_NOSOUND = $00000004;

Type
TSHEmptyRecycleBin = function (Wnd : HWND; pszRootPath : PChar; dwFlags : DWORD) : HRESULT; stdcall ;

Var
SHEmptyRecycleBin : TSHEmptyRecycleBin;
LibHandle : THandle;

Begin
LibHandle := LoadLibrary(PChar('Shell32.dll')) ;

if LibHandle <> 0 then
  begin
  @SHEmptyRecycleBin := GetProcAddress(LibHandle, 'SHEmptyRecycleBinA');
  end
  else
    begin
      MessageDlg('GAGAL !', mtError, [mbOK], 0);
      Exit;
    end;

  if @SHEmptyRecycleBin <> nil then
      SHEmptyRecycleBin(Application.Handle, nil, SHERB_NOCONFIRMATION or SHERB_NOPROGRESSUI or SHERB_NOSOUND);
      FreeLibrary(LibHandle);
      @SHEmptyRecycleBin := nil ;
end;

Untuk menggunakannya, anda hanya perlu memanggil nama procedurenya pada event yang anda kehendaki untuk melakukan proses penghapusan recycle bin. Selamat mencoba. :)

Wednesday, July 30, 2014

Tutorial Cara Memasang Captcha Di Delphi

Captcha biasanya digunakan oleh programmer untuk menambah pertahanan pada sebuah sistem yang dibangun. Captcha sendiri seringkali berupa kode-kode yang terdapat dalam sebuah gambar. Jumlah kode tentu saja bervariasi tergantung si pembuat captcha tersebut. Secara sederhana penggunaan captcha adalah untuk memastikan bahwa sebuah proses pada program benar-benar dijalankan oleh manusian (bukan robot atau script hacker) oleh karena captcha banyak kita jumpai pada aplikasi berbasis website.

Meski Aplikasi desktop jarang menggunakan Captcha, saya kira tidak ada salahnya jika kita belajar bagaimana memasang captcha pada inputan form seperti gambar dibawah ini sehingga sebuah aksi tidak akan dapat dilakukan jika kode captcha yang diketikan salah. Kita patut bangga karena komponen captcha dibuat oleh orang indonesia. Nama component captcha delphi ini adalah TCenadepCaptcha silahkan download disini.

Tutorial Cara Memasang Captcha Di Delphi

1. Install Komponen Captcha yang sudah anda download sebelumnya. Silahkan baca postingan sebelumnya jika anda tidak paham bagaimana menginstall komponen di delphi disini caranya sama seperti menginstall component aplha skin delphi.

2. Tambahkan sebuah komponen image dan beberapa komponen seperti gambar diatas kemudian tambahkan komponen captcha (biasanya di pallete terakhir) lalu atur propertinya seperti gambar berikut

Tutorial Cara Memasang Captcha Di Delphi

Contoh Source code lengkap implementasi captcha dan validasinya dapat anda download disini. Happy Coding. :)