Tcl

Base64 Encode a File

_LANGUAGE_ to Base64 encode the contents of a file. Tcl

load ./chilkat.dll

set success 0

# Get the contents of a file into a base64 encoded string:
set fac [new_CkFileAccess]

set strBase64 [CkFileAccess_readBinaryToEncoded $fac "c:/data/something.pdf" "base64"]
if {[CkFileAccess_get_LastMethodSuccess $fac] != 1} then {
    puts [CkFileAccess_lastErrorText $fac]
    delete_CkFileAccess $fac
    exit
}

# Now write the string to a file:
set success [CkFileAccess_WriteEntireTextFile $fac "c:/data/something_pdf_base64.txt" $strBase64 "us-ascii" 0]
if {$success != 1} then {
    puts [CkFileAccess_lastErrorText $fac]
    delete_CkFileAccess $fac
    exit
}

puts "Success!"

delete_CkFileAccess $fac