Delphi 从TWebBrowser到TPicture的图像
如何将已在TWebBrowser中下载的图像获取到TPicture，而无需将其复制到剪贴板或查看缓存内容。好的，我制作了示例，最后一个答案是： 首次使用此函数按Id获取图像：Delphi 从TWebBrowser到TPicture的图像,delphi,winapi,rendering,delphi-xe2,twebbrowser,Delphi,Winapi,Rendering,Delphi Xe2,Twebbrowser,如何将已在TWebBrowser中下载的图像获取到TPicture，而无需将其复制到剪贴板或查看缓存内容。好的，我制作了示例，最后一个答案是： 首次使用此函数按Id获取图像： function GetImgElementById(const Doc: IDispatch; const id : string): IHTMLImgElement; var Document: IHTMLDocument2; // IHTMLDocument2 interface of Doc Bod
function GetImgElementById(const Doc: IDispatch; const id : string): IHTMLImgElement;
var
Document: IHTMLDocument2; // IHTMLDocument2 interface of Doc
Body: IHTMLElement2; // document body element
Tags: IHTMLElementCollection; // all tags in document body
Tag: IHTMLElement; // a tag in document body
I: Integer; // loops thru tags in document body
begin
Result :=nil ;
// Check for valid document: require IHTMLDocument2 interface to it
if not Supports(Doc, IHTMLDocument2, Document) then
raise Exception.Create('Invalid HTML document');
// Check for valid body element: require IHTMLElement2 interface to it
if not Supports(Document.body, IHTMLElement2, Body) then
raise Exception.Create('Can''t find <body> element');
// Get all tags in body element ('*' => any tag name)
Tags := Body.getElementsByTagName('img');
// Scan through all tags in body
for I := 0 to Pred(Tags.length) do
begin
// Get reference to a tag
Tag := Tags.item(I, EmptyParam) as IHTMLElement;
// Check tag's id and return it if id matches
if AnsiSameText(Tag.id, id) then
begin
Result := Tag as IHTMLImgElement ;
Break;
end;
end;
end;
不要忘记“MSHTML”单元 好的，我做了一个样本，最后一个回答是： 首次使用此函数按Id获取图像：
function GetImgElementById(const Doc: IDispatch; const id : string): IHTMLImgElement;
var
Document: IHTMLDocument2; // IHTMLDocument2 interface of Doc
Body: IHTMLElement2; // document body element
Tags: IHTMLElementCollection; // all tags in document body
Tag: IHTMLElement; // a tag in document body
I: Integer; // loops thru tags in document body
begin
Result :=nil ;
// Check for valid document: require IHTMLDocument2 interface to it
if not Supports(Doc, IHTMLDocument2, Document) then
raise Exception.Create('Invalid HTML document');
// Check for valid body element: require IHTMLElement2 interface to it
if not Supports(Document.body, IHTMLElement2, Body) then
raise Exception.Create('Can''t find <body> element');
// Get all tags in body element ('*' => any tag name)
Tags := Body.getElementsByTagName('img');
// Scan through all tags in body
for I := 0 to Pred(Tags.length) do
begin
// Get reference to a tag
Tag := Tags.item(I, EmptyParam) as IHTMLElement;
// Check tag's id and return it if id matches
if AnsiSameText(Tag.id, id) then
begin
Result := Tag as IHTMLImgElement ;
Break;
end;
end;
end;
不要忘记“MSHTML”单元 如果你只想从网上下载一张图片（或任何其他文件），那很容易。（比使用TWebBrowser要容易得多）。“但我想你有你的理由吗？”安德烈亚斯雷杰布兰德我更新了我的问题。我找到了一个解决办法。但需要有人翻译。
DrawToDCDrawToDCDrawToDCDrawToDCTWebBrowserTWebBrowser