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

#pragma hdrstop
#include "EventLog.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

TEventLog::TEventLog(TMemo* LogWindow)  {

  FLogWindow = LogWindow;
}

void TEventLog::AddEvent(AnsiString Text, AnsiString Details, TEventDirection Direction)  {

  AnsiString Prefix;
  TStringList* Lines = new TStringList;

  if (Direction == edIncoming) { Prefix = "<<< "; }
  else { Prefix = ">>> "; }

  FLogWindow->Lines->Add(Prefix + Text);
  if (Details != "") { Lines->Text = Details; }

  for (int i = 0; i < Lines->Count; i++) {
    FLogWindow->Lines->Add("       " + Lines->Strings[i]);
  }
  delete Lines;
}

void TEventLog::AddEvent(AnsiString Text, AnsiString Details) {

  AddEvent(Text, Details, edOutgoing);
}

void TEventLog::AddEvent(AnsiString Text) {

  AddEvent(Text, "", edOutgoing);
}

void TEventLog::AddConnectingEvent()  {

  AddEvent("Connecting (this may take a while).");
}

void TEventLog::AddConnectedEvent()  {

  AddEvent("Connected");
}

void TEventLog::AddConnectionErrorEvent(int ErrorCode) {

  AddEvent("Connection Failed. Error: " + IntToStr(ErrorCode));
}

void TEventLog::AddDisconnectedEvent(int Reason) {

  AddEvent("Disconnected. Reason: " + IntToStr(Reason));
}

void TEventLog::AddInitializedEvent() {

  AddEvent("Initialized");
}

void TEventLog::AddInitializationErrorEvent(int ErrorCode) {

  AddEvent("Initialization failed. Error: " + IntToStr(ErrorCode));
}

void TEventLog::AddMessageSubmitedEvent(AnsiString MessageID, TDateTime TimeStamp) {

  AnsiString Details = "";

  if (MessageID != "")
    { Details = Details + "MessageID: " + MessageID + CR; }

  if (int(TimeStamp) != 0)
    { Details = Details + "TimeStamp: " + DateTimeToStr(TimeStamp) + CR; }

  Details = TrimRight(Details);

  AddEvent("Message submited", Details);
}

void TEventLog::AddMessageSubmitedEvent(AnsiString MessageID)  {

  AddMessageSubmitedEvent(MessageID, 0);
}

void TEventLog::AddMessageSubmitedEvent(TDateTime TimeStamp) {

  AddMessageSubmitedEvent("", TimeStamp);
}

void TEventLog::AddMessageSubmissionErrorEvent(int ErrorCode)  {

  AddEvent("Message submit failed. Error: " + IntToStr(ErrorCode));
}

void TEventLog::AddMessageReceivedEvent(AnsiString Destination, AnsiString Originator,
  AnsiString SMText, TOleEnum Encoding, AnsiString UserDataHeader,
  TDateTime TimeStamp)  {

  AnsiString Details = "";

  Details = Details + "Destination: " + Destination + CR;
  Details = Details + "Originator: " + Originator + CR;
  Details = Details + "SMText: " + SMText + CR;
  Details = Details + "Encoding: " +IntToStr((int)Encoding) + CR;
  if (UserDataHeader != "") {
    Details = Details + "UDH: " + UserDataHeader + CR;
  }

  if (int(TimeStamp) != 0) {
    Details = Details + "TimeStamp: " + DateTimeToStr(TimeStamp) + CR;
  }

  Details = TrimRight(Details);

  AddEvent("Message received", Details, edIncoming);
}

void TEventLog::AddMessageReceivedEvent(AnsiString Destination,
  AnsiString Originator, AnsiString SMText, TOleEnum Encoding,
  AnsiString UserDataHeader)  {

  AddMessageReceivedEvent(Destination, Originator, SMText, Encoding,
    UserDataHeader, 0);
}

void TEventLog::AddStatusReportReceivedEvent(AnsiString MessageID,
  TDateTime MessageTimeStamp, AnsiString Destination, AnsiString Originator,
  byte SMStatus, int FailureReason, TDateTime TimeStamp)  {

  AnsiString Details = "";

  if (MessageID != "") {
    Details = Details + "MessageID: " + MessageID + CR;
  }
  if (int(MessageTimeStamp) != 0) {
    Details = Details + "MessageTimeStamp: " + DateTimeToStr(MessageTimeStamp) + CR;
  }
  Details = Details + "Destination: " + Destination + CR;
  if (Originator != "") {
    Details = Details + "Originator: " + Originator + CR;
  }
  Details = Details + "SMStatus: " + IntToStr(SMStatus) + CR;
  Details = Details + "FailureReason: " + IntToStr(FailureReason) + CR;
  if (int(TimeStamp) != 0) {
    Details = Details + "TimeStamp: " + DateTimeToStr(TimeStamp) + CR;
  }
  Details = TrimRight(Details);

  AddEvent("Status report received", Details, edIncoming);
}

void TEventLog::AddStatusReportReceivedEvent(TDateTime MessageTimeStamp,
  AnsiString Destination, byte SMStatus, int FailureReason,
  TDateTime TimeStamp)  {

  AddStatusReportReceivedEvent("", MessageTimeStamp, Destination, "", SMStatus,
    FailureReason, TimeStamp);
}

void TEventLog::AddStatusReportReceivedEvent(TDateTime MessageTimeStamp,
  AnsiString Destination, AnsiString Originator, byte SMStatus,
  int FailureReason, TDateTime TimeStamp) {

  AddStatusReportReceivedEvent("", MessageTimeStamp, Destination, Originator,
    SMStatus, FailureReason, TimeStamp);
}

void TEventLog::AddStatusReportReceivedEvent(AnsiString MessageID,
  AnsiString Destination, AnsiString Originator, byte SMStatus,
  int FailureReason)  {

  AddStatusReportReceivedEvent(MessageID, 0, Destination, Originator, SMStatus,
    FailureReason, 0);
}