lpfnHook absturz als eigenständige exe

[jaenicke]

MadExcept und Eurekalog können gute Fehlerlogs dazu erzeugen. Ein solches Log kannst du natürlich gerne hier anhängen, wenn du dort nichts sehen solltest.

Außerdem kannst du FastMM einbinden, denn wenn es wirklich ein Problem bei der Freigabe eines Objekts gibt, sollte das dort gemeldet werden.

[EWeiss]

Zitat:

Eurekalog können gute Fehlerlogs dazu erzeugen

Das schon mal nicht
Kommt anscheinend mit Nonvcl nicht zurecht.

Die Anwendung stürzt ab keine Meldung die Anwendung hängt keine Meldung nichts.
MadExcept das gleiche keine Meldung nix.

Die einzige Meldung die ich bekomme ist diese im Anhang.
Damit kann ich aber im Moment mal leben.

gruss

[hoika]

Hallo,
tja, doof

Hast du Units mit finalization-Code ?

Wenn ja, muss du das halt per
- MessageBox
- Log-File debuggen

[EWeiss]

Hast du Units mit finalization-Code ? yep eine.
Das Problem ist nur wenn ich debugge beim beenden der Anwendung geht er nicht
in die finalization dieser Unit hinein.

gruss

[EWeiss]

Hmmm habe das Problem gefunden zumindest schon mal eins.

An die Leute die es vielleicht wissen.
Ich habe zu meiner OpenSaveFileDialog function die variable SkinConfig noch mit eingebaut so kann man von außen den Pfad zum aktuellen Skin übergeben.

Delphi-Quellcode:

function OpenSaveFileDialog(SkinConfig: string; ParentHandle: THandle; const DefExt, Filter, InitialDir,
  Title: WideString; var FileName: WideString; IsOpenDialog: Boolean): Boolean;
var
  ofn: TOpenFilename;
  szFile: array [0 .. MAX_PATH] of Char;
begin
  Result := False;
  //SkinConfigFile := SkinConfig;

  FillChar(ofn, SizeOf(TOpenFilename), 0);
  with ofn do
  begin..

Sobald ich jetzt

//SkinConfigFile := SkinConfig;

aktiviere. Also aus kommentiere stürzt die Anwendung als eigenständige EXE ab.

Warum ?
Habe ich noch nie erlebt.
Wohlbemerkt der NORMALE Dialog ohne irgendeine Veränderung mit und ohne Hook.

Die Funktion "OpenSaveFileDialog" kann ich doch benennen und ändern wie ich will da diese keinen Bezug zu TOpenFilename hat
also dementsprechend auch den Sitz davon nicht verändert.
Trotzdem kracht es. Hab jetzt 2 Tage gebraucht um den Mist zu finden.
Keiner der Fehlerreport Tools konnte das ausmachen.

gruss

[Zacherl]

Wird irgendeine Heap/Stack-Corruption sein. Irgendwo eventuell die stdcall Calling-Convention vergessen?

[EWeiss]

Zitat von Zacherl:

Wird irgendeine Heap/Stack-Corruption sein. Irgendwo eventuell die stdcall Calling-Convention vergessen?

Ahhh wäre eine alternative werde das nochmal prüfen.

Danke.

EDIT:
Geprüft und tatsächlich ja.
Löst aber nicht mein Problem.

Öffentliche API. "SKAeroAPI" (Stellt den Eingang über den Ausgang der DLL bereit.)

Delphi-Quellcode:

function SKAERO_OpenSaveFileDialog(SkinConfig: string; ParentHandle: THandle;
  const DefExt, Filter, InitialDir, Title: WideString; var FileName: WideString;
  IsOpenDialog: boolean): boolean; stdcall; external dllfile;

Aufruf.

Delphi-Quellcode:

              
if SKAERO_OpenSaveFileDialog(DefSkin, WinHandle, '.mp3',
  'Mp3 Files (*.MP3|*.mp3', ParamStr(0),
  ' Open Media File', MainApp.Newfile, True) then
begin
  if MainApp.Newfile <> '' then
    MainApp.SampleAudioStream(MainApp.Newfile);
end;

Weiterleitung über meine Master Unit in der alle Exports verwaltet werden.
Die Rückgabe erfolgt dann von hier.

Delphi-Quellcode:

function SKAERO_OpenSaveFileDialog(SkinConfig: string; ParentHandle: THandle; const DefExt, Filter, InitialDir,
  Title: WideString; var FileName: WideString; IsOpenDialog: Boolean): Boolean; stdcall;
begin

  result := OpenSaveFileDialog(SkinConfig, ParentHandle,  DefExt, Filter, InitialDir,
    Title, FileName, IsOpenDialog);
end;

unit OpenFileDlg Verarbeitung der Funktionen
Global Im Header hier hatte ich stdcall vergessen.

Delphi-Quellcode:

function OpenSaveFileDialog(SkinConfig: string; ParentHandle: THandle; const DefExt, Filter,
  InitialDir, Title: WideString; var FileName: WideString; IsOpenDialog: Boolean): Boolean; stdcall;

Das eigentliche Arbeitspferd
Auch hier stdcall vergessen

Delphi-Quellcode:

function OpenSaveFileDialog(SkinConfig: string; ParentHandle: THandle; const DefExt, Filter,
  InitialDir, Title: WideString; var FileName: WideString; IsOpenDialog: Boolean): Boolean; stdcall;
var
  ofn: TOpenFilename;
  szFile: array [0 .. MAX_PATH] of Char;
begin
  Result := False;
  SkinConfigFile := SkinConfig; // Hier Krachts sobald aktiviert.

Der Aufruf in meiner OpenSaveFileNameHook function

Delphi-Quellcode:

CDN_INITDONE:
  begin
  //......
  OpenDialog.PrepareWindow(DlgHandle, SkinConfigFile);
  //.....
  end;

Das war's

Auch mit stdcall es kracht als eigenständige EXE.
Ich muss mich verstecken das kann niemand mehr hören.

Lege ich anstelle von "SkinConfigFile" den Pfad Hardcoded an kein Absturz als EXE.
Ich hätte eine Lösung aber das behebt nicht das ursprüngliche Problem.
Ich möchte wissen warum ein einfacher String die Anwendung außerhalb der IDE abstürzen lässt.

gruss