/? Hilfe in der Konsole

[GroZ]

Ich möchte in mein Programm eine Hilfe einbauen (Konsole) und zwar mit dem befehl '/?'. Das ganze würde ich über eine IF anweisung lösen. Jetzt mein Problem Was muss ich schreiben das er die Hilfe bei dem Befehl öffnet und nur dann?

[TiGü]

Delphi-Quellcode:

if DeinEingabeText = '/?' then
begin
  OeffneHilfe;
end;

Das solltest du inzwischen aber auch schon selber draufhaben! :shock:

[GroZ]

Ja ich weiß.. manchmal vergess ich so etwas. Ist bei mir noch nicht drin im Kopf alles ^^.
Eine Frage noch bei "deinEingabeText" was kann ich da bei der Konsole nehmen? Writeln?

[TiGü]

Zitat:

Zitat von GroZ (Beitrag 1319307)

Eine Frage noch bei "deinEingabeText" was kann ich da bei der Konsole nehmen? Writeln?

Geh nochmal ganz tief in dich und überlege, ob man zum einlesen wirklich den Befehl Writeln nutzen kann.
Welche Tutorials hast du denn bisher angeschaut, um dich mit dem Thema Delphi und Konsole bekannt zu machen?

[mm1256]

Wenn du schon die Startparameter auswerten möchtest, dann mach es gleich richtig:

Delphi-Quellcode:

project Foo;

procedure ParseCommandLine;
var
  i: Integer;
begin
  for i := 1 to ParamCount do begin
    if ParamStr(i) = '/?' then begin
      WriteLn('Hilfe');
      ReadLn;
    end;
  end;
end;

begin
  ParseCommandLine;
  ...
end.

[GroZ]

Delphi-Quellcode:

 readln;
  eingabe := '/?';
  if Readln(eingabe)= true then
  begin
   Writeln('#0 - Kein Fehler aufgetreten');
   Writeln('#1 - Falscher Parameter');
   Writeln('#2 - PDF bereits vorhanden');
   Writeln('#3 - Konvertierung fehlgeschlagen');
   readln;
  end;

Das ist mein Quellcode. Es kommt der Fehler "inkompatible Typen"
Ist es vom Ansatz richtig?

[Sir Rufo]

Es gibt auch noch etwas Einfacheres zum Abprüfen:

SysUtils.FindCmdLineSwitch

Ob es das aber schon unter Delphi 7 gab, kann ich nicht sagen ...

[Klaus01]

.. so wie ich das verstanden habe will der TE /? nicht als Parameter übergeben - sondern im Programm eingeben.

Delphi-Quellcode:

if Readln(eingabe)= true then

->

Delphi-Quellcode:

eingabe := readln;
if eingabe = '/?' then

Grüße
Klaus

[p80286]

bloß nicht!

Delphi-Quellcode:

readln(eingabe);
if eingabe = '/?' then

funktioniert zwar, aber ob es das ist was gewollt ist?
Gruß
K-H

[Lemmy]

Zitat:

Zitat von GroZ (Beitrag 1319312)

Ist es vom Ansatz richtig?

kann dir keiner sagen, so lange du nicht selbst sagst (und auch weißt) was du machen willst...

Hast Du ein Konsolenprogramm mit "Menü-Funktion" vergleichbar mit dem alten Norton commander für DOS, oder Midnightcommander, dann wäre readln richtig. Willst Du was wie git, format, dir, mkdir, ls oder dergleichen machen wäre das Parsen der Startparameter (ParamStr()) richtig.

Grüße

[GroZ]

Nein ich möchte in der Console /? schreiben und dann sollen die Codes für die Fehlermeldung kommen.
Ging mit diesem Codeschnipsel:

Delphi-Quellcode:

readln(eingabe);
  if eingabe = '/?' then
  begin

[nahpets]

Poste bitte mal den bisher vorhandenen Quelltext deines Konsolenprogrammes, damit wir eine Chance bekommen die Stelle zu identifizieren, an der Du eine Änderung vornehmen kannst und dir ggfls. einen verwertbaren Code-Schnipsel zur Verfügung stellen können.
Mir ist die Aufgabenstellung momentan noch etwas zu difus, um hier eine sinnvolle Antwort geben zu können.

[GroZ]

Zitat:

Zitat von Sir Rufo (Beitrag 1319313)

Es gibt auch noch etwas Einfacheres zum Abprüfen:

SysUtils.FindCmdLineSwitch

Ob es das aber schon unter Delphi 7 gab, kann ich nicht sagen ...

Kannst du mir mal bitte ein Beispiel zeigen? Sprich wie ich von ParamStr den Parameter übergebe?
so?

Delphi-Quellcode:

FindCmdLineSwitch(ParamStr(1))

[Sir Rufo]

Zitat:

Zitat von GroZ (Beitrag 1320389)

Zitat:

Zitat von Sir Rufo (Beitrag 1319313)

Es gibt auch noch etwas Einfacheres zum Abprüfen:

SysUtils.FindCmdLineSwitch

Ob es das aber schon unter Delphi 7 gab, kann ich nicht sagen ...

Kannst du mir mal bitte ein Beispiel zeigen? Sprich wie ich von ParamStr den Parameter übergebe?
so?

Delphi-Quellcode:

FindCmdLineSwitch(ParamStr(1))

Ja

Delphi-Quellcode:

if FindCmdLineSwitch( '?' ) then
  WriteLn( 'Ah, der Herr möchte die Hilfe sehen!' );

Das ist alles.

[GroZ]

Okay. Danke die hab ich gesucht. Damit kann ich ja dann auch Starparameter eingeben oder? Stand zumindest so in der Hilfe drin

