網上搜了一段代碼，在辦公室電腦能用，回到家的電腦上就顯示如下錯：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
uj5u.com熱心網友回復：
自己頂一下，希望大神來幫忙uj5u.com熱心網友回復：
換個思路也能做，不一定非要利用剪切板，你可以找到圖片鏈接，直接下載圖片也可以的uj5u.com熱心網友回復：
我只是想知道原因
uj5u.com熱心網友回復：
procedure Tfload.FormCreate(Sender: TObject);begin
OleInitialize(nil);
end;
procedure Tfload.FormDestroy(Sender: TObject);
begin
OleUninitialize;
end;
少加了這兩個東東
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/71347.html
標籤：網絡通信/分布式開發
上一篇：國外一款遠程管理軟體編譯后出錯，第一次見，高手圍觀，求解決！！！
下一篇：TChromium使用問題