LoadFromFile Stream-Lesefehler bei > 63*63px ? ...wie jetzt?

[integer]

Zitat von DGL-luke:

warum das rad neu erfinden?

http://www.delphipraxis.net/internal...ct.php?t=55084

Um endlich mal den Umgang mit Grafiken kennenzulernen

Zitat von DGL-luke:

Bei deinem Problem muss ich sagen: Ohne mehr Quelltext kommt man da nicht weiter.
Interessant wäre z.B. was du lädst. wobei BMPs eigentlich keine Probleme machen dürften.
Hast du irgendwelche Komponenten dabei?

Keine Komponenten, kaum zusätzlier Quellcode...

Zitat von DGL-luke:

Ansonsten: einfach mal ein neues Projekt aufmachen, mit einem Image und einem Opendialog. Und den ruhig mal auf der Form platzieren, tut nicht weh
Und dann eben sehen, ob das nochmal auftritt. was es ja offenbar schon getan hat, bei dem Iconprog. ehrlich gesagt bin ich ratlos, was so einen fehler auslösen könnte....

Habe ich gemacht, selber Fehler. Bin eigentlich auch ratlos.
Hmm.. mir fällt gerade ein, dass ich das habe seit ich bei der Installation von Delphi2005 PE nur [x]Delphi für Win32 ausgewählt habe... kann doch nicht sein, oder



Darf ich präsentieren, der gesamte Quellcode dieser Prozedur:

Delphi-Quellcode:

procedure TForm1.BitBtn_loadimageClick(Sender: TObject);
begin
  with TOpenPictureDialog.Create(self) do
  try
    filter := 'Bitmaps(*.bmp)|*.bmp|Alle Dateien(*.*)|*';
    Options := [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing];
    if Execute then
    begin
      img_original.Picture.Bitmap.LoadFromFile(FileName);
      //img_original.Stretch := ((img_original.Picture.Width > img_original.Width) or (img_original.Picture.Height > img_original.Height)); {Testweise auskommentiert}
      //compressnewimage(form1.TrackBar_compressquality.Position); {Testweise auskommentiert}
    end;
  finally
    Free;
  end;
end;

//edit: Quellcode der gesamten Prozedur angehängt