results loggen

[venice2]

Zitat:

Installieren muß man nur Komponenten, welche eine DesignTime-Funktion besitzen

Dann ist es für mich keine Komponente (Installieren und oder Registrieren) sondern eine Ansammlung von Units.
Am ende kann das jeder für sich auslegen.

[Delphi.Narium]

Nein, ist keine Auslegungssache:

Von TComponent abgeleitet ist eine Komponente, kann man installieren, muss man aber nicht.

Wann das Installieren ein Muss ist, wurde weiter oben beschrieben.

Ansonsten hilft bei 'ner nicht installierten Komponente im Quelltext an geeigneter Stelle ein variabelnname := TKomponentenname.Create(nil); und wenns nicht mehr gebraucht wird ein variabelnname.free; Funktioniert letztlich nicht anders, als z. B. eine TStringList.

Brauchst irgendwo ein Create und musst irgendwo ein Free einbauen.

Aber ein Komponente = muss installiert werden, ist einfach nur falsch.

Du kannst auch alle visuellen Komponenten deinstallieren und zur Laufzeit trotzdem nutzen. Musst sie an geeigneter Stelle per Create erstellen, die Position festlegen, ggfls. Inhalt zuweisen ... und an passender Stelle wieder freigeben.

Nutze auf diese Weise etliche nichtinstallierte Komponenten, klappt seit vielen Jahren absolut problemlos.

Du könntest also problemlos eine der beschriebenen Loggingkomponenten ohne Installation, nur durch einbinden der passenden Unit z. B. im FormCreate erstellen und im FormDestroy freigeben.

Sind da bloß eine Zeile im Uses, eine Zeile für die passende Variabel, z. B. private-Abschnitt des Formulars, eine Zeile für's Create eine für's Free: Schwupps: Und schon kannst Du die nichtinstallierte Komponenten im ganzen Formular nutzen.

Geht natürlich genauso einfach in 'nem Dienst, 'nem Konsolenprogramm ...

[philipp.hofmann]

Yepp, das würde ich so unterschreiben. Es gibt sogar viele Fremdhersteller-Komponenten, welche sich gar nicht so einfach installieren lassen bzw. nur mit genau einer Delphi-Version (meist die neuste) und für alle anderen Delphi-Versionen müsste man selber Hand anlegen. Ich binde auch viele Fremdhersteller-Komponenten nur per Hand ein, wie von Delphi.Narium beschrieben. Dann kann man auch ganz einfach zwischen unterschiedlichen Versionen dieser "Komponenten" wechseln. Wichtig ist dann nur, dass einem klar sein muss, ob man manuell etwas mit "deployen" muss, damit die "Komponente" läuft. Aber ist off-topic, ich wollte nur die Abneigung des Thread-Erstellers gegen Komponenten verstehen.

[venice2]

Nun gut wie auch immer.
Wer es testen will.

Delphi-Quellcode:

unit Dynamic_Trace;

interface

uses Windows, Messages;

const
  dllfile = 'Tracer.dll';

var
  TRACE_Handle: Thandle = 0;
  Trace_Loaded: Bool = false;

  Trace: function(Msg: PWideChar): LongInt; stdcall;

function Load_TRACEDLL(const dllfilename: string): BOOL;
function GetTraceWinHandle: BOOL;
procedure Unload_TRACEDLL;

implementation

function Load_TRACEDLL(const dllfilename: string): BOOL;
var
  oldmode: integer;
begin
  if TRACE_Handle <> 0 then
    Result := true
  else
  begin
    oldmode := SetErrorMode($8001);
    TRACE_Handle := LoadLibrary(PWideChar(dllfilename));
    SetErrorMode(oldmode);
    if TRACE_Handle <> 0 then
    begin
      @Trace := GetProcAddress(TRACE_Handle, PAnsiChar('Trace'));
      if (@Trace = nil) then
      begin
        FreeLibrary(TRACE_Handle);
        TRACE_Handle := 0;
      end;
    end;
    Result := (TRACE_Handle <> 0);
  end;

end;

function GetTraceWinHandle: BOOL;
var
  HWND: DWord;
begin

  HWND := FindWindow('TRACER', 'TRACER');
  Result := HWND <> 0;
end;

procedure Unload_TRACEDLL;
var
  HWND: DWord;
begin
  if TRACE_Handle <> 0 then
  begin
    HWND := FindWindow('TRACER', 'TRACER');
    if HWND <> 0 then
    begin
      TRACE_Handle := SendMessage(HWND, WM_DESTROY, 0, 0);
      Trace_Loaded := false;
    end else
    begin
      TRACE_Handle := 0;
      Trace_Loaded := false;
    end;
  end;
end;

end.

Aufruf Beispiel was von der DLL und oder Exe je nachdem wo man die DLL verwendet zurückgegeben wird.

Delphi-Quellcode:

  if Trace_Loaded then
  begin
    if GetTraceWinHandle then // prüfen falls das Window beendet wurde.
    begin
      Trace(PWideChar('BASSVIS_Init - Alias(SONIQUEVIS_Init) ' + ' Container Handle = ' +
        IntToStr(VisContainerHandle) + ' Result = ' + IIF(Result, 'TRUE', 'FALSE')));
      Trace('------------------------- ');
    end;
  end;

Rechtsklick auf das Window öffnet ein PopupMenu wo man angeben kann ob man die Debugausgabe speichern will oder nicht.
Im Archiv ist eine Debug.txt Datei enthalten kann man sich anschauen oder auch nicht, wie die Resultate ausgeben werden.

Wenn man das Fenster nicht mehr sehen möchte einfach die DLL umbenennen. (Tracer.dll zu Tracer.dl) dann muss man nicht den Quelltext ändern.
Wenn diese nicht gefunden wird Arbeitet sie logischerweise auch nicht.
Deshalb Dynamisch geladen.

Die unit Dynamic_Trace; muss in jedem Projekt eingebunden werden.

[KodeZwerg]

Beim anschauen Deines Quelltext ist mir aufgefallen das Trace_Loaded nirgends auf True gesetzt wird, somit ist Dein Beispiel Code nicht ausführbar.

[venice2]

Zitat von KodeZwerg:

Beim anschauen Deines Quelltext ist mir aufgefallen das Trace_Loaded nirgends auf True gesetzt wird, somit ist Dein Beispiel Code nicht ausführbar.

Schaue dir das Bitmap an dann kannst du sehen das es ausführbar ist.

Das!
Result := (TRACE_Handle <> 0);

ist nicht True? Sollte mich wundern.
Es sei denn das Handle wird nicht gefunden. Sollte mich aber ebenfalls wundern.
Schaue bitte nochmal etwas genauer hin.

[KodeZwerg]

if Trace_Loaded then wird immer scheitern da Trace_Loaded immer False ist.
Das meinte ich damit und ich glaube Dir das es das macht was Du möchtest ohne es selbst auszuprobieren.