  |
Menyimpan Data Memo Kedalam File Ms Word |
 Mar 1 2008, 05:32 PM
Kiriman
#1
|
|
|
Ahli Baru Grup: Learning Kiriman: 12 Penyertaan: 4-April 06 Ahli ke- 15,970  |
Tingkatan
Pemula Kategori Dasar Sub Kategori Object Judul Menyimpan data Memo kedalam file MS Word Referensi http://delphi.about.com/cs/adptips2003/a/bltip0303_5.htm Tujuan Mengajarkan kepada para Delphier yang masih pemula tentang bagaimana cara menyimpan data yang ada didalam object Memo kedalam dokumen MS Word. Overview Tutorial ini sangat menarik untuk dipelajari, sebab disini kita akan menyimpan data didalam object Memo kedalam dokumen MS Word. Tips kali ini sebenarnya sangat sederhana sekali, meskipun demikian, secara teknis bagi saya masih susah untuk menjelaskannya. Namun secara lapangan intinya kita bisa melakukan proses penyimpanan ini dengan baik. Apabila anda mengalami kesulitan dalam memahami artikel ini, langsung saja tanyakan permasalahan anda tersebut melalui email atau YM yang sudah ditunjukkan diatas. Kemudian, dari pembahasan dan program contoh yang sudah diberikan, diharapkan anda bisa mengembangkan sendiri untuk kebutuhan program yang akan anda buat. Petunjuk : Silahkan anda ikuti langkah - langkah berikut ini dengan pelan - pelan agar bisa berjalan dengan lancar sesuai dengan petunjuk yang sudah diberikan. Langkah 1 Buat program aplikasi baru. Langkah 2 Ambil beberapa object kedalam form dari komponen pallete. Button1: TButton; Memo1: TMemo; Bevel1: TBevel; Button2: TButton; Langkah 3 Atur desainnya seperti terlihat gambar berikut.  Langkah 4 Silahkan anda tambahkan library ComObj pada bagian Uses. Untuk lebih jelasnya silahkan anda lihat potongan kode program dibawah ini. CODE ... ... uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComObj, ExtCtrls; ... ... Langkah 5 Silahkan anda klik 2x pada tombol Simpan. Isikan kode program didalam event OnCLick dan untuk lebih jelasnya silahkan anda lihat potongan kode pogram dibawah ini. CODE ... ... procedure TForm1.Button1Click(Sender: TObject); var WordApplication, WordDocument: Variant; begin WordApplication := CreateOleObject('Word.Application'); WordDocument := WordApplication.Documents.Add; WordApplication.Selection.TypeText(Memo1.Text); WordDocument.SaveAs(' E:\Doc.Doc',False); WordApplication.Quit(False) end; ... ... Langkah 6 Silahkan anda compile program aplikasi anda itu dengan menekan tombol Ctrl + F9. Langkah 7 Lanjutkan dengan menekan tombol F9 hingga program siap untuk dijalankan.  Langkah 8 Silahkan anda tekan tombol Simpan. Langkah 9 Apabila berhasil maka akan didapatkan potongan tampilan gambar seperti berikut.  Langkah 10 Silahkan anda buka file dokumen tersebut hingga terlihat seperti gambar potongan dibawah ini.  Download Menyimpan data kedalam dokumen MS Word Silahkan anda download link diatas untuk mendapatkan contoh program aplikasi secara lengkap. Ada beberapa masukan dan keluhan dari teman - teman, bahwa ada beberapa program contoh tidak bisa dijalankan dari delphi 7. Hal ini dikarenakan program contoh dibuat dengan menggunakan Delphi 2007 for win32. Apabila anda menggunakan D7, sebaiknya anda mengikuti pandauan dari langkah - langkah yang sudah diberikan. Atas perhatiannya, saya mengucapkan banyak terimakasih. |
 |
 
|
|
|
Lo-Fi Version | Time is now: 11th October 2008 - 08:22 PM |