Tcl

Load Entire File into BinData

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

load ./chilkat.dll

set success 0

set fac [new_CkFileAccess]

set success [CkFileAccess_OpenForRead $fac "qa_data/pdf/sample.pdf"]
if {$success == 0} then {
    puts [CkFileAccess_lastErrorText $fac]
    delete_CkFileAccess $fac
    exit
}

set bd [new_CkBinData]

set maxBytesToRead 99999999
set success [CkFileAccess_FileReadBd $fac $maxBytesToRead $bd]
if {$success == 0} then {
    puts [CkFileAccess_lastErrorText $fac]
    delete_CkFileAccess $fac
    delete_CkBinData $bd
    exit
}

CkFileAccess_FileClose $fac

# The bd object contains the file data...
set success [CkBinData_WriteFile $bd "qa_output/sample.pdf"]

delete_CkFileAccess $fac
delete_CkBinData $bd