pdf_read.pas

此代码是完成PDF文档阅读器有代码,请注意:

unit PDF_Read;

interface

uses Windows, Classes, Graphics, Forms, Controls, Menus,clipbrd,
  Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls, ImgList, StdActns,
  ActnList, ToolWin, OleCtrls, FoxitReaderSDKLib_TLB, FileCtrl,StrUtils;

type
  TPDF_AppForm = class(TForm)
    OpenDialog: TOpenDialog;
    SaveDialog: TSaveDialog;
    ToolBar1: TToolBar;
    ActionList1: TActionList;
    ImageList1: TImageList;
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    FileOpenItem: TMenuItem;
    FileSaveAsItem: TMenuItem;
    Edit1: TMenuItem;
    CutItem: TMenuItem;
    CopyItem: TMenuItem;
    PasteItem: TMenuItem;
    Help1: TMenuItem;
    HelpAboutItem: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    X1: TMenuItem;
    Panel1: TPanel;
    TreeView1: TTreeView;
    Panel2: TPanel;
    Panel3: TPanel;
    FoxitReaderSDK1: TFoxitReaderSDK;
    StatusBar1: TStatusBar;
    Label1: TLabel;
    Label2: TLabel;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    ToolButton16: TToolButton;
    ToolButton17: TToolButton;
    FileOpen1: TFileOpen;
    FileSaveAs1: TFileSaveAs;
    procedure FileNew1Execute(Sender: TObject);
    procedure FileOpen1Execute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure TreeView1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PDF_AppForm: TPDF_AppForm;

implementation

uses about;

{$R *.dfm}

procedure TPDF_AppForm.FileNew1Execute(Sender: TObject);
begin
  { Do nothing }
end;

procedure TPDF_AppForm.FileOpen1Execute(Sender: TObject);
var
  str1,str2,str3:string;
  i,j:integer;
  my_node1,my_node2:Ttreenode;
  ts:TStringList;
begin
OpenDialog.Title:='选择PDF文件';
OpenDialog.Filter:='*.PDF|*.pdf';
OpenDialog.FilterIndex:=2;
ts:=tstringlist.Create;
TreeView1.ReadOnly:=true;
if Opendialog.Execute() then
   begin
   TreeView1.Items.Clear;
   my_node1:=TreeView1.Items.Add(TreeView1.TopItem,'PDF文档');
      ts.Delimiter:='\';

   for I := 0 to Opendialog.Files.Count - 1 do
   begin
   ts.DelimitedText:=Opendialog.Files.Strings[i];
   j:=ts.Count;
   str1:=ts.Strings[j-1];
   TreeView1.Items.AddChild(my_node1,str1);
   end;
   str1:='';
   for i:=0 to ts.Count-2 do
   str1:=str1+ts.Strings[i]+'\';
   label2.Caption:=str1;
   end;
 end;

procedure TPDF_AppForm.FormCreate(Sender: TObject);
begin
FoxitReaderSDK1.ShowBookmark(false);
FoxitReaderSDK1.ShowStatusBar(false);
FoxitReaderSDK1.ShowToolBar(false);
FoxitReaderSDK1.ShowTitleBar(false);
end;

procedure TPDF_AppForm.TreeView1Click(Sender: TObject);
var
str1,str2,str3,str4:string;
my_node:TTreenode;
i,j,factor:integer;
begin
my_node:=Treeview1.Selected;
if my_node.Level=1 then
begin
str1:=label2.Caption+my_node.Text;
StatusBar1.Panels[1].Text:=str1;
FoxitReaderSDK1.OpenFile(str1,'');
factor:=FoxitReaderSDK1.ZoomLevel;
FoxitReaderSDK1.ZoomLevel:=factor-13;
FoxitReaderSDK1.SetLayoutShowMode(1,1);
i:=FoxitReaderSDK1.PageCount;
j:=FoxitReaderSDK1.CurPage;
str(i:3,str3);
str(j+1:3,str4);
StatusBar1.Panels[3].Text:=str4+'/'+str3;
end;

end;

end.