unitsendmsg.~pas

手机短信发送源码

unit UnitSendmsg;

interface

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

type
  TFormSendMsg = class(TForm)
    Memo1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label3: TLabel;
    CheckAutoDisplay: TCheckBox;
    Label4: TLabel;
    CheckReturnReceipt: TCheckBox;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Memo1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormSendMsg: TFormSendMsg;

implementation

uses UnitMain, UnitPhoneAddress,UnitIrdaComm,UnitEnDecode;

{$R *.DFM}

procedure TFormSendMsg.BitBtn2Click(Sender: TObject);
begin
   edit1.text:=trim(edit1.text);
   if (FormSendMsg.Memo1.GetTextLen=0)or
      (length(edit1.text)<11) then exit;
   close;
   ModalResult:=mrYes;
end;

procedure TFormSendMsg.BitBtn1Click(Sender: TObject);
begin
   if (FormSendMsg.Memo1.GetTextLen=0) then exit;
   close;
   ModalResult:=mrOK;
end;

procedure TFormSendMsg.Memo1Change(Sender: TObject);
var
   Msg:string;
   i:integer;
begin //英文180个,
      //中文70个,分段时每段67个             
   Msg:=FormSendMsg.Memo1.lines.text;
   i:=pos(#$A,Msg);
   while i<>0 do //删除$0a，也可以不删
   begin
      delete(Msg,i,1);
      i:=pos(#$A,Msg);
   end;
   if TestEnglish(Msg) then
      caption:=inttostr(length(Msg))+'字节'
   else begin
      caption:=inttostr(length(EncodeChinese(Msg))div 4)+'字';
   end;
end;

procedure TFormSendMsg.Button1Click(Sender: TObject);
begin
   if (FormPhoneAddress.showmodal=mrok)and(FormPhoneAddress.ListViewAddr.Selected<>nil) then
   begin
      edit1.text:=FormPhoneAddress.ListViewAddr.Selected.SubItems[0];
   end;
end;

end.