Höhe und Breite von einem JPG Bild im TImage

[qb-tim]

Hi,

ich habe ein Programm, indem ich einen 600x600 TImage im Formular habe. Darin werden Bilder innerhalb dem Rahmen von 600x600 px in verschiedensten Formaten angezeigt. Nun habe ich folgendes Problem:

Ich hole mir mit Image.Picture.LoadFromFile eine JPG Datei ins TImage und will nun die Höhe und Breite des EIGENTLICHEN BILDES ermitteln. Leider hilft mir Image.Height nicht weiter, da dieser immer 600px beträgt. Image.Picture.Height, Image.Picture.Bitmap.Height und Image.Picture.Graphic.Height spucken alle 0 aus! (dasselbe bei Width)

Wie kann ich sonst die Breite und Höhe des angezeigten Bildes ermitteln?

[Muetze1]

Image.Height ist die Komponente. Image.Picture.Graphic.Height ist die der angezeigten Grafik. Wenn du dort 0 bekommst fragst du das falsche Bild ab oder es ist keins geladen. Diese Angabe benutzt TGraphic selbst um das Bild zu zeichnen. Wären die 0, dann würdest du auch kein Bild sehen...

[Helmi]

Hallo,

ich hab grad einen test gemacht:

Delphi-Quellcode:

uses JPEG;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('d:\test.jpg');

  ShowMessage(IntToStr(Image1.Picture.Height));
end;

Ich bekam in der ShowMessage die eigentliche Höhe des Jpegs angezeigt.
(nicht die Höhe des Image)

[qb-tim]

Ja... ich habe gerade folgendes korrigieren müssen:

Delphi-Quellcode:

Image1.Picture.Graphic.Height
Image.Picture.Graphic.Height

Blöderweise hat mein Kollege auch eine Komponente namens Image1... Programmieren hat seine Tücken Nur eine 1 zuviel - schon geht's nicht



Danke euch beiden

[DeddyH]

Image1 ist halt ein blöder Name