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

[tony5566]

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 都提示发送失败？求助

[nbzip]

汗,那不就得了.你为什么以为你的程序就能从某一点直接找到你要的设备,并进行通讯呢.

=================================
你用本地MODEM,在用软件测试一下,看看会不会发?

如果你要做异地发送,你要确认MODEM支持IP信号传输,或者加一个支持TCP/IP传输的设备.或者在异地机开通一个信息端号,并能二机互联,在像该异地端口发送数据.

[7年]

不懂，帮顶。是不是EDIT的数值有空格？

[tony5566]

edit没有空格

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

[xiaoxiaopei]

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