Скачать: CL | DM;

Как получить код странички, загруженной в 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 вся ветка

Скачать: CL | DM;



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