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;