Arsip: Menyimpan data Memo kedalam file MS Word

[b]Tingkatan[/b]

Pemula

[b]Kategori[/b]

Dasar

[b]Sub Kategori[/b]

Object

[b]Judul[/b]

Menyimpan data Memo kedalam file MS Word

[b]Referensi[/b]

http://delphi.about.com/cs/adptips2003/a/bltip0303_5.htm

[b]Tujuan[/b]

Mengajarkan kepada para Delphier yang masih pemula tentang bagaimana cara menyimpan data yang ada didalam object Memo kedalam dokumen MS Word.

[b]Overview[/b]

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.

[b]Petunjuk :[/b]

Silahkan anda ikuti langkah - langkah berikut ini dengan pelan - pelan agar bisa berjalan dengan lancar sesuai dengan petunjuk yang sudah diberikan.

[b]Langkah 1[/b]

Buat program aplikasi baru.

[b]Langkah 2[/b]

Ambil beberapa object kedalam form dari komponen pallete.

Button1: TButton;
Memo1: TMemo;
Bevel1: TBevel;
Button2: TButton;

[b]Langkah 3[/b]

Atur desainnya seperti terlihat gambar berikut.



[b]Langkah 4[/b]

Silahkan anda tambahkan library ComObj pada bagian Uses. Untuk lebih jelasnya silahkan anda lihat potongan kode program dibawah ini.

[CODE=DELPHI]...
...
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComObj, ExtCtrls;
...
...[/CODE]

[b]Langkah 5[/b]

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=DELPHI]...
...
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;
...
...[/CODE]

[b]Langkah 6[/b]

Silahkan anda compile program aplikasi anda itu dengan menekan tombol Ctrl + F9.

[b]Langkah 7[/b]

Lanjutkan dengan menekan tombol F9 hingga program siap untuk dijalankan.



[b]Langkah 8[/b]

Silahkan anda tekan tombol Simpan.

[b]Langkah 9[/b]

Apabila berhasil maka akan didapatkan potongan tampilan gambar seperti berikut.



[b]Langkah 10[/b]

Silahkan anda buka file dokumen tersebut hingga terlihat seperti gambar potongan dibawah ini.



[b]Download[/b]

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.