Цитата:
|
Сообщение от bddelphi
А не подскажите как это сделать - не очень понятно. Вот то, что у меня получилось... (архив)
|
Вот пример - вроде работает:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
col: IHTMLElementCollection;
elem: IHTMLElement;
i: Integer;
sl: TStringList;
s1, s2: String;
ms: TMemoryStream;
begin
col:=(WebBrowser1.Document as IHTMLDocument2).all.tags('A') as IHTMLElementCollection;
sl:=TStringList.Create;
try
sl.Add('<HTML><BODY>');
for i := 0 to col.length-1 do
begin
elem:=col.item(i, EmptyParam) as IHTMLElement;
s1:=Trim(elem.innerText);
s2:=(elem as IHTMLAnchorElement).href;
sl.Add('<A HREF="'+s2+'">'+s1+'</A><BR>');
end;
sl.Add('</BODY></HTML>');
ms:=TMemoryStream.Create;
try
sl.SaveToStream(ms);
ms.Position:=0;
(WebBrowser1.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));
finally
ms.Free;
end;
finally
sl.Free;
end;
end;
p.s. Архив ещё не смотрел.