results loggen

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

[venice2]

Zitat von 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.

Manchen Menschen kann man nur mit Bildern etwas veranschaulichen.
Bitte sehr!

Es kann doch nicht so schwer zu erkennen sein das diese Abfrage "True" ergibt wenn das Handle gefunden wurde. bzw. <> 0

Result := (TRACE_Handle <> 0);

[KodeZwerg]

Ja ne, iss klar. Wir reden aneinander vorbei, ich wollte Dich lediglich auf das offensichtliche Aufmerksam machen aber bin gescheitert und belasse es dabei.

Du redest von function Load_TRACEDLL(const dllfilename: string): BOOL; und ich von Trace_Loaded .
Wenn diese Methode das Trace_Loaded setzen würde wäre es nie zu dieser Diskussion gekommen.

Verzeihung und Danke für alles.

[venice2]

Zitat von KodeZwerg:

Ja ne, iss klar. Wir reden aneinander vorbei, ich wollte Dich lediglich auf das offensichtliche Aufmerksam machen aber bin gescheitert und belasse es dabei.

Du redest von function Load_TRACEDLL(const dllfilename: string): BOOL; und ich von Trace_Loaded .
Wenn diese Methode das Trace_Loaded setzen würde wäre es nie zu dieser Diskussion gekommen.

Verzeihung und Danke für alles.

Sie setzt es und ist auch logisch!

Nun ja eigentlich sollte das klar und ersichtlich sein aber gut ich kann es gerne nochmal ausführlicher machen.
Was ist die Rückgabe von Load_TRACEDLL ? Richtig.. BOOL.
Also ist es doch logisch das ich damit mein Trace_Loaded verknüpfe oder?

Trace_Loaded := Load_TRACEDLL(ExtractFilePath(paramstr(0)) + dllfile);
Deshalb sagte ich es ist True.. abhängig davon ob die Funktion ein True zurück gibt.

Delphi-Quellcode:

function BASSVIS_Init(Kind: TBASSVIS_KIND_T; MainHandle: HWND; UseDebug: BOOL = false): BOOL; stdcall;
var
  HWND: DWord;
begin
  Result := False;

  if UseDebug then
  begin
    if not Trace_Loaded then
    begin
      Trace_Loaded := Load_TRACEDLL(ExtractFilePath(paramstr(0)) + dllfile);
      if Trace_Loaded then
      begin
        Trace('');
        repeat
          HWND := FindWindow('TRACER', 'TRACER'); // warten bis das Fenster erstellt wurde
          WinprocessMessages;
        until HWND <> 0;
      end;
    end;
  end else
  if Trace_Loaded then
    Unload_TRACEDLL;
  // ....
end;

[venice2]

ganz einfaches sample.

Debug.txt.

Zitat:

Hello World
TForm2 -> btnClick was clicked
-----------------------------
Goodby World
Please Wait 5 Second

Vorausgesetzt es wurde im PopupMenu aktiviert.
Ansonsten wird es nur im Window ausgegeben.