求教能用JS脚本保存网页不？

冥界3大法王

由于实在是找不到Delphi使用EdgeBrowser的控件保存网页的实例
所以，想到一个笨方法：

笨蛋蛋

[JavaScript] 纯文本查看 复制代码

document.getElementsByTagName('html')[0].outerHTML;

空竹

可以上Github找 html2md 保存成.md格式的~

Vvvvvoid

[JavaScript] 纯文本查看 复制代码

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

冥界3大法王

Vvvvvoid 发表于 2023-11-25 12:45
[mw_shl_code=javascript,true]function downloadTextFile(filename, text) {
  var element = document.c ...

@Vvvvvoid
哥们这个能正常在我的Delphi的edge浏览器里调用
但我想要保存为当前打开的网页为*.html

var filename = 'c:\1111.html';
var text = 得改

qumingyu286

你可以使用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;
运行程序并单击按钮，即可保存网页实例到指定的文件。
请注意，为了使程序更加稳定和可靠，请在保存网页实例之前等待页面加载完成。此外，还需要处理可能出现的异常情况，例如无法加载网页或无法保存文件等。

冥界3大法王

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  但报错啊。

Vvvvvoid

冥界3大法王 发表于 2023-11-25 13:08
@Vvvvvoid
哥们这个能正常在我的Delphi的edge浏览器里调用
但我想要保存为当前打开的网页为*.html

var filename = 'save.html';
var text = document.documentElement.innerHTML

wwwxeb

油猴有个脚本你可以去参考一下：
SingleFile - 单文件保存网页