Hallo,
was zwingt dich eigentlich, den Filestream schon in der Bildladeroutine zu erzeugen.
Du kannst doch einem String openpicturedialog1.filename übergeben und erst, wenn Du Dir mit dem Bild sicher bist, den Filestream erzeugen, also
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23:
| var bildname:string; ... procedure TForm2.PictureBitBtnClick(Sender: TObject); var jpeg: TJPEGImage; begin if OpenPictureDialog1.Execute then begin jpeg := TJPEGImage.Create; try jpeg.LoadFromFile(OpenPictureDialog1.FileName); bildname:=''; if (((jpeg.Width>100) and (jpeg.Width<200)) or ((jpeg.Height>100) and (jpeg.Height<200))) then begin bildname := OpenPictureDialog1.FileName; PictureImage.Picture.Assign(jpeg); end; finally jpeg.Free; end; end; end; ... fs := TFileStream.Create(bildname, fmOpenRead); |
Außerdem kannst Du so auch am leeren String erkennen, ob das Bild den gewünschten Abmessungen entspricht.
Beste Grüße
Mathematiker
Töten im Krieg ist nach meiner Auffassung um nichts besser als gewöhnlicher Mord. Albert Einstein