TCppWebBrowser.Document

[dedOK]

Привет всем! 

У меня такая проблема. Нужно обратиться к содержимому документа, загруженного в TCppWebBrowser. Для этого, похоже, имеется свойство Document. С комом я никогда не работал. Если не трудно, киньте простой примерчик, или какие-нить ссылки на Microsoft’s Dynamic HTML reference.

[x77]

если под TCppWebBrowser имеется в виду стандартный багландовский wrapper для виндового COM-объекта, то возможно, подойдёт вот это:

TWebBrowser.Document включает в себя IPersistStreamInit который содержит метод Save(). Всё, что нам нужно знать, это как использовать данный метод с объектом, который включён в IStream. Для этого мы просто воспользуемся TStreamAdapter.

Обратите внимание, что интерфейсы IPersistStreamInit и IStream объявлены внутри ActiveX unit.

Итак, вот так это выглядит.

Код:

procedure TForm1.SaveHTMLSourceToFile(const FileName: string;  
  WB: TWebBrowser);  
var  
  PersistStream: IPersistStreamInit;  
  FileStream: TFileStream;  
  Stream: IStream;  
  SaveResult: HRESULT;  
begin  
  PersistStream := WB.Document as IPersistStreamInit;  
  FileStream := TFileStream.Create(FileName, fmCreate);  
  try  
    Stream := TStreamAdapter.Create(FileStream, soReference) as IStream;  
    SaveResult := PersistStream.Save(Stream, True);  
    if FAILED(SaveResult) then  
      MessageBox(Handle, 'Fail to save HTML source', 'Error', 0);  
  finally  
    { В ответ на уничтожение объекта TFileStream, передаём 
      soReference в конструктор TStreamAdapter. }  
    FileStream.Free;  
  end;  
end;  

pocedure TForm1.Button1Click(Sender: TObject);  
begin  
  if SaveDialog1.Execute then  
    SaveHTMLSourceToFile(SaveDialog1.FileName, WebBrowser1);  
end; 

А как сохранить вместе с исходником все файлы (.CSS, JPG, GIF Etc..) ?

Код:

try  
  WebBrowser1.ExecWB(4, 0);  
except  
  on E: Exception do  msError:=true;  
end; 

Взято с Исходников.ru http://www.sources.ru