INFO DA Functi&#111;ns

Thanks(0)

Quote

Topic: INFO DA Functions
Posted: 24 Oct 09 at 8:58AM

Is there anyone the uses the DA Functions?

Thanks

Ingo

Moderator Group

Joined: 29 Oct 05
Status: Offline
Points: 3524

Post Options

Thanks(0)

Quote

Posted: 24 Oct 09 at 12:57PM

Hi Dario!

Yes...

There are many 'cause the DA-functions normally need less memory.

So it can be worthful to use them if there are bigger files to work with.

You can see here many threads having to do with DA-functionality.

Please use the search-function above.

Cheers, Ingo

Dario

Beginner

Joined: 26 Jul 09
Location: Italy
Status: Offline
Points: 19

Post Options

Thanks(0)

Quote

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

Ingo

Moderator Group

Joined: 29 Oct 05
Status: Offline
Points: 3524

Post Options

Thanks(0)

Quote

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

Dario

Beginner

Joined: 26 Jul 09
Location: Italy
Status: Offline
Points: 19

Post Options

Thanks(0)

Quote

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

Ingo

Moderator Group

Joined: 29 Oct 05
Status: Offline
Points: 3524

Post Options

Thanks(0)

Quote

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

Dario

Beginner

Joined: 26 Jul 09
Location: Italy
Status: Offline
Points: 19

Post Options

Thanks(0)

Quote

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

Dario

Beginner

Joined: 26 Jul 09
Location: Italy
Status: Offline
Points: 19

Post Options

Thanks(0)

Quote

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

Dario

Beginner

Joined: 26 Jul 09
Location: Italy
Status: Offline
Points: 19

Post Options

Thanks(0)

Quote

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

Ingo

Moderator Group

Joined: 29 Oct 05
Status: Offline
Points: 3524

Post Options

Thanks(0)

Quote

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

Dario

Beginner

Joined: 26 Jul 09
Location: Italy
Status: Offline
Points: 19

Post Options

Thanks(0)

Quote

Posted: 27 Oct 09 at 5:08PM

OK, Thanks

I try with direct support

shimax

Beginner

Joined: 03 Oct 09
Location: Japan
Status: Offline
Points: 6

Post Options

Quote shimax