sendsms.pas

Gestione Cellulari Nokia

unit SendSMS;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,sms, AxCtrls, OleCtrls, FbusUnicode;

type
  TfrmSendSMS = class(TForm)
    txtDestination: TEdit;
    btnSend: TButton;
    Label24: TLabel;
    lblTo: TLabel;
    chkDelivResponse: TCheckBox;
    chkFlash: TCheckBox;
    cmboMsgType: TComboBox;
    Label1: TLabel;
    mmoText: TfbTextBox;
    procedure btnSendClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSendSMS: TfrmSendSMS;

implementation

uses MainUnit;

{$R *.DFM}

procedure TfrmSendSMS.btnSendClick(Sender: TObject);
var
  imsgLength:longint;
  iSMSClasType:TSMSClass;
begin
  if Trim(txtDestination.text) = '' then
     messagedlg('A Destination number is required',mtInformation,[mbOk],0)
  else
    begin
      screen.cursor:=crHourGlass;
      imsgLength:=length(mmoText.text);
      if chkFlash.Checked then
        iSMSClasType:=fbSmsClassFlash
      else
        iSMSClasType:=fbSMSClassNormal;

      case cmboMsgType.itemindex of
        0:
          if imsgLength > 150 then
            begin
              if messageDlg('Your SMS Message is greater than 150 characters. Your message will be split into '+inttostr(trunc(imsgLength div 150)+1)+' Messages. Continue ?', mtWarning,[mbYes,mbNo],0)=mrYes then
                frmMain.FBUS1.SMS.SendSMSMessage(txtDestination.text,PChar(mmoText.text),1,iSMSClasType,chkDelivResponse.checked);
            end
          else
            frmMain.FBUS1.SMS.SendSMSMessage(txtDestination.text,mmoText.text,1,iSMSClasType,chkDelivResponse.checked);

        1:
          if imsgLength > 150 then
            begin
              if messageDlg('Your SMS Message is greater than 150 characters. Your message will be split into '+inttostr(trunc(imsgLength div 150)+1)+' Messages. Continue ?', mtWarning,[mbYes,mbNo],0)=mrYes then
                frmMain.FBUS1.SMS.SendUnicode(txtDestination.text,Pwidechar(mmoText.text),1,fbSMSClassNormal,chkDelivResponse.checked);
            end
          else
            frmMain.FBUS1.SMS.SendUnicode(txtDestination.text,Pwidechar(mmoText.text),1,fbSMSClassNormal,chkDelivResponse.checked);
      end;

      screen.cursor:=crDefault;
   end;
//when using a normal memo control, it is important to make the message a null terminated PCHAR .i.e:-
//frmMain.FBUS1.SMS.SendSMSMessage(txtDestination.text,PCHAR(mmoText.text+#0),1,fbSMSClassNormal);
end;

procedure TfrmSendSMS.FormCreate(Sender: TObject);
begin
  mmoText.text:='';
  cmboMsgType.itemindex:=0;
end;

procedure TfrmSendSMS.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  mmoText.free;
end;

end.