Eingehende Parameter

[Bangkok]

Ich bin gerade dabei eine Routine zu entwerfen, die es meinem Programm ermöglicht, alle im Explorer markierten Dateien zu übernehmen. Mein Code funktioniert auch gut, aber basiert darauf, dass die Dateien alle in Anführungszeichen übergeben werden. Dazu meine Frage. Kann man man sich darauf verlassen, dass der Explorer oder andere Datei-Commander die Dateien immer in Anführungszeichen übergeben ? Wenn ja wäre mein Code fertig, wenn nicht muss ich diese Möglichkeit auch noch berücksichtigen. Bei meinen Tests war das bisher so, dass alles in Anführungszeichen war.
Hier mein Test-Code. Zum Testen muss zur Exe kompiliert werden und ein Link ins "senden an" Verzeichnis. Funktioniert in der Form erst ab XProfan 11

Proc incoming
declare para$[]
var m% = 0:var count% = 0
var mem& = External("kernel32","GetCommandLineA")
var in$ = string$(mem&,0)
var p&= External("shlwapi.dll","PathGetArgsA",addr(in$))
var args$ = string$(p&,0)
if left$(args$,1) = "\q"
var t$ = ""
whileloop 1,len(args$)
case mid$(args$,&loop,1) = "\q":inc m%
if mid$(args$,&loop,1) <> "\q"
t$ = t$ +mid$(args$,&loop,1)
endif
ifnot m% mod 2
if t$ = " "
t$ = ""
else
para$[count%] = t$
t$ = ""
inc count%
endif
endif
endwhile
endif
return para$[]
endproc

cls
declare p$[]
p$[] =  incoming()
print "Arraygröße:",sizeof(p$[])
whileloop 0,sizeof(p$[])-1
print p$[&loop] + "  = Arraystring: "+str$(&loop)
endwhile
waitinput

Zum Code noch eine Zusatzfrage.
die beiden API-Aufrufe schreiben ja etwas in den Speicher und ich hole das nur über den Zeiger ab, ohne Bereichsvariable und ohne Dimensionierung. Wird der Speicher dann von Windows wieder automatisch freigegeben, hat jemand eine definitive Antwort. Ich denke mal ja

[p. specht]

Also bei mir kommt immer "Arraygröße: 0"

[Bangkok]

Ist die Frage ob du Parameter an das Programm übergibst. Du must es zur Exe kompilieren, dann einen Link zu dieser Exe ins Senden an Verzeichnis kopieren. Im Explorer dann einige Dateien markieren, rechts klicken und im Menü dann "senden an" diese Exe wählen, dann sollten die Dateien im Programm angezeigt werden.

[AHT]

Zitat von Bangkok

Dazu meine Frage. Kann man man sich darauf verlassen, dass der Explorer oder andere Datei-Commander die Dateien immer in Anführungszeichen übergeben ?

Ich bin mir da auch nicht sicher, ich denke aber, ja (ungetestet).

Meine Überlegung dazu: Anführungszeichen sind wichtig, wenn es sich um ein "langes Dateiformat" handelt - es kann sonst Probleme mit den Freizeichen innerhalb eines Ordners oder einer Datei geben. Wo also lange Dateinamen übergeben werden, sind die normalerweise in Anführungszeichen...

[Frabbing]

Ich weiß nicht genau, ob ich alles so richtig gemacht habe. Bei mir stand Arraygröße 1 und der String (Dateiname) war nicht in Anführungszeichen.

[Bangkok]

Ja das ist richtig, die Anführungszeichen werden ja aussortiert, da mein Programm kein Problem mit Leerzeichen oder so hat.

[Frabbing]

Sehe schon.

[AHT]

Zitat von Bangkok

Zum Code noch eine Zusatzfrage.
die beiden API-Aufrufe schreiben ja etwas in den Speicher und ich hole das nur über den Zeiger ab, ohne Bereichsvariable und ohne Dimensionierung. Wird der Speicher dann von Windows wieder automatisch freigegeben, hat jemand eine definitive Antwort. Ich denke mal ja

Schauen wir mal, was GetCommandLine überhaupt tut - wir nehmen uns erst mal GetCommandLineW vor, und das unter NT-basierenden Systemen:
Beim Starten eines Processes erzeugt das OS einige Systemstrukturen im virtuellen Speicher des Prozesses - eine davon ist die Systemstruktur PEB.
Ein Member dieser Struktur ist wiederum ein Pointer auf eine weitere Systemstruktur, die Struktur RTL_USER_PROCESS_PARAMETERS.
Diese Struktur besteht unter anderem aus verschiedenen Unicode-Strings - einer davon ist ist die CommandLine. GetCommandLineW ließt also nur die Adresse eines Strings aus, der sowieso schon besteht (da muss nichts freigegeben werden).
Mit GetCommandLineA sieht das ganz ähnlich aus.

[Frabbing]

Übergeben wird die Adresse auf den String. Laut MSDN gibt es keinen Hinweis darauf, dass es sich um eine Kopie des Strings handeln würde.

[AHT]

Zitat von Frabbing

Übergeben wird die Adresse auf den String. Laut MSDN gibt es keinen Hinweis darauf, dass es sich um eine Kopie des Strings handeln würde.

Richtig, es ist keine Kopie des Strings. Bei GetCommandLineW kann ich das hundertprozentig und sehr einfach nachweisen. Die Struktur, in der sich die Ansi Version befindet, ist komplett unbekannt. Der String, der da erzeugt wird, ist aber ein Counted-Ansi-String, auf dessen Stringpointer mehrere andere Sachen zeigen. Der wird also mit ziemlicher Sicherheit auch beim Prozessstart erzeugt. Wäre es eine Kopie, wäre kein Counted-Ansi-String nötig.

[Bangkok]

Ja danke, so ähnlich waren auch meine Überlegungen aber ich wollte sicher gehen.

[Bangkok]

Habe noch etwas getestet, Also man kann sich nicht darauf verlassen, dass alles in Anführungszeichen gesendet wird. Kurze Dateinamen die 8+3 entsprechen werden ohne gesendet, also muss ich die noch berücksichtigen.

[AHT]

Es ist manchmal besser, zum Testen auch eine EXE online zu stellen.
Nicht jeder hat die neueste Profanversion.

[Bangkok]

Das Thema hat sich erledigt. Wer nicht in die Hilfe schaut muss halt an so was rummachen. Aber bei mir kam plötzlich eine dumpfe Erinnerung hoch. Geht doch in Profan so einfach.

cls
Print "Parameteranzahl: " + @Str$(%ParCount)

    WhileLoop 1, %ParCount

      Print @Par$(&Loop)

    EndWhile

waitinput

[AHT]

Ja, das war schon klar.
Kommt Profan da aber mit den fehlenden Anführungszeichen zurecht?
Auch da musst du basteln.