delphi - 如何使用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

您可以使用以下功能搜索文件并返回大小。

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;