Форум: "Corba";
Текущий архив: 2010.08.29;
Скачать: [xml.tar.bz2];

Вниз

Как получить код странички, загруженной в WebBrowser?   Найти похожие ветки 

← →
TStas ©   (2007-01-01 22:17) [0]

Собственно, сабж. Помню, что на форуме было, но не нашел

---

← →
С   (2007-01-02 18:30) [1]


procedure TForm1.Button2Click(Sender: TObject);
var
 PSI: IPersistStreamInit;
 OleStream: IStream;
 MemStream: TMemoryStream;
 Adapter: TStreamAdapter;
begin
 WebBrowser1.Navigate("http://delphimaster.net/view/10-1167679059/");
 while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do Application.ProcessMessages;
 PSI:= WebBrowser1.Document as IPersistStreamInit;
 MemStream:= TMemoryStream.Create;
 try
   OleStream:= TStreamAdapter.Create(MemStream) as IStream;
   PSI.Save(OleStream, false);
   MemStream.Position:= 0;
   Memo1.Lines.LoadFromStream(MemStream);
 finally
   MemStream.Free;
 end;
end;


---

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

Форум: "Corba";
Текущий архив: 2010.08.29;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.002 c