DelphiPdf的使⽤⽅法此⽅法安装了llPDFLib.v3.6 控件、对pdf左侧、右侧正⽂进⾏了操作。
procedure TForm1.Button1Click(Sender: TObject);
var node,nd1:TPDFOutlineNode;
PW,ph:integer;
bmp:TBitmap;
begin
bmp:=TBitmap.Create;
bmp.LoadFromFile('d:\4601.bmp');
sPdf:=TPDFDocument.Create(nil);
//pdf⽂档信息
sPdf.DocumentInfo.CreationDate:=Now;
监兵
sPdf.DocumentInfo.Producer:='Producer';
sPdf.DocumentInfo.Author:='Author';
sPdf.DocumentInfo.Creator:='Creator';
sPdf.DocumentInfo.Keywords:='Keywords';
sPdf.DocumentInfo.Subject:='subject';
sPdf.DocumentInfo.Title:='Title';
sPdf.FileName:='d:\tt.pdf';
sPdf.Compression:=ctFlate;
spdf.OwnerPassword:='123';
sPdf.ProtectionEnabled:=True;
sPdf.PageMode:= pmUOutlines;
sPdf.AutoLaunch:=true;
sPdf.PageLayout:=plSinglePage;
sPdf.BeginDoc;
node:=sPdf.Outlines.Add(nil,'⽬录1',TPDFGoToPageAction.Create,GB2312_CHARSET);
鹿茸适合哪些人吃node.Expanded:=True;
deore
TPDFGoToPageAction(node.Action).PageIndex:=0;
nd1:=sPdf.Outlines.AddChild(node,'第⼀章',TPDFGoToPageAction.Create,GB2312_CHARSET);
nd1.Expanded:=true;机动车违章查询
TPDFGoToPageAction(nd1.Action).PageIndex:=0;
pw:=sPdf.PageWidth;
ph:=sPdf.PageHeight;
铁塔公园
sPdf.CurrentPage.SetActiveFont('⿊体',[fsUnderline],50,GB2312_CHARSET);
with sPdf do
begin接杀球
Canvas.Font.Size:=50;
Canvas.Font.Color:=clRed;
Canvas.Font.Style:=[fsBold,fsUnderline];
Canvas.MoveTo(0,10);
Canvas.LineTo(PW,10);
SetTextAlign(sPdf.Canvas.Handle, TA_CENTER or TA_TOP); //居中
Canvas.TextOut(Round(pw/2),30,'新的故事就要开始了');
塑料花
Canvas.TextOut(50,30,IntToStr(pw)+','+inttostr(ph));
Canvas.MoveTo(0,50);
徒步音乐Canvas.LineTo(PW,50);
Canvas.Draw(100,100,bmp);
end;
sPdf.NewPage;
nd1:=sPdf.Outlines.AddChild(node,'第⼆章',TPDFGoToPageAction.Create,GB2312_CHARSET);
nd1.Expanded:=true;
TPDFGoToPageAction(nd1.Action).PageIndex:=1;
sPdf.EndDoc;
sPdf.Free;
bmp.Free;
end;
