unit für command line parameter

[freimatz]

Hallo,
ich bin an einem neuen commandozeilen Tool dran. Da sollen auch Parameter (Dateinamen, Option) übergeben werden können. Klar könnte ich das mit ParamStr und so selber machen. Da gibt es aber sicher eine unit die dabei helfen kann. Ich meine mich zu erinnern an etwas wo man Option registrieren konnte.
Trotz einigem Googeln fand ich nichts fertiges.
Das hier macht das, deckt aber nur einen Spezialfall ab.
Hat mir jemand einen Tipp?

[Uwe Raabe]

Da gibt es sicher mehrere. Eines ist das von Vincent Parret: https://github.com/VSoftTechnologies...mandLineParser

[Der schöne Günther]

Wobei - Und das ist nur mein persönlicher Geschmack - ich denke dass man so etwas schneller selbst gebaut und auf seine eigenen Bedürfnisse zugeschnitten hat als sich in eine neue Library eingearbeitet, Lizenztexte gelesen und verstanden hat und und und.

Delphi-Quellcode:

program Project9;

{$APPTYPE CONSOLE}
{$R *.res}

uses System.SysUtils;

type
   TCommandLineArgs = record
      isVerbose:   Boolean;
      inputPath:   String;
      outputPath:   String;

      function ToString(): String; inline;
   end;

function getCommandLineArgs(const commandLine: String): TCommandLineArgs;
begin
   Result.isVerbose := FindCmdLineSwitch('isVerbose');
   if not FindCmdLineSwitch('inputPath', Result.inputPath) then
      Result.inputPath := String.Empty;
   if not FindCmdLineSwitch('outputPath', Result.outputPath) then
      Result.outputPath := String.Empty;
end;

{ TCommandLineArgs }

function TCommandLineArgs.ToString(): String;
begin
   Result :=
      String.Format('isVerbose: %d', [isVerbose.ToInteger()])
      + sLineBreak + String.Format('inputPath: "%s"', [inputPath])
      + sLineBreak + String.Format('outputPath: "%s"', [outputPath]);
end;

begin
   WriteLn( getCommandLineArgs(CmdLine).ToString() );
end.

ergibt

Code:

isVerbose: 1
inputPath: ""
outputPath: "C:\users\public\someFile.dat"

bei einem Aufruf mit

Code:

/isVerbose /outputpath:C:\users\public\someFile.dat

Für nicht allzu komplizierte Fälle reicht so etwas doch schon aus?

[Jasocul]

Ich habe mir irgendwann mal eine Mini-Komponente dafür gebastelt.
Das ist zwar völlig unkommentiert, aber bei ca. 100 Zeilen Code, kann man sich da wohl "einarbeiten".

Das war damals nur mal so hingepfuscht, aber vielleicht hilft es ja weiter.

[TigerLilly]

Ein paar Ergänzungen:

https://github.com/benibela/rcmdline
https://www.thedelphigeek.com/2014/1...e-parsing.html
https://larsfosdal.blog/category/knowledge/code/delphi/

[freimatz]

Danke an alle.

@Uwe: genau die hatte ich schon mal gesehen und mich vage daran erinnert. Die werde ich wohl auch nehmen. Sauber programmiert mit unit tests. Das sieht man leider selten.

@Günther: nun ja, ich will es ja nicht nur auf meine "eigenen Bedürfnisse" sondern die der Anwender. Und wenn da einer zum Beispiel statt "-i" ein "/i" nehmen will soll er es machen können ohne dass ich da was tun muss. Lizenztexte gelesen hat ca. 20 Sekunden gedauert "Apache" gelesen, bei uns im wiki nachgeschaut ob genehmigt - gut.
Ich fürchte das Tool wo ich gerade anfange wird auch mal ein komplizierter Fall, es riecht schon nach Fass ohne Boden.

[TigerLilly]

Da ist noch einer:
https://osdn.net/projects/dzlib-tool...LineParser.pas

Siehe auch hier:
https://en.delphipraxis.net/topic/14...r-delphi-103x/

[Dalai]

Zitat von freimatz:

Und wenn da einer zum Beispiel statt "-i" ein "/i" nehmen will soll er es machen können ohne dass ich da was tun muss.

Das kann in Delphi standardmäßig vorhandene FindCmdLineSwitch schon.

PS: Diese Funktion verwende ich selbst für einige meiner Kommandozeilenprogramme.

Grüße
Dalai

[freimatz]

Zitat von freimatz:

Und wenn da einer zum Beispiel statt "-i" ein "/i" nehmen will soll er es machen können ohne dass ich da was tun muss.

So deutlicher?

[Rolf Frei]

Lies mal die Doku zu FindCmdLineSwitch. Da hst du einen Parameter bei dem du angeben kannst was für Switch-Zeichen erlaubt sein sollen. - (Unix) / (Windows) sind Standard und wer was anderes eingibt hat das nicht verstanden. Wieso du da also noch andere Zeichen dafür verwenden willst, ist mir ein Rätsel.