Xbase++

Load Entire File into BinData

Demonstrates how to load an entire file into a BinData object. Xbase++

LOCAL nSuccess
LOCAL oFac
LOCAL oBd
LOCAL nMaxBytesToRead

nSuccess := 0

oFac := CreateObject("Chilkat.FileAccess")

nSuccess := oFac:OpenForRead("qa_data/pdf/sample.pdf")
IF (nSuccess == 0)
    ? oFac:LastErrorText
    oFac:destroy()
    RETURN
ENDIF

oBd := CreateObject("Chilkat.BinData")
nMaxBytesToRead := 99999999
nSuccess := oFac:FileReadBd(nMaxBytesToRead, oBd)
IF (nSuccess == 0)
    ? oFac:LastErrorText
    oFac:destroy()
    oBd:destroy()
    RETURN
ENDIF

oFac:FileClose()

//  The bd object contains the file data...
nSuccess := oBd:WriteFile("qa_output/sample.pdf")

oFac:destroy()
oBd:destroy()