VB在98 xp调用成功; 但DELPHI在98下出问题 请帮忙
dll c形式:
BOOL Send (char * lpDi , char * lpSMS );
// -- Input: lpDi-> 号码(ASCII + \0)
// lpSMS-> 内容(ASCII +\0)
// -- Format: !GM:YYMMMM
// -- return: TRUE(1) or FALSE(0)
以下程序在XP下无问题,在98下出问题
a:=o至9的一位string 列如 0,1,2,8
b:=>10以上的>两位的string 列如 10,55
phoneNum:=138xxxxxxxx
selectstr16:='!GM:'+'81a'+#0;
f:=Send(pchar(phoneNum),pchar(selectstr16)); // 成功f=1
phoneNum:=138xxxxxxxx
selectstr16:='!GM:'+'81b'+#0;
f:=Send(pchar(phoneNum),pchar(selectstr16)); //失败f=0 why?
該dll能在98下運行!!
VB调用 成功 但DELPHI出问题 请帮忙
Private Sub cmdSend_Click()
Dim b As Boolean
Dim code As String
Dim msg As String
code = txtDi.Text
msg = txtSMS.Text
b = SendInformation(code, msg)
If b = False Then
MsgBox "失败", vbInformation, "消息"
Else
MsgBox "成功!", vbInformation, "消息"
End If
End Sub