Fehler in ParamCount inter D2010?

[mkinzler]

Ich habe eine Anwendung, welche erkennt, ob ihr ein Order per Drag and Drop (beim Starten) übergeben wird, wenn nicht, wird eine Dialog angezeigt, in welchem man den Pfad auswählen muss.
Leider ist ParamCount in beiden Fällen 1, so dass man nicht unterscheiden kann, ob ein Ordner übergeben wurde oder nicht.
Zudem ist ein try..Except Block um ParamStr() wirkungslos, so dass dies auch flachfällt

[himitsu]

ParamStr wirft halt keine Exceptions, da im Fehlerfalle ein LeerString zurückgegeben wird.

if ParamStr(1) <> '' then ParameterWurdeÜbergeben; [add]
gut dieses

Code:

meine.exe ""

hat einen Parameter, aber dieser ist leer, aber ich glaube du kannst diesen Fall einfach ignorieren

[mkinzler]

Mein Problem ist aber, dass eine Exception geworfen wird ( in der IDE sogar 2!). Nur der Exception Handler ist funktionslos; es scheint dass die Exception direkt in System behandelt wird

[himitsu]

hmmmmm

grad Testen lassen ... keine Exception bei ParamStr(2), selbst wenn keine Parameter vorhanden sind (D2010 ohne Update + Win7)

hab hier erstmal was aus 'nem uralten Projekt
müßte nur etwas umgebaut, abgespeckt (die Hexcodierung "#xx" in DequotedStringV brauchste bestimmt nicht) und angepaßt werden (ist 'nen Delphi4-Code, sollte aber mit Unicode keine Probleme haben, fa es schon Unicode ist)

Delphi-Quellcode:

Function ParamCount: LongInt;
Function ParamStr(Index: LongInt): WideString;

Function IsParam (Index: LongInt): Boolean;
Function GetParam(Index: LongInt): WideString;
Function FindParam    (Param: WideString; CaseSensitive: Boolean): LongInt;
Function GetParamValue(Param: WideString; CaseSensitive: Boolean): WideString;

Delphi-Quellcode:

Function ParamCount: LongInt;
  Var P: PWideChar;
    B: Boolean;

  Begin
    Result := 0;
    P := GetCommandLineW;
    If P <> nil Then Dec(Result) Else Exit;
    While P^ <> #0 do Begin
      While (P^ <> #0) and (P^ <= ' ') do Inc(P);
      B := False;
      If P^ <> #0 Then Inc(Result);
      While (P^ <> #0) and ((P^ > ' ') or B) do Begin
        If P^ = scQuoteChar Then B := not B;
        Inc(P);
      End;
    End;
  End;

Function ParamStr(Index: LongInt): WideString;
  Var P, P2: PWideChar;
    B: Boolean;

  Begin
    If Index = 0 Then Begin
      _SetLength(Result, MAX_PATH, slUnique);
      _SetLength(Result, GetModuleFileNameW(0, Pointer(Result), MAX_PATH));
      Exit;
    End Else If Index < 0 Then Inc(Index);
    P := GetCommandLineW;
    If P <> nil Then
      While P^ <> #0 do Begin
        While (P^ <> #0) and (P^ <= ' ') do Inc(P);
        P2 := P;  B := False;
        While (P2^ <> #0) and ((P2^ > ' ') or B) do Begin
          If P2^ = scQuoteChar Then B := not B;
          Inc(P2);
        End;
        If (Index = 0) and (P <> P2) Then Begin
          _SetLength(Result, P2 - P, slUnique);
          CopyMem(P, Pointer(Result), (P2 - P) * 2);
          DequotedStringV(Result);
          Exit;
        End;
        P := P2;
        Dec(Index);
      End;
    Result := '';
  End;

Function IsParam(Index: LongInt): Boolean;
  Var S: WideString;

  Begin
    S := ParamStr(Index);
    Result := (S <> '') and (S[1] in [WideChar('-'), WideChar('/')]);
  End;

Function GetParam(Index: LongInt): WideString;
  Var S: WideString;
    i: Integer;

  Begin
    S := ParamStr(Index);
    If (S = '') or not (S[1] in [WideChar('-'), WideChar('/')]) Then Begin
      Result := '';
      Exit;
    End;
    i := Pos('=', S);
    If i = 0 Then i := Length(S) + 1 Else Dec(i);
    Result := Copy(S, 2, i - 1);
  End;

Function FindParam(Param: WideString; CaseSensitive: Boolean): LongInt;
  Var i: Integer;
    S: WideString;

  Begin
    If not CaseSensitive Then Param := LowerCase(Param);
    For i := ParamCount downto 1 do Begin
      S := GetParam(i);
      If not CaseSensitive Then S := LowerCase(S);
      If Param = S Then Begin
        Result := i;
        Exit;
      End;
    End;
    Result := 0;
  End;

Function GetParamValue(Param: WideString; CaseSensitive: Boolean): WideString;
  Var i: Integer;

  Begin
    i := FindParam(Param, CaseSensitive);
    If i = 0 Then Result := ''
    Else Result := Copy(ParamStr(i), Length(GetParam(i)) + 1, MaxInt);
  End;

Delphi-Quellcode:

Const scQuoteChar = '"';

Procedure DequotedStringV(Var S: WideString; Typ: SLType = slReal);
  Var B: Boolean;
    i: Integer;

  Begin
    If S = scQuoteChar + scQuoteChar Then Begin  S := '';  Exit;  End;
    If (S <> '') and (S[1] = scQuoteChar) Then Begin
      Delete(S, 1, 1, Typ);
      B := True;
    End Else B := False;
    i := 1;
    While i <= _Length(S) do Begin
      If S[i] = scQuoteChar Then Begin
        Delete(S, i, 1, Typ);
        If (i > _Length(S)) or (S[i] <> scQuoteChar) Then Begin  B := not B;  Dec(i);  End;
      End Else If (i + 1 < _Length(S)) and (S[i] = '#')
        and (S[i + 1] <= #255) and (AnsiChar(S[i + 1]) in scHexCharSet)
        and (S[i + 2] <= #255) and (AnsiChar(S[i + 2]) in scHexCharSet) Then Begin
        S[i] := WideChar((scHexOrds[AnsiChar(S[i + 1])] shl 4) or scHexOrds[AnsiChar(S[i + 2])]);
        Delete(S, i + 1, 2, Typ);
      End;
      Inc(i);
    End;
  End;

[Uwe Raabe]

ParamCount funktioniert hier durchaus korrekt! Sowohl in der IDE als auch ohne.

Vielleicht das OS? (hier Vista x64)

[mkinzler]

Ist bei mir auch Vista x64
Komsich habe Projekt neu erzeugt, jetzt geht alles