program HelloAnyLoggerWorld;

{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  LMDLogMessage;
 
begin
  try
    LMDLog.SendString(‘First message’, ‘Hello, World!’); 
  except
    on E:Exception do
      LMDLog.SendException(E);
  end;
end.

uses
  ..., LMDLogMessage, ...;

...
  LMDLog.SendString('Test', 'Hello, World!');
...

uses
  ..., LMDLogMessage, ...;

...
  while i < 200 do
    LMDLog.WatchInteger('i', i);
...

uses
  ..., LMDLogMessage, ...;

...
function TestFunction: HResult;
begin
  LMDLog.EnterMethod('TestFunction');
  try
    ...
  finally
    LMDLog.SendHResult('Result', Result);
    LMDLog.LeaveMethod('TestFunction');
  end;
end;
...

uses
  ..., LMDLogMessage, ...;

...
  for i := 0 to Count - 1 do
  begin
    LMDLog.SendInteger('Iteration', i);
    b := 20 + i;
    LMDLog.TouchCounter('Checkpoint');
    a := CalcA(b);
    LMDLog.TouchCounter('Checkpoint');
    c := a div 34;
    LMDLog.ReleaseCounter('Checkpoint');
  end;
...

uses
  ..., LMDLogMessage, ...;

...
  {$ifdef DEBUG}
  LMDLog.AllowLogLevel := LogAll;
  LMDLog.AllowLogLevel := LogAll;
  {$ELSE}
  LMDLog.AllowLogLevel := LogFatal; 
  LMDLog.DefaultLogLevel := LogOff;
  {$ENDIF}
  
  for i := 0 to 4 do
  begin
    try 
      LMDLog.SendInteger('i', i);
      a := 5 / i;
      LMDLog.SendReal('a', a);
    except
      on E: EDivideByZero do
        LMDLog.SendString(LogFatal, 'Error', 'Divide by zero');
    end;
  end;
...

MyLog := LMDLogManage.AddSession('SessionName|lmd_db_session|lmd_wmcopydata_log|WindowClass=TLMDLogHelperWindow;WindowName=LMDLogHelper');

  MyLog.SendString('name', 'value');

  LMDLogManager.Sessions['SessionName'].SendString('name', 'value');

unit uCreatePlugin;

interface

uses
  SysUtils, Forms, LMDPluginManager, LMDPluginImpl;

type
  TLMDActionExecutor = class(TObject)
  public
    procedure GetCount(const AnAction: ILMDAction; var AResult: ILMDParameter); virtual; stdcall; abstract;
    procedure GetType(const AnAction: ILMDAction; var AResult: ILMDParameter); virtual; stdcall; abstract;
    procedure GetIcon(const AnAction: ILMDAction; var AResult: ILMDParameter); virtual; stdcall; abstract;
    procedure GetName(const AnAction: ILMDAction; var AResult: ILMDParameter); virtual; stdcall; abstract;
  end;

function CreatePlugin(AExecuter: TLMDActionExecutor; AFormClass: TFormClass): ILMDPlugin;

implementation

function CreatePlugin(AExecuter: TLMDActionExecutor; AFormClass: TFormClass): ILMDPlugin;
var
  Plugin: TLMDPlugin;
begin
  try
    // Create the plugin
    Plugin := TLMDPlugin.Create('Author', 'AnyLogger plugin', 0, 1);

    // add GetSupportedSubTypesCount action
    Plugin.AddAction('GetSubTypesCount').OnPerformAction := AExecuter.GetCount;
    with Plugin.AddAction('GetSubTypeName') do
    begin
      with AddParameter('SubType') do
        ParameterType := ptGUID;
      OnPerformAction := AExecuter.GetName;
    end;

    with Plugin.AddAction('GetSubType') do
    begin
      with AddParameter('Index') do
        ParameterType := ptInteger;
      OnPerformAction := AExecuter.GetType;
    end;

    with Plugin.AddAction('GetSubTypeIconIndex') do
    begin
      with AddParameter('SubType') do
        ParameterType := ptGUID;
      OnPerformAction := AExecuter.GetIcon;
    end;

    // add form into plugin
    Plugin.AddForm(TLMDDelphiPluginForm.Create('Viewer', AFormClass));

    // return the plugin
    Result := Plugin;
  except
    Result := nil;
    exit;
  end;
end;

end.

{ **************************** ILMDFormWithData **************************** }
  ILMDFormWithData = interface(IInterface)
    ['{8999ED41-2791-4471-BFEB-994923CE1CD4}']
    procedure SetFormData(AData: Pointer);
  end;
</delphi> <br> This interface is needed to fill form with you custom data. AnyLogger Console call SetFormData method with TLMDLogMessage instance as parameter. Here is example of such form:<br>
<delphi>
...
type
  TTextForm = class(TForm, ILMDFormWithData)
    edtText: TElMemo;
  private
    { Private declarations }
  public
    procedure SetFormData(AData: Pointer);
  end;

var
  TextForm: TTextForm;

implementation

{$R *.dfm}

{ TTextForm }

procedure TTextForm.SetFormData(AData: Pointer);
begin
  edtText.Text := TLMDLogMessage(AData).MessageValue;
end;
...

unit intfTextView;

interface

uses
  Classes, SysUtils, uCreatePlugin, LMDLogMessage, LMDPluginImpl, LMDPluginManager;

type
  TLMDTextActionExecutor = class(TLMDActionExecutor)
  public
    procedure GetCount(const AnAction: ILMDAction; var AResult: ILMDParameter); override; stdcall;
    procedure GetType(const AnAction: ILMDAction; var AResult: ILMDParameter); override; stdcall;
    procedure GetIcon(const AnAction: ILMDAction; var AResult: ILMDParameter); override; stdcall;
    procedure GetName(const AnAction: ILMDAction; var AResult: ILMDParameter); override; stdcall;
  end;

implementation

{ TLMDTextActionExecutor }

procedure TLMDTextActionExecutor.GetCount(const AnAction: ILMDAction; var AResult: ILMDParameter);
begin
  AResult.AsInteger := 1;
end;

procedure TLMDTextActionExecutor.GetIcon(const AnAction: ILMDAction; var AResult: ILMDParameter);
begin
  AResult.AsInteger := -1;
  if IsEqualGUID(AnAction[0].AsGUID, mstString) then
    AResult.AsInteger := 5;
end;

procedure TLMDTextActionExecutor.GetName(const AnAction: ILMDAction; var AResult: ILMDParameter);
begin
  if IsEqualGUID(AnAction[0].AsGUID, mstString) then
    AResult.AsString := 'String';
end;

procedure TLMDTextActionExecutor.GetType(const AnAction: ILMDAction; var AResult: ILMDParameter);
begin
  case AnAction[0].AsInteger of
  0: AResult.AsGUID := mstString;
  else
    AResult.AsGUID := mstNone;
  end;
end;

end.

library TextView;

uses
  SysUtils,
  Classes,
  Windows,
  Forms,
  uCreatePlugin,
  LMDLogMessage,
  LMDPluginImpl,
  LMDPluginManager,
  frmTextView in 'frmTextView.pas' {TableForm},
  intfTextView in 'intfTextView.pas';

{$R *.res}

var
  LOldApplication: TApplication;

function GetLMDPlugin(const AHostApplication: TApplication; var APlugin: ILMDPlugin): HRESULT; stdcall;
begin
  try
    LOldApplication := Application;
    Application := AHostApplication;

    APlugin := CreatePlugin(TLMDTextActionExecutor.Create, TTextForm);
  except
    Result := E_UNEXPECTED;
    exit;
  end;
  Result := S_OK;
end;

procedure DllMain(AReason: integer) ;
begin
  case AReason of
   DLL_PROCESS_DETACH:
     if Assigned(LOldApplication) then
       Application := LOldApplication;
  end;
end;

exports
  GetLMDPlugin name 'GetLMDPlugin';

begin
  LOldApplication := nil;
  DllProc := @DllMain;
end.