读取短信的问题,谢谢!

ylvb ylvb 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
procedure TForm1.Button5Click(Sender: TObject);
var
jd:tjindismscontrol;
oa:widestring;
time:widestring;
phoneno:widestring;
msg:widestring;
begin
jd:=tjindismscontrol.Create(nil);
jd.Settings:='9600,N,8,1';
jd.CommPort :=strtoint(edit2.text);//RS_commport;
jd.CenterNo:='+8613010112500';
if jd.IsOpen then
begin
exit;
end;
if not jd.OpenCom=0 then
begin//设备打开失败;
exit;
end;
if jd.ReadMsgForIndex(oa,msg,time,edit4.Text)=0 then//执行到此处老提示无效的过程调用或参数,检查多边没发现问题,不知道是什么原因?
begin//读取成功
edit5.Text :=msg;
end;
try
IF jd.IsOpen then jd.CloseCom
except
end;
end;
...全文

相关推荐

评论 3
收藏 已收藏
分享
返回顶部
ylvb
无线 3,849 成员 5,006 内容