RenderDocumentToFile not working??

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic


     ToFileName := RemoveBackSlashChar(DstDirName) + '\TmpPng%p.bmp';
  PDFLibrary := TQuickPDF0719.Create;
  Try
    UnlockResult := PDFLibrary.UnlockKey(edtLicenseKey);
    IF UnlockResult <> 1 then
      Exit;

    IF Not FileExists(Pdf_FileName) Then
      Exit;

    CurCursor := Screen.Cursor;
    Try
      Screen.Cursor := crHourGlass;
      PDFLibrary.LoadFromFile(Pdf_FileName);

//      PDFLibrary.SetOrigin(1);
//      PDFLibrary.SetMeasurementUnits(1);
//      PDFLibrary.SetPageSize('A4');


      PDFLibrary.RenderDocumentToFile(72,1,1,0{BMP},ToFileName);

    Finally
      Screen.Cursor := CurCursor;
    End;
  Finally
    FreeAndNil(PDFLibrary);
  End;

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
mazluta Members Profile Find Members Posts Beginner Joined: 21 Jun 12 Location: Israel Status: Offline Points: 17	Post Options Post Reply Quote mazluta Report Post Thanks(0) Quote Reply Topic: RenderDocumentToFile not working?? Posted: 21 Jun 12 at 6:28AM
	ToFileName := RemoveBackSlashChar(DstDirName) + '\TmpPng%p.bmp'; PDFLibrary := TQuickPDF0719.Create; Try UnlockResult := PDFLibrary.UnlockKey(edtLicenseKey); IF UnlockResult <> 1 then Exit; IF Not FileExists(Pdf_FileName) Then Exit; CurCursor := Screen.Cursor; Try Screen.Cursor := crHourGlass; PDFLibrary.LoadFromFile(Pdf_FileName); // PDFLibrary.SetOrigin(1); // PDFLibrary.SetMeasurementUnits(1); // PDFLibrary.SetPageSize('A4'); PDFLibrary.RenderDocumentToFile(72,1,1,0{BMP},ToFileName); Finally Screen.Cursor := CurCursor; End; Finally FreeAndNil(PDFLibrary); End;

mazluta Members Profile Find Members Posts Beginner Joined: 21 Jun 12 Location: Israel Status: Offline Points: 17	Post Options Post Reply Quote mazluta Report Post Thanks(0) Quote Reply Posted: 21 Jun 12 at 10:20AM
	i figer out that if the ToFileName is in Document And Setting it fail. C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\MzSc\20120621181251\TmpPng%p.png if i change it to c:\aa\TmpPng%p.png it work. is it bug in quickpdf??

Ingo Members Profile Find Members Posts Moderator Group Joined: 29 Oct 05 Status: Offline Points: 3530	Post Options Post Reply Quote Ingo Report Post Thanks(0) Quote Reply Posted: 21 Jun 12 at 10:53PM
	Hi! The To-filename is yours ;-) There are many functions making long paths from short ones. Please ask Google for it and then do something like ToFileName := MakeLongPath(ToFileName) before using it ;-) Cheers and welcome here, Ingo

mazluta Members Profile Find Members Posts Beginner Joined: 21 Jun 12 Location: Israel Status: Offline Points: 17	Post Options Post Reply Quote mazluta Report Post Thanks(0) Quote Reply Posted: 21 Jun 12 at 11:30PM
	thanks for the replay. i will test your idia. will back to you with or

Ingo Members Profile Find Members Posts Moderator Group Joined: 29 Oct 05 Status: Offline Points: 3530	Post Options Post Reply Quote Ingo Report Post Thanks(0) Quote Reply Posted: 22 Jun 12 at 12:18PM
	Hi! Here's a link to relevant convertion functions: http://www.delphidabbler.com/tips/6 Taking this samples this could work for you: ToFileName := GetLongName(ToFileName); Cheers, Ingo

mazluta Members Profile Find Members Posts Beginner Joined: 21 Jun 12 Location: Israel Status: Offline Points: 17	Post Options Post Reply Quote mazluta Report Post Thanks(0) Quote Reply Posted: 22 Jun 12 at 4:02PM
	Well Ingo. i test it. and it work fine. i steel think it's QuickPdf responsbilty to work with any (good) DIRECTORY i send it. but, it work, so let go on thanks again for your help.