I have an old project which was compiling fine under D2K9 w/ QuickPDF 6.

 

Lately, I have upgraded to D2K10 w/ QuickPDF 7.24ß2 (Tested also 7.14) and I always receive an access violation message which I did not have before with older versions from the RTL library.

 

This message is returned when executing TQuickPDF.Create instruction?!

 

The software has a main program which dynamically load DLLs for various reports, and each of these DLLs are compiled using QuickPDF package in project options.

 

Do you know what causes the trouble?

 

Thanks,

 

Olivier

 

 

 

procedure TForm1.Button1Click(Sender: TObject);

Var hUserToken: Cardinal;
    PDF: TQuickPDF;
begin
  If LogonUser ('Administrator','DOMAIN','xxxxxx', LOGON32_LOGON_INTERACTIVE, LOGON32_PROVIDER_DEFAULT, hUserToken) then begin
    If ImpersonateLoggedOnUser(hUserToken) then begin
      PDF := TQuickPDF.Create;
      PDF.Free;
    end;
  end;
end;

This was working fine with older versions of QuickPDF I was using but with version 7, I cannot impersonate domain admin and perform a TQuickPDF.Create without an "Access violation" message.

 

Any suggestion?

 

 

 

procedure TForm1.Button1Click(Sender: TObject);
Var hUserToken: Cardinal;
begin
  If LogonUser ('Administrator','DOMAIN','xxxxx', LOGON32_LOGON_INTERACTIVE, LOGON32_PROVIDER_DEFAULT, hUserToken) then begin
    If ImpersonateLoggedOnUser(hUserToken) then begin
      PDFLibrary1.UnlockKey(strQuickPDFCode7);
      PDFLibrary1.DrawText(100, 500, 'Hello from Delphi');
      PDFLibrary1.SaveToFile('HelloFromDelphi.pdf');
    end;
  end;
end;

 

Error given is now:

Project Project1.exe raised exception class EOleSysError with message 'OLE error 80070542, ClassID: {5530475D-F0A2-41BF-AA94-72FA0779289D}

 

That's exactly what I mean... TQuickPDF cannot be registered/created with impersonation...

 

Both with VCL component (My first code above) and with ActiveX (The second code above) returns a QuickPDF Create function failure (With either an access violation (VCL) or an EOleSysError (ActiveX)), but ONLY when I impersonate my admin account... See message posted: 14 Feb 11 at 3:54PM.

 

This problem comes with any QuickPDF v7, and was not occuring with older v6...

I have strictly, absolutely, no problem to create a QuickPDF object if I don't impersonate: it occurs ONLY with impersonation, and it has nothing to do with DLL loading as I first thought.

 

Please help !!! ;)

(I believe I might have to wait for QuickPDF next version...)

 

Delphi Win32 Service “Printer Selected is not valid” error on 2008 64bit standard server.

http://stackoverflow.com/questions/4618833/delphi-win32-service-printer-selected-is-not-valid-error-on-2008-64bit-standard - http://stackoverflow.com/questions/4618833/delphi-win32-service-printer-selected-is-not-valid-error-on-2008-64bit-standard

If you're using Windows Vista or Windows 7 you're going to run into issues with security changes they've made recently, UAC being one of them. The above article mentions printing, but it is going to touch on other areas as well. This wasn't a problem in XP.

What operating system are you running on?

 

I'm dealing with the same problem. Delphi XE & QuickPdf 7.24. Windows 7 64bit

 

qp :=  TQuickPDF0724.Create;

 

Event Log Delphi: Degub Output, CryptoAcquireContext: Failed to read registry signature value at cryptapi.c line 873

 

Have you already found a solution?

 

thx

My line of code in Delphi 7 was very simple:

rc:=QP.PrintDocument(rc:=QP.PrintDocument, 1, 6, QP.PrintOptions(1, 0, 'Formular'));, 1, 6, QP.PrintOptions(1, 0, 'Formular'));

 

I get the same kind of error:Invalid printer name.

Much google work done an came on http://www.codenewsfast.com/cnf/article//permalink.art-ng1612q9464 - http://www.codenewsfast.com/cnf/article//permalink.art-ng1612q9464

After the modifications made by the mentioned link:

It works only on de default printer, other printers get the message printer not ready

I get the printernames by :QP.GetPrinterNames;

Complete code (77 lines)  below

var
  Form1: TForm1;
  QP: TQuickPDF0811;
  QPKEY, prts : STring;
  UnlockResult, filea, rc : Integer;
  npn : string;
  c : pchar;

implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit3.Text:='Pending';   application.ProcessMessages;
     UnlockResult := QP.UnlockKey(qpkey);
      if UnlockResult = 1 then
        begin
        If FileExists(edit1.text) = true then
           begin
             QP.LOADFROMfILE(edit1.text, '');  filea := QP.SelectedDocument();
             rc:=QP.PrintDocument(edit2.text, 1, 6, QP.PrintOptions(1, 1, 'Formular'));
            end;
        end; { End of Unlock  }
        edit3.Text:=intTostr(rc);
end;

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
edit2.Text:=listbox1.Items[listbox1.itemindex];
listbox1.selected[listbox1.Itemindex]:=true;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
edit2.Text:=listbox1.Items[listbox1.itemindex];
listbox1.selected[listbox1.Itemindex]:=true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
QPkey:= 'Mykey';
QP := TQuickPDF0811.Create;
edit2.text:= QP.GetDefaultPrinterName();
prts:=QP.GetPrinterNames;
listbox1.Clear;
listbox1.Items.DelimitedText:=prts;
listbox1.Itemindex:=listbox1.items.indexof(edit2.text);
listbox1.selected[listbox1.Itemindex]:=true;
end;
end.

When i use the default printer.pas I get failure : Invalid printer name.

When I use the modified printer.pas I get failure : Device not ready

 

I think there must be something wrong in the printer.pas or other units of Delphi 7.

My system is a Vista 64 bit Sp2 with QPDF 0812.

 

But I fund a solution for my problem !!!

 

I Insert the folowing line of code : cPrinter:=qp.NewCustomPrinter(edit2.text);

I can't explain why this is a solution, but it works.

 

Another strange effect what I have seen is that without that line of code the error "Invalid printername" comes up and after that, QPDF returns on a not expected point in my program.

3  lines of code after the END statement which should be the return point.

 

So I think there is a failure in the QPDF.PrintDocument error recovery, becuase i am 100% sure that the printer name i use is the right one. I retrieve them by  QPDF.Getprinternames;   

 

To solve this last failure I put a Try Except clause around the QPDF.PrintDocument statement..