Tutorial Delphi

Pusing juga buat postingan tentang tutorial. Oleh karenanya kali ini saya akan sharing komponen delphi yang dapat digunakan untuk berkomunikasi dengan modem USB. nama komponennya adalah ZylGSM. component ini bersifat free jadi kita dapat menggunakannya ataupun menyebarluarkannya secara bebas.

Sebagai gambaran, seperti yang telah saya katakan komponen ini dapat digunakan untuk berkomunikasi dengan modem USB, singkatnya anda dapat membuat aplikasi SMS Gateway dengan komponen ini. Jadi selain gammu anda dapat memanfaatkannya untuk kebutuhan membangun aplikasi SMS Gateway. komponen ini memiliki beberapa event seperti berikut

OnConnect = Event yang digunakan ketikan modem konek ke komputer. 
OnDetect = Event yang digunakan untuk mendeteksi perangkat modem.
OnDisconnect = Event ketika modem disconnect 
OnNewMessage = event ketika modem menerima SMS
OnReadMessage = event ketika SMS dibaca
OnSend = Event ketika SMS dikirim 


Anda dapat meletakan coding anda pada event-event diata. Jika anda berminat untuk mencoba komponen ini silahkan Download disini. Mohon maaf karena saya belum sempat membuat projek untuk mencoba komponennya. anda dapat melihat contoh demo penggunaannya didalam folder master komponennya. selamat mencoba.

Kali ini saya ingin berbagi sedikit trik penggunaan komponen TWebBrowser di delphi. komponen ini dapat kita gunakan untuk keperluan menampilkan halaman website pada form delphi. intinya kita dapat membuat sebuah browser sederhana dengan komponen ini. Barangkali dari sobat delphi ada yang berminat membuat atau mengembangkan sebuah browser sendiri komponen web browser ini dapat dimanfaatkan.

disini saya membuat sebuah browser sederhana dengan memanfaatkan komponen web browser ini. sebuah aplikasi yang dapat menampilkan halaman website. membuka tab baru menampilkan status dan beberapa fitur yang masih belum lengkap. untuk tampilannya bisa dilihat seperti di bawah ini

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

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

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;

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.

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. :)

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.

Open Dialog adalah salah satu komponen Delphi yang berada di Pallete Dialog. Komponen dialog ini dapat kita gunakan untuk membuka suatu file yang ada didalam komputer (misal file notepad/*.txt) kemudian menampilkannya kedalam form di delphi menggunakan komponen Memo. Namun tidak terbatas hanya untuk file txt saja, Komponen Open Dialog juga dapat digunakan untuk membuka berbagai macam file yang selanjutnya dapat kita proses.

Selain Open Dialog, terdapat juga komponen Save Dialog yang dapat kita manfaatkan untuk menyimpan suatu file kedalam komputer seperti menyimpan hasil pemrosesan data (hasil backup database) dan semacamnya. berikut saya ingin berbagi contoh penggunaan open dan save dialog di delphi.


Pada contoh ini akan dilakukan pemrosesan pada sebuah file txt dimana akan dibuka oleh Open Dialog dan ditampilkan kedalam komponen memo kemudian hasil pemrosesan akan disimpan melalui save dialog. berikut adalah contoh coding yang saya gunakan

// Buka File TXT
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;
end;

// Simpan Hasil
procedure TForm1.Button2Click(Sender: TObject);
var
namafile : string;
begin
if SaveDialog1.Execute then
begin
NamaFile := SaveDialog1.FileName+'.txt';
Memo1.Lines.SaveToFile(namafile);
ShowMessage('Berhasil disimpan!');
end;
end;