(PowerBuilder) Load Entire File into BinData

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

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

integer li_rc
oleobject loo_Fac
integer li_Success
oleobject loo_Bd
integer li_MaxBytesToRead

loo_Fac = create oleobject
// Use "Chilkat_9_5_0.FileAccess" for versions of Chilkat < 10.0.0
li_rc = loo_Fac.ConnectToNewObject("Chilkat.FileAccess")
if li_rc < 0 then
    destroy loo_Fac
    MessageBox("Error","Connecting to COM object failed")
    return
end if

li_Success = loo_Fac.OpenForRead("qa_data/pdf/sample.pdf")
if li_Success = 0 then
    Write-Debug loo_Fac.LastErrorText
    destroy loo_Fac
    return
end if

loo_Bd = create oleobject
// Use "Chilkat_9_5_0.BinData" for versions of Chilkat < 10.0.0
li_rc = loo_Bd.ConnectToNewObject("Chilkat.BinData")

li_MaxBytesToRead = 99999999
li_Success = loo_Fac.FileReadBd(li_MaxBytesToRead,loo_Bd)
if li_Success = 0 then
    Write-Debug loo_Fac.LastErrorText
    destroy loo_Fac
    destroy loo_Bd
    return
end if

loo_Fac.FileClose()

// The bd object contains the file data...
li_Success = loo_Bd.WriteFile("qa_output/sample.pdf")


destroy loo_Fac
destroy loo_Bd