CodeSite Express 4.x

[Uwe Raabe]

Zitat von juergen:

1. Kann CodeSite den Inhalt meines dxMemData darstellen?

Hab jetzt kein dxMemDataSet zur Hand, aber published Properties werden von Haus aus gelogged und falls das nicht reicht, gibt es in der Vollversion noch das ICodeSiteCustomData Interface.

Zitat von juergen:

2. Warum wird die Protokolldatei im nachfolgenden Code erst beim 2. Button-Klick erstellt?

Könnte daran liegen, daß du die Destination erst im finally zuweist, nachdem du die Daten gesendet hast.

[himitsu]

Zitat von Uwe Raabe:

Könnte daran liegen, daß du die Destination erst im finally zuweist, nachdem du die Daten gesendet hast.

Joar, erst versuchen zu loggen und danach sagen wohin das Log und alle zukünftigen Logs sollen.

Warum ignorierst du die Warnungen des Compilers?

Zitat:

Delphi-Quellcode:

var
  Dest: TCodeSiteDestination;
begin
  try
    Dest := TCodeSiteDestination.Create(Self);
    ...
  finally
    CodeSite.Destination := Dest;
  end;
end;

Variable nicht initialisiert und was glaubst du was mit Dest ist, wenn es beim Create geknallt hat?
Eine uninitialisierte Variable da zuweisen und dann hoffen dass CodeSite nicht komplett abraucht.

Zitat:

Delphi-Quellcode:

except
  CodeSite.SendException(E);

Hmmmm, wenn es da beim Einrichten von CodeSite geknallt hat, glaubst du dann wirklich, dass diese dann nicht auch noch knallt?

Und warum erstellst du die Destination mehrfach?
Beim zweiten Klick liegt das alte Dest als Leiche bis zum Programmende im Speicher, usw.

[Uwe Raabe]

Zitat von himitsu:

Zitat:

Delphi-Quellcode:

except
  CodeSite.SendException(E);

Hmmmm, wenn es da beim Einrichten von CodeSite geknallt hat, glaubst du dann wirklich, dass diese dann nicht auch noch knallt?

Wenn es beim Einrichten der Destination knallt, dann ist immer noch die Default-Destination gültig. Insofern ist das SendException hier schon gerechtfertigt. Man muss nur wissen, wo es dann ankommt (nämlich im Live-Viewer).

[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.