Rückgabe von CommandLineToArgvW

[Luckie]

Folgender Code:

Delphi-Quellcode:

//type
  //TPWideCharArray = array[0..0] of PWideChar;
  //PPWideCharArray = ^TPWideCharArray;

  //function CommandLineToArgvW( lpCmdLine: PWideChar; var NumArgs: Integer): PPWideChar;
    //stdcall; external 'shell32.dll';

procedure GetCommandLineArgs(Args: TStrings);
var
  NumArgs: Integer;
  //TempArgs: PPWideCharArray;
  TempArgs: PPWideChar;
  i: Integer;
begin
  if CommandLineToArgvW(GetCommandLineW, NumArgs) <> nil then
  begin
    try
      try
        TempArgs := CommandLineToArgvW(GetCommandLineW, NumArgs);
        for i := 0 to NumArgs - 1 do
          Args.Add(TempArgs^[i]);
      except
        raise Exception.Create(SysErrorMessage(GetLastError));
      end;
    finally
      GlobalFree(THandle(TempArgs));
    end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  GetCommandLineArgs(ListBox1.Items);
end;

Wenn ich PPWideChar und die Funktion nicht selber deklariere, siehe auskommentierten Code, bekomme ich nicht die Argumente, sondern nur die ersten drei Zeichen des Pfades.

Was muss ich ändern, damit ich die Datentypen und die Funktion nicht selber deklarieren muss, damit es funktioniert?

Entwicklungsumgebung ist Delphi 7, also nix Unicode.

[samso]

Delphi-Quellcode:

        
        for i := 0 to NumArgs - 1 do
        begin
          Args.Add(TempArgs^);
          Inc(TempArgs);
        end;

[Luckie]

Danke funktioniert. Aber warum? Kannst du mir das auch noch erklären?

[Dezipaitor]

Der Rückgabewert ist ein Zeiger auf den ersten WideChar Zeiger. Also bei mir funkz das mit PPWideCharArray.

[Luckie]

Hm, OK. Dann habe ich nur den Zugriff versemmelt. ;)

Ja mit PPWideCharArray funktioniert es bei mir auch, nur ich wollte ohne die zusätzliche Deklaration auskommen.

[samso]

Ich habe nochmal darüber nachgedacht und mir ist aufgefallen, das der Code, so wie er von mir vorgeschlagen wurde, gleich zwei Memoryleaks produziert. Hier nun eine korregierte Fassung. (Ich gehe davon aus, das die Windows-Funktionen keine Exception erzeugen werden).

Delphi-Quellcode:

procedure GetCommandLineArgs(Args: TStrings);
type
  TPWideCharArray = array[0..0] of PWideChar;
var
  NumArgs: Integer;
  TempArgs: PPWideChar;
  i: Integer;
begin
  TempArgs := CommandLineToArgvW(GetCommandLineW, NumArgs);
  try
    if TempArgs <> nil then
    begin
      for i := 0 to NumArgs - 1 do
        Args.Add(TPWideCharArray(TempArgs^)[i]);
    end
    else
      RaiseLastOSError;
  finally
    GlobalFree(THandle(TempArgs));
  end;
end;

[Luckie]

Das heißt, dieser Code
http://www.michael-puff.de/Programmi...eToArgvW.shtml
verursacht Speicherlücken? Wo entstehen diese denn?

[Dezipaitor]

Ich habe auch was :)

1. CommandLineToArgvW verwendet LocalAlloc und daher sollte LocalFree verwendet werden (das macht aber in 32bit nichts mehr aus, da es dasselbe ist. Aber MSDN sagt es halt so

2. try/except ist hier garnicht notwendig, ja sogar total falsch, da GetLastError verwendet wird, was falsche Werte liefert, weil keine Winapi so eine Exception wirft (könnte auch eine AV sein)

3. Das Prüfen des Rückgabewertes von CommandLineToArgvW auf nil ist ein Fehler, denn hier wird Speicher alloziert, jedoch nicht freigegeben. Weiterhin gibt es nur zwei Fälle, die ein nil produzieren

• Zweiter Parameter ist nil. (GetLastError = ERROR_INVALID_PARAMETER)
• LocalAlloc kann kein Speicher allokieren. (GetLastError = ERROR_NOT_ENOUGH_MEMORY)

Es wäre also besser, den Rückgabewert in eine Variable zu speichern und dann zu prüfen oder sie zu verwenden.

[samso]

Der Code

Delphi-Quellcode:

procedure GetCommandLineArgs(Args: TStrings);
var
  NumArgs: Integer;
  TempArgs: PPWideChar;
  i: Integer;
begin
  if CommandLineToArgvW(GetCommandLineW, NumArgs) <> nil then
  begin
    try
      try
        TempArgs := CommandLineToArgvW(GetCommandLineW, NumArgs);
        for i := 0 to NumArgs - 1 do
        begin
          Args.Add(TempArgs^);
          Inc(TempArgs);
        end;
      except
        raise Exception.Create(SysErrorMessage(GetLastError));
      end;
    finally
      GlobalFree(THandle(TempArgs));
    end;
  end;
end;

erzeugt zwei Speicherlöcher:
Erstes Speicherloch:

Delphi-Quellcode:

if CommandLineToArgvW(GetCommandLineW, NumArgs) <> nil then

denn das Ergebnis wird nicht freigegeben (wie Dezipaitor schon richtig schreibt)

Zweites Speicherloch:

Delphi-Quellcode:

GlobalFree(THandle(TempArgs));

denn TempArgs ist nicht mehr gültig (wegen Inc()).

[Luckie]

Ok, danke für die Erklärung.