Текущий архив: 2007.02.11;
Скачать: CL | DM;

Вниз

Содержимое из WebBrowser в MemoryStream ???   Найти похожие ветки 

← →
-John-Doe- ©   (2007-01-23 20:53) [0]

?

---

← →
-John-Doe- ©   (2007-01-24 14:20) [1]

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

---

← →
Rouse_ ©   (2007-01-24 14:30) [2]

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 15:03) [3]

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

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

---

← →
palva ©   (2007-01-24 15:25) [4]

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

MSHTML

---

← →
-John-Doe- ©   (2007-01-24 16:18) [5]

А если теперь из потока в 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;

---

← →
Плохиш ©   (2007-01-24 16:24) [6]

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

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

---

← →
Плохиш ©   (2007-01-24 16:29) [7]

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

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

---

← →
-John-Doe- ©   (2007-01-24 17:36) [8]

> 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 просто загрузить страницу опять из сети?

---

Страницы: 1 вся ветка

Текущий архив: 2007.02.11;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.046 c