results loggen

[venice2]

Zitat von KodeZwerg:

//OT

Zitat von venice2:

Ich warte auf ein Example vom @mjustin bis es zur Verfügung steht.

Selbst ist der Mann/die Frau.
Schau doch mal letzte Aktualisierung an, 5 Jahre her, da du dich zurzeit damit beschäftigst, hilf ihm doch ein wenig und bastel eine Demo. *nur so ein Gedanke*
Eine Vorlage dazu steht ja hier von ihm bereits zur Verfügung und ich trau es Dir zu.

Unnötiges Kommentar. Du sagst ja selbst OT! Warum dann posten?
Aber gut es ist zu mühsam das Thema fortzuführen da bin ich schneller wenn ich doch alles selber mache dann weis ich was ich hab.

Zitat:

Ich sehe gerade, dass mein letzter Post nicht angekommen ist

Ist es aber du sagtest du würdest für die Wiki ein Beispiel erstellen.
Wenn nicht dann ist es so.

Zitat:

Vielleicht eine naive Frage, aber was macht an der Stelle für dich eine Komponente aus

Die ich installieren muss?
Habe noch keine Komponente gesehen die man nicht installiert das andere sind halt nur *.pas Dateien.

[himitsu]

Installieren muß man nur Komponenten, welche eine DesignTime-Funktion besitzen und welche man z.B. im FormDesigner auf die Form pappen möchte.
Alles andere braucht man nicht zu installieren.

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