Hallo Jungs,
hab folgendes Problem. Ich hab zwei Buttons für das Laden und Löschen eines Bildes. Ich kann ein Bild wählen, wenn es nicht das richtige ist, wieder laden, also da klappt alles, wenn ich aber ein geladenes Bild lösche und dann wieder ein Bild wähle, kracht es, ein Speicherzugriffsfehler.
Ich vermute, dass das an der Freigabe des TFileStream (fs, ist FileStream und globale Variable) liegt. Kapier aber nicht, wie ich das richtig machen soll. Danke euch!
Delphi-Quellcode:
// Bild laden
procedure TForm2.PictureBitBtnClick(Sender: TObject);
var jpeg: TJPEGImage;
begin
if fs<>nil then fs.Free;
if OpenPictureDialog1.Execute then
begin
jpeg := TJPEGImage.Create;
try
jpeg.LoadFromFile(OpenPictureDialog1.FileName);
if (((jpeg.Width>100) and (jpeg.Width<200)) or ((jpeg.Height>100) and (jpeg.Height<200))) then
begin
fs := TFileStream.Create(OpenPictureDialog1.FileName, fmOpenRead);
PictureImage.Picture.Graphic := jpeg;
end else MessageDlg('Das Bildformat entspricht nicht den Anforderungen!' + CHR(13) +
'Bitte wählen Sie das Format von min. 100x100 und max. 200x200 Pixel.', mtError, [mbOK], 0);
finally
jpeg.Free;
end;
end;
end;
Und hier das löschen des Bildes
Delphi-Quellcode:
// Bild löschen
procedure TForm2.PictureDeleteBitBtnClick(Sender: TObject);
begin
fs.Free;
PictureImage.Picture := nil;
end;