/? Hilfe in der Konsole

[GroZ]

Ja das weiß ich kommt trotzdem noch .
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 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 von 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.

Du weisst, dass dabei in dem 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 von 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"

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 von GroZ:

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