(PowerBuilder) Appending Strings to BinData
Demonstrates appending strings to a BinData..
integer li_rc
oleobject loo_BinData1
oleobject loo_BinData2
loo_BinData1 = create oleobject
li_rc = loo_BinData1.ConnectToNewObject("Chilkat_9_5_0.BinData")
if li_rc < 0 then
destroy loo_BinData1
MessageBox("Error","Connecting to COM object failed")
return
end if
// Append a string using a 1-byte per char encoding
loo_BinData1.AppendString("This is a test","windows-1252")
Write-Debug loo_BinData1.GetEncoded("hex")
// The bytes contained within the binData1 (in hex) are: 54,68,69,73,20,69, ...
loo_BinData2 = create oleobject
li_rc = loo_BinData2.ConnectToNewObject("Chilkat_9_5_0.BinData")
// Append a string using a 2-byte per char encoding
loo_BinData2.AppendString("This is a test","utf-16")
Write-Debug loo_BinData2.GetEncoded("hex")
// The bytes contained within the binData2 (in hex) are: 54,00,68,00,69,00,73,00,20,00,69,00, ...
destroy loo_BinData1
destroy loo_BinData2
|