如何获取剪贴板中图像的尺寸？

Question

我想知道Image在剪贴板中的宽度和高度，因为如果尺寸太小，那么消息就像＆＃34;图像太小＆＃34;应该出现。

如何获得宽度和高度？

Answer 1

除非您准备手动解析要支持的各种图像格式，否则您可以让VCL为您加载图像（只需确保已注册合适的TGraphic类，例如{{ 1}}，TGIFImage，TJPEGImage等等，然后您可以询问图片的尺寸，例如：

TPNGImage

Answer 2

如果这是关于位图，我想你可以试试这个。

procedure TForm1.BitBtn1Click(Sender: TObject);
var b:TBitmap;
begin
  if Clipboard.HasFormat(CF_BITMAP) then begin
    b:=TBitmap.Create;
    try
      b.Assign(Clipboard);
      ShowMessage(IntToStr(b.Width)+','+IntToStr(b.Height));
    finally
      b.Free;
    end;
  end;
end;

你可以代替showmessage把if语句放在你想要的地方。