I possible identify PDF gererated by Debenu

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

   Hi,
I am user of 11.12 version and I generated a lot of PDF using the simple code below.  By the way, some documents was stoled and now I need identify who was generated by Debenu to try a proof that is original. If part of License Key or any other tag is found, I can to proof that document was generated by Debenu or by me.

Thaks a lot for any information.

QP := TDebenuPDFLibrary.Create;
QP.UnlockKey(DebenuKey);
QP.NewDocument();
Pages := QP.GetImagePageCount(DirTmp + 'scanner.tif');
if Pages = 0 then Pages := 1;
for nK := 1 to Pages do
  begin
    if nK > 1 then QP.NewPage();
    Id := QP.AddImageFromFile(DirTmp + 'scanner.tif', nK);
    QP.SelectImage(Id);
    Dpix := QP.ImageHorizontalResolution();
    Dpiy := QP.ImageVerticalResolution();

    if Dpix = 0 then Dpix := 200;
    if Dpiy = 0 then Dpiy := 200;

    ImageWidthInPoints := 792;
    ImageHeightInPoints := 1145;

    QP.SetPageDimensions(ImageWidthInPoints, ImageHeightInPoints);
    QP.SetOrigin(1);
    QP.DrawImage(0, 0, ImageWidthInPoints, ImageHeightInPoints);
  end;
QP.SaveToFile(DirTmp + 'scanner.pdf');
QP.Free;

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
zadoque Members Profile Find Members Posts Beginner Joined: 20 Sep 17 Location: Brazil Status: Offline Points: 3	Post Options Post Reply Quote zadoque Report Post Thanks(0) Quote Reply Topic: I possible identify PDF gererated by Debenu Posted: 20 Sep 17 at 5:15PM
	Hi, I am user of 11.12 version and I generated a lot of PDF using the simple code below. By the way, some documents was stoled and now I need identify who was generated by Debenu to try a proof that is original. If part of License Key or any other tag is found, I can to proof that document was generated by Debenu or by me. Thaks a lot for any information. QP := TDebenuPDFLibrary.Create; QP.UnlockKey(DebenuKey); QP.NewDocument(); Pages := QP.GetImagePageCount(DirTmp + 'scanner.tif'); if Pages = 0 then Pages := 1; for nK := 1 to Pages do begin if nK > 1 then QP.NewPage(); Id := QP.AddImageFromFile(DirTmp + 'scanner.tif', nK); QP.SelectImage(Id); Dpix := QP.ImageHorizontalResolution(); Dpiy := QP.ImageVerticalResolution(); if Dpix = 0 then Dpix := 200; if Dpiy = 0 then Dpiy := 200; ImageWidthInPoints := 792; ImageHeightInPoints := 1145; QP.SetPageDimensions(ImageWidthInPoints, ImageHeightInPoints); QP.SetOrigin(1); QP.DrawImage(0, 0, ImageWidthInPoints, ImageHeightInPoints); end; QP.SaveToFile(DirTmp + 'scanner.pdf'); QP.Free;

Ingo Members Profile Find Members Posts Moderator Group Joined: 29 Oct 05 Status: Offline Points: 3529	Post Options Post Reply Quote Ingo Report Post Thanks(0) Quote Reply Posted: 26 Sep 17 at 10:09PM
	Hi Zadoque, if you read in the pdf-file as a string or stream you can check fulltext for the strings: "/QuickPDF" and/or "/iSQP" (without the quotes). If one of them is inside it's a pdf made by QuickPDF. Cheers and welcome here, Ingo
	Cheers, Ingo

zadoque Members Profile Find Members Posts Beginner Joined: 20 Sep 17 Location: Brazil Status: Offline Points: 3	Post Options Post Reply Quote zadoque Report Post Thanks(0) Quote Reply Posted: 11 Oct 17 at 6:27PM
	Hello Ingo, First off all, thank you. This is will help to prove that pdf was made by QuickPdf. I am feel with a responsibility to help someone here. Best Regards, Paulo.