把asp 一段语句翻译成delphi,谢谢

Question

function aaa(sstr) '转换成字节数组
Set xmldoc = CreateObject("Msxml2.DOMDocument")
Set node = xmldoc.CreateElement("binary")
node.DataType = "bin.hex"
node.Text = sstr
bytes = node.NodeTypedValue
aaa=bytes
end function
请那位大侠帮我转换为 delphi 感激不尽！

Answer 1

http://www.cnblogs.com/lcw/p/3352864.html
参考其中 string转为字节数组