(DataFlex) Appending Strings to BinData

Demonstrates appending strings to a BinData..

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoBinData1
    Boolean iSuccess
    Handle hoBinData2
    String sTemp1

    Get Create (RefClass(cComChilkatBinData)) To hoBinData1
    If (Not(IsComObjectCreated(hoBinData1))) Begin
        Send CreateComObject of hoBinData1
    End

    // Append a string using a 1-byte per char encoding
    Get ComAppendString Of hoBinData1 "This is a test" "windows-1252" To iSuccess
    Get ComGetEncoded Of hoBinData1 "hex" To sTemp1
    Showln sTemp1
    // The bytes contained within the binData1 (in hex) are: 54,68,69,73,20,69, ...

    Get Create (RefClass(cComChilkatBinData)) To hoBinData2
    If (Not(IsComObjectCreated(hoBinData2))) Begin
        Send CreateComObject of hoBinData2
    End

    // Append a string using a 2-byte per char encoding
    Get ComAppendString Of hoBinData2 "This is a test" "utf-16" To iSuccess
    Get ComGetEncoded Of hoBinData2 "hex" To sTemp1
    Showln sTemp1
    // The bytes contained within the binData2 (in hex) are: 54,00,68,00,69,00,73,00,20,00,69,00, ...


End_Procedure