unit1.pas

短信开发控件

unit Unit1;

interface

uses
  Windows, SysUtils, Classes, Forms, Dialogs, StdCtrls, Controls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    cmbGateway: TComboBox;
    cmdRefresh: TButton;
    Label2: TLabel;
    Label4: TLabel;
    txtUserName: TEdit;
    Label5: TLabel;
    txtPassword: TEdit;
    Label6: TLabel;
    txtPhone: TEdit;
    Label7: TLabel;
    txtNickName: TEdit;
    Label8: TLabel;
    edtSms: TMemo;
    cmdSend: TButton;
    lblError: TLabel;
    procedure cmdRefreshClick(Sender: TObject);
    procedure cmdSendClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  //以下是 kkstar_sms.dll 接口定义
  function GetGatewayList():PChar;stdcall;external 'kkstar_sms.dll';
  function SendSms(cGateWay :PChar;
                   cUserName:PChar;
                   cPassword:PChar;
                   cPhone   :PChar;
                   cContent :PChar;
                   cNickName:PChar;
                   cExtent  :PChar):PChar;stdcall;external 'kkstar_sms.dll';

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.cmdRefreshClick(Sender: TObject);
var
  s:PChar;
begin
  s:=GetGatewayList();
  cmbGateway.Items.Text:=StrPas(s);
  cmbGateway.ItemIndex:=0;
end;

procedure TForm1.cmdSendClick(Sender: TObject);
var
  cGateWay,cUserName,cPassword,cPhone,cContent,cNickName,cExtent:string;
  cError:PChar;
begin
  cGateWay:=trim(copy(cmbGateWay.text,1,16));
  cUserName:=trim(txtUserName.text);
  cPassword:=trim(txtPassword.text);
  cPhone:=trim(txtPhone.text);
  cContent:=edtSms.text;
  cNickName:=trim(txtNickName.text);
  cExtent:='';

  lblError.caption:='';
  cError:=SendSms(PChar(cGateway),
                  PChar(cUserName),
                  PChar(cPassword),
                  PChar(cPhone),
                  PChar(cContent),
                  PChar(cNickName),
                  PChar(cExtent));

  lblError.caption:='发送结果：'+cError;

end;

end.