用变体数组输出,就是二进制
示意
var
 v : variant
v(0)=...
v(1)=...
mscomm.output:=v