Скопировать элемент

[Ronder]

На форме есть два компонента WebBrowser. В один из них загружается сайт, другой элемент пустой. Также на форме есть button, после нажатия на который первый WebBrowser должен отобразить все свойства второго WebBrowser, а также отобразить загруженную в него страницу.

Как такое сделать? Можно ли использовать указатели или как-то по-другому?

[Пепел Феникса]

какие именно св-ва?
загруженную страницу это ссылку иль содержимое?

[Ronder]

Загруженную страницу

[Neeter]

Если только загруженную страницу, то вот код:

procedure TForm1.Button1Click(Sender: TObject);
begin
 WebBrowser2.Navigate(WebBrowser1.LocationURL);
end;

[Ronder]

Нет, смысл в том, что первый WebBrowser уже не должен использовать интернет, а взять уже загруженную страницу из второго.

[Neeter]

Ну он из кэша, вроде бы, и берет...
Попробуйте и сравните быстроту загрузки во втором WebBrowser'е при нажатии на эту кнопку.

[Ronder]

Загружаю страницу в первый WebBrowser, отрубаю инет, пробую загрузить страницу во второй WebBrowser - не удаётся отобразить страницу.

[Neeter]

Ну вот так попробуйте:

function WB_GetHTMLCode(WebBrowser: TWebBrowser; ACode: TStrings): Boolean;
var
  ps: IPersistStreamInit;
  ss: TStringStream;
  sa: IStream;
begin
  ps := WebBrowser.Document as IPersistStreamInit;
  ss := TStringStream.Create('');
  try
    sa := TStreamAdapter.Create(ss, soReference) as IStream;
    Result := Succeeded(ps.Save(sa, True));
    if Result then ACode.Text := ss.Datastring;
  finally
    ss.Free;
  end;
end;

procedure wb_loadhtml(webbrowser: twebbrowser; htmlcode: string);
var
 sl: tstringlist;
 ms: tmemorystream;
begin
 webbrowser.navigate('about:blank');
 while webbrowser.readystate < readystate_interactive do
  application.processmessages;

 if assigned(webbrowser.document) then
 begin
  sl := tstringlist.create;
  try
   ms := tmemorystream.create;
   try
    sl.text := htmlcode;
    sl.savetostream(ms);
    ms.seek(0, 0);
    (webbrowser.document as
    ipersiststreaminit).load(tstreamadapter.create(ms));
   finally
    ms.free;
   end;
  finally
    sl.free;
  end;
 end;
end;

procedure TForm1.bt_1Click(Sender: TObject);
var
 Code: TStrings;
begin
 Code := TStringList.Create;
 try
  WB_GetHTMLCode(wb1, Code); //Получаем код из первого браузера
  wb_loadhtml(wb2, Code.Text);  //Присваиваем код второму браузеру
 finally
  Code.Free;
 end;
end;

[Ronder]

То, что надо! Спасибо!