CodeSite Express 4.x

[juergen]

Hallo,

so, inzw. verstehe ich das CodeSite etwas besser.
Danke für Eure Hinweise!
Ich habe CodeSite nun global initialisiert, solange die Anwendung im Debug-Modus kompiliert wird. Nun kann ich in den verschiedenen Methoden die Protokollierung anstoßen.

Delphi-Quellcode:

program Test_CodeSite;

uses Forms, SysUtils,
  CodeSiteLogging,
  Unit_Test_CodeSite in 'Unit_Test_CodeSite.pas' {Form12};

{$R *.res}

var
  Destination: TCodeSiteDestination;

begin
  Application.Initialize;
{$IFDEF DEBUG}
  CodeSite.Enabled := True;
  CodeSite.Enabled := CodeSite.Installed;
  if CodeSite.Enabled then begin
    Destination := TCodeSiteDestination.Create(Application);
    Destination.LogFile.SetMaxSize(10000);
    Destination.LogFile.SetMaxParts(1);
    CodeSite.DateTimeFormat := 'dd.mm.yyyy, hh:nn:zzz';
    Destination.LogFile.FileName := ChangeFileExt(ExtractFileName(Application.ExeName), '.csl');
    Destination.LogFile.FilePath := ExtractFilePath(ParamStr(0));
    Destination.LogFile.Active := True;
    CodeSite.Destination := Destination;
    CodeSite.Clear
  end;
{$ELSE}
  CodeSite.Enabled := False;
{$ENDIF}
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm12, Form12);
  Application.Run;

end.

Das Anzeigen der Daten aus dem Dataset bekomme ich allerdings nicht hin. Evtl. geht das dann nur in der Vollversion.