求教能用JS脚本保存网页不？
{:301_1006:}{:301_1006:}{:301_1006:}由于实在是找不到Delphi使用EdgeBrowser的控件保存网页的实例
所以，想到一个笨方法： document.getElementsByTagName('html').outerHTML; 可以上Github找 html2md 保存成.md格式的~ function downloadTextFile(filename, text) {
var element = document.createElement('a');
element.setAttribute('href', 'data:text/plain;charset=utf-8,' + encodeURIComponent(text));
element.setAttribute('download', filename);
element.style.display = 'none';
document.body.appendChild(element);
element.click();
document.body.removeChild(element);
}
var filename = 'example.txt';
var text = '这是要下载的文本内容。';
downloadTextFile(filename, text); Vvvvvoid 发表于 2023-11-25 12:45
function downloadTextFile(filename, text) {
var element = document.c ...
@Vvvvvoid
哥们这个能正常在我的Delphi的edge浏览器里调用
但我想要保存为当前打开的网页为*.html
var filename = 'c:\1111.html';
var text = 得改 你可以使用TWebBrowser控件来保存网页实例。TWebBrowser是Delphi中一个基于Microsoft的Internet Explorer WebBrowser控件的包装器。不过，如果你想要使用Microsoft Edge浏览器，你可以使用EdgeBrowser控件，它是基于Chromium内核的。
以下是一个保存网页实例的示例：
在Delphi中创建一个新的VCL Forms应用程序。
在工具箱中找到“EdgeBrowser”控件，将其拖放到窗体上。
在代码编辑器中添加以下代码：
uses
System.IOUtils;
procedure TForm1.Button1Click(Sender: TObject);
var
URL, FileName: string;
begin
// 获取要保存的网页URL和文件名
URL := 'https://www.baidu.com';
FileName := TPath.Combine(TPath.GetDocumentsPath, 'baidu.html');
// 加载网页
EdgeBrowser1.Navigate(URL);
// 等待页面加载完成
while EdgeBrowser1.ReadyState <> READYSTATE_COMPLETE do
Application.ProcessMessages;
// 保存网页到文件
EdgeBrowser1.Save(FileName, True);
end;
运行程序并单击按钮，即可保存网页实例到指定的文件。
请注意，为了使程序更加稳定和可靠，请在保存网页实例之前等待页面加载完成。此外，还需要处理可能出现的异常情况，例如无法加载网页或无法保存文件等。 qumingyu286 发表于 2023-11-25 16:54
你可以使用TWebBrowser控件来保存网页实例。TWebBrowser是Delphi中一个基于Microsoft的Internet Explorer W ...
unit Unit7;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
Winapi.WebView2, Winapi.ActiveX, Vcl.StdCtrls, Vcl.Edge;
type
TForm7 = class(TForm)
EdgeBrowser1: TEdgeBrowser;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form7: TForm7;
implementation
{$R *.dfm}
uses
System.IOUtils;
procedure TForm7.Button1Click(Sender: TObject);
var
URL, FileName: string;
begin
// 获取要保存的网页URL和文件名
URL := 'https://www.baidu.com';
FileName := TPath.Combine(TPath.GetDocumentsPath, 'baidu.html');
// 加载网页
EdgeBrowser1.Navigate(URL);
// 等待页面加载完成
while EdgeBrowser1.ReadyState <> READYSTATE_COMPLETE do
Application.ProcessMessages;
// 保存网页到文件
EdgeBrowser1.Save(FileName, True);
end;
end.
@qumingyu286但报错啊。
冥界3大法王 发表于 2023-11-25 13:08
@Vvvvvoid
哥们这个能正常在我的Delphi的edge浏览器里调用
但我想要保存为当前打开的网页为*.html
var filename = 'save.html';
var text = document.documentElement.innerHTML
油猴有个脚本你可以去参考一下：
SingleFile - 单文件保存网页
页:
[1]