Hallo zusammen,
ich nutze noch Delphi XE mit CodeSite Express 4.x.
Ich teste gerade etwas mit CodeSite um zu sehen, ob mir das Logging weiter helfen kann. Ich hatte auch SmartInspect probiert, was mir eigentlich wesentlich zugänglicher erscheint. Da es aber anscheinend nicht mehr für neuere Delphiversionen weiterentwickelt wird, will ich mich damit eigentlich nicht mehr beschäftigen.
Ich muss ziemlich oft Schnittstellen umsetzen die im Hintergrund laufen und keine
GUI haben.
Zur Laufzeit erzeuge ich gern dxMemData (von DevExpress), wo ich die Daten vorhalte.
Nun kommt es immer wieder vor, dass die Daten die ich einlese nicht so geliefert werden wie abgesprochen.
Nun meine Fragen:
1. Kann CodeSite den Inhalt meines dxMemData darstellen? (SmartInspect kann das)
2. Warum wird die Protokolldatei im nachfolgenden Code erst beim 2. Button-Klick erstellt?
Delphi-Quellcode:
procedure TForm12.Button1Click(Sender: TObject);
var
DT: TDateTime;
Dest: TCodeSiteDestination;
begin
try
try
Dest := TCodeSiteDestination.Create(Self);
Dest.LogFile.SetMaxSize(10000);
Dest.LogFile.SetMaxParts(1);
Dest.LogFile.Active := True;
Dest.LogFile.FileName := '
LogFile_Test.csl';
Dest.LogFile.FilePath := ExtractFilePath(ParamStr(0));
CodeSite.DateTimeFormat := '
dd.mm.yyyy, hh:nn:zzz';
CodeSite.EnterMethod('
TForm1.Button1Click');
DT := Now;
CodeSite.SendDateTime(csmgreen, '
Begin: ', DT);
CodeSite.Send(CodeSiteManager.ComputerName);
dxMemData1.Active;
CodeSite.Send(dxMemData1Spalte1.AsString + '
;' + dxMemData1Spalte2.AsString + '
;' + dxMemData1Spalte3.AsString);
DT := Now;
CodeSite.SendDateTime(csmgreen, '
Ende: ', Now);
CodeSiteLogging.CodeSite.ExitMethod('
TForm1.Button1Click');
except
on E:
Exception do begin
CodeSite.SendException(E);
raise // re-raise the exception
end;
end;
finally
CodeSite.Destination := Dest;
end;
end;
Vielen Dank schon mal vorab!