Как получить код странички, загруженной в WebBrowser?
TStas © (2007-01-01 22:17:00)
Собственно, сабж. Помню, что на форуме было, но не нашел
С (2007-01-02 18:30:00) [1]
procedure TForm1.Button2Click(Sender: TObject);
var
PSI: IPersistStreamInit;
OleStream: IStream;
MemStream: TMemoryStream;
Adapter: TStreamAdapter;
begin
WebBrowser1.Navigate('
http://delphimaster.ru/cgi-bin/forum.pl?id=1167679059&n=8');
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;
Наверх 
ЧАТ |
Орешник |
|
