![](/img/trans.png)
[英]I have a problem getting hyperlinks from IHTMLDocument2 in Delphi
[英]How do I create an IHTMLDocument2 using a string from TIdHTTP?
我使用IdHTTP.Get
下載URL,並且需要搜索HTML標記並提取一些數據。
我怎么可以將字符串轉換IdHTTP.Get
返回到IHTMLDocument2
?
試試這個:
uses
... Variants, MSHTML, ActiveX;
var Cache: string;
V: OleVariant;
Doc: IHTMLDocument2;
begin
...
Cache := IdHTTP.Get(url);
Doc := coHTMLDocument.Create as IHTMLDocument2; // create IHTMLDocument2 instance
V := VarArrayCreate([0,0], varVariant);
V[0] := Cache;
Doc.Write(PSafeArray(TVarData(v).VArray)); // write data from IdHTTP
// Work with Doc
end;
我用谷歌搜索了這個問題,並為此找到了一個不錯的代碼:
Idoc := CreateComObject(Class_HTMLDOcument) as IHTMLDocument2;
try
IDoc.designMode := 'on';
while IDoc.readyState <> 'complete' do
Application.ProcessMessages;
v := VarArrayCreate([0, 0], VarVariant);
v[0] := MyHTML;
IDoc.Write(PSafeArray(System.TVarData(v).VArray));
IDoc.designMode := 'off';
while IDoc.readyState <> 'complete' do
Application.ProcessMessages;
ParseHTML(IDoc);
finally
IDoc := nil;
end;
問候
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.