注册 登录
编程论坛 Delphi论坛

Delphi里用TClipboard获取粘贴板里的图片,为什么获取到的图片高和宽都比原图大4倍呢

MyDelphi2015 发布于 2015-06-01 14:33, 4534 次点击
我在Delphi里用TClipboard获取粘贴板里的图片,为什么获取到的图片高和宽都比原图大4倍呢?
8 回复
#2
wp2319572015-06-01 14:43
无代码 无真相
#3
MyDelphi20152015-06-01 14:47
WordApp.Selection.SetRange(1,100);
 WordApp.Selection.CopyAsPicture;
 sleep(500);
 Clipboard   :=   TClipboard.Create;
 Image1.Picture.Metafile.Assign(Clipboard);
 Bmp   :=   TBitmap.Create;
 Bmp.Height:=Image1.Picture.Metafile.Height;
 Bmp.Width:=Image1.Picture.Metafile.Width;

此时Image1.Picture.Metafile.Height和Image1.Picture.Metafile.Width大于原来4倍左右
#4
wp2319572015-06-01 14:49
把word里的图片copy到 image控件吗  原始图片尺寸如何
#5
MyDelphi20152015-06-01 14:52
是的,此时会看到image控件的图片变得很大
#6
wp2319572015-06-01 14:54
也许原始图片就那么大   放到word里是被压缩了呢
#7
MyDelphi20152015-06-01 15:00
这里是把word的某一部分复制下来,接着作为图片粘贴到我的image1上,为什么会变大呢
#8
wp2319572015-06-01 15:05
你把完整代码发出来  我帮你调试一下
#9
MyDelphi20152015-06-01 15:07
调试没用的,我调试了很久了,关键我发觉windows有很多Buger,特别是Office,估计微软招了一般脑残的人去开发
1