unit1.pas

[解决方法] 对上述程序改动如下: 发送端: MMM SendBag ZeroMemory(&SendBag,sizeof(SendBag)) .............

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, empp,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Memo1: TMemo;
    CheckBox1: TCheckBox;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Button7: TButton;
    Label5: TLabel;
    Edit5: TEdit;
    Label6: TLabel;
    Edit6: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure Trace(Msg: PChar); stdcall;
begin
  Form1.Memo1.Lines.Append(Msg);
end;

procedure MO(SrcAddr: PChar; Msg: PChar); stdcall;
begin
  Form1.Memo1.Lines.Append('收到短信:' + SrcAddr + '->' + Msg);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Init(PChar(Edit5.Text), StrToIntDef(Edit6.Text, 8000), PChar(Edit3.Text), PChar(Edit4.Text), 'queue', 20000, @Trace, @MO);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Uninit;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  SendSMS(PChar(Edit1.Text), PChar(Edit2.Text));
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  SetDebug(Ord(CheckBox1.Checked));
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  Trace(PChar('帐户余额:' + IntToStr(GetBalance)));
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  Trace(PChar('状态码:' + IntToStr(GetState)));
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
  Trace(PChar('队列待发短信:' + IntToStr(GetUnSend)));
end;

procedure TForm1.Button7Click(Sender: TObject);
var
  S: PWideChar;
  Len: Integer;
  SubStr: string;
begin
  S := StringToOleStr(Edit2.Text);
  Len := 0;
  while True do
  begin
    if S[Len] <> #0 then
      Inc(Len)
    else begin
      if Len > 0 then
      begin
        WideCharLenToStrVar(S, Len, SubStr);
        Trace(PChar(SubStr));
      end;
      Break;
    end;
    if Len = 70 then
    begin
      WideCharLenToStrVar(S, Len, SubStr);
      Trace(PChar(SubStr));
      S := S + Len;
      Len := 0;
    end;
  end;
end;

end.