Defektes Exception-Handling

[himitsu]

Der ganze Code siehe http://www.delphipraxis.net/188607-i...ml#post1333420

[Der schöne Günther]

$C0000008 ist "Invalid Handle specified"

Meine Google-Suche findet das hier bei StackOverflow, der scheint ja etwas ganz ähnliches wie du zu machen. Jedenfalls ist die Konsole und das Std-Ausgabehandle im Spiel

[himitsu]

Arrrrg

Delphi-Quellcode:

CloseHandle(0);  // geht
CloseHandle(INVALID_HANDLE_VALUE);  // geht
CloseHandle(123456789);  // GEHT NICHT

Aber eigentlich sollte nirgendwo ein "ungültiges" Handle vorkommen, aber vielleicht
Muss ich heute Abend nochmal in Ruhe nachsehen.

Und sowas ist ja keine Lösung.

Delphi-Quellcode:

function CloseHandle(hObject: THandle): Boolean;
begin
  if IsDebuggerPresent then
    try
      Result := {Windapi.}Windows.CloseHandle(hObject);
    except
      on E: EExternalException do
        if not Assigned(E.ExceptionRecord) or (E.ExceptionRecord.ExceptionCode <> $C0000008) then
          raise;
      on E: Exception do
        raise;
    end
  else
    Result := {Windapi.}Windows.CloseHandle(hObject);
end;

[edit]
Mir fällt grade ein, dass man im Debugger die Exception ignorieren und vom Debugger behandeln lassen könnte.

[himitsu]

Die "falsche" Exception kam also aus dem CloseHandle im nachfolenden Finally und überschrieb die eigentlich Exception.
Der Grund war ein "falsches" Handle. ThreadID und ThreadHandle wurden vertauscht.

Und die ursprüngliche Exception kommt von "falschen" Handles?

Ich wollte im Testfall eigentlich nur das Input umleiten, aber Output und ErrorOutput sollen auf die Konsole gehen.
0 geht nicht, STD_OUTPUT_HANDLE geht auch nicht und GetStdHandle(STD_OUTPUT_HANDLE) geht sowieso nicht, da meines keine Konsole besitzt.

Wie macht man das denn dann?

Delphi-Quellcode:

StartupInfo.hStdInput := CreatePipe/CreateFile/THandleStream;
StartupInfo.hStdOutput := GetStdHandle(STD_OUTPUT_HANDLE);  // ????? mit oder ohne DuplicateHandle
StartupInfo.hStdError := GetStdHandle(STD_ERROR_HANDLE);  // ?????
CreateProcess(..., STARTF_USESTDHANDLES, ...);

Da ich vorher nicht weiß, ob die Anwendung später die StandardIOs benutzt, bzw. ob es eine KonsolenApp wird, kann ich doch nicht einfach blind eine Konsole erstellen und dann deren Handle benutzen, vorallem nicht, wenn es dann eine GUI-Anwendung wird.

[BUG]

Kannst du per Default nicht ein Handle auf die nul-Datei übergeben? Bin mir aber nicht sicher ob das unter Windows so funktioniert

[Luckie]

Die API Funktion WaitForInputIdle wirft eine Exception?

[himitsu]

WaitForInputIdle gibt WAIT_FAILED zurück, worauf hin ich eine Exception werfe.
Und im Finally wirft dann CloseHandle eine Exception, aber nur wenn das Programm im Debugger läuft, sonst nicht.

Und nein, kein NULL.
Wenn es nicht umgeleitet wird, dann soll es bei der Konsole "bleiben".
In diesem Testfall soll nur INPUT umgeleitet werden und nicht OUTPUT/ERROROUT.