djcbase.pas

来自「自己写的用delphi封装东劲板卡api.」· PAS 代码 · 共 62 行

unit DjCBase;

interface

uses Classes;

type

  TDjCBase = class(TComponent)
  private

  protected
    procedure StartLog ;
    procedure StopLog;
  public
    constructor create(AOwner:TComponent);override;
    destructor Destroy;override;
    procedure ShowLog ;
    procedure AddLogToList(Log,LogSource:string);

  end;

implementation

uses unitWriteLogThread,uLogFrm;

{ TDjBase }

procedure TDjCBase.AddLogToList(Log, LogSource: string);
begin
  AddLogToListB(Log,LogSource,LogError); 
end;

constructor TDjCBase.create(AOwner: TComponent);
begin
  inherited;
  StartLog;
end;

destructor TDjCBase.Destroy;
begin
  StopLog;
  inherited;
end;

procedure TDjCBase.ShowLog;
begin
  FrmLog.Show;
end;

procedure TDjCBase.StartLog;
begin
  StartWriteLogThread(nil,nil);
end;

procedure TDjCBase.StopLog;
begin
  StopWriteLogThread; 
end;

end.