(Visual FoxPro) Add File Attachments to a PDF

See more PDF Signatures Examples

Demonstrates how to attach files to a PDF. This is also known as embedding a file within a PDF.

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

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

LOCAL loPdf
LOCAL lnSuccess
LOCAL loJson
LOCAL i
LOCAL loBd

* 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')

* We'll be adding attachments to this PDF file..
* Note: We are loading the PDF file into memory.  The PDF file is not kept open at this point.
lnSuccess = loPdf.LoadFile("qa_data/pdf/helloWorld.pdf")
IF (lnSuccess = 0) THEN
    ? loPdf.LastErrorText
    RELEASE loPdf
    CANCEL
ENDIF

* Note: The ability to attach files to a PDF was added in Chilkat v9.5.0.97

* Build JSON to provide information about the files to be embedded in the PDF.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')
loJson.EmitCompact = 0

i = 0

* We can attach multiple files in one operation.

* Here we specify the local relative file path of the 1st file to be embedded.
loJson.I = i
loJson.UpdateString("files[i].description","Hello World")
loJson.UpdateString("files[i].localFilePath","qa_data/xml/helloWorld.xml")
i = i + 1

* Specify the 2nd file to be attached.
loJson.I = i
loJson.UpdateString("files[i].description","Image of starfish")
loJson.UpdateString("files[i].localFilePath","qa_data/jpg/starfish.jpg")
* You can explicitly specify the subType (i.e. MIME type) of the file.
* Otherwise Chilkat will use the default MIME type based on the filename extension.
* If no default MIME type exists, then "application/octet-stream" is used.
loJson.UpdateString("files[i].subType","image/jpeg")
i = i + 1

* You can alternatively provide the file data from base64 encoded data rather than from a local file.
loJson.I = i
loJson.UpdateString("files[i].description","Hello World from Data")
loJson.UpdateString("files[i].fileData","SGVsbG8gV29ybGQsIEhlbGxvIFdvcmxkLCBIZWxsbyBXb3JsZCwgSGVsbG8gV29ybGQsIEhlbGxvIFdvcmxk")
loJson.UpdateString("files[i].embeddedFilename","abc.txt")
i = i + 1

* By default, the filename used within the PDF is the filename part of the local file path.
* You can change it by specifying the embeddedFilename.
loJson.I = i
loJson.UpdateString("files[i].description","Invoice")
loJson.UpdateString("files[i].localFilePath","qa_data/xml/invoice.xml")
loJson.UpdateString("files[i].embeddedFilename","invoice_1234.xml")
loJson.UpdateString("files[i].subType","application/xml")

* The above JSON provides instructions for attaching 4 files to the PDF.
* Let's attach the files..
* It is perfectly acceptable to write over the PDF file that was loaded,
* but in this example we'll write the PDF with attachments to a new PDF file.
lnSuccess = loPdf.AddEmbeddedFiles(loJson,"qa_output/helloWorld_withAttachments.pdf")
IF (lnSuccess = 0) THEN
    ? loPdf.LastErrorText
    RELEASE loPdf
    RELEASE loJson
    CANCEL
ENDIF

* You can alternatively write the PDF file with attachments to a Chilkat BinData object..
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData')
loBd = CreateObject('Chilkat.BinData')
lnSuccess = loPdf.AddEmbeddedFilesBd(loJson,loBd)
IF (lnSuccess = 0) THEN
    ? loPdf.LastErrorText
    RELEASE loPdf
    RELEASE loJson
    RELEASE loBd
    CANCEL
ENDIF

* Then you can do what you want with the BinData, which contains the binary image of the PDF with attachments.

? "Success."

RELEASE loPdf
RELEASE loJson
RELEASE loBd