var
sendsms:oleVariant;
n:integer;
begin
sendsms:=CreateoleObject('SMSAPI.HTTPClient');
n:=sendsms.Connect('test','test');
sendsms.DstAddress:='13823273808';
sendsms.SrcAddress:='6388';
sendsms.ServiceID:='MFXX';
sendsms.DLType:=15;
sendsms.DLData:='test';
n:=sendsms.Send();<--出错语句
.
.
end;
同是一样的代码,我用VB写能调用成功.但到了DELPHI中就出现"无效参数数目"错误.为什么?
分不够再加!
附VB代码:
Dim nResult As Long
Dim objSMS As Object
Dim n As Integer
Set objSMS = CreateObject("SMSAPI.HTTPClient")
n = objSMS.Connect("test", "test")
objSMS.DstAddress = "13823273808"
objSMS.SrcAddress = "6388"
objSMS.ServiceID = "MFXX"
objSMS.DLType = 15
objSMS.DLData = "test"
nResult = objSMS.Send()
End Sub
sendsms:oleVariant;
n:integer;
begin
sendsms:=CreateoleObject('SMSAPI.HTTPClient');
n:=sendsms.Connect('test','test');
sendsms.DstAddress:='13823273808';
sendsms.SrcAddress:='6388';
sendsms.ServiceID:='MFXX';
sendsms.DLType:=15;
sendsms.DLData:='test';
n:=sendsms.Send();<--出错语句
.
.
end;
同是一样的代码,我用VB写能调用成功.但到了DELPHI中就出现"无效参数数目"错误.为什么?
分不够再加!
附VB代码:
Dim nResult As Long
Dim objSMS As Object
Dim n As Integer
Set objSMS = CreateObject("SMSAPI.HTTPClient")
n = objSMS.Connect("test", "test")
objSMS.DstAddress = "13823273808"
objSMS.SrcAddress = "6388"
objSMS.ServiceID = "MFXX"
objSMS.DLType = 15
objSMS.DLData = "test"
nResult = objSMS.Send()
End Sub
解决方案 »
- 进销存中,结未收款的一个困惑
- delphi frame 和 inherit form 哪個效率更高
- 怎样让 SpeedButton 上的图案颜色变灰,就象 Enabled:=false 类似效果 ,最好不使用 imageList ?
- 大四,马上要毕业找工作的同学请进?
- 关于动态链接库中窗口的显示
- 求XP下读网卡物理地址的问题。 要求能拔掉网线也读的出.
- 主从报表问题请教!
- 多表查询的问题:在线等待。
- FTP上传时,有重名文件为什么会报错?
- delphi编写控制台程序(用WRITELN()输出),输出结果在仿真DOS窗口中,为何该仿真DOS窗口一闪而过,几乎来不急看清,如何调节时间??
- 打印的小问题
- 关于Listview简单的问题
下列的赋植值得怀疑,将自动化兼容的字符串类型付给他!!
sendsms.DstAddress:='13823273808';
sendsms.SrcAddress:='6388';
sendsms.ServiceID:='MFXX';
sendsms.DLType:=15;
sendsms.DLData:='test';