如何用Delphi获取图像的大小（以字节为单位）？

Question

我的应用程序有 3 个控件：TThumbnailList（来自 TMS 组件的图像查看器）、TImage 和 TLabel。我希望当我将图像从 TThumbnailList 拖动到 TImage 并将其放下时，TLabel 对象会显示该图像的大小（以字节为单位）。我如何得到这个？ 提前致谢。

procedure TForm1.AssignImage;
begin
  //tl: TThumbnailList
  if (tl.ItemIndex>=0) then begin
    Image1.Picture.Assign(tl.Thumbnails.Items[tl.ItemIndex].Picture);
  end;
end;

procedure TForm1.Image1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if (Source is TThumbnailList) then AssignImage;
end;

procedure TForm1.Image1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState;
  var Accept: Boolean);
begin
  Accept:= Source is TThumbnailList;
end;

Answer 1

TImage 没有任何方法来确定它在给定时间所持有的任何图形的大小。那不是它的工作。它的工作只是显示东西。 TGraphic 对象管理内存中的表示，并且还确定如何将自身绘制到给定的画布上。 TImage 真的什么都不知道。 TGraphic 可能会，但它不一定会跟踪文件大小；这可能与将数据存储在内存中所需的内存量不同。

确定文件大小的方法是拥有一个文件或类似文件的东西，例如流。正如您在评论中提到的，您可以将图像保存到流中，然后找出流的大小。

function GetGraphicSize(g: TGraphic): Integer;
var
  ms: TStream;
begin
  ms := TMemoryStream.Create;
  try
    g.SaveToStream(ms);
    Result := ms.Size;
  finally
    ms.Free;
  end;
end;

如果每次需要尺寸时计算成本太高，那么请记住第一次看到图像时的尺寸，这样您就不需要每次都重新计算。缩略图列表是如何开始获取图像的？如果它们来自文件，那么您可以在生成缩略图时简单地获取文件大小。

Answer 2

您可以使用以下函数来执行文件搜索并返回大小。

function FindFileSize(Filename:string):integer;
var
  sr : TSearchRec;
begin
  if FindFirst(filename,faAnyFile-faDirectory,sr) = 0 then
    Result := sr.Size
  else
    raise EFileNotFoundException.Create(filename+' not found.');
  FindClose(sr);
end;

Answer 3

等等，如果我没记错的话，这就是你想要的

// this will return the size of the bitmap in bytes!
function BitmapSize(ABitmap: TBitmap): Cardinal;
var ms : TMemoryStream;
begin
     ms := TMemoryStream.Create;
     ABitmap.savetostream(ms);
     result := ms.size;
     FreeAndNil(ms);
end;

玩得开心，别忘了访问 http:// delphigeist.blogspot.com/ 如果答案有帮助！