[VB]
函数声明:
Public Declare Function SubmitShortMessage Lib "SMEntry.dll" (ByVal AtTime As String, ByVal SourceAddr As String, ByVal DestAddr As String, ByVal Content As String, ByVal ContentLen As Long, ByVal NeedStateReport As Long, ByVal ServiceID As String, ByVal FeeType As String, ByVal FeeCode As String) As Long
调用代码:
Private Sub SubmitButton_Click()
Dim Ret As Long
Ret = SubmitShortMessage(SendTimeText.Text, SourceAddrText.Text, DestAddrText.Text, ContentText.Text, LenB(ContentText.Text), 1, “EIE”, “02”, “10”)
If Ret <> 0 Then
MsgBox "单发短信失败!RetCode=" & Ret
End If
End Sub
这是Delphi的。
[Delphi]
函数声明:
function SubmitShortMessage(AtTime : pchar ; SourceAddr : pchar;DestAddr : pchar; Content : pchar; ContentLen : Cardinal; NeedStateReport: integer; ServiceID: pchar; FeeType: pchar; FeeCode: pchar) : integer; stdcall; external 'SMEntry.dll' name 'SubmitShortMessage';
调用代码:
procedure TMainForm.SubmitButtonClick(Sender: TObject);
var
Ret : integer;
SendTime : string;
begin
SendTime := FormatDateTime('yyyy-MM-dd hh:mm:ss', SendTimePicker.DateTime);
Ret := SubmitShortMessage(pchar(SendTime), pchar(SourceAddrEdit.Text), pchar(DestAddrEdit.Text), pchar(ContentMemo.Lines.Text), Length(ContentMemo.Lines.Text), 1, ‘EIE’, ‘02’, ‘10);
If Ret <> 0 then
ShowMessage('RetCode='+IntToStr(Ret));