有用TurboPower.Async 做过短信发送的吗

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
  ApdTapiDevice1.SelectDevice;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  if ApdComPort1.ComNumber = 0 then
     ApdTapiDevice1.SelectDevice;
  ApdComPort1.Open := True;
  ApdGSMPhone1.SMSAddress := Edit1.Text;
  ApdGSMPhone1.SMSCenter := Edit2.Text;
  ApdGSMPhone1.SMSMessage := Edit3.Text;
  try
    ApdGSMPhone1.SendMessage;
    ShowMessage('成功');
  except
    ShowMessage('失败');
  end;
  ApdComPort1.Open := false;
end;
 
程序运行后 选择设备 不管是Motorola sm56 data fax modem 还是direct to com3 都提示发送失败？求助

Answer 1

edit没有空格另外 补充下 GSM Modem和发送程序不在同一台电脑上

Answer 2

汗,那不就得了.你为什么以为你的程序就能从某一点直接找到你要的设备,并进行通讯呢.=================================
你用本地MODEM,在用软件测试一下,看看会不会发?如果你要做异地发送,你要确认MODEM支持IP信号传输,或者加一个支持TCP/IP传输的设备.或者在异地机开通一个信息端号,并能二机互联,在像该异地端口发送数据.

Answer 3

我发个demo给你 不用那么麻烦