删除 Delphi IntraWeb上的 meta标记〈meta Name=“GENERATOR”content=“IntraWeb>

2ledvvac  于 2022-12-18  发布在  其他
关注(0)|答案(2)|浏览(131)

我需要从Intraweb项目的标题中删除或禁用 meta标记“GENERATOR”。

<!DOCTYPE HTML>
<html>
<head>
<meta charset="utf-8">
<title></title>
<meta Name="GENERATOR" content="IntraWeb v14.1.14 Serial 568568568">

我需要帮助。
我用的是Rad Studio xe7。

m0rkklqb

m0rkklqb1#

IntraWeb本身不支持此选项。

如果您有Ultimate并使用源代码,您可以在源代码中找到插入此标记的代码并更改它,但您必须使用新版本重新打补丁。

vsnjm48y

vsnjm48y2#

1在UserSession中创建此函数:

procedure TIwUsersession.Remove_Meta(AForm: TIWAppForm);
var
  Frm : TIWAppForm;
Begin
  // Receive actual form....
  Frm := AForm as TIWAppForm;

  // Remove "META" "Generator" from header..........
  Frm.AddToInitProc('$("meta[name='+QuotedStr('generator')+']").remove(); ');

  // Optional.... remove other "META" or other items.....
  Frm.AddToInitProc('$("meta[name='+QuotedStr('viewport')+']").remove(); ');
  Frm.AddToInitProc('$("meta").remove(); ');
  Frm.AddToInitProc('$("script").remove(); ');
  Frm.AddToInitProc('$("link").remove(); ');
End;

2在OnRender事件中,对每种形式输入:

Usersession.Remove_Meta(TIWAppForm(WebApplication.ActiveForm));

相关问题