Menjalankan Source Code VB di Delphi

VB atau yang juga dikenal dengan nama visual basic memang sangat jauh berbeda dengan delphi. secara penulisan code, delphi mengadopsi penulisan code bahasa pemrograman pascal sehingga delphi juga kerap disebut objek pascal karena setiap komponennya merupakan sebuah objek,
adapun VB atau visual basic lebih mirip bahasa C. Visual Basic merupakan bahasa pemrograman yang dikembangkan oleh orang-orang Microsoft sedangkan delphi saat ini dikembangkan oleh Embarcadero.

Menguasai beberapa bahasa pemrograman sekaligus memang tidaklah mudah karena untuk benar-benar menguasai satu bahasa pemrograman saja susahnya minta ampun. Terkadang dalam membuat sebuah aplikasi dengan delphi saya sering memperoleh source code contoh yang menggunakan Visual Basic. Jujur saja saya sedikit kesulitan untuk menterjemahnya menjadi bahasa objek pascal.

Berawal dari hal itu saya tertarik untuk memposting artikel yang akan membahas bagaimana menjalankan source code visual basic melalui delphi. kita membutuhkan sebuah komponen tambahan untuk melakukannya. secara default delphi tidak menyediakannya oleh karena silahkan download disini.

Sampai disini saya anggap anda sudah menginstall komponen yang diperlukan. Jika anda sukses melakukan instalasi, akan ada komponen tambahan di pallete terakhir. Silahkan tambahkan komponen tersebut kedalam form anda. tambahkan juga beberapa komponen sebagai berikut

- Memo 1 Buah, digunakan untuk mengetikan Source code Visual Basic
- Button 1 Buah, digunakan untuk mengeksekusi coding VB yang diketik melalui memo.

Pada Contoh disini saya membuat sebuah procedure untuk menjalankan source code VB sebagai berikut. Anda dapat mendownload contoh source code projeknya disini.

procedure TForm1.vb_script(coding : string);
var
  CodeIsParsed : boolean;
  strProcName : string;
begin
    try
      SMScriptExecutor1.AddCode(coding);
      SMScriptExecutor1.Prepare;
      SMScriptExecutor1.ParseModules;
      CodeIsParsed := True;
      // Proses Script
      strProcName := 'main';
      SMScriptExecutor1.Run(strProcName,0);
  except
  end;
end;

Menampilkan Gambar di Laporan Delphi

Dalam Mengembangkan ataupun membangun sebuah aplikasi berbasis database, penggunaan laporan atau bahasa kerennya report tentu akan sangat diperlukan. biasanya fasilitas-fasilitas pencetakan laporan yang ada dalam sebuah aplikasi akan berkaitan dengan data-data yang telah tersimpan di database. sebut saja laporan transaksi penjualan dari aplikasi penjualan akan menampilkan data penjualan yang telah tersimpan di database.

Adakalanya dalam sebuah laporan kita menampilkan data-data dari database dalam bentuk gambar. misalkan data pegawai atau data-data lainnya. Berangkat dari permasalahan ini saya tertarik untuk membahas tentang bagaimana menampilkan gambar dari database pada laporan Quick Report. Jadi asumsinya, kita akan menyimpan data gambar pada database kemudian menampilkannya ke laporan di Quick Report.

Sampai disini saya anggap anda sudah memahami bagaimana menyimpan gambar ke database serta membuat laporan dengan quick report. langkah selanjutnya sebenarnya sama saja dengan teknik menampilkan gambar dari database. perhatikan contoh berikut ini.

pada gambar diatas saya menggunakan komponen QRImage dari pallete Quick Report kemudian untuk memberikan value atau nilai pada gambar tersebut saya menggunakan coding. silahkan download source code programnya disini. Selamat mencoba silahkan kembangkan sendiri.