//------------------------------------------------------------------------------
// SMSC Relay components UCP sample application
//
// $Header: $
// Copyright (c) 2003-2013 Tops. All rights reserved.
//------------------------------------------------------------------------------

unit Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, StdCtrls,
  ExtCtrls, Dialogs,

  EventLog, OleServer, smscc_TLB;

type
  TfmMain = class(TForm)
    Label1: TLabel;
    eHost: TEdit;
    Label2: TLabel;
    ePort: TEdit;
    bConnect: TButton;
    bDisconnect: TButton;
    Shape1: TShape;
    bInitialize: TButton;
    Shape2: TShape;
    bSubmit: TButton;
    Label6: TLabel;
    eDestination: TEdit;
    mSubmit: TMemo;
    Label7: TLabel;
    Label16: TLabel;
    mUDH: TMemo;
    Label9: TLabel;
    cEncoding: TComboBox;
    cbStatusReport: TCheckBox;
    cbDirectDisplay: TCheckBox;
    Shape3: TShape;
    Label17: TLabel;
    mLog: TMemo;
    Label3: TLabel;
    eOriginator: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    eAccount: TEdit;
    ePassword: TEdit;
    Label8: TLabel;
    eTON: TEdit;
    Label10: TLabel;
    eNPI: TEdit;
    cbUseAuthentication: TCheckBox;
    SMSCclientUCP1: TSMSCclientUCP;
    procedure bConnectClick(Sender: TObject);
    procedure bDisconnectClick(Sender: TObject);
    procedure bInitializeClick(Sender: TObject);
    procedure bSubmitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure SMSCclientUCP1TcpDisconnected(ASender: TObject;
      sender: OleVariant; const e: ITcpDisconnectedEventArgs);
    procedure SMSCclientUCP1UcpMessageReceived(ASender: TObject;
      sender: OleVariant; const e: IUcpMessageReceivedEventArgs);
    procedure SMSCclientUCP1UcpStatusReportReceived(ASender: TObject;
      sender: OleVariant; const e: IUcpStatusReportReceivedEventArgs);
  private
    FLog: TEventLog;
  public
  end;

var
  fmMain: TfmMain;

implementation

{$R *.dfm}

// Connect to SMSC
procedure TfmMain.bConnectClick(Sender: TObject);
var
  Result: integer;
begin
  mLog.Text := '';
  FLog.AddConnectingEvent;
  mLog.Refresh;

  Result := SMSCclientUCP1.tcpConnect(eHost.Text, StrToInt(ePort.Text), '');

  if Result <> 0 then
    FLog.AddConnectionErrorEvent(Result)
  else
    FLog.AddConnectedEvent;
end;

// Disonnect from SMSC
procedure TfmMain.bDisconnectClick(Sender: TObject);
begin
  SMSCclientUCP1.tcpDisconnect;
end;

// Initialize session with SMSC
procedure TfmMain.bInitializeClick(Sender: TObject);
var
  Result: integer;
begin
  Result := SMSCclientUCP1.ucpInitializeSession(eAccount.Text,
    StrToInt(eTON.Text), StrToInt(eNPI.Text), ePassword.Text,
    cbUseAuthentication.Checked, '');

  if Result <> 0 then
    FLog.AddInitializationErrorEvent(Result)
  else
    FLog.AddInitializedEvent;
end;

// Submit message to the SMSC
procedure TfmMain.bSubmitClick(Sender: TObject);
var
  Result: integer;
  SystemMessage: WideString;
  TimeStamp: TDateTime;
  Encoding: EncodingEnum;
  Options: SubmitOptionEnum;
begin
  case cEncoding.ItemIndex of
    2: Encoding := EncodingEnum_etUCS2Text;
    1: Encoding := EncodingEnum_et8BitHexadecimal;
  else Encoding := EncodingEnum_et7BitText;
  end;

  Options := 0;
  if cbStatusReport.State = cbChecked then
    Options := Options or SubmitOptionEnum_soRequestStatusReport;
  if cbDirectDisplay.State = cbChecked then
    Options := Options or SubmitOptionEnum_soDirectDisplay;

  Result := SMSCclientUCP1.ucpSubmitMessage(eDestination.Text, eOriginator.Text,
    mSubmit.Text, Encoding, mUDH.Text, Options, SystemMessage, TimeStamp);

  if Result <> 0 then
    FLog.AddMessageSubmissionErrorEvent(Result)
  else
    FLog.AddMessageSubmitedEvent(TimeStamp);
end;

procedure TfmMain.FormCreate(Sender: TObject);
begin
  inherited;
  FLog := TEventLog.Create(mLog);
  cEncoding.ItemIndex := 0;
end;

procedure TfmMain.FormDestroy(Sender: TObject);
begin
  FLog.Free;
  inherited;
end;

// Disconnected from SMSC
procedure TfmMain.SMSCclientUCP1TcpDisconnected(ASender: TObject;
  sender: OleVariant; const e: ITcpDisconnectedEventArgs);
begin
  FLog.AddDisconnectedEvent(e.Reason);
end;

// Message received from SMSC
procedure TfmMain.SMSCclientUCP1UcpMessageReceived(ASender: TObject;
  sender: OleVariant; const e: IUcpMessageReceivedEventArgs);
begin
  FLog.AddMessageReceivedEvent(e.Destination, e.Originator, e.Content,
    e.Encoding, e.UserDataHeader, e.TimeStamp);
end;

// Status Report (SR) received from SMSC
procedure TfmMain.SMSCclientUCP1UcpStatusReportReceived(ASender: TObject;
  sender: OleVariant; const e: IUcpStatusReportReceivedEventArgs);
begin
  FLog.AddStatusReportReceivedEvent(e.MessageTimeStamp, e.Destination,
    e.Originator, e.DeliveryStatus, e.ReasonCode, e.TimeStamp);
end;

end.