XFA-Functi&#111;ns

Quote deabrew

Thanks(0)

Quote

Topic: XFA-Functions
Posted: 06 Oct 09 at 7:21AM

We'll look at this further internally, thanks for pointing this out...

DELBEKE

Debenu Quick PDF Library Expert

Joined: 31 Oct 05
Location: France
Status: Offline
Points: 151

Post Options

Quote DELBEKE

Thanks(0)

Quote

Posted: 24 Jul 09 at 12:34PM

Whitghout loading a pdf file, Qp.GetXFAFormFieldCount() return 1. I think it's a bug

mlange

Beginner

Joined: 21 Jul 09
Location: Germany
Status: Offline
Points: 6

Post Options

Thanks(0)

Quote

Posted: 24 Jul 09 at 9:28AM

Another Question: There are only two fields in the pdf-file. Why does the function returns 3?

mlange

Beginner

Joined: 21 Jul 09
Location: Germany
Status: Offline
Points: 6

Post Options

Thanks(0)

Quote

Posted: 24 Jul 09 at 9:26AM

Ty for the reply.

I have tried the other declaration also. But no success. Btw, in the reference guide, the dll-version of 7.14 returns an integer...

DELBEKE

Debenu Quick PDF Library Expert

Joined: 31 Oct 05
Location: France
Status: Offline
Points: 151

Post Options

Quote DELBEKE

Thanks(0)

Quote

Posted: 24 Jul 09 at 9:00AM

Hi mlange

I have tried the activeX version and it works fine for me, i got 3 in fcountint.

the only change i've done is to dim fcountInt as a long

Option Explicit

Private Sub Command1_Click()
Dim Qp As Object
Dim X As Long
Dim fcountInt As Long
    Set Qp = CreateObject("QuickPDFAX0714.PDFLibrary")
    X = Qp.UnlockKey("xxxx")

    X = Qp.LoadFromFile("C:\PdfVisu\PdfTest\AFX\Designer71.pdf")
    fcountInt = Qp.GetXFAFormFieldCount()
MsgBox fcountInt
End Sub

mlange

Beginner

Joined: 21 Jul 09
Location: Germany
Status: Offline
Points: 6

Post Options

Thanks(0)

Quote

Posted: 24 Jul 09 at 8:41AM

Hi Rowan, ty for you reply.

Ok, for further investigatins here is the Code and the file:

1. Code
    Dim x As Long
    Dim fcountInt As Integer
    Dim fcountlong As Long


    ' ########################
    ' Try with the DLL-Version
    ' ########################

    Dim inst As Long
    inst = QuickPDFCreateLibrary()
    x = QuickPDFUnlockKey(inst, "my key")
    x = QuickPDFLoadFromFile(inst, "Designer71.pdf")
    fcountlong = QuickPDFGetXFAFormFieldCount(inst)



    ' ########################
    ' Try with the AX-Version
    ' ########################



    Dim qp As Object
    Set qp = CreateObject("QuickPDFAX0714.PDFLibrary")
    qp.UnlockKey ("my key")

    x = qp.LoadFromFile("Designer71.pdf")
    fcountInt = qp.GetXFAFormFieldCount()

2. Screens from the Errors:

2.1 AX-Version

2.2 DLL-Version

3. The file i have used (not the original, but the same effect)

http://img248.imageshack.us/img248/5895/designer71.pdf

4. explanation
the error pops up in the line with the red border.
Sorry for the "german" screenshots, but this is whre i work :-).

greetings, Marc

Edited by mlange - 24 Jul 09 at 8:51AM

Rowan

Moderator Group

Joined: 10 Jan 09
Status: Offline
Points: 398

Post Options

Quote Rowan

Thanks(0)

Quote

Posted: 24 Jul 09 at 12:18AM

Hi mlange,

The GetXFAFormFieldName function should have worked with a Adobe Designer 7.1 made file. Is there anywhere that you could upload this file to for us to look at? If you can't share the document with the public email me the document at rowan.hanna@quickpdflibrary.com.

Cheers,

- Rowan.

mlange

Beginner

Joined: 21 Jul 09
Location: Germany
Status: Offline
Points: 6

Post Options