实达WM-100无线MODEM发送短消息的问题,不能发送中文!急(300分)

雨季飘零 · 2006-03-29

由实达厂家提供的DLL,我在DELPHI中调用,但是发送中文短消息收不到,只能发送英文的,以下是主窗体的代码,谁能帮我看看，谢谢了,主要看我注释的那一部门 unit main; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ExtCtrls, ComCtrls, StdCtrls, Buttons; type  TsmsMain = class(TForm)    Panel1: TPanel;    Memo1: TMemo;    StatusBar1: TStatusBar;    Label1: TLabel;    eCom: TEdit;    Label2: TLabel;    eRate: TEdit;    label3: TLabel;    eCenter: TEdit;    eText: TEdit;    Label4: TLabel;    Label5: TLabel;    ePhone: TEdit;    BitBtn1: TBitBtn;    BitBtn2: TBitBtn;    BitBtn3: TBitBtn;    Button1: TButton;    BitBtn4: TBitBtn;    BitBtn5: TBitBtn;    BitBtn6: TBitBtn;    procedure FormShow(Sender: TObject);    procedure BitBtn1Click(Sender: TObject);    procedure Button1Click(Sender: TObject);    procedure BitBtn3Click(Sender: TObject);    procedure BitBtn2Click(Sender: TObject);    procedure OnFormClose(Sender: TObject; var Action: TCloseAction);    procedure BitBtn4Click(Sender: TObject);    procedure BitBtn5Click(Sender: TObject);    procedure BitBtn6Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;  {设置通讯口:入口: szPort: 通讯端口名: "COM1","COM2","COM3"... szRate: 通讯速率，通常取"57600"    返回: SUCC: 成功 FAIL: 失败    说明：在使用动态链接库对MODEM进行操作之前，请先调用该函数打开PC机的串口 }  function WM_init(szPort,szRate : pChar):integer;stdcall;external 'wmdll.dll';  {初始化与MODEM的通信:返回: SUCC: 成功 －1/－2/－3: 失败 -7 未打开串口   说明：在串口设置成功后，请先调用该函数初始化MODEM}  function WmCommInit:short;stdcall;external 'wmdll.dll';  {设置信息中心:入口: szSmsCen: 信息中心号码: "+8613800591500"   返回: SUCC: 成功 FAIL: 失败 -7 未打开串口   说明：与手机的使用相同，在第一次使用MODEM进行短信通信功能之前，必须至少设置一次信息中心号码。 }  function SmsInit(szSmsCen

Char):integer;stdcall;external 'wmdll.dll';  function Dial(szSmsCen

Char):smallint;stdcall;external 'wmdll.dll';  {获得无线MODEM最多允许存储的信息数:入口: 无   返回: -2: 与MODEM通信失败 -1: 解码错误 -7 未打开串口   其他整数: 无线MODEM最多允许存储的信息数}  function Sms_Amount:integer;stdcall;external 'wmdll.dll';  {发送短消息:入口： szSmsBuf：存储发送的信息内容，最多允许发送70个中文。 uiSmsLen: 存储要发送的信息长度 phone:   存储要发送的电话号码，格式为86138*******，即前面必须以86起始   返回: SUCC: 成功 FAIL: 失败 -7 未打开串口}  function SmsSend(szSmsBuf

char;uiSmsLen:integer; phone

char):integer;stdcall;external 'wmdll.dll';  {读取存储序号为index的信息:入口:   index: 存储序号，(取值范围：1～最多存储的信息数，从Sms_Amount函数返回) szSmsBuf：由用户定义，用来存储解码后的信息内容。缓存区大小不要小于140字节   iLenStr：由用户定义，用来存储返回的信息内容长度   szSmsPhone：由用户定义，用来存储该信息发送方的电话号码。   szSmsTime：由用户定义，用来存储该信息发送的时间。格式如030305172536，表示03年03月05日17时25分36秒   szSmsCen：由用户定义，用来存储该信息发送的信息中心号码。   返回:   SUCC: 成功，并将解码后的信息内容、该信息发送方电话号码、信息中心号码、发送时间均存在相应的缓存区内。即上面定义的szSmsBuf、szSmsPhone、szSmsTime、szSmsCen   -1：短消息读取失败   -2：该序号无对应信息   0：存在无法正确解码的编码，并将已经解好的部分存储在相应缓存区内，如同SUCC。   -5：由于信息长度错误，导致发送信息失败。   -7 未打开串口 }  function SmsSendText(szSmsBuf

char;uiSmsLen:integer; phone

char):integer;stdcall;external 'wmdll.dll';  {        以text方式发送短消息：入口:   返回:   SUCC: 成功   FAIL:        失败  }  function Sms_Read_VC(index:integer;szSmsBuf

char;var iLenStr:integer;szSmsPhone,szSmsTime,szSmsCen

char):integer;stdcall;external 'wmdll.dll';  function ReadNextSms(szSmsBuf

char;var iLenStr:integer;szSmsPhone,szSmsTime,szSmsCen

char):integer;stdcall;external 'wmdll.dll';  {删除短信息:入口： index ，将要删除的短信的序号   (取值范围：1～最多存储的信息数，从Sms_Amount函数返回)   返回: SUCC: 成功 FAIL: 失败 -7 未打开串口}  function Sms_Del(index:integer):integer;stdcall;external 'wmdll.dll';  {关闭打开了的串口:返回: SUCC: 成功 2 成功，与SUCC含义不同之处在于，它表示串口未用WM_init成功初始化过。 FAIL: 失败   说明：   一旦用WM_init函数设置通信串口之后，请调用该函数释放线程，否则会一直占用系统资源 }  function port_close:integer;stdcall;external 'wmdll.dll'; var  smsMain: TsmsMain;  iWm_init,iWmCommInit,ismsInit,ismsSend,iRead : integer;  sWmCommInit : short;  iIndex : integer; implementation {$R *.dfm} procedure TsmsMain.FormShow(Sender: TObject); begin  memo1.Clear ; end; procedure TsmsMain.BitBtn1Click(Sender: TObject); var  sePhone,sCenter,sText : string;  pCenter : array[0..20] of char;  pPhone : array[0..20] of char;  pText  : array[0..140] of char;  i,iLen : integer; begin  if eText.Text = '' then  begin    showmessage('发送短信内容不能为空!');    if eText.CanFocus then eText.SetFocus ;    exit;  end;  if ePhone.Text = '' then  begin    showmessage('对方电话不能为空!');    if ePhone.CanFocus then ePhone.SetFocus ;    exit;  end;  {设置通讯口}  iWm_init := Wm_init(pchar( trim(eCom.Text) ),pchar( trim(eRate.Text) ));  if iWm_init = 0 then begin    memo1.Lines.Add('设置通讯口失败!');    exit;  end;  {初始化MORDEM}  sWmCommInit := WmCommInit;  if sWmCommInit <> 1 then begin    Memo1.Lines.Add('初始化MORDEM失败!'+inttostr(iWmCommInit));    port_close;    exit;  end;  {设置短信中心号码}  sCenter := trim( eCenter.Text );  for i := 1 to length(eCenter.Text) do begin    pCenter[i-1] := sCenter;  end;  pCenter:=#0;    ismsInit := smsInit( pCenter );  if ismsInit <> 1 then begin    Memo1.Lines.Add('设置短信中心号码失败(1)!'+inttostr(ismsInit));    port_close;    exit;  end;      {发送短信}  sePhone := '86'+trim( trim( ePhone.Text ) );  for i := 1 to length( sePhone ) do begin    pPhone[i-1] := sePhone;  end;  pPhone:= #0;    iLen := length( eText.Text );  sText := trim( eText.Text );  fillchar(ptext,sizeof(pText),ord(' '));  for i := 1 to length(sText) do  begin    ptext[i-1] := sText;  end;  pText:=#0;  ismsSend := smsSend(pText,iLen,pPhone);  Application.ProcessMessages ;  if ismsSend = 1 then begin    Memo1.Lines.Add('发送成功!');    port_close;  end  else begin    Memo1.Lines.Add('发送失败!'+inttostr(ismsSend));    port_close;    exit;  end; end; procedure TsmsMain.Button1Click(Sender: TObject); var  sCenter : string;  i : integer;  pCenter : array[0..20] of char; begin  {设置通讯口}  iWm_init := Wm_init(pchar( trim(eCom.Text) ),pchar( trim(eRate.Text) ));  if iWm_init = 0 then begin    memo1.Lines.Add('设置通讯口失败!');    exit;  end;  {初始化MORDEM}  sWmCommInit := WmCommInit;  if sWmCommInit <> 1 then begin    Memo1.Lines.Add('初始化MORDEM失败!'+inttostr(iWmCommInit));    port_close;    exit;  end;  {设置短信中心号码}  sCenter := trim( eCenter.Text );  for i := 1 to length(eCenter.Text) do begin    pCenter[i-1] := sCenter;  end;  pCenter:=#0;  ismsInit := smsInit( pCenter );  if ismsInit <> 1 then begin    Memo1.Lines.Add('设置短信中心号码失败(2)!'+inttostr(ismsInit));    port_close;    exit;  end;  Memo1.Lines.Add('置短信中心号码成功!'+inttostr(ismsInit)); end; procedure TsmsMain.BitBtn3Click(Sender: TObject); begin  memo1.Clear ; end; procedure TsmsMain.BitBtn2Click(Sender: TObject); var  sePhone,sCenter,sText : string;  pCenter : array[0..20] of char;  pPhone : array[0..20] of char;  pTime : array[0..12] of char;  pText  : array[0..140] of char; {接收的缓冲区}  i,iLen : integer; begin  {设置通讯口}  iWm_init := Wm_init(pchar( trim(eCom.Text) ),pchar( trim(eRate.Text) ));  if iWm_init = 0 then begin    memo1.Lines.Add('设置通讯口失败!');    exit;  end;  {初始化MORDEM}  sWmCommInit := WmCommInit;  if sWmCommInit <> 1 then begin    Memo1.Lines.Add('初始化MORDEM失败!'+inttostr(iWmCommInit));    port_close;    exit;  end;  {设置短信中心号码}  sCenter := trim( eCenter.Text );  for i := 1 to length(eCenter.Text) do begin    pCenter[i-1] := sCenter;  end;  pCenter:=#0;  ismsInit := smsInit( pCenter );  if ismsInit <> 1 then begin    Memo1.Lines.Add('设置短信中心号码失败(3)!'+inttostr(ismsInit));    port_close;    exit;  end;  {取存储短信最大数}  iIndex := sms_Amount;  if iIndex < 0 then begin    Memo1.Lines.Add('取存储最大数错误!'+inttostr(iIndex));    port_close;    exit;  end;  Memo1.Lines.Add('最多可存储短消息条数:'+inttostr(iIndex));  if iIndex = 0 then begin    Memo1.Lines.Add('目前没有短信!'+inttostr(iIndex));    port_close;    exit;  end;  {读取短信信息}  iLen := 140;  for i := 1 to iIndex do begin    fillchar(ptext,sizeof(pText),ord(' '));{初始化缓冲区}    fillchar(pPhone,sizeof(pPhone),ord(' '));    fillchar(pTime,sizeof(pTime),ord(' '));    fillchar(pCenter,sizeof(pCenter),ord(' '));    iRead := Sms_Read_VC(i,pText,iLen,pPhone,pTime,pCenter);    if iRead <> 1 then begin      Memo1.Lines.Add('接收第'+inttostr(i)+'条短信失败！'+inttostr(iRead));      if i = iIndex then begin       // port_close;        break;      end;      continue;    end;    memo1.Lines.Add('发送号码：'+pPhone+' 时间：'+pTime+'内容：'+pText+'短信中心：'+pCenter);  end;  {删除短信} end; procedure TsmsMain.OnFormClose(Sender: TObject; var Action: TCloseAction); begin  port_close; end; procedure TsmsMain.BitBtn4Click(Sender: TObject); var  sePhone,sCenter,sText : string;  pCenter : array[0..20] of char;  pPhone : array[0..20] of char;  pText  : array[0..140] of char;  i,iLen : integer; begin  if eText.Text = '' then  begin    showmessage('发送短信内容不能为空!');    if eText.CanFocus then eText.SetFocus ;    exit;  end;  if ePhone.Text = '' then  begin    showmessage('对方电话不能为空!');    if ePhone.CanFocus then ePhone.SetFocus ;    exit;  end;  {设置通讯口}  iWm_init := Wm_init(pchar( trim(eCom.Text) ),pchar( trim(eRate.Text) ));  if iWm_init = 0 then begin    memo1.Lines.Add('设置通讯口失败!');    exit;  end;  {初始化MORDEM}  sWmCommInit := WmCommInit;  if sWmCommInit <> 1 then begin    Memo1.Lines.Add('初始化MORDEM失败!'+inttostr(iWmCommInit));    port_close;    exit;  end;  {设置短信中心号码}  sCenter := trim( eCenter.Text );  for i := 1 to length(eCenter.Text) do begin    pCenter[i-1] := sCenter;  end;  pCenter:=#0;  ismsInit := smsInit( pCenter );  if ismsInit <> 1 then begin    Memo1.Lines.Add('设置短信中心号码失败(4)!'+inttostr(ismsInit));    port_close;    exit;  end;  {发送短信}  sePhone := trim( trim( ePhone.Text ) );  for i := 1 to length(ePhone.Text) do begin //这是我的注释,关键问题就在这里    pPhone[i-1] := sePhone;  end;  pPhone:= #0;  iLen := length( eText.Text );  sText := trim( eText.Text );  fillchar(ptext,sizeof(pText),ord(' ')); for i := 1 to length(sText) do  begin    ptext [i-1]:= sText; end;  pText:=#0;  ismsSend := smsSendText(pText,iLen,pPhone);  Application.ProcessMessages ;  if ismsSend = 1 then begin    Memo1.Lines.Add('发送成功!');    port_close;  end  else begin    Memo1.Lines.Add('发送失败!'+inttostr(ismsInit));    port_close;    exit;  end; end; procedure TsmsMain.BitBtn5Click(Sender: TObject); var  sePhone,sCenter,sText : string;  pCenter : array[0..20] of char;  pPhone : array[0..20] of char;  pTime : array[0..12] of char;  pText  : array[0..140] of char; {接收的缓冲区}  i,iLen : integer; begin  {设置通讯口}  iWm_init := Wm_init(pchar( trim(eCom.Text) ),pchar( trim(eRate.Text) ));  if iWm_init = 0 then begin    memo1.Lines.Add('设置通讯口失败!');    exit;  end;  {初始化MORDEM}  sWmCommInit := WmCommInit;  if sWmCommInit <> 1 then begin    Memo1.Lines.Add('初始化MORDEM失败!'+inttostr(iWmCommInit));    port_close;    exit;  end;  {设置短信中心号码}  sCenter := trim( eCenter.Text );  for i := 1 to length(eCenter.Text) do begin    pCenter[i-1] := sCenter;  end;  pCenter:=#0;  ismsInit := smsInit( pCenter );  if ismsInit <> 1 then begin    {ShowMessage('设置失败！');}    Memo1.Lines.Add('设置短信中心号码失败(5)!'+inttostr(ismsInit));    port_close;    exit;  end;  {取存储短信最大数}  iIndex := sms_Amount;  if iIndex < 0 then begin    Memo1.Lines.Add('取存储最大数错误!'+inttostr(iIndex));    port_close;    exit;  end;  Memo1.Lines.Add('最多可存储短消息条数:'+inttostr(iIndex));  if iIndex = 0 then begin    Memo1.Lines.Add('目前没有短信!'+inttostr(iIndex));    port_close;    exit;  end;  {读取短信信息}  iLen := 140;  while(TRUE) do  begin    fillchar(ptext,sizeof(pText),ord(' '));{初始化缓冲区}    fillchar(pPhone,sizeof(pPhone),ord(' '));    fillchar(pTime,sizeof(pTime),ord(' '));    fillchar(pCenter,sizeof(pCenter),ord(' '));    iRead := ReadNextSms(pText,iLen,pPhone,pTime,pCenter);    CASE iRead Of        1:          BEGIN                Memo1.Lines.Add('接收短信成功,后面还有短信未读出！'+inttostr(iRead));                memo1.Lines.Add('发送号码：'+pPhone+' 时间：'+pTime+'内容：'+pText+'短信中心：'+pCenter);          END          ;        2:          BEGIN                Memo1.Lines.Add('接收短信成功,后面已经没有短信未读出！'+inttostr(iRead));                memo1.Lines.Add('发送号码：'+pPhone+' 时间：'+pTime+'内容：'+pText+'短信中心：'+pCenter);          END          ;        3:          BEGIN                Memo1.Lines.Add('缓冲区中已经没有短信未读出！'+inttostr(iRead));                BREAK;          END          ;        -1:          BEGIN                Memo1.Lines.Add('读取失败（可能是串口没有初始化）！'+inttostr(iRead));                BREAK;          END          ;        0:Memo1.Lines.Add('存在无法正确解码的编码！'+inttostr(iRead));    END;    {测试单条}    {break;}  end;  {删除短信} end; procedure TsmsMain.BitBtn6Click(Sender: TObject); VAR  sCenter : string;  i : integer;  pCenter : array[0..20] of char;  smliDial:smallint; begin  {设置通讯口}  iWm_init := Wm_init(pchar( trim(eCom.Text) ),pchar( trim(eRate.Text) ));  if iWm_init = 0 then begin    memo1.Lines.Add('设置通讯口失败!');    exit;  end;  {初始化MORDEM}  sWmCommInit := WmCommInit;  if sWmCommInit <> 1 then begin    Memo1.Lines.Add('初始化MORDEM失败!'+inttostr(iWmCommInit));    port_close;    exit;  end;  {进行拨号}  sCenter := trim( ePhone.Text );  for i := 1 to length(ePhone.Text) do begin    pCenter[i-1] := sCenter;  end;  pCenter := #0;  smliDial := Dial( pCenter );  if smliDial <> 1 then begin    Memo1.Lines.Add('拨号失败!'+inttostr(smliDial));    port_close;    exit;  end;  Memo1.Lines.Add('拨号成功!'+inttostr(smliDial)); end; end.

yeuume · 2006-04-02

www.source520.com 再次更新近3万代码,全部免费免注册狂下载

实达WM-100无线MODEM发送短消息的问题,不能发送中文!急(300分)

雨季飘零

Unregistered / Unconfirmed

yeuume

Unregistered / Unconfirmed

Similar threads