| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Содержимое из WebBrowser в MemoryStream ???

-John-Doe- ©   (2007-01-23 20:53:00) 

?

---

-John-Doe-   (2007-01-24 17:36:00) [1]

> PS. Рекомендую в обоих примерах внимательно посмотреть на
> использование метода Navigate у WebBrowser-a.


Что то не понимаю что именно делает Navigate? Если вызывать Navigate(' http://www.delphimaster.ru/'); то он откроет эту страницу так вроде?

А в примере [6]

 // get the URL of WB1
 URL := WB1.LocationURL;
 // navigate to the URL with WB2
 WB2.Navigate(URL);

это не заставить второй WB просто загрузить страницу опять из сети?

---

Плохиш   (2007-01-24 16:29:00) [2]

+
http://www.swissdelphicenter.ch/de/showcode.php?id=1096

PS. Рекомендую в обоих примерах внимательно посмотреть на использование метода Navigateу WebBrowser-a.

---

Плохиш   (2007-01-24 16:24:00) [3]

> Надо перекинуть из одного wb в другой

http://www.swissdelphicenter.ch/de/showcode.php?id=2361

---

-John-Doe-   (2007-01-24 16:18:00) [4]

А если теперь из потока в WB ? нашел пример:

function TForm1.LoadFromStream(const AStream: TStream): HRESULT;
begin
AStream.seek(0, 0);
Result := (WebBrowser1.Document as
IPersistStreamInit).Load(TStreamAdapter.Create(AStream));

end;

Надо перекинуть из одного wb в другой используя TMemoryStream так можно вообще? Просто если

[2] + LoadFromStream = EAV ?

делал так:

function TForm1.LoadFromStream(const AStream: TStream): HRESULT;
begin
AStream.seek(0, 0);
Result := (WebBrowser2.Document as
IPersistStreamInit).Load(TStreamAdapter.Create(AStream));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Document: IHtmlDocument2;
S: String;
M: TMemoryStream;
begin
Document := WebBrowser1.Document as IHtmlDocument2;
S := Document.body.outerText;
M := TMemoryStream.Create;
try
  M.Write(S[1], length(S));
  LoadFromStream(M);
finally
  M.Free;
end;
end;

---

palva   (2007-01-24 15:25:00) [5]

> А в каком юните IHtmlDocument2?

MSHTML

---

-John-Doe-   (2007-01-24 15:03:00) [6]

Это только исходник сохранит?

А в каком юните IHtmlDocument2?

---

Rouse_   (2007-01-24 14:30:00) [7]

var
 Document: IHtmlDocument2;
 S: String;
 M: TMemoryStream;
begin
 Document := WebBrowser1.Document as IHtmlDocument2;
 S := Document.body.outerText;
 M := TMemoryStream.Create;
 try
   M.Write(S[1], Lenght(S));
   // Сейчас в M лежит содержимое WebBrowser
 finally
   M.Free;
 end;

---

-John-Doe-   (2007-01-24 14:20:00) [8]

нельзя что ли?

---

Наверх