Получить параметр с двойными кавычками, используя ParamStr ()

Question

Итак, у нас есть сторонний инструмент, который мы не можем перекомпилировать, но он использует этот ParamStr (Index: Integer) для получения аргументов командной строки.Я перепробовал все, что смог найти в интернете, но он не принимает символ двойной кавычки.Я использовал escape-символы и т. Д. И создал тестовое приложение, чтобы упростить процесс тестирования и зафиксировать проблему в этой функции.

Кто-нибудь когда-либо успешно передавал двойные кавычки через параметры командной строки с помощью этой функции?

Редактировать: я разместил свое тестовое приложение ниже.Функция 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 делает то же самое (см. 2-й и 4-й примеры), но, по крайней мере, поддерживает встроенные символы ", экранированные как \".ParamStr() вообще не поддерживает какой-либо экранирующий синтаксис!

На самом деле, ParamStr() имеет несколько ошибок ¹ , связанных с обработкой его кавычек (таких как пустые параметры в кавычках, "", полностью игнорируются), поэтому я бы предложил использовать Win32 GetCommandLine() для получения необработанных данных командной строки, а затем проанализировать их самостоятельно, как вам захочется.

^{1: ошибка, которая была первоначально зарегистрированав старой системе отслеживания ошибок Quality Central, но никогда не переносились на более новую систему отслеживания ошибок Quality Portal, и с тех пор QC был выведен из эксплуатации и теперь находится в автономном режиме.}