frmviewlogs.pas

Mailserver Source code - Delphi. Simple Mail server source code. SMTP and POP3 protocols.

unit FrmViewLogs;

interface

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

type
  TFrmViewLogs1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    RichEdit1: TRichEdit;

  private
    { Private declarations }
  public
    { Public declarations }
    procedure IniShow(ATag:integer);
  end;

var
  FrmViewLogs1: TFrmViewLogs1;

implementation

uses UnitConst, UnitDataModule;

{$R *.dfm}

procedure TFrmViewLogs1.IniShow(ATag:integer);
begin
  if ATag=1 then
  begin
    Panel1.Caption:='系统记录';
    UnitDataModule1.DCOMConnection1.AppServer.SetLogTag:='1';
  end
  else if ATag=2 then
  begin
    Panel1.Caption:='smtp记录';
    UnitDataModule1.DCOMConnection1.AppServer.SetLogTag:='2';
  end
  else if ATag=3 then
  begin
    Panel1.Caption:='pop3记录';
    UnitDataModule1.DCOMConnection1.AppServer.SetLogTag:='3';
  end
  else if ATag=4 then
  begin
    Panel1.Caption:='rely记录';
    UnitDataModule1.DCOMConnection1.AppServer.SetLogTag:='4';
  end;
  richedit1.Text:=UnitDataModule1.DCOMConnection1.AppServer.GetLog;
end;

end.