Текущий архив: 2010.08.29;
Скачать: 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 вся ветка
Текущий архив: 2010.08.29;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.005 c
