ProcessMessages;
sleep(1000);
end;
if IDoc.readyState<>'complete' then
begin
IDoc:=nil;
Result:=False;
exit;
end;
Result:=True;
FileTitle:=IDoc.title;
{ //This code also works
ElementGroup:=IDoc.all.tags('TITLE') As IhtmlElementCollection;
HtmlItem:=ElementGroup.item(0,0) As IHtmlElement;
FileTitle:=HtmlItem.innerText;
}
finally
IDoc := nil;
end;
end; 上一页 [1] [2] |