[Sir Rufo]

Ob und was der Parameter für dich/deine Anwendung bedeutet, dass musst du programmieren.

Damit kannst du nur feststellen, ob der Parameter gesetzt wurde - oder eben nicht.

[TiGü]

Zitat:

Zitat von GroZ (Beitrag 1320392)

Okay. Danke die hab ich gesucht. Damit kann ich ja dann auch Starparameter eingeben oder? Stand zumindest so in der Hilfe drin

DAS ist dafür da, um Startparameter einzugeben.

[baumina]

Was ist mit "Startparameter eingeben" gemeint? :gruebel:

[GroZ]

Naja bei meinene Programm wird am Anfang das Verzeichnis eingegeben und dann werden PDF Dateien konvertiert. Bekomme zur Zeit noch den EFOpenError:lol:

[baumina]

Wenn dein Verzeichnis als Startparameter über die Kommandozeile mitgegeben wird und Leerzeichen beinhaltet, mache unbedingt Anführungszeichen drumrum.

Code:

MeinProgramm.exe "C:\Mein Verzeichnis"

[GroZ]

Ja das weiß ich kommt trotzdem noch :D.
Ich schreibs grade neu und schaue mal wie ich mit ParseCmdLineSwitch, ParamStr usw klar komme.

[Sir Rufo]

Ich wette mal, dass dein Problem an einer ganz anderen Stelle liegt und null,nix mit den Parametern zu tun hat.

Stell doch einfach mal die Frage zu deinem konkreten

Delphi-Quellcode:

EFOpenError

, dann könnten wir dir auch konkret helfen.

"Herr Doktor, ich habe am ganzen Körper Schmerzen. Wenn ich an den Kopf tippe, an das Knie, an den Bauch, einfach überall."
Diagnose: Finger gebrochen!

[GroZ]

Naja ich weiß halt nur nicht wie ich das Verzeichnis einlesen soll. Ich weiß das wenn ich das Verzeichnis habe. Das ich dann mit FindFirst und FindNext die FRP Dateien suchen muss und dann meine Routine ablaufen lassen muss.

[Sir Rufo]

Zitat:

Zitat von GroZ (Beitrag 1320405)

Naja ich weiß halt nur nicht wie ich das Verzeichnis einlesen soll. Ich weiß das wenn ich das Verzeichnis habe. Das ich dann mit FindFirst und FindNext die FRP Dateien suchen muss und dann meine Routine ablaufen lassen muss.

Du weisst, dass dabei in dem

Delphi-Quellcode:

TSearchRec

der Dateiname ohne Pfad enthalten ist?
(Was man mit dem Debugger sehr leicht feststellen kann/könnte)

Und in der Dokumentation steht es auch
http://docwiki.embarcadero.com/Libra...ils.TSearchRec

[GroZ]

Also brauche ich FindFirst und FindNext gar nicht?

[p80286]

Zitat:

Zitat von baumina (Beitrag 1320402)

Wenn dein Verzeichnis als Startparameter über die Kommandozeile mitgegeben wird und Leerzeichen beinhaltet, mache unbedingt Anführungszeichen drumrum.

Code:

MeinProgramm.exe "C:\Mein Verzeichnis"

Naja je nach Delphi Version ist das nicht mehr als ein Hinweis, daß es sich nicht um 2 oder mehr Parameter handelt sondern um einen, da ist dann schon der Programmierer gefragt.

Gruß
K-H

[GroZ]

Ich brauche nur ein Parameter beispielsweise "C:\Alte Dateien\FRP\2010"
Mit diesem Parameter möchte ich dann alle FRP Dateien die in dem Verzeichnis sind konvertieren.
Der Parameter soll in der Konsole eingegeben werden.

[Sir Rufo]

Zitat:

Zitat von GroZ (Beitrag 1320407)

Also brauche ich FindFirst und FindNext gar nicht?

Einmal in der Dokumentation auf Codebeispiele geklickt und wie durch Zauberhand kommt ...
http://docwiki.embarcadero.com/CodeE...t_%28Delphi%29

[p80286]

Also Gut, nehmen wir mal an, daß wirklich nur der Startpfad übergeben wird.

Delphi-Quellcode:

startpfad:='';
for i:=1 to paramcount do
  startpfad:=startpfad+' '+paramstr[i];
if (length(startpfad)>0) and (startpfad[1]='"') then
    delete(startpfad,1,1);
if (length(startpfad)>0) and (startpfad[length(startpfad)]='"') then
    delete(startpfad,length(startpfad),1);

so ungefähr sollte es funktionieren.
Wenn u.U. auch noch "/?" oder "-H" übergeben werden sollte, dann mußt Du Dir da etwas einfallen lassen.

Gruß
K-H

P.S.
Natürlich brauchst Du Findfirst/Findnext, wie willst Du sonst an die Dateinamen kommen?
OK mit Opendialog ginge das auch, wenn man klickwütig ist.

[Sir Rufo]

@p80286

Die Quote-Chars werden automatisch entfernt, bzw. erst gar nicht an die Anwendung übergeben.

CmdLine	ParamStr(1)	ParamStr(2)
foo.exe "C:\MeinPfad"	C:\MeinPfad
foo.exe C:\MeinPfad	C:\MeinPfad
foo.exe "C:\Mein Pfad"	C:\Mein Pfad
foo.exe C:\Mein Pfad	C:\Mein	Pfad

[p80286]

Zitat:

Zitat von Sir Rufo (Beitrag 1320423)

@p80286

Die Quote-Chars werden automatisch entfernt, bzw. erst gar nicht an die Anwendung übergeben.

:oops:Mann ist das lange her das ich das genutzt habe:oops:
Gruß
K-H