SaveDialog --> Debugger Exception

[Störtebeker]

Hallo,

ich habe ein kleines Problem mit meinem Programm:

Ich habe mir zufällig die Vista CaptionButton runtergeladen (Inactive + Active) und verwende für den Wechsel folgendes von der TImage Komponente:

OnMouseDown:

Delphi-Quellcode:

begin
Image1.Picture.LoadFromFile('close-hover.png');
end;

und OnMouseUp:

Delphi-Quellcode:

begin
Image1.Picture.LoadFromFile('close.png');
end;

und OnClick:

Delphi-Quellcode:

begin
Form1.close;
end;

funzt auch alles. Nur wenn ich jetzt einen SaveDialog in mein Programm einfüge und dem entsprechenden Item im Mainmenü folgendes zuweise:

Delphi-Quellcode:

procedure TForm5.HTMLDokumentspeichern1Click(Sender: TObject);
var Dateiname: string;
begin
if SaveDialog1. Execute then
begin
    if ExtractFileExt(SaveDialog1.FileName) = '' then
      case SaveDialog1.FilterIndex of
        1: DateiName := ChangeFileExt(SaveDialog1.FileName,'.html');
        2: DateiName := ChangeFileExt(SaveDialog1.FileName,'.htm');
      end
    else
      Dateiname := SaveDialog1.FileName;
    SynEdit1.Lines.SaveToFile(Dateiname);
  end;
end;

und ich speichere und anschließend das Programm beenden möchte, kommt Delphi mit:

Zitat:

Debugger Exception Notification

Project Project1.exe raised exception class EFOpenError with message 'Cannot open file close.png'.
Process stopped. Please Step or Run to continue.

Die File ist allerdings im Projektordner drinne. Und ohne SaveDialog funzt es auch.

!!Please Help!!

mfG
Störtebeker

[SirThornberry]

Der SaveDialog ändern den aktuellen Arbeitspfad.
Da du nie davon ausgehen solltest das der User beim Start deines Programmes, den Arbeitspfad auf den Pfad deines Programmes setzt, solltest du generell absolute Pfadangaben verwenden.

Ist dein aktuelles Arbeitsverzeichnis zum Beispiel "c:\Windows" würde versucht werden die Bilder in diesem Ordner zu finden. Und das Arbeitsverzeichnis ist NICHT das gleiche wie das Verzeichnis wo die Anwendung liegt.

besser:
ExtractFilePath(Application.ExeName) + 'dateiname';

[Störtebeker]

Muss ich jetzt

if ExtractFileExt(SaveDialog1.FileName) = '' then durch

ExtractFilePath(Application.ExeName) + 'dateiname'; austauschen?

Sry. hatte bisher nie das Problem.

[SirThornberry]

bisher hast du es so:
FileName := 'close-hover.png'; und daraus solltest du folgendes machen:
FileName := ExtractFilePath(Application.ExeName) + 'close-hover.png';

[Störtebeker]

Nochmal Sry. Irgendwie stehe ich gerade auf dem Schlauch:

meinst du so:

Delphi-Quellcode:

begin
Image1.Picture.LoadFromFile.ExtractFilePath(Application.ExeName) + 'close-hover.png';
end;

[Störtebeker]

Es GEHT --> mit:

Delphi-Quellcode:

begin
Image1.Picture.loadfromfile(ExtractFilePath(Application.ExeName) + 'close-hover.png');
end;

Verbessere mich bitte, falls ich doch faslch liege.

Dank dir.

[SirThornberry]

du liegst nicht falsch.

[Luckie]

Zitat von SirThornberry:

Der SaveDialog ändern den aktuellen Arbeitspfad.

Tausendmal gepredigt und immer noch wird es ignoriert: "Das Arbeitsverzeichnis muss nicht zwingend das Programmverzeichnis sein!"