RT,想使TWebBrowser只显示指定的图象,应当如何实现呢?
另外,怎么把已经显示在TWebBrowser里的图象,在一个TImage控件上显示出来呢?
开头我是直接查找Cache项,
然后找到网页里显示的图象在磁盘上对应的文件,
再用TImage调入这个图象
但是现在发现,有些图片在网页上显示了,确在缓存里根本没对应项....
Google了半天没找到答案,求教CSDN高手帮帮忙解决上面两个问题
另外,怎么把已经显示在TWebBrowser里的图象,在一个TImage控件上显示出来呢?
开头我是直接查找Cache项,
然后找到网页里显示的图象在磁盘上对应的文件,
再用TImage调入这个图象
但是现在发现,有些图片在网页上显示了,确在缓存里根本没对应项....
Google了半天没找到答案,求教CSDN高手帮帮忙解决上面两个问题
begin
WebBrowser1.Navigate('http://www.csdn.net/CSDN_Common_Header_Footer/Images/BiaoShi.gif');
end;
suggest reading
http://www.codeproject.com/atl/vbmhwb.asp#RegisterBindStatusCallback
? 显示指定的图象? 这样不行吗:procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.csdn.net/CSDN_Common_Header_Footer/Images/BiaoShi.gif');
end;
------------------------------------------------------------------------
如果图象是验证码你的方法就不行了!
我也很想知道怎么把已经显示在TWebBrowser里的图象,在一个TImage控件上显示出来。
var
d2,D:IHTMLDocument2;
d1:IHTMLDocument;
e:IHTMLElement;
e2:IHTMLElement2;
cp:IHTMLControlRange;
img:IHTMLImgElement;
ce:IHTMLControlElement;
begin
D:= webbrowser1.Document as IHTMLDocument2;
e:=d.body as IHTMLElement;
e2:=e as IHTMLElement2;
cp:=e2.createControlRange as IHTMLControlRange;
d2:= webbrowser1.Document as IHTMLDocument2;
img:=d2.images.item('imgname',0) AS IHTMLImgElement;
ce:=img as IHTMLControlElement;
cp.add(ce);
cp.execCommand('Copy',false,0);
end;
请高手指教为什么上面的程序不能把图片拷贝进剪贴板?
方法只有是先把图片考进剪贴板,再从剪贴板考到TImage中。
我上面的程序没有错,只是没有初始化active,所以程序不能把图片拷贝进剪贴板。
初始化如下
initialization
OleInitialize(nil);
finalization
OleUninitialize;//end.前面。
在uses中加入ActiveX
你的图片显示问题解决了吗?我也有一样的问题啊!就是只想显示某一张图片。
那位高手给个答案啊