[borockov]

Привет всем! Народ, такой интересный вопрос, в webbrowser отображается как нибудь html страница в которой есть FRAME, как сохранить именно Frame а не всю страницу?

[poli-smen]

Сообщение от borockov

Привет всем! Народ, такой интересный вопрос, в webbrowser отображается как нибудь html страница в которой есть FRAME, как сохранить именно Frame а не всю страницу?

Как работать со всеми фреймами, отображёнными в данный момент в WebBrowser
Как добраться до конкретного фрейма
Получить все URLs фреймов в TWebBrowser
Сохранить исходный код всех фреймов TWebBrowser

[borockov]

Оо спасибо=))))

[borockov]

С первым вопросом вроде бы разобрался. Но теперь возник ещё 1 вопрос, у меня стоит компонент webbrowser в качестве вкладок прицелен pagecontrol, такой вопрос, если у меня к примеру открыто 10 вкладок, как сохранить все текущие страницы при нажатий одной кнопки?

[poli-smen]

Сообщение от borockov

Но теперь возник ещё 1 вопрос, у меня стоит компонент webbrowser в качестве вкладок прицелен pagecontrol, такой вопрос, если у меня к примеру открыто 10 вкладок, как сохранить все текущие страницы при нажатий одной кнопки?

Так же как и одну, только в цикле для каждой.

[borockov]

Одну страницу я сохраняю с использованием Savedialog, и получается если я сделаю сохранение в цикле каждый раз будет выскакивать диалоговое окно?

Код:

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 
FileStream.Free;
end; 
end;

и онклик для кнопки

Код:

if SaveDialog1.Execute then
SaveHTMLSourceToFile(SaveDialog1.FileName, WebBrowser1);

Код брал где в инете не помню

[poli-smen]

Сообщение от borockov

Одну страницу я сохраняю с использованием Savedialog, и получается если я сделаю сохранение в цикле каждый раз будет выскакивать диалоговое окно?

Очевидно что если нужно, чтобы пользователь имел возможность выбрать куда и под каким именем сохранить каждую страницу, то вызывай для каждой из них Savedialog, если же программа сама знает куда и под какими именами сохранять, то и вызывать диалог не нужно.

[borockov]

Как я уже говорил, вкладки у меня реализованы таким образом: поставил pagecontrol, создал 20 табов и на каждый ташит прицепил по компоненту webbrowser, в принципе всё работает как надо, но вопрос с сохранением всё же не могу решить=(
Таким образом я могу сохранить текущую страницу.

Код:

procedure TForm1.Button14Click(Sender: TObject);
var
  HTMLDocument: IHTMLDocument2;
  PersistFile: IPersistFile;
  j:integer;
begin

  HTMLDocument :=   Webbrowser1.Document as IHTMLDocument2;
  PersistFile  := HTMLDocument as IPersistFile;
  PersistFile.Save(StringToOleStr('D:\SavedFile.html'), System.True);
end;
end.

Пытался сохранить все страницы разом как то так

Код:

procedure TForm1.Button14Click(Sender: TObject);
var
  HTMLDocument: IHTMLDocument2;
  PersistFile: IPersistFile;
  j:integer;
begin
  HTMLDocument :=TWebbrowser(pagecontrol1.pages[j].Controls[0]).Document as IHTMLDocument2;
  PersistFile  := HTMLDocument as IPersistFile;
  PersistFile.Save(StringToOleStr('D:\'+pagecontrol1.Pages[j].Caption+'.html'), System.True);
end;
end;
end;
end.

Но естесственно ничего у меня не вышло=( выдаёт что то вроде "list index out of bounds (-куча цифр) " вотъ.
Помогите пожалуйста, сохранить в цикле.

[poli-smen]

Сообщение от borockov

Пытался сохранить все страницы разом как то так

Код:

procedure TForm1.Button14Click(Sender: TObject);
var
  HTMLDocument: IHTMLDocument2;
  PersistFile: IPersistFile;
  j:integer;
begin
  HTMLDocument :=TWebbrowser(pagecontrol1.pages[j].Controls[0]).Document as IHTMLDocument2;
.....

Но естесственно ничего у меня не вышло=( выдаёт что то вроде "list index out of bounds (-куча цифр) " вотъ.

А где присвоение значения переменной j ?

[borockov]

Сообщение от poli-smen

А где присвоение значения переменной j ?

Код:

for j:=0 to pagecontrol1.PageCount-1 do 

? так?

[poli-smen]

Сообщение от borockov

Код:

for j:=0 to pagecontrol1.PageCount-1 do 

? так?

Очевидно, что так.

[borockov]

Код:

procedure TForm1.Button14Click(Sender: TObject);
var
  HTMLDocument: IHTMLDocument2;
  PersistFile: IPersistFile;
  j:integer;
begin
for j:=0 to pagecontrol1.PageCount-1 do
 HTMLDocument:=TWebbrowser(pagecontrol1.pages[j].Controls[0]).Document as IHTMLDocument2;
  PersistFile  := HTMLDocument as IPersistFile;
  PersistFile.Save(StringToOleStr('D:\'+pagecontrol1.Pages[j].Caption+'.html'), System.True);
end;
end.

В таком случае выдаёт ошибку "list index out of bounds (30) ", но конкретную строку не показывает. Есть подозрения что ошибка кроется тут

Код:

PersistFile.Save(StringToOleStr('D:\'+pagecontrol1.Pages[j].Caption+'.html'), System.True); 

[poli-smen]

Сообщение от borockov

Код:

.....
for j:=0 to pagecontrol1.PageCount-1 do
 HTMLDocument:=TWebbrowser(pagecontrol1.pages[j].Controls[0]).Document as IHTMLDocument2;
  PersistFile  := HTMLDocument as IPersistFile;
  PersistFile.Save(StringToOleStr('D:\'+pagecontrol1.Pages[j].Caption+'.html'), System.True);
end;
end.

В таком случае выдаёт ошибку "list index out of bounds (30) ", но конкретную строку не показывает.

Тело цикла состоящее более чем из одного оператора нужно заключать в begin..end. Сейчас у тебя в цикле выполняется только одна строка, остальные две уже после отработки цикла.

[borockov]

Теперь выскакивает ошибка в этой строке

Код:

PersistFile.Save(StringToOleStr('D:\'+pagecontrol1.Pages[j].Caption+'.html'), System.True);

Ошибка: raise exception class eaccessviolation - и.т.д

[borockov]

Только щас заметил что сохранять то он сохраняет, но после этого уже вылетает вышеописаная ошибка