求助pb10.5用mscomm32.ocx控件读取16进制解析方法

ole_1.object.inbuffercount=0
int length,ii=2
blob output,outputtemp,tempzero,input
outputtemp= blob("~h02"+"~h04",encodingUTF16BE!)
tempzero=blobmid(outputtemp,1,1) //取值00
outputtemp=outputtemp+tempzero+tempzero //+00
outputtemp=outputtemp+blob("~h02",encodingUTF16BE!)
outputtemp=outputtemp+tempzero+tempzero //+00
outputtemp=outputtemp+blob("~h10"+"~h50"+"~h35",encodingUTF16BE!)
length=len(outputtemp)
do while ii<=length
output+=blobmid(outputtemp,ii,1)
ii+=2
loop
ole_1.object.output=output
//sleep(0.5) //延时0.5秒，用来等待串口接受数据
int iiii
do until iiii>=10000
choose case ole_1.object.CommEvent
case 2
iiii=10000
case else
iiii+=1
end choose
loop

input=ole_1.object.input
hitemp=blobmid(input,iii,1) //取高位
lotemp=blobmid(input,iii+1,1) //取低位
alltemp[i]=lotemp+hitemp // 高位低位互换再合成