[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);

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