Hallo,
mal eine ketzerische Frage, und zwar warum nicht einfach die fertigen JPEG Funktionen nehmen? Warum alles komplett neu erfinden. Bei Exif oder Icc verstehe ich das ja noch, da es in diesem Bereich nicht viel gibt, aber bei der Bildgrösse
?
Delphi-Quellcode:
unit Unit1;
interface
uses
Winapi.Windows,
Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Vcl.Controls,
Vcl.Forms,
Vcl.Dialogs,
Vcl.StdCtrls;
type
TForm1 =
class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses Vcl.Imaging.jpeg;
procedure getJpegDimensions(
const FileName:
String;
var Width: Integer;
var Height: Integer);
var
jpg:TJpegImage;
begin
jpg:=TJpegImage.Create;
try
jpg.loadFromFile(FileName);
Width := jpg.width;
Height := jpg.height;
finally
jpg.free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Width: Integer;
Height: Integer;
begin
getJpegDimensions('
test.jpg', Width, Height);
Memo1.Lines.Add('
Width: '+Width.ToString);
Memo1.Lines.Add('
Height: '+Height.ToString);
end;
end.