Új hozzászólás Aktív témák

• #3308 amargo addikt Deer_ #3306

  Új Válasz 2008-03-29 15:22:12 #3308

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  amargo

  addikt

  válasz Deer_ #3306 üzenetére

  PDFSharp. Ez egy .NET es library.
  GsPDF Ezt is érdemes megnézned.

  Igaz konzolos:

  {$APPTYPE CONSOLE}
  
  uses
  Windows,SysUtils,ShellApi,Forms,ComObj,Variants;
  
  var Input,InputNew : string;
  FileTest : boolean;
  App, AVDoc : Variant;
  CoInitFlags : Integer = -1;
  VarTest : IDispatch;
  test : PVariant;
  
  
  function RenameFile(const OldName, NewName: string): boolean;
  //renames files, taken from
  //http://www.dsdt.info/tipps/?id=128&search=RenameFile
  var
  sh: TSHFileOpStruct;
  begin
  sh.Wnd := Application.Handle;
  sh.wFunc := fo_Rename;
  //terminate with null byte to set list ending
  sh.pFrom := PChar(OldName + #0);
  sh.pTo := PChar(NewName + #0);
  sh.fFlags := fof_Silent or fof_MultiDestFiles;
  Result:=ShFileOperation(sh)=0;
  end; //end function
  
  
  begin //begin program
  
  Application.Initialize;
  //Read given filename
  Input:= ParamStr(1);
  //InputNew = original filename with ending "-preview" (e.g. test-preview.pdf)
  InputNew:= copy(Input,1,Length(Input)-4); //remove ".pdf"
  InputNew:= InputNew+'-preview.pdf';
  //check if renamed file exists
  FileTest:= FileExists(InputNew);
  //Create OLE-object for the program Acrobat or Adobe Viewer
  App:=CreateOleObject('AcroExch.App');
  //test if given file already exists
  if FileTest = true then
  begin
  //close old file
  AVDoc:=App.GetActiveDoc; //handle of the active document
  VarTest:=AVDoc;
  test:= PVariant(VarTest);
  if test <> PVariant(0) then //when handle is existing
  begin
  try
  AVDoc.Close(true);
  except
  Application.Terminate;
  end;
  end;
  //delete old file
  DeleteFile(InputNew);
  end; //end if FileTest
  //rename file
  RenameFile(Input,InputNew);
  //open renamed file in Acobat or Adobe Viewer
  App.Show; //show window
  App.Restore(true); //restore window size to make window active
  App.Maximize(true); //maximize window
  AVDoc:=CreateOleObject('AcroExch.AVDoc'); //create OLE object for file
  AVDoc.Open(''+InputNew+'',''); //open file
  
  end. //end program

Új hozzászólás Aktív témák