Access Violation nach zweiten Aufruf von OpenDialog

[Aviator]

Zitat von Luckie:

OpenDialoge gibt man nicht frei mit free.

Zumindest nicht dann, wenn man ihn auf die Form gezogen hat und nicht zur Laufzeit erstellt.

[Sir Rufo]

Zitat von Aviator:

Zitat von Luckie:

OpenDialoge gibt man nicht frei mit free.

Zumindest nicht dann, wenn man ihn auf die Form gezogen hat und nicht zur Laufzeit erstellt.

Und wenn doch, dann hinterlässt man niemals einen dangling pointer und verwendet besser FreeAndNil . Aber ich denke hier ist das Freigeben nicht wirklich beabsichtigt (war wohl mehr ein Reflex)

[pmros]

Mein OpenDialog1.free; habe ich auch erst nach den Abstürzen reingesetzt, weil ich gehofft habe, dass es daran liegt.

Leider nicht.

[DeddyH]

Wie sieht es so aus?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  MAX_SHELLEXECUTE_ERROR = 32;
var 
  filename, ChFilename:string;
begin
  OpenDialog1.Filter := 'Xilog Plus Datei|*.pgm|Xilog Plus ASCII Datei|*.xxl';
  if OpenDialog1.Execute then
    begin
      filename:= OpenDialog1.FileName;
      Chfilename:='"'+filename +'" -s -i';
      if ShellExecute(Application.Handle, nil, PChar('.\Winxiso.exe'), 
        PChar(Chfilename), nil, SW_SHOW) > MAX_SHELLEXECUTE_ERROR then
        begin
          filename := ChangeFileExt(filename, '.bmp');
          if FileExists(filename) then
            Image1.Picture.LoadFromFile(filename);
        end;  
    end;
end;

Sollte es immer noch knallen, müsstest Du einmal durchsteppen und uns die entsprechende Zeile nennen.

[pmros]

So funktioniert es, danke für die Hilfe!