Cara membuat file PDF menggunakan Delphi 7

Cara membuat file PDF menggunakan Delphi 7

Tutorial kalli ini adalah bagaimana membuat file PDF untuk sebuah report menggunakan bahasa pemrograman delphi 7. Ide posting kali ini sebenarnya setelah saya ditugasi membuat sebuah report yang harus dijalankan menggunakan timer sehingga saya tidak perlu membuat report tengah malam, tetapi membuat program menggunakan delphi 7 untuk membuat report dalam bentuk PDF secara runtime. Setelah googling saya mendapati website yang membahas cara membuat file PDF menggunakan delphi yaitu http://synopse.info/fossil/wiki?name=PDF+Engine. Tools yang didapatkan dari website tersebut merupakan open source.

Pada posting kali ini bagaimana membuat file PDF menggunakan delphi 7. perhatikan contoh berikut ini.

procedure TForm5.Button1Click(Sender: TObject);
var
 lPdf   : TPdfDocument;
 lPage  : TPdfPage;
begin
  lPdf := TPdfDocument.Create;
  try
    lPdf.Info.Author        := 'Tester';
    lPdf.Info.CreationDate  := Now;
    lPdf.Info.Creator       := 'Tester';
    lPdf.DefaultPaperSize   := psA4;
    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( 300, 700,  'This is some text.');
    lPdf.Canvas.EndText;
    lPdf.SaveToFile('c:\temp\test.pdf');
  finally  
    lPdf.Free;
  end;
end;

contoh tersebut saya ambil dari http://synopse.info/forum/viewtopic.php?pid=370 script di atas adalah bagaimana membuat sebuah file PDF sederhana.