OK ich habs jetz ganz einfach gelöst, danke!
Delphi-Quellcode:
procedure ZeigBreiteHoehe(Dateipfad: string;BreiteLabel,HoeheLabel: TLabel);
var jpg: TJPEGImage;
breite,hoehe: Integer;
begin
jpg:=TJPEGImage.Create;
try
jpg.LoadFromFile(Dateipfad);
Breite:=jpg.width; //Die Höhe des JPEG's
Hoehe:=jpg.Height; //Die Breite des JPEG's
finally
jpg.free;
end;
.
.
.
@Sir Thornberry: Mein Programm hat nur die Aufgabe diese Höhe und Breite anzuzeigen und sonst nix und habs getestet, es gibt keine Performanceprobleme obwohl das Bild immer komplett in den Speicher geladen wird. Is für mich glaube ich die einfachere jedoch ausreichende Art.