cmdline tool

[dR4g0N]

morgen erstmal, also ich suche ien paar infos, wie ich ein cmdline tool aufzubauen habe sprich wie ich es hinbekomme das es auf parameter nach dem namen des tools (wie z.b. dir /? - das da die help file angezeigt wird) reagiert und das überhaupt ein cmdline prog ist. vlt soll es wenn ich als parameter -n angebe -> net view ausgeführt werden und bei -i -> ipconfig oder so.

thx schonmal im vorraus.

[plumper]

Moin,

hab' mal für Dich gesucht... Ich denke das sollte es sein..
parameter and Programmstart

[dR4g0N]

also thx für deine antwort, ich bin jetzt weitergekommen. funktioniert alles soweit nur ich weiss nicht wie ich es hinbekommen soll, dass er es in der aktuellen dos box ausgibt. also atm gebe ich es noch mit showmessage aus.

[mytar]

Mit der Compilerdirektive {$APPTYPE CONSOLE} wird eine Console aufgebaut.

Dann kannst du mit den gängigen IO-Anweisungen hantieren.

[dR4g0N]

ahh gut, damit kenn ich mich auch schon ein bisschen aus aber was ist IO

[mytar]

IO (Input-Output): Eingabe, Ausgabe

Kann man mit Writeln() und Readln()!

[dR4g0N]

axo das bedeutet IO ^^, aber writeln und readln kenne ich ja schon.

Habe trotzdem noch ein paar fragen. Ich möchte ja ein Konsolenprogramm mit Parametern machen. Gibt es irgendeine Möglichkeit die Variablen in jeder if Anwendung zu deklarieren. Ich überprüfe den parameter mit

Code:

if Parameter = '-irgendwas' then
begin
CODE
end;

Wenn ich jetzt Variablen benutze deklariere ich sie direkt unter uses, wenn ich das richtig verstanden habe, als globale Variable. Wie es in einer Function oder Procedure geht weiß ich ja, aber wenn ich z.B. 10 verschiedene Parameter habe und jedesmal 3 Variablen benutze ist das nur ein großes WirWarr an globalen Variablen.

[mytar]

Schau dir dazu paramstr() in der OH an!

Diese Funktion müsste dir jeden Parameter liefern,
der angegeben wird. Ich glaube der Parameter-Index
muss an die Funktion übergeben werden. Einfach mal nachschauen!

Grüße

[dR4g0N]

das habe ich schon verstanden, jedoch habe ich probs mit den variablen der übersicht haltshaber. Ich habe nicht 10 parameter hintereinander sonder 10 einzelne parameter die alle unterschiedlich sind. ich weiß nur nicht wie ich lokale variablen innerhalb dieses if blocks verwenden soll. Achja btw wie kann ich denn auf die Indy HTTP Komponente bei einem Konsolenprogramm zugreifen? Kann die komponente ja nicht auf die Form ziehen.

[plumper]

Um ganz ehrlich zu sein, habe ich nicht den Hauch einer Ahnung, was Dein Problem ist...

In der Delphihilfe ist doch ein Beispiel mit einer For Schleife...

Code:

procedure TForm1.FormCreate(Sender: TObject);

var
  i: Integer;
  for i := 1 to ParamCount do
  begin
    if LowerCase(ParamStr(i)) = 'beep' then
      Beep
    else if LowerCase(ParamStr(i)) = 'exit' then
      Application.Terminate;
  end;
end;

ich habe echte Verständnisprobleme...

Und ich glaube, das mit den Indy Komponenten gehört in einen neuen Thread... Wobei ich das glaube ich einfach lösen würde, indem ich das zur Laufzeit erzeuge ?!?

Grüße...