Debug Console oder ähnlich

[EWeiss]

Habe ja meinen kleinen Wrapper für verschiedene Visualisierungs Plugins.
Mein Problem ist nun das es vorkommen kann das andere Programm hängen weil irgendein Plugin nicht richtig funktioniert
oder deren Threads nicht beenden.

Hat jemand ein Beispiel oder kann mir sagen wie ich am besten eine Console generieren kann
über der ich zur Laufzeit diverse Informationen direkt an dem User aus meiner DLL übergeben kann?
Am besten wäre es mit einem Compiler Schalter den man unter Bedingter Kompelierung oder ähnlich
eingeben kann um das Debug Fenster zu öffnen.

Würd mich über Hilfe freun.

Sorry wenn ihr mich für blöd haltet.
Habe mich mit dieser Problematik in Delphi noch nicht beschäftigt.
In VB habe ich so etwas für meinen Player erstellt.
Eine externe Anwendung welche über einen Schalter sich mit meiner Anwendung verbindet.
Vorrausgesetzt sie ist vorher gestartet.

gruss

[himitsu]

CreateConsole und dann einfach über Write/WriteLn den Text ausgeben.
Aber das bringt nur was, wenn noch keine Konsole in der Anwendung existiert.

Ansonsten kannst du dir ja auch einfach eine Form erstellen, mit einem Memo drauf.

[EWeiss]

Zitat von himitsu:

CreateConsole und dann einfach über Write/WriteLn den Text ausgeben.
Aber das bringt nur was, wenn noch keine Konsole in der Anwendung existiert.

Ansonsten kannst du dir ja auch einfach eine Form erstellen, mit einem Memo drauf.

Hab mal ein Bild angehängt was ich meine..
Siehe eintrag unter bedingter Compilierung

Ich wollte eigentlich kein Fenster oder ähnliches in meine DLL einbauen sondern die Messagen
an eine Anwendung schicken ohne selbst an der DLL etwas zu ändern .. abgesehen von den Messagen die ich nach außen weiterleite.

gruss

[mjustin]

OutputDebugString ist eine Möglichkeit, die auch in der Delphi IDE unterstützt wird. Man kann auch externe Anwendungen zur Anzeige der Debug-Nachrichten nutzen.

[EWeiss]

Zitat von mjustin:

OutputDebugString ist eine Möglichkeit, die auch in der Delphi IDE unterstützt wird. Man kann auch externe Anwendungen zur Anzeige der Debug-Nachrichten nutzen.

Ich könnte ja unter Parameter mein Argument übergeben von meinem VBTracer.
TRACEMODE = 1

Die Frage wäre dann nur wie ich in Delphi eine bedingte Compilierung durchführen kann.
Hier mal der Quelltext den ich in meinem Programm verwende um mit dem Tracer zu kommunizieren.

Code:

Option Explicit

...
Public Sub Assert(ByVal condition As Boolean)

End Sub

#End If

Um was es mir geht ist diese Abfrage

Code:

#If TRACEMODE = 1 Then

Welche die Bedingte Compilierung auslöst..
Also wie könnte ich so einen Schalter innerhalb Delphi setzen..

Die Übersetzung des Quelltextes spielt keine Rolle das ist ein leichtes für mich.

Die Message die gesendet wird sieht in etwa so aus.

Code:

Trace "Form_Load Error", "", "Error", err.Number, err.Description

Und findet nur verwendung wenn der Schalter gesetzt sowie das Handle vom Tracer gefunden wird.

Ansonsten springt er in Assert rein ... tut dann quasi nichts.

Ok hab die Schalter gefunden..
{$IFDEF ..}
{$ELSE}
{$ENDIF}

Werd mich dann mal drangeben.

gruss

[EWeiss]

sorry wenn ich pusche

warum kann ich nun über den Schalter keine Funktionen mehr setzen ?

Delphi-Quellcode:

unit uTracer;

interface

uses Windows, Messages, Classes, Variants;

const
  THISAPPID = 'myTRACER';

var
  m_Hwnd        : HWND;
  m_bInitialised: BOOL;

function FindTraceWindow: Integer;
function DoTrace: Boolean;
procedure SendTraceMessage(args: array of Variant);
function IsTraceWindow(WinHandle: HWND): Boolean;

implementation

{$IFDEF TRACEMODE = 1}

Sind Unterhalb vorhanden werden aber auf grund des Schalters nicht mehr erkannt.

Zitat:

[DCC Fehler] uTracer.pas(14): E2065 Ungenügende Forward- oder External-Deklaration: 'FindTraceWindow'

gruss

[Bummi]

Delphi-Quellcode:

{$IFDEF TRACEMODE = 1}
function FindTraceWindow: Integer;
{$ENDIF}

[EWeiss]

Zitat von Bummi:

Delphi-Quellcode:

{$IFDEF TRACEMODE = 1}
function FindTraceWindow: Integer;
{$ENDIF}

Habe es jetzt mal übersetzt mit Fehler die kommen noch weg wenn ich es richtig debugen kann.

Delphi-Quellcode:

unit uTracer;

interface

uses Windows,
     Messages,
     Forms,
     Classes,
     Variants,
     SysUtils;
.

Der aufruf würde so erfolgen

Delphi-Quellcode:

SetLength(mytest,3);
mytest[0] := 'BASSVIS_Init '; mytest[1] := GlobalVisInit; mytest[2] := MainHandle;
Trace(mytest);

Wie gesagt ich komme nur in die untere Trace procedure hinein..
sollte aber die obere sein

wenn ich es jetzt so mache wie du vorgeschlagen hast.

Delphi-Quellcode:

{$IFDEF TRACEMODE = 1}
procedure Trace(args : array of Variant);
begin
   If (DoTrace) Then
      SendTraceMessage(args);

end;
{$ENDIF}

nicht genügend forward .. blablabla
bei der oben declarierten procedure um sie öffentlich zu machen

gruss