如何在VSCode任务错误中配置文件路径

Question

我在VSCode中配置了一个任务来编译Delphi 2005 dpk。 它正在工作并返回“问题视图”上的错误，但它没有显示文件中的错误。

我认为它正在发生，因为当我点击错误时，我收到错误消息：

无法打开'sr075pro.pas'：找不到文件（... projectfolder \\ sr075pro.pas）

但该文件位于...projectfolder\\webservices\\sr075pro.pas 。

我找不到告诉任务该文件在子文件夹中的方法。 我尝试在没有成功的情况下使用“fileLocation”标签上的“relative”选项。

错误返回：

Compiling sa_webservices...
Borland Delphi  Version 13.0  Copyright (c) 1983,99 Inprise Corporation
sr075pro.pas(99) Error: Undeclared identifier: 'ni'
sa_webservices.dpk(802) Fatal: Could not compile used unit 'sr075pro.pas'

我的任务配置：

{
  "version": "0.1.0",
  "name": "Compilar",
  "command": "C:\\Compilers\\compile.bat",
  "suppressTaskName": true,
  "isShellCommand": true,
  "isBuildCommand": true,
  "tasks": [
{
      "taskName": "Compile sa_webservices",
      "isBuildCommand": false,
      "isTestCommand": false,
      "showOutput": "always",
      "args": [
        "sa_webservices"
      ],
      "problemMatcher": {
        "owner": "external",
        "fileLocation": "relative",
        "pattern": {
          "regexp": "^([\\w]+\\.(pas|dpr|dpk))\\((\\d+)\\)\\s(Fatal|Error|Warning|Hint):(.*)",
          "file": 1,
          "line": 3,
          "message": 5
        }
      }
    }

我的compile.bat：

@echo off
@P:
@set arg1=%1
shift

...
if "%arg1%" == "sa_webservices" set arg2="webservices" 
...
echo Compiling %arg1%...
cd\%arg2% 
dcc32.exe -H -W -Q %arg1%.dpk

Answer 1

您的任务配置错误。 首先，你不要关闭所有括号，但我想这是通过在StackOverflow上复制和粘贴它而犯的错误。 否则，任务配置根本不起作用。

现在到了真正的问题：DCC32产生包含相对文件路径的提示和警告。 这些路径与项目文件相关 。 在任务配置中，通过设置定义编译器的输出以包含相对路径

"fileLocation": "relative"

Visual Studio Code不知道如何从编译器消息给出的相对路径构建正确的绝对路径。 所以它猜测你当前的${workspaceRoot} （在你的情况下是它的projectfolder ）将是绝对路径。

这解释了为什么您会看到包含错误文件路径的错误和警告。 为了获得正确的路径，您需要告诉VSCode将相对路径与其组合的正确路径。 您只需添加正确的路径做到这一点fileLocation在你进入tasks.json ：

"fileLocation": ["relative", "${workspaceRoot}\\webservices"]

整个tasks.json看起来像这样：

{
    "version": "0.1.0",
    "name": "Compilar",
    "command": "C:\\Compilers\\compile.bat",
    "suppressTaskName": true,
    "isShellCommand": true,
    "isBuildCommand": true,
    "tasks": [
        {
            "taskName": "Compile sa_webservices",
            "isBuildCommand": false,
            "isTestCommand": false,
            "showOutput": "always",
            "args": [
                "sa_webservices"
            ],
            "problemMatcher": {
                "owner": "external",
                "fileLocation": ["relative", "${workspaceRoot}\\webservices"],
                "pattern": {
                    "regexp": "^([\\w]+\\.(pas|dpr|dpk))\\((\\d+)\\)\\s(Fatal|Error|Warning|Hint):(.*)",
                    "file": 1,
                    "line": 3,
                    "message": 5
                }
            }
        }
    ]
}