Untuk Membuat File PDF sendiri dengan Delphi saya sendiri menggunakan component Delphi pihak ketiga yaitu SynPDF yang dikembangkan oleh tim mormot. Komponennya bersifat opensource jadi kita bebas menggunakannya, menyebarkan dan mengembangkannya. Begitu deh enaknya kalau software open source jadi kalo misalkan anda mengembangkan sebuah projek sebaiknya dibuat open source saja. :)
Hasil yang diperoleh kurang lebih seperti gambar diatas jika dibuka menggunakan foxit reader. Jika anda membutuhkan contoh source code silahkan download disini. Akhir kata selamat mencoba. Happy Coding. :)
Sebelum kita mulai, silahkan download komponent mormot SynPDF disini. Proses Instalasinya tidak begitu rumit karena kita hanya perlu mendifinisikan path library melalui menu Tools | Environment Option. Jika anda masih belum paham anda dapat membacanya pada postingan saya disini.
1. Saya anggap proses instalasi sudah selesai. Buat Projek baru pada Delphi anda kemudian tambahkan didalam uses unit anda unit milik SynPDF seperti contoh berikut
uses2. Berikutnya Saya mendesain tampilan aplikasi sederhana yang berisi tanggal, judul dan isi artikel yang nantinya akan disimpan menjadi file pdf (gambar diatas). Pada proses ini saya juga memanfaatkan component SaveDialog sehingga Coding simpannya menjadi kurang lebih seperti berikut
..., SynPdf;
procedure TForm1.Button1Click(Sender: TObject);
var
lPdf : TPdfDocument;
lPage : TPdfPage;
begin
lPdf := TPdfDocument.Create;
try
if SaveDialog.Execute then
begin
lPdf.Info.Author := 'http://delphitutor.blogspot.com';
lPdf.Info.CreationDate := Now;
lPdf.Info.Creator := 'Ahmad Tauhid';
lPage := lPDF.AddPage;
lPDF.Canvas.SetFont('Helvetica',10.0,[]);
lPDF.Canvas.SetLeading(lPDF.Canvas.Page.FontSize);
lPDF.Canvas.SetLineWidth(0.1);
lPdf.Canvas.BeginText;
lPdf.Canvas.TextOut(20, 750, 'Tanggal : '+FormatDateTime('dd/mm/yyyy',DateTimePicker1.Date));
lPdf.Canvas.TextOut(20, 730, 'Judul : '+Edit1.Text);
lPdf.Canvas.TextOut(20, 710, 'Isi Pesan : '+Memo1.Text);
lPdf.Canvas.EndText;
lPdf.SaveToFile(SaveDialog.FileName+'.pdf');
end;
finally
lPdf.Free;
end;
end;
Hasil yang diperoleh kurang lebih seperti gambar diatas jika dibuka menggunakan foxit reader. Jika anda membutuhkan contoh source code silahkan download disini. Akhir kata selamat mencoba. Happy Coding. :)
Tidak ada komentar:
Posting Komentar