Hilfe bei C++ Code nach Delphi Code

[fiasko]

Zitat von pajofego:

Gut, also die Compiler Macros __FILE__ und __LINE__ gibt es wohl noch nicht in Delphi. Würde aber trotzdem ganz gerne etwas mehr über die JCL und Map-Files erfahren. Wo kann ich dazu etwas finden.

Im Anhang eine Unit die ich verwende um Exceptions abzufangen und aus der Fehleradresse die Unit+Zeile zu ermitteln. Ist aus einem Projekt... muß also ein bißchen aufgeräumt werden, sollte aber nicht das Problem sein.
Das läßt sich sicher auch irgendwie einsetzen um die aktuelle Unit+Zeile zu bekommen wenn man dem GetMapAddressFromAddress die richtige Adresse gibt

Zitat von pajofego:

Was ich noch unbedingt wissen müsste wären die Präprozessoranweisungen

Code:

#ifdef _DEBUG
...
#else
...
#endif

wie sieht denn sowas in Delphi aus?

Schau mal unter Compiler-Direktiven in der OH, da gibt es {$IF ...}, {$ENDIF}, ... Schalter.

[Oxmyx]

Zitat von pajofego:

Zitat von dizzy:

*kreisch* Ist das Code oder Wirrwarr? Ich weiss schon warum ich C nicht wirklich mag...

(Sorry, konnt's mir net verkneifen.)

Sorry, ist ein bischen verwirrend, ist halt c(zääääh)++

Kurz gesagt soll es folgendes machen:

Im Debugmodus soll er mit in das Debugfenster eine Fehlermeldung reinschreiben, gleichzeitig hätte ich gerne die Zeilennummer und den Dateiname der Unit! Anschliessend folgt eine Meldung durch ein Dialogfeld. Übergabeparameter ist ein pointer! (Ist alles für DirectX-Anwendungen!)

Vielleicht wird meine Absicht jetzt etwas klarer.

Hm... wieso weist du einen Zeiger einem HRESULT zu?

[pajofego]

Zitat von Oxmyx:

Zitat von pajofego:

Zitat von dizzy:

*kreisch* Ist das Code oder Wirrwarr? Ich weiss schon warum ich C nicht wirklich mag...

(Sorry, konnt's mir net verkneifen.)

Sorry, ist ein bischen verwirrend, ist halt c(zääääh)++

Kurz gesagt soll es folgendes machen:

Im Debugmodus soll er mit in das Debugfenster eine Fehlermeldung reinschreiben, gleichzeitig hätte ich gerne die Zeilennummer und den Dateiname der Unit! Anschliessend folgt eine Meldung durch ein Dialogfeld. Übergabeparameter ist ein pointer! (Ist alles für DirectX-Anwendungen!)

Vielleicht wird meine Absicht jetzt etwas klarer.

Hm... wieso weist du einen Zeiger einem HRESULT zu?

Das war Blödsinn von mir! Sorry! Ich war wohl schon fast im Reich der Träume, als ich das geschrieben habe! Aber erst einmal danke für den Code oben. So habe ich mir das auch ungefähr vorgestellt.

An allen anderen Danke ich auch! Werde mir mal jetzt die einzelnen Vorschläge anschauen und durcharbeiten.

P.S.: Habe mir gerade die Hilfe von JCL angeschaut und unter dem Punkt "Debugging->Source Locations" Gibt es functions __FILE__ und __LINE__ ! Da müsste doch was gehen oder?

[woki]

Ach ja,

Assertions kennen auch File und Zeilennummer des Problems, Beispiele für die Verwendung:

OH
AssertErrorProc
und
AssertErrorProc (Beispiel)

inclusive der Möglichkeit die auf eigene Ausgaberoutinen umzusetzen,

siehe obiges Beispiel und

Code:

procedure AssertErrorHandler(const Message, Filename: string;  LineNumber: Integer; ErrorAddr: Pointer);
var
  S: String;
begin
  S := Format('%s (%s, line %d, address $%x)',
    [Message, Filename, LineNumber, Pred(Integer(ErrorAddr))]);
  writeln(myFile,s);
end;

Ergo: mit den entsprechenden Debuginformationen compiliert kennt die Anwendung Filename und Zeilennummer und man kommt auch recht einfach heran.

Grüsse
Woki

[pajofego]

So jetzt habe ich es so, wie ich mir das in etwa vorgestellt habe. Danke nochmal an alle! Echst super Hilfe hier! Das einzige was mir bei Delphi noch nicht klar ist, ist die Sache mit der Debug und Release Version, die es unter VC gibt. Delphi erstellt nur eine Exe Datei und die ist abhängig von den gewählten Compileroptionen z.B.: {$D+} und etc. Ist das richtig? Bedeutet dann, in Delphi {$D+} = _DEBUG wie unter VC?

Danke nochmals.

Delphi-Quellcode:

{$IFDEF _DEBUG}
function CHECK_HR(p: HRESULT): HRESULT;
var
  acError: array[0..255] of Char;
begin
  if FAILED(p) then begin
    ZeroMemory(@acError, sizeof(Char) * 256);
    strlfmt(acError, sizeof(Char) * 256, 'DEBUG: HRESULT FAILED %d in file %s in line %d ', [p, __FILE__, __LINE__]);
    MessageBox(0, acError, 'HRESULT FAILED', MB_OK or MB_ICONERROR);
  end;
  Result := p;
end;
{$ELSE}
function CHECK_HR(p: HRESULT): HRESULT;
begin
  Result := p;
end;
{$ENDIF}