Zugriffsverletzungen abfangen

[uligerhardt]

Hallo zusammen!

Ich hab das gleiche Problem wie im Thema "Zugriffsverletzung beim Bild laden" mit den Jpegs, die Delphi (BDS 2006) nicht laden mag. Ich hab mir ein kleines VCL-Testprogramm mit einem TImage und folgenden DblClick-Handler geschrieben:

Delphi-Quellcode:

procedure TForm1.FormDblClick(Sender: TObject);
begin
  try
    PRect(nil)^.Left := 777;
  except
    on E: EAccessViolation do
      ShowMessage('1');
  end;

  try
    Image1.Picture.LoadFromFile(ExpandFileName('.\20326.jpg')); // <- JPEG aus verlinktem Posting
  except
    on E: EAccessViolation do
      ShowMessage('2');
  end;
end;

Wenn ich das laufen lasse und doppelklicke, kriege ich - wie erwartet - den Dialog mit der 1 zu sehen, nicht aber den mit der 2. Stattdessen kommt eine Fehlermeldung "Zugriffsverletzung bei...".

Kann mir jemand sagen, warum ich die eine ZV abfangen kann, die andere aber nicht?

Uli.

[Luckie]

Das zweite schein keine Zugriffsverletzung zu sein.

Änder den Code mal wie folgt:

Delphi-Quellcode:

except
    on E: Exception do
      ShowMessage(E.ClassName);

und sag uns, was du da für eine Exception bekommst.

[DeddyH]

Dürfte wohl eher eine 2 werden, oder ist die Datei vorhanden?

[edit] Sry, war dem Link nicht gefolgt (ich werde wohl doch langsam alt) [/edit]

[uligerhardt]

Zitat von Luckie:

und sag uns, was du da für eine Exception bekommst.

Gar keine. Weder mit deinem Codefragment noch so

Delphi-Quellcode:

try
  Image1.Picture.LoadFromFile(ExpandFileName('.\20326.jpg'));
except
  ShowMessage('2');
end;

kriege ich "meine" Meldung zu sehen. Die IDE zeigt jeweils noch die Meldungen aus den Anhängen an, die für mich beide recht ähnlich ausschauen.

[Luckie]

Dann lass dir doch mal den Exception Klassennamen anzeigen, damit du siehst, WAS für eine Exception dort geworfen wird. Ich bekomme zum Beispiel die Exception EInavlidGraphic, wenn die date nicht existiert.

[uligerhardt]

Zitat von Luckie:

Dann lass dir doch mal den Exception Klassennamen anzeigen, damit du siehst, WAS für eine Exception dort geworfen wird. Ich bekomme zum Beispiel die Exception EInavlidGraphic, wenn die date nicht existiert.

Das ist es ja - keine Exception. Wenn ich in folgendem Code

Delphi-Quellcode:

procedure TForm1.FormDblClick(Sender: TObject);
begin
  try
    Image1.Picture.LoadFromFile(ExpandFileName('.\20326.jpg'));
  except
    ShowMessage('2'); // <====
  end;
end;

in der markierten Zeile einen Breakpoint setze, hält der Debugger dort nicht.

Wenn ich zusätzlichen diesen

Delphi-Quellcode:

procedure TForm1.AppException(Sender: TObject; E: Exception);
begin
  ShowMessage('AppException ' + E.ClassName);
end;

Handler für Application.OnException installiere, meldet er mir "AppException EAccessViolation".

[sirius]

Die Exception kommt nicht bei Loadfromfile sondern bei einer darauffolgenden WM_Paint an das Control.

Edit1:
Und wen es noch genauer interessiert:
Die Exception kommt aus der Unit jpeg und der relevante ASM-Teil sieht folgendermaßen aus:

Delphi-Quellcode:

asm
  ...

 @begin
  
  ...
  
  mov eax,[ebp+$0c]
  mov eax,[eax]
  add dword ptr [ebp+$0c],$04
  
  ...
  
  mov [eax],bl //<--Exception
  
  ...  
 
  dec dword ptr [ebp+$08]
  jns @begin
 
  ...
end;

Edit2:
Und wie das ganze jetzt umgehen?
z.B. so:

Delphi-Quellcode:

procedure TForm1.FormDblClick(Sender: TObject); 
begin 
  try 
    Image1.Picture.LoadFromFile(ExpandFileName('.\20326.jpg')); 
    Image1.Repaint;
  except 
    on E:EAccessViolation do
      ShowMessage('2');
  end; 
end;

Das ändert aber nichts an dem Fehler im Bild (oder in der Unit jpeg)

[uligerhardt]

Zitat von sirius:

Und wie das ganze jetzt umgehen?
z.B. so:

Image1.Repaint beeinflusst das Exceptionhandling? Darauf soll einer kommen.
In meiner "echten" Anwendung arbeite ich zwar nicht mit einem TImage, sondern mit StretchDraw auf ein Bitmap, aber das krieng mer dann auch noch hin.

Zitat von sirius:

Das ändert aber nichts an dem Fehler im Bild (oder in der Unit jpeg)

Egal. Hauptsache, kein Absturz.

Danke euch allen!

UPDATE: Anstelle von TCanvas.StretchDraw

Delphi-Quellcode:

procedure CheckedStretchDraw(ACanvas: TCanvas; const ARect: TRect; AGraphic: TGraphic);
begin
  try
    ACanvas.StretchDraw(ARect, AGraphic);
    ACanvas.Refresh;
  except
    on E: EAccessViolation do
      ACanvas.TextOut(ARect.Left, ARect.Top, 'Kaputt!');
  end;
end;

aufrufen hilft. Nicht elegant, aber es tut.