Tutorial Delphi

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

uses
  ..., SynPdf;

2. 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

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