参考如下代码:
var
oleout:olevariant;
begin
oleout:=varCreateArray([0,0],varByte);//只发送一个字节
oleout[0]:=$aa;//一般的测试数据(〉$80)
m_ctrlmscomm.settings:='57600,n,8,1';
m_ctrlmscomm.open:=true;
m_ctrlmscomm.output:=oleout;
...
m_ctrlmscomm.open:=false;
end;
var
oleout:olevariant;
begin
oleout:=varCreateArray([0,0],varByte);//只发送一个字节
oleout[0]:=$aa;//一般的测试数据(〉$80)
m_ctrlmscomm.settings:='57600,n,8,1';
m_ctrlmscomm.open:=true;
m_ctrlmscomm.output:=oleout;
...
m_ctrlmscomm.open:=false;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货