Title: Creating PDF Documents - The free way
Question: How to create easy and fast PDF Documents
Answer:
Creating PDF
There are many pdf writers on the market but, unfortunately, all are shareware. This waiting time is now finished, because I have find the most easiest to use pdf writer and, best of all, it is completely freeware (with source code). The component is developed by K. Nishita and you can download it from here.
Let's see how to write a simple PDF document. Put a Memo component on a form, a TImage and a button. Write something into memo and load a image. We will create a simple document with text and image. On the Click event of the button we will write our PDF creation code:
procedure TForm1.Button1Click(Sender:TObject);
var
p:TPrintPDF;
begin
//First create a Pdf object
p:=TPrintPDF.Create(Self);
with p do
begin
FileName:='c:\test.pdf';//the name of the PDF file
Title:='The PDF Demo';//set document's title
//Now set page width/height
PageWidth:=600;
PageHeight:=700;
BeginDoc; //Start Document
LineWidth:=1; //Set Line
//Set Font
Font.Name:=poTimesRoman;
Font.Size:=12;
MemoOut(10,10,Memo1); //Write the memo contents
NewPage; //start new page
Draw(10,10,Image1); //Draw image1 at x,y coord.
NewPage;
TextOut(10,10,'This is the end...');//Output a string
EndDoc;//the document end
Free; //Free the PDF object
end;
end;
Simply, isn't it? And, the best of everithing, it's absolutely free!