Question

因此，我们有一个无法重新编译的第三方工具，但它使用此ParamStr（Index：Integer）来获取命令行参数。我已经尝试了所有可以在互联网上找到的内容，但它不接受双引号字符。我使用了转义字符等，并创建了一个测试应用程序以简化测试过程并将问题归结为该功能。

有人使用此功能成功通过命令行参数传递双引号吗？

编辑：我已经在下面发布了我的测试应用程序。 processfromcommandline函数来自第三方库。

示例输入如下：

"file1.adb file2.adb -p4THISISAPASSWORD"

密码直接在-p4之后。我们的密码是“加密的”，看起来像这样

file1.adb file2.adb -p4$/.;}{3"aG13Sz/"9@;.'

测试应用程序输出使用ShowMessage获取的字符串，这样您就可以看到delphi在做什么。所以我的输入应该是

unit Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, clipbrd;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    FParams:      Boolean;
    FAbort:       Boolean;
    FAppPath:     String;
    FLogPath:     String;
    FSuccess:     Boolean;
    FSourceFile:  String;
    FDestFile:    String;
    FParamCount:  Integer;
    FPassword4:   String;
    FKeyFile4:    String;
    FIVFile4:     String;
    FPassword5:   String;
    FKeyFile5:    String;
    FIVFile5:     String;
    procedure ProcessFromCommandLine;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.ProcessFromCommandLine;
var bTo4: boolean;
    i,l,sz: Integer;
    s:      String;
    buf:    PAnsiChar;
begin
  bTo4 := False;
  for i := 1 to FParamCount do
   begin
    s := ParamStr(i);
    //s := getCommandLine;
    l := Length(s);
    if (i = 1) then
     FSourceFile := s
    else
    if (i = 2) and (Pos('-',s) = 0) then
     FDestFile := s
    else
    if (l > 3) and ((Pos('-p4',s) > 0) or (Pos('/p4',s) > 0)) then
    begin
      ShowMessage('uh' + s);
      FPassword4 := Copy(s,4,l-3);
      end
    else
    if (l > 3) and ((Pos('-p5',s) > 0) or (Pos('/p5',s) > 0)) then
      FPassword5 := Copy(s,4,l-3)
    else
    if (l > 3) and ((Pos('-i4',s) > 0) or (Pos('/i4',s) > 0)) then
      FIVFile4 := Copy(s,4,l-3)
    else
    if (l > 3) and ((Pos('-i5',s) > 0) or (Pos('/i5',s) > 0)) then
      FIVFile5 := Copy(s,4,l-3)
    else
    if (l > 3) and ((Pos('-k4',s) > 0) or (Pos('/k4',s) > 0)) then
      FKeyFile4 := Copy(s,4,l-3)
    else
    if (l > 3) and ((Pos('-k5',s) > 0) or (Pos('/k5',s) > 0)) then
      FKeyFile5 := Copy(s,4,l-3)
    else
    if (l > 2) and ((Pos('-l',s) > 0) or (Pos('/l',s) > 0)) then
      FLogPath := Copy(s,3,l-2)
    else
    if (s = '-4') then
      bTo4 := True
    else
    if (s = '-5') then
      bTo4 := False;
   end;
   Clipboard.AsText := FPassword4;
   ShowMessage(FPassword4);

end;
procedure TForm1.FormCreate(Sender: TObject);
begin
FParamCount := ParamCount;
  FParams := (FParamCount >= 1);
  if (FParams) then
   ProcessFromCommandLine;
end;

end.

Answer 1

ParamStr()会去除"的引号字符，即使在嵌入的带引号的字符串中也是如此，如您的示例所示。因此

-p4$/.;}{3"aG13Sz/"9@;.'

获取为

-p4$/.;}{3aG13Sz/9@;.'

这是硬编码的行为，您不能在不更改RTL源代码的情况下对其进行更改。

甚至Microsoft does the same thing（请参见第二和第四示例），但至少它支持以"形式转义的嵌入式\"字符。 ParamStr()根本不支持任何转义语法！

实际上，ParamStr()有一些与报价处理有关的错误¹（例如，完全忽略了带引号的空参数""），所以我建议使用Win32 GetCommandLine()获取原始命令行数据，然后根据需要自行解析。

^{1：最初记录在旧的Quality Central错误跟踪器中的错误，但从未移植到较新的Quality Portal错误跟踪器中，并且此后QC已退役，现已脱机。}

使用ParamStr（）

1 个答案: