Debenu Quick PDF Library - PDF SDK Community Forum : INFO DA Functions

INFO DA Functions : It seems that I have a similar...

Wed, 23 Dec 2009 11:43:30 +0000

Author: shimax
Subject: 1258
Posted: 23 Dec 09 at 11:43AM

It seems that I have a similar problem with version 7.1.7.
DASetinfomration method does not work as expected.

I downloaded Quick PDF Library Demo from
http://www.quickpdflibrary.com/blog/2009/10/a-customizable-demo-for-quick-pdf-library/

But DASetinfomration method does not set up "Author" as the program designates.
"Rowan" is not set as "Author" but just a blank data in Adobe Reader 9.2 or 8.1.7.

Strangely enough, if i open the produced PDF file(the same file as above) in Adobe Reader 7.0 or 6.0,
it shows Author as "Rowan".

In this Demo program, only title and subject is properly set by using DASetInoformation in my environment. Even if I add some codes for "Creator","Producer","Keywords" upon this sample program, these data does not show up in Adobe Reader 9.2 or 8.1.7. Only title and subject shows up in the property window.

Is this phenomena happening only in my Japanese environment?

My environment is:
1. Windows Vista Ultimate and Acrobat Professional 9.2 (Japanese OS)
2. Windows 7 and Adobe Reader 9.2 (Japanese OS)

And it seems that this phenomena depends on the PDF file which is processed.
If I change the code as below:
//fileHandle = QP.DAOpenFile(GetInputFolder() + "debenu final tm.pdf", "");
fileHandle = QP.DAOpenFile(GetInputFolder() + "document properties.pdf", "");

It works as expected.

INFO DA Functions : OK, Thanks I try with direct...

Tue, 27 Oct 2009 17:08:24 +0000

Author: Dario
Subject: 1258
Posted: 27 Oct 09 at 5:08PM

OK, Thanks

I try with direct support

INFO DA Functions : Hi Dario!I like more the functionality-range...

Tue, 27 Oct 2009 16:45:47 +0000

Author: Ingo
Subject: 1258
Posted: 27 Oct 09 at 4:45PM

Hi Dario!

I like more the functionality-range from the non-da-functions ...

You wrote that inside your development-environment (ide) it's all okay? Is this right?

Anyway... your thread is a little bit older... There are many QuickPDF-users here... so i fear the problem isn't basically a QuickPDF-problem? ...or here's nobody (me too) working on such big files.

I think the time has come to go with your probs to the official support.

I've posted some useful links in the general-section.

Cheers, Ingo

INFO DA Functions : Is impossible to use "Copy"...

Tue, 27 Oct 2009 14:59:15 +0000

Author: Dario
Subject: 1258
Posted: 27 Oct 09 at 2:59PM

Is impossible to use "Copy" and "Paste" command in the forum....

Ingo, do you use normaly DA Fuction to work not for Hobby?

Bye

INFO DA Functions : Dim Risultato As String = Nothing Dim...

Tue, 27 Oct 2009 14:50:43 +0000

Author: Dario
Subject: 1258
Posted: 27 Oct 09 at 2:50PM

Dim Risultato As String = Nothing

Dim QUICKPDF_Doc As QuickPDFAX0716.PDFLibrary

QUICKPDF_Doc = CreateObject("QuickPDFAX0716.PDFLibrary")

Risultato = QUICKPDF_Doc.UnlockKey(Licenza)

If Risultato <> 1 Then Exit Sub

Analisi nei MODULI CONVERTI

Try

Dim Cartella1DTEMP As New System.IO.DirectoryInfo(PathConverti1OffSetTemp)

If Not Cartella1DTEMP.Exists Then Cartella1DTEMP.Create()

Dim ThreadFILE1 As System.IO.FileInfo = Nothing

Dim FilePDF1DElaborato As String = Nothing

For Each ThreadFILE1 In Cartella1DTEMP.GetFiles

If UCase(ThreadFILE1.Extension) = ".PDF" Then

If Not (ThreadFILE1.Attributes And FileAttributes.System) = FileAttributes.System And Not (ThreadFILE1.Attributes And FileAttributes.Hidden) = FileAttributes.Hidden Then

Dim Nome1Dps As String = ThreadFILE1.Name.Substring(0, ThreadFILE1.Name.Length - 4)

If Nome1Dps.Substring(0, 3) = "1D_" Or Nome1Dps.Substring(0, 3) = "2D_" Then Nome1Dps = Nome1Dps.Substring(6, Nome1Dps.Length - 6)

FilePDF1DElaborato = PathConverti1Scan & "OFFSET\OUT\" & ThreadFILE1.Name.Substring(0, ThreadFILE1.Name.Length - 3) & "PDF"

FileOpen(1, ThreadFILE1.FullName, OpenMode.Binary)

FileClose(1)

Dim HandlerFILE As Long = QUICKPDF_Doc.DAOpenFile(ThreadFILE1.FullName, "")

Risultato = QUICKPDF_Doc.DASetInformation(HandlerFILE, "Title", Nome1Dps)

If Risultato = 0 Then

FrmSQOperazioni.TextBox1.AppendText(vbCrLf & "***** " & DateTime.Now)

FrmSQOperazioni.TextBox1.AppendText(vbCrLf & "***** Errore durante la certificazione del Titolo nel")

FrmSQOperazioni.TextBox1.AppendText(vbCrLf & "***** MODULO CONVERTI del Primo Dispositivo")

FrmSQOperazioni.TextBox1.AppendText(vbCrLf & " ")

Exit Try

End If

Risultato = QUICKPDF_Doc.DASetInformation(HandlerFILE, "Subject", "2")

If Risultato = 0 Then

FrmSQOperazioni.TextBox1.AppendText(vbCrLf & "***** " & DateTime.Now)

FrmSQOperazioni.TextBox1.AppendText(vbCrLf & "***** Errore durante la certificazione del Soggetto nel")

FrmSQOperazioni.TextBox1.AppendText(vbCrLf & "***** MODULO CONVERTI del Primo Dispositivo")

FrmSQOperazioni.TextBox1.AppendText(vbCrLf & " ")

Exit Try

End If

Risultato = QUICKPDF_Doc.DASetInformation(HandlerFILE, "Producer", "ProXFLOW " & My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor & "." & My.Application.Info.Version.Build & "." & My.Application.Info.Version.MinorRevision)

If Risultato = 0 Then

FrmSQOperazioni.TextBox1.AppendText(vbCrLf & "***** " & DateTime.Now)

FrmSQOperazioni.TextBox1.AppendText(vbCrLf & "***** Errore durante la certificazione del Produttore nel")

FrmSQOperazioni.TextBox1.AppendText(vbCrLf & "***** MODULO CONVERTI del Primo Dispositivo")

FrmSQOperazioni.TextBox1.AppendText(vbCrLf & " ")

Exit Try

End If

If System.IO.File.Exists(FilePDF1DElaborato) Then System.IO.File.Delete(FilePDF1DElaborato)

Risultato = QUICKPDF_Doc.DASaveAsFile(HandlerFILE, FilePDF1DElaborato)

If Risultato = 1 Then System.IO.File.Delete(ThreadFILE1.FullName)

End If

Else

If Not (ThreadFILE1.Attributes And FileAttributes.System) = FileAttributes.System And Not (ThreadFILE1.Attributes And FileAttributes.Hidden) = FileAttributes.Hidden Then

FileOpen(1, ThreadFILE1.FullName, OpenMode.Binary)

FileClose(1)

If System.IO.File.Exists(PathConverti1Err & ThreadFILE1.Name) Then System.IO.File.Delete(PathConverti1Err & ThreadFILE1.Name)

System.IO.File.Move(ThreadFILE1.FullName, PathConverti1Err & ThreadFILE1.Name)

End If

Catch When Err.Number = 75 ' Errore Generato quando il File ancora in uso

Exit Try

Catch

FrmSQOperazioni.TextBox1.AppendText(vbCrLf & "***** " & DateTime.Now)

FrmSQOperazioni.TextBox1.AppendText(vbCrLf & "***** Errore Generico durante la certificazione nel")

FrmSQOperazioni.TextBox1.AppendText(vbCrLf & "***** MODULO CONVERTI del Primo Dispositivo")

FrmSQOperazioni.TextBox1.AppendText(vbCrLf & " ")

End Try

INFO DA Functions : NO, NO I was wrong to write down,...

Tue, 27 Oct 2009 14:47:22 +0000

Author: Dario
Subject: 1258
Posted: 27 Oct 09 at 2:47PM

NO, NO I was wrong to write down, because I didn't use the commands "ctrl C" and "ctrl V".

I always use QuickPDF_Doc

Remember!!! I don't have any errors when development and when the program start.

Thanks

INFO DA Functions : Hi Dario!I've done a long...

Mon, 26 Oct 2009 13:26:51 +0000

Author: Ingo
Subject: 1258
Posted: 26 Oct 09 at 1:26PM

Hi Dario!

I've done a long look:
There are:
QPDF_Doc.,
PDF_Doc and
and
QuickPDF_Doc.
I think that's the problem ;-)
Change them all to QuickPDF_Doc. and it will work.

Cheers and good luck!
Ingo

Edited by Ingo - 26 Oct 09 at 1:28PM

INFO DA Functions : I want to say: I take a file...

Mon, 26 Oct 2009 12:27:31 +0000

Author: Dario
Subject: 1258
Posted: 26 Oct 09 at 12:27PM

I want to say:

I take a file from 400Mbyte "test.pdf"

If this file is processed witn "NOT DA Function" all works good

If this file is processed with "DA Functions" I have problems. The propreties not change.

In my code there aren't additional controls. I have wrote "...." for example.

I must to work only with DA Functions because I can to have PDF files from 0.1Mbyte to 2.500Mbyte.

My code is correct? or is there better way to write it?

Thanks Ingo

Cheers, Dario

INFO DA Functions : Hi Dario!Are you speaking from...

Mon, 26 Oct 2009 06:22:46 +0000

Author: Ingo
Subject: 1258
Posted: 26 Oct 09 at 6:22AM

Hi Dario!

Are you speaking from the same files?
There's one file you can work on with the "not-da-functions" and there's the same file and the da-functions fails?
What i'm missing in your code is something like "if encrypted then unencrypt" before doing anything with the pdf-file...

Cheers, Ingo

Edited by Ingo - 26 Oct 09 at 6:23AM

INFO DA Functions : Hi INGO, I try to explain mebetter Same...

Sat, 24 Oct 2009 22:32:48 +0000

Author: Dario
Subject: 1258
Posted: 24 Oct 09 at 10:32PM

Hi INGO, I try to explain me better

Same application with DA Function works very well (for example DAFindPage or DaOpenFile or DANewPage or ect...). I have big problem with DASetInformation function. I must use DA Function because my document PDF are large and complex (for me normaly large PDF is 800-1200Mbyte).

In my line code I open "DAOpenFile" without problems, read properties "DAGetInformation" without problems (when call the function the answer is always "1"). The strange thing is when "DASetInformation" with my parameters I have always the answer = "1" but i PDF the parameters are like before (for example "Subject" or "Producer" or "Title" or "Custom MetaData". If I do same things with normaly not DA functions "GetInformation" or "SetInformation" with "LoadFromFile" all works good ONLY with little PDF files (0 to 300Mbyte). I I write a few lines of code to see if something wrong: (N.B. there are only important lines of code not all)

Dim Risultato As String = Nothing

QUICKPDF_Doc = createObject("QuickPDFAX0716.PDFLibra")

Risultato = QUICKPDF_Doc.unlockKey(Licenza)

If Risultato <> 1 thenExit Sub

Try

For Each ThreadFILE1 in Cartella1DTEMP.GetFiles

Dim HandlerFILE as Long = QUICKPDF_Doc.DaOpenFile(ThreadFILE1.FullName, "")

Risultato = QPDF_Doc.DASetInformation(HandlerFILE,Title", ThreadFILE1.Name)

If Risultato = 0 then

.........Exit Try

end if

Risultato = PDF_Doc.DaSaveAsFile(HandlerFILE, "C:\" & FILE1.Name)

If Risultato = 0 then

........ Exit Try

End if

Catch

.......

End Try

QUICKPDF_Doc = nothing

If there are one or more errors, where are they? This code doesn't work!

If I translate the code with NOT DA functions the code works good

I also tried calling and closing the Library into a cycle NEXT but nothing...

Thanks for any information