Не подскажете безграмотному как заставить свою программу сохранять открывающуюся (или открывшуюся) html страничку? Если можно, приведите пожалуйста кусочек кода. Заранее спасибо!
-
15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby
За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.
На последнюю неделю приходится экзамен, где нужно будет показать свои навыки, взломав ряд уязвимых учебных сайтов, и добыть флаги. Успешно сдавшие экзамен получат сертификат.
Запись на курс до 25 апреля. Получить промодоступ ...
Выбрать пункт меню Файл -> Сохранить как... Выбрать тип файла что-то типа "Веб-страница, полностью" -> нажать "Сохранить"
Имеется ввиду, что на форму кинут WebBrowser1, в него загружена страница. Теперь необходимо эту страницу сохранить на жесткий диск, т.е. программно реализовать функцию Файл -> Сохранить как.
Код:
uses
ActiveX, MSHTML_TLB, SHDocVw_TLB,
ComCtrls, OleCtrls;
procedure TForm1.Button1Click(Sender: TObject);
var
HTMLDocument: IHTMLDocument2;
PersistFile: IPersistFile;
begin
HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
PersistFile := HTMLDocument as IPersistFile;
PersistFile.Save(StringToOleStr('c:\SavedFile.html'), System.True);
end;Попробовал вторым способом!
Вот код
-------------------------------------------------------------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ActiveX, OleCtrls, SHDocVw, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
SaveDialog1: TSaveDialog;
WebBrowser1: TWebBrowser;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure SaveHTMLSourceToFile(const FileName: string; WB: TWebBrowser);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
webbrowser1.Navigate('http://www.delphiexpert.ru');
end;
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;
procedure TForm1.Button2Click(Sender: TObject);
begin
if SaveDialog1.Execute then
SaveHTMLSourceToFile(SaveDialog1.FileName, WebBrowser1);
end;
end.
-------------------------------------------------------------------------------------------------------
Загрузил страницу в WB нормально!
Сохранил через SD страницу как 'de.html'
Теперь пробую открыть сохраненную страницу в FireFox'е и получается следующая картина
-------------------------------------------
а должно быть вот так
-------------------------------------------
Объясните, plz, в чем проблема???
Вот код
-------------------------------------------------------------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ActiveX, OleCtrls, SHDocVw, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
SaveDialog1: TSaveDialog;
WebBrowser1: TWebBrowser;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure SaveHTMLSourceToFile(const FileName: string; WB: TWebBrowser);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
webbrowser1.Navigate('http://www.delphiexpert.ru');
end;
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;
procedure TForm1.Button2Click(Sender: TObject);
begin
if SaveDialog1.Execute then
SaveHTMLSourceToFile(SaveDialog1.FileName, WebBrowser1);
end;
end.
-------------------------------------------------------------------------------------------------------
Загрузил страницу в WB нормально!
Сохранил через SD страницу как 'de.html'
Теперь пробую открыть сохраненную страницу в FireFox'е и получается следующая картина
-------------------------------------------
а должно быть вот так
-------------------------------------------
Объясните, plz, в чем проблема???
CSS (англ. Cascading Style Sheets — каскадные таблицы стилей)
Это для меня слишком сложно...
Когда я сохраняю страницу в FireFox'e, то генерируется два файла: непосредственно html страница и папка с рисунками. В нашем же случае сохраняется только html страница, а папки с рисунками я не нахожу. Может быть в этом все дело?
Это для меня слишком сложно...
Когда я сохраняю страницу в FireFox'e, то генерируется два файла: непосредственно html страница и папка с рисунками. В нашем же случае сохраняется только html страница, а папки с рисунками я не нахожу. Может быть в этом все дело?
Можно
Посмотреть вложение ADODB_TLB.pas
Посмотреть вложение CDO_TLB.pas
ЗЫ Пример, который сохраняет страницу вместе с картинками
Посмотреть вложение www.zip
Ссылка скрыта от гостей
Ссылка скрыта от гостей
, но там нужны модули adodb_tlb, cdo_tlb.Посмотреть вложение ADODB_TLB.pas
Посмотреть вложение CDO_TLB.pas
ЗЫ Пример, который сохраняет страницу вместе с картинками
Посмотреть вложение www.zip
КАК?
Я так понимаю, что эта процедура будет не менее сложная, чем SaveHTMLSourceToFile???
Не могу скачать пример www.zip
Щелкаю на ссылке ADODB_TLB.pas - он открывается в новой вкладке, CDO_TLB.pas тоже открывается в новой вкладке, щелкаю по ссылке www.zip загружается страница codeby.net/ipb.html
правая кнопка - сохранить как.
не должно так быть. у меня все качает..
Да, Вы правы, через правую кнопку - сохранить как закачал архив. Распаковал, запустил проект. Высветилась какая-то ошибка... нет какой-то dll... не успел заметить, т.к. нажал ОК, запустил RUN и проект скомпилировался и запустился. Загружаю URL 'http://www.delphiexpert.ru'. Загрузил нормально. Сохраняю страницу (назвал 'de.html') в отдельную папку. Рисунки тоже сохраняются.
Теперь запускаю файл 'de.html' в Google Chrome или FireFox'e и вот что получается:
Perfect!!!
Открыл сохраненную на жестком диске страницу в IE. Страница открылась идеально со всеми рисунками!
Всем кто помогал в раскрытии темы огромное СПАСИБО и RESPECT!
Возникла следующая проблема.
Если открывать документ, сохраненный в выше приведенном примере (www.zip) в Internet Explorer'е, то он открывается нормально. Но если документ открывать в WebBrowser1 нашего проекта, то вылетает сообщение:
Добавил в проект OpenDialog и копку для загрузки файла; в качестве документа использовал страницу 'https://codeby.net/threads/18385.html', которую сохранил как 'codeby.mht'.
Вот добавленный код:
procedure TForm36.FormCreate(Sender: TObject);
begin
Edit1.Text:='https://codeby.net/threads/18385.html';
end;
procedure TForm36.ButtonLoadClick(Sender: TObject);
begin
if Opendialog1.Execute then
WebBrowser1.Navigate(opendialog1.fileName);
end;
Что нужно сделать, чтобы избежать ошибки?
И еще!
Если соединение с интернетом по какой-либо причине отсутствует (например, нет вообще), то даже в Internet Explorer'e страница открывается не корректно
...???
Обучение наступательной кибербезопасности в игровой форме. Начать игру!