首页
社区
课程
招聘
[旧帖] 关于Delphi显示网页图片的问题(DomImg2Image):Invalid Clipborad Format. 0.00雪花
发表于: 2016-2-10 19:47 3764

[旧帖] 关于Delphi显示网页图片的问题(DomImg2Image):Invalid Clipborad Format. 0.00雪花

2016-2-10 19:47
3764
网上搜了一段代码,在办公室电脑能用,回到家的电脑上就显示如下错:Invalid Clipborad Format.网上有的朋友和我一样,不过没有人说过解决方法,请高人帮忙解决下,谢谢!
代码:

procedure DomImg2Image(id:string; wb:TWebBrowser; img:TImage );  
var  
  rang:IHTMLControlRange;  
begin  
  rang:=((IHTMLDocument2(wb.Document).body as HTMLBody).createControlRange)as  
    IHTMLControlRange;  
  rang.add(IHTMLDocument2(wb.Document).images.item(id,EmptyParam)as  
    IHTMLControlElement);  
  rang.execCommand('Copy',False,0);  
  img.Picture.Assign(ClipBoard);  
end;  
下面两个网页都有讨论,不过没有结果,我想知道这到底是为什么???
http://www.myexception.cn/delphi/226895.html
http://bbs.csdn.net/topics/390347997

[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入!

收藏
免费 0
支持
分享
最新回复 (4)
雪    币: 239
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
2
无效的剪贴板格式

报错的可能原因:
当你使用多个正打开的应用程序时,很有可能就是你的剪贴板崩溃而出错了,例如,你在Adobe Illustrator里准备了一些矢量文件,现在你想复制粘贴它们到After Effects里添加高级的功能(如特效、或者描边等等),这些复制粘贴的数据可能将不兼容产生冲突。同样的报错信息也会发生在你尝试复制粘贴含有太多自定义格式的文本时。

建议解决方法:
2016-2-10 20:52
0
雪    币: 218
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
3
二楼的我看过了,我用了ClipBoard.Clear,然后再用 rang.execCommand('Copy',False,0); Clipboard.formatcount为0
2016-2-11 10:01
0
雪    币: 218
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
4
顶一下,看有没有高人指点
2016-2-17 08:23
0
雪    币: 225
活跃值: (173)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
5
Assign之前先判断一下ClipBoard里内容格式是否为图片
2016-2-17 08:37
0
游客
登录 | 注册 方可回帖
返回
//