javascript - 德尔福 TIdHTTPServer : not allowed to load local resourse from remote device-6ren

javascript - 德尔福 TIdHTTPServer : not allowed to load local resourse from remote device

转载作者：行者123 更新时间：2023-11-30 17:23:16

25

4

我正在制作一个 VCL 表单应用程序，在主表单上使用 TIdHTTPServer 并在 IdHTTPServer 过程中使用 CommandGet:

procedure TForm6.IdHTTPServerCommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
  indexStream: TFileStream;
  path, indexPath: string;
begin
  AResponseInfo.CharSet := 'UTF-8';
  path := GetCurrentDir.Remove(GetCurrentDir.Length - Length('Win32\Debug'));
  ARequestInfo.Document := path + 'scripts/script1.js';
  ARequestInfo.Document := path + 'scripts/script2.js';

  if pos('profile', ARequestInfo.UnparsedParams) > 0 then
  begin
    indexPath := path + 'index.html';  
    AResponseInfo.ContentStream := TFileStream.Create(indexPath, fmOpenReadWrite);
  end;
end;

编辑

procedure TForm6.IdHTTPServerCommandGet(AContext: TIdContext;
   ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
  applicationDirectory: string;
begin
  AResponseInfo.CharSet := 'UTF-8';
  AResponseInfo.FreeContentStream := True;
  applicationDirectory := ExtractFilePath(Application.ExeName)
    .Remove(ExtractFilePath(Application.ExeName).Length -
    Length('Win32\Debug') - 1);
  AResponseInfo.ContentStream := TFileStream.Create(applicationDirectory +
     'scripts/script1.js', fmOpenRead or fmShareDenyWrite);
  AResponseInfo.ContentStream := TFileStream.Create(applicationDirectory +
     'scripts/script2.js', fmOpenRead or fmShareDenyWrite);

  if pos('profile&userName=', ARequestInfo.UnparsedParams) > 0 then
  begin
    AResponseInfo.ContentStream :=
       TFileStream.Create(applicationDirectory + 'index.html', fmOpenRead);
  end;
  // other requests
end;

这里是index.html的内容:

<html>
  <head>
    <title>Profile</title>
    <script type="text/javascript" src="[app-path]/scripts/script1.js "></script>
    <script type="text/javascript" src="[app-path]/scripts/script2.js "></script>
    <meta http-equiv="cache-control" content="no-cache">
    <meta http-equiv="pragma" content="no-cache">
  </head>
  <body>
  <!-- Page content -->
  </body>
</html>

当我启动应用程序并访问 http://localhost/?profile&userName=testUser 时它工作正常但是当我启动应用程序并在其他计算机的 chrome 浏览器中输入时 http://{my-ip4-address}/?profile&userName=testUser 我收到两条消息:'不允许加载本地资源:file:///{app_path}/scripts/script1.js'，'不允许加载本地资源:file:///{app_path}/scripts/script2.js。 HTML 页面的内容是可见的。

编辑

根据评论和回答index.html改为

 <html>
  <head>
    <title>Profile</title>
    <script type="text/javascript" src="/scripts/script1.js "></script>
    <script type="text/javascript" src="/scripts/script2.js "></script>
    <meta http-equiv="cache-control" content="no-cache">
    <meta http-equiv="pragma" content="no-cache">
  </head>
  <body>
  <!-- Page content -->
  </body>
</html>

像这样编辑我的代码我可以访问文件，但问题是 script1.js 的内容与 script2.js 的内容相同。知道如何正确发送文件。

最佳答案

如果要将 HTML 文件提供给其他计算机，切勿使用应用程序路径([app-path] 在您的示例 HTML 代码中)。对于本地独立 HTML 页面，这可能有效，但外部客户端将无法访问该资源。

相反，指定 JavaScript 的路径(绝对路径为 /scripts/script1.js 或相对路径，如 scripts/script1.js，具体取决于虚拟目录结构)并根据Request.Document属性解析为服务器上的文件。

您的示例代码从不读取 Request.Document 属性(甚至为其赋值 - 两次!)。所以服务器不知道客户端真正想要的资源。

您的代码必须将 Document 属性转换为相对于文档根文件夹的路径，例如，该文件夹可能是您的应用程序工作目录的专用子文件夹。然后检查此路径是否指向现有文件。如果它存在，读取它并返回它的内容。如果不存在，则返回错误码。

关于javascript - 德尔福 TIdHTTPServer : not allowed to load local resourse from remote device，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/24755352/

25

4

0

文章推荐： javascript - Ajax 在执行下一个函数之前等待 Api 完成

文章推荐： javascript - 使用 window.open 时将 javascript 数组发送到新窗口

文章推荐： javascript - 如何在magento中添加js

git - ls-remote --heads 起源与 ls-remote 。 "refs/remotes/*"
有什么区别 git ls-remote --heads origin 和 git ls-remote . "refs/remotes/*" ? --heads origin 版本需要一段时间才能运行，
git remote 用于获取和推送的不同 Remote
当我执行 git remote -v 时，我得到了 origin git@xxx.yyy.cc:name fetch) origin git@xxx.yyy.cc:name (push) 为什么
vscode-remote - 从 vscode-remote-WSL 中启动 vscode-remote-containers 时如何设置环境变量？
要构建我的远程环境，我需要设置几个环境变量(它们在 docker-compose 文件中使用)。这些是在我的 ZSH 环境中设置的，因此从终端运行 docker-compose build 可以按预期
vscode-remote - vscode-remote 中的多个开发容器
我有一个创建多个 Docker 镜像的项目。我想在 vscode-remote 中为每个图像设置一个 devcontainer，以便我可以为每个图像启动一个容器。我一次只需要启动并连接到一个容器/图
Git 将分支从一个 Remote 推送到另一个 Remote ？
我设置了以下 Remote : $ git remote korg rorg 以及以下分支: $ git branch -a * (no branch) remotes/korg/gingerbr
.net-remoting - .NET REMOTING C# 出错
这是我得到的错误。我有一个简单的 .Net Remoting 设置。连接空闲几分钟后出现此错误。对象“/7966b546_734e_410d_817a_a0e701f114f6/lfxehvbczn
Git:如何将一个 Remote 从另一个 Remote rebase
我有两个远程 git 分支(称它们为“RemoteA”和“RemoteB”)。 “RemoteB”在过去的某个时候从“RemoteA”中分离出来。在那之后，许多提交已应用于两个分支，但我现在希望“Re
git (ls-remote) - 列出按创建日期排序的 "remote"分支
我知道使用下面的 git 命令我可以列出我所有的“远程”分支... [someone@someone-pc somerepo]$ git ls-remote Username for 'https:/
c# - .Net Remoting 不使用.Net Remoting？
我最需要的是一些建议。我有以下示例: 应用程序1.exe - 有对象 MyList 应用程序2.exe - 需要访问 MyList 并与对象交互，就好像它是从 Application2 创建的一样。
c# - 使用 .net remoting 调用本地 "remote"？
我有一个大型应用程序，它通过 .net 远程处理使用 COM 从 Web 层调用到中间层。在此模式下启动和运行非常慢。 COM 边界的两边都是我们的代码。我希望能够(可选)在单个进程中运行它。相当多
git - 我可以将 Remote 本身的定义推送到 Remote 吗？
假设我有两个 Remote :origin 和 upstream。有没有一种方法可以将对象 upstream 推送到 origin，以便其他从 origin 克隆我的 repo 的人能够运行像 git
git 删除 Remote : remote refs do not exist
简而言之；如何删除远程多个 merge 的 Remote ？更多背景；我有一个 git 存储库，其中包含数十个已 merge 到 master 中的 Remote 。我可以使用以下方法一次删除这
git - 是否可以在 git 中查看 Remote 的 Remote ？
我有一个仓库的本地 git clone。我当然可以使用 git remote 查看我的本地远程 origin。但是，我可以看到我的 Remote origin 的 Remote 吗？我可以查看有关这些
.net - .NET Remoting 如何处理 Remoting 服务器端的 IP 地址更改
先决条件 - 远程服务器和客户端均已设置，客户端能够通过客户端激活的业务对象在服务器端调用方法并从服务器端接收事件。在保持服务器和客户端运行的情况下更改远程服务器的IP地址，客户端仍然可以执行上述任
vscode-remote - 我如何解决 "Failed to parse remote port from server"
我正在设置一个新的远程主机，每次启动它时，我都会收到以下错误输出:有关如何解决此问题的任何反馈或指示？ Pseudo-terminal will not be allocated because st
git - "--remote"实际上在 "git submodule update --remote"中做了什么？
我只是不明白 Git 的帮助页面。那么会发生什么或有什么区别？假设我有一个带有子模块 B 的 Git 项目 A。子模块 B 确实有一个子模块 C。克隆存储库后，A 指向 B 的特定提交。B 指向 C
java - 异常 "remote object implements illegal remote interface"？
我在 Java 中使用 rmi。但是有一个 ExportException“远程对象实现非法远程接口(interface)”。这是我的代码，有人可以帮帮我吗？ public interface Re
git - 使用一个 Remote pull 另一个 Remote 使用 Git
我对 git 越来越熟悉了，但是我遇到了一些让我困惑的事情。我们在这里使用本地镜像，因为我们的线路很慢。为了指向镜子，我在 .gitconfig 中有一些常用的东西。当我想推送时，问题就来了。看来我
artifactory - 代理柯南中心 : Remote from remote is not json, 但 'application/octet-stream'
我设置了一个带有 conan“远程”存储库的 jfrog artifactory 来代理官方 conan-center 存储库。我看到三个不同的 conan-center URL，具体取决于我阅读的来
vscode-remote - 如何使用非 root 用户权限在 vscode-remote SSH 中保存文件
我无法使用 VSCode 远程 SSH 在我的远程服务器上保存任何文件，因为我不是 root 用户。我关注了 official documentation关于如何使用 SSH 配置文件设置 ssh

首页

博学

6Ren·AI

商城

javascript - 德尔福 TIdHTTPServer : not allowed to load local resourse from remote device