Uses OleCtrls, SHDocVw, ActiveX;
//функция для получения из HTML кода
function WB_GetHTMLCode(WebBrowser: TWebBrowser; ACode: TStrings): Boolean;
var
ps: IPersistStreamInit;
ss: TStringStream;
sa: IStream;
s: string;
begin
ps := WebBrowser.Document as IPersistStreamInit;
s := '';
ss := TStringStream.Create(s);
try
sa := TStreamAdapter.Create(ss, soReference) as IStream;
Result := Succeeded(ps.Save(sa, True));
if Result then ACode.Add(ss.Datastring);
finally
ss.Free;
end;
end;
выводим в memo в обработчике события комплейт:
procedure TForm1.Complete_2(Sender: TObject; const pDisp: IDispatch;
var URL: OleVariant);
var i,k,j,a,end1,end2,end3: Integer;
s:string;
cod: TstringList;
begin
for i := 0 to Webbrowser1.OleObject.Document.links.Length - 1 do //Вывод ссылок в мемо
Memo1.Lines.Add(Webbrowser1.OleObject.Document.Links.Item(i));
cod:=Tstringlist.Create;
WB_GetHTMLCode(Webbrowser1, cod); //загрузка в COD страницы в текстовом виде
end;
|
Главная
Каталог файлов
