读取短信的问题，谢谢！

[ylvb]

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:='[phone]';
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;

[dongfanghui]

那要看你的jd.ReadMsgForIndex函数怎么写的了。
用的是现成的控件啊，自己写啊。

[ylvb]

发现这样就可以了：
sleep(2200);
if jd.ReadMsgForIndex(oa,msg,time,edit4.Text)=0 then。。。。。。。。

郁闷，什么原因呢？

[meiZiNick]

不会,帮顶