Größe einer Bilddatei per OpenPictureDialog ermitteln

[DeddyH]

Das TImage brauchst Du doch nicht, ein TPicture genügt.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
    var
    Image : TPicture;
begin
    if OpenPictureDialog1.Execute then
    begin
       edit_Firmenlogo.text := OpenPictureDialog1.FileName;

       Image := TPicture.create;
       try
         Image.Picture.LoadFromFile(edit_Firmenlogo.text);

         ShowMessage(IntToStr(image.Picture.Height));
         ShowMessage(IntToStr(image.Picture.Width));
       finally
         Image.Free;
       end;
    end;
end;