Debug Console oder ähnlich

[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

[Bummi]

ich fürchte ich komm nicht mehr mit...
der {$IFDEF} Kram sorgt für eine bedingte kompilierung, ja nach Schalter kommen verschiedene "Programme" raus
wenn Du TRACEMODE <> 1 definiert hast wird der Teil
{$IFDEF TRACEMODE = 1}
überhaupt nicht aufgenommen beim kompilieren.

Falls ich Dich richtig verstanden habe brauchst Du keine Kompilerschalter sondern Parametrisierte Aufrufe die dann verschieden verzweigen?

[EWeiss]

Zitat von Bummi:

Falls ich Dich richtig verstanden habe brauchst Du keine Kompilerschalter sondern Parametrisierte Aufrufe die dann verschieden verzweigen?

In meiner Anwendung wird geprüft ob diese Unit hier TRACEMODE = 1 als Parameter für die bedingte compilierung übergibt
Wird dieser nicht gefunden wird auch nichts ins Logbuch eingetragen
So schützt sich diese selbst vor unnötigen zugriffen von außen.

Ich habe in meiner DLL unter Parameter "TRACEMODE = 1" eingegeben eigentlich sollte der Compiler das erkennen
während der laufzeit und darauf hin entscheiden ob er den Codeteil freigibt also verwendet oder nicht.
Vorrausgesetzt die Anwendung läuft dann werden die Daten in das Fenster geschickt und dort ausgewertet.

in vb sieht mein compiler schalter so aus!
#If TRACEMODE = 1 Then
#Else
#End If

und steht genau an der gleichen stelle wie hier im Code übergeben.
Wie gesagt habe mich mit den Schaltern in Delphi noch nicht beschäftigt.

Nochmal ein ganz kleines Beispiel!

Zitat:

Der #If...Then...#Else-Block kann benutzt werden, um ein Symbol zu testen und entsprechende Anweisung einzukompilieren oder aus dem Kompilat herauszuhalten.
Daneben kann es auch zum Auskommentieren großer Quelltext-Passagen verwendet werden.

Code:

Option Explicit

#Const MitHinein = True

Public Sub Main
    Debug.Print "Dieser Text ist immer zu sehen"

    #If MitHinein Then
         Debug.Print "Dieser Text ist nur zu sehen, wenn " & _
                     "'MitHinein' entsprechend gesetzt wurde."
    #End If

    #If False Then
         Debug.Print "Dieser Text ist nie zu sehen."
    #End If

    Debug.Print "Das war es schon."
End Sub

So ist es veranschaulicht was bzw.. wofür die Schalter stehen.

Ist der Schalter unter Parameter im Debugger Dialog gesetzt muss der ganze obere Teil des Quelltextes aktiv sein
Andernfalls werden die beiden unteren proceduren verwendet die dann nichts tun...

gruss Emil

[Bummi]

Delphi ist keine Interpretersprache.
Das was Du mit Deinen Kompilerschaltern setzt wirkt sich direkt auf das Kompilat aus.

Ich denke du brauchst Parameter, ohne Kompilerschalter, falls ich einen Hänger habe korrigiert mich.

[EWeiss]

Zitat von Bummi:

Delphi ist keine Interpretersprache.
Das was Du mit Deinen Kompilerschaltern setzt wirkt sich direkt auf das Kompilat aus.

Ich denke du brauchst Parameter, ohne Kompilerschalter, falls ich einen Hänger habe korrigiert mich.

Ich will dir da nicht widersprechen..
Wie würde das aussehen das wie beschrieben nur der Obereteil ausgeführt wird wenn der parameter
gesetzt ist und der untere ignoriert wird.

Und umgekehrt natürlich wenn er nicht gesetzt ist.

Ich war der meinung das man das mit Compiler Schaltern unter Delphi regeln könnte.
Irren ist Menschlich

gruss Emil