OpenDialog wird in der IDE nicht angezeigt

[torf160]

Tatsächlich, daran lags!

Da soll aber einer auch einer drauf kommen.

Danke für die schnelle Hilfe,
Thomas

[Bernhard Geyer]

Zitat von torf160:

Tatsächlich, daran lags!

Da soll aber einer auch einer drauf kommen.

Also meine erste Aktion bei unerklärlichen Fehlern ist erst mal den Virenscanner testhalber zu deaktivieren. Und oft genug wurde damit die Ursache des Problems gefunden.

[himitsu]

Probier mal ExtractFileDir, anstatt ExtractFilePath, denn dieses InitialDir sollte eigentlich kein abschließendes \ enthalten (außer beim Rootverzeichnis)

[himitsu]

Probier mal ExtractFileDir, anstatt ExtractFilePath, denn dieses InitialDir sollte eigentlich kein abschließendes \ enthalten (außer beim Rootverzeichnis)


PS: Bezüglich deiner Fehlerbehandlung:
Bitte niemals die ursprünglichen Fehlermeldungen durchs "nichtssagende" Meldungen, ala dein "Es ist ein Fehler passiert, aber sich sag dir nicht warum ", ersetzen!

Außerdem fängst du zwar den Fehler beim Öffnen ab, aber dann machst du einfach weiter, als wenn nix wäre, womit dann dein MyStream undefiniert ist und es deswegen bestimmt nochmals knallt.

Delphi-Quellcode:

except
  on E: Exception do
  begin
    ShowMessage('Fehler beim Öffnen der Datei!'
      + sLineBreak + E.Message);
    Exit;  // nachfolgende Codes nicht mehr abarbeiten
  end;
end;

Delphi-Quellcode:

except
  on E: Exception do
  begin
    E.Message := 'Fehler beim Öffnen der Datei!' + sLineBreak + E.Message;
    ShowException(E, nil);
    Exit;
  end;
end;

Delphi-Quellcode:

except
  on E: Exception do
  begin
    E.Message := 'Fehler beim Öffnen der Datei!' + sLineBreak + E.Message;
    raise;
  end;
end;

1. nja, hier wird die ursprüngliche Fehlermeldung mit angezeigt und der nachfolgende Code wird nicht mehr ausgeführt
2. wie 1, ußer daß das Fehlerfenster mehr wie ein Fehlerfenster aussieht
3. das würde ich eher empfehlen > Text erweitern und Exception weiterreichen) ... ist besonders vorteilhaft, wenn man auch mal außerhalb der Funktion auf diese Exception reagieren will.

Edit: E entfernt

[jbg]

Zitat von himitsu:

Delphi-Quellcode:

except
  on E: Exception do
  begin
    E.Message := 'Fehler beim Öffnen der Datei!' + sLineBreak + E.Message;
    raise E;
  end;
end;

3. das würde ich eher empfehlen > Text erweitern und Exception weiterreichen) ... ist besonders vorteilhaft, wenn man auch mal außerhalb der Funktion auf diese Exception reagieren will.

"raise E" führt zur Zugriffsverletzung, weil E im "end" des "on E" freigegeben wird. Statt "raise E" muss hier einfach nur "raise" stehen (ohne E), was die System.pas Funktion "Reraise" aufruft und dem 'end;' "mitteilt", dass E nicht freigegeben werden darf.

Delphi-Quellcode:

except
  on E: Exception do
  begin
    E.Message := 'Fehler beim Öffnen der Datei!' + sLineBreak + E.Message;
    raise; // hier kein "raise E", da sonst Zugriffsverletzung
  end;
end;