delphi 获取 加载图片 高度 宽度

delphi 获取 加载图片 高度 宽度

要获取图片的高度和宽度，可以使用 TPicture 对象。下面是一个简单的示例代码：

delphi复制代码var
 MyPicture: TPicture;
begin
 MyPicture := TPicture.Create;
 try
   MyPicture.LoadFromFile('C:\MyImage.jpg');
   ShowMessage('Image width: ' + IntToStr(MyPicture.Width) +
               ', height: ' + IntToStr(MyPicture.Height));
 finally
   MyPicture.Free;
 end;
end;

这段代码创建了一个 TPicture 对象，并从文件加载了一张图片。然后，可以使用 Width 和 Height 属性获取图片的宽度和高度。最后，使用 ShowMessage 显示结果。记得在最后释放 TPicture 对象。