(Visual FoxPro) Extract Embedded Files from PDF

Demonstrates how to get information about the embedded files (if any) contained within a PDF, and shows how to extract each file.

Note: This example requires Chilkat v9.5.0.95 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loPdf
LOCAL lnSuccess
LOCAL lnNumFiles
LOCAL loJson
LOCAL loBd
LOCAL i
LOCAL lcFilename

* This example requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Pdf')
loPdf = CreateObject('Chilkat.Pdf')

lnSuccess = loPdf.LoadFile("qa_data/pdf/embedded_files/my_embedded_files_test.pdf")
IF (lnSuccess = 0) THEN
    ? loPdf.LastErrorText
    RELEASE loPdf
    CANCEL
ENDIF

* Note: The embedded file functionality was added in Chilkat v9.5.0.95

* How many embedded files exist within the opened PDF?
lnNumFiles = loPdf.NumEmbeddedFiles
? "Number of embedded files: " + STR(lnNumFiles)

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')
loJson.EmitCompact = 0

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData')
loBd = CreateObject('Chilkat.BinData')

* Get information about each file, and extract each to the filesystem.
i = 0
DO WHILE i < lnNumFiles

    lnSuccess = loPdf.GetEmbeddedFileInfo(i,loJson)
    IF (lnSuccess = 0) THEN
        ? loPdf.LastErrorText
        RELEASE loPdf
        RELEASE loJson
        RELEASE loBd
        CANCEL
    ENDIF

    ? loJson.Emit()

    * Get the filename from the JSON.
    lcFilename = "someFile.dat"

    * The filename SHOULD always be present..
    IF (loJson.HasMember("filename") = 1) THEN
        lcFilename = loJson.StringOf("filename")
    ENDIF

    * Get the file data.
    lnSuccess = loPdf.GetEmbeddedFileBd(i,loBd)
    IF (lnSuccess = 0) THEN
        ? loPdf.LastErrorText
        RELEASE loPdf
        RELEASE loJson
        RELEASE loBd
        CANCEL
    ENDIF

    * Save the contents of the bd to the filename (in the current working directory) in the filesystem.
    lnSuccess = loBd.WriteFile(lcFilename)
    IF (lnSuccess = 0) THEN
        ? "Failed to write output file."
    ENDIF

    i = i + 1
ENDDO

* Sample output for the above code:

* Number of embedded files: 3
* {
*   "filename": "employees.json",
*   "desc": "JSON",
*   "subType": "application/json",
*   "size": 159,
*   "creationDate": "D:20230715170506-05'00'",
*   "modDate": "D:20160207153838-05'00'"
* }
* 
* {
*   "filename": "rsaPubKey.pem",
*   "desc": "RSA Public Key PEM",
*   "size": 451,
*   "creationDate": "D:20230715170546-05'00'",
*   "modDate": "D:20150724133153-05'00'"
* }
* 
* {
*   "filename": "starfish.jpg",
*   "desc": "Starfish JPG",
*   "subType": "image/jpeg",
*   "size": 6229,
*   "creationDate": "D:20230715170356-05'00'",
*   "modDate": "D:20080529103055-05'00'"
* }

RELEASE loPdf
RELEASE loJson
RELEASE loBd