'------------------------------------------------------------------------------
' SMSC client .NET components sample application
'
' $Header: $
' Copyright (c) 2003-2013 Tops. All rights reserved.
'------------------------------------------------------------------------------

Option Strict Off
Option Explicit On 

Imports Microsoft.VisualBasic
Imports System.Windows.Forms
Imports smscc

Enum EventDirection
    edOutgoing
    edIncoming
End Enum

Class EventLog
    Private LogWindow As TextBox

    Public Sub New(ByVal ALogWindow As TextBox)
        LogWindow = ALogWindow
    End Sub

    Public Sub AddEvent(ByVal Text As String, ByVal Details As String, ByVal Direction As EventDirection)
        Dim Prefix As String
        Dim Lines() As String
        Dim i As Integer

        If Direction = EventDirection.edIncoming Then
            Prefix = "<<< "
        Else
            Prefix = ">>> "
        End If

        LogWindow.AppendText(Prefix & Text & vbCrLf)
        If Details <> "" Then
            Lines = Details.Split(vbCr)

            For i = 0 To Lines.Length - 1
                LogWindow.AppendText("       " & Lines(i) & vbCrLf)
            Next
        End If
    End Sub

    Public Sub AddEvent(ByVal Text As String, ByVal Details As String)
	    AddEvent(Text, Details, EventDirection.edOutgoing)
    End Sub

    Public Sub AddEvent(Text as String)
        AddEvent(Text, "", EventDirection.edOutgoing)
    End Sub

    Public Sub AddConnectedEvent()
        AddEvent("Connected")
    End Sub

    Public Sub AddConnectionErrorEvent(ByVal ErrorCode As Integer)
        AddEvent("Connection Failed. Error: " & ErrorCode)
    End Sub

    Public Sub AddDisconnectedEvent(ByVal Reason As Integer)
        AddEvent("Disconnected. Reason: " & Reason)
    End Sub

    Public Sub AddInitializedEvent()
        AddEvent("Initialized")
    End Sub

    Public Sub AddInitializationErrorEvent(ByVal ErrorCode As Integer)
        AddEvent("Initialization failed. Error: " & ErrorCode)
    End Sub

    Public Sub AddMessageSubmitedEvent(ByVal MessageID As String, ByVal TimeStamp As Date)
        Dim Details As String

        Details = ""
        If MessageID <> "" Then Details = Details & "MessageID: " & MessageID & vbCr
        If TimeStamp <> Date.MinValue Then Details = Details & "TimeStamp: " & TimeStamp & vbCr
        Details = Details.TrimEnd(Nothing)

        AddEvent("Message submited", Details)
    End Sub

    Public Sub AddMessageSubmitedEvent(ByVal MessageID As String)
        AddMessageSubmitedEvent(MessageID, Date.MinValue)
    End Sub

    Public Sub AddMessageSubmitedEvent(ByVal TimeStamp As Date)
        AddMessageSubmitedEvent("", TimeStamp)
    End Sub

    Public Sub AddMessageSubmissionErrorEvent(ByVal ErrorCode As Integer)
        AddEvent("Message submit failed. Error: " & ErrorCode)
    End Sub

    Public Sub AddMessageReceivedEvent(ByVal Destination As String, ByVal Originator As String, ByVal SMText As String, ByVal Encoding As EncodingEnum, ByVal UserDataHeader As String, ByVal TimeStamp As Date)
        Dim Details As String

        Details = ""
        Details = Details & "Destination: " & Destination & vbCr
        Details = Details & "Originator: " & Originator & vbCr
        Details = Details & "SMText: " & SMText & vbCr
        Details = Details & "Encoding: " & Encoding.ToString() & vbCr
        If UserDataHeader <> "" Then Details = Details & "UDH: " & UserDataHeader & vbCr
        If TimeStamp <> Date.MinValue Then Details = Details & "TimeStamp: " & TimeStamp & vbCr
        Details = Details.TrimEnd(Nothing)

        AddEvent("Message received", Details, EventDirection.edIncoming)
    End Sub

    Public Sub AddMessageReceivedEvent(ByVal Destination As String, ByVal Originator As String, ByVal SMText As String, ByVal Encoding As EncodingEnum, ByVal UserDataHeader As String)
        AddMessageReceivedEvent(Destination, Originator, SMText, Encoding, UserDataHeader, Date.MinValue)
    End Sub

    Public Sub AddStatusReportReceivedEvent(ByVal MessageID As String, ByVal MessageTimeStamp As Date, ByVal Destination As String, ByVal Originator As String, ByVal SMStatus As Byte, ByVal FailureReason As Integer, ByVal TimeStamp As Date)
        Dim Details As String

        Details = ""
        If MessageID <> "" Then Details = Details & "MessageID: " & MessageID & vbCr
        If MessageTimeStamp <> Date.MinValue Then Details = Details & "MessageTimeStamp: " & MessageTimeStamp & vbCr
        Details = Details & "Destination: " & Destination & vbCr
        If Originator <> "" Then Details = Details & "Originator: " & Originator & vbCr
        Details = Details & "SMStatus: " & SMStatus & vbCr
        Details = Details & "FailureReason: " & FailureReason & vbCr
        If TimeStamp <> Date.MinValue Then Details = Details & "TimeStamp: " & TimeStamp & vbCr
        Details = Details.TrimEnd(Nothing)

        AddEvent("Status report received", Details, EventDirection.edIncoming)
    End Sub

    Public Sub AddStatusReportReceivedEvent(ByVal MessageTimeStamp As Date, ByVal Destination As String, ByVal SMStatus As Byte, ByVal FailureReason As Integer, ByVal TimeStamp As Date)
        AddStatusReportReceivedEvent("", MessageTimeStamp, Destination, "", SMStatus, FailureReason, TimeStamp)
    End Sub

    Public Sub AddStatusReportReceivedEvent(ByVal MessageTimeStamp As Date, ByVal Destination As String, ByVal Originator As String, ByVal SMStatus As Byte, ByVal FailureReason As Integer, ByVal TimeStamp As Date)
        AddStatusReportReceivedEvent("", MessageTimeStamp, Destination, Originator, SMStatus, FailureReason, TimeStamp)
    End Sub

    Public Sub AddStatusReportReceivedEvent(ByVal MessageID As String, ByVal Destination As String, ByVal Originator As String, ByVal SMStatus As Byte, ByVal FailureReason As Integer)
        AddStatusReportReceivedEvent(MessageID, Date.MinValue, Destination, Originator, SMStatus, FailureReason, Date.MinValue)
    End Sub

End Class