Rückgabe von CommandLineToArgvW

[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:
if CommandLineToArgvW(GetCommandLineW, NumArgs) <> nil then denn das Ergebnis wird nicht freigegeben (wie Dezipaitor schon richtig schreibt)

Zweites Speicherloch:
GlobalFree(THandle(TempArgs)); denn TempArgs ist nicht mehr gültig (wegen Inc()).

[Luckie]

Ok, danke für die Erklärung.

[Garfield]

Zitat von samso:

Zweites Speicherloch:
GlobalFree(THandle(TempArgs)); denn TempArgs ist nicht mehr gültig (wegen Inc()).

Das sollte sich mit einem weiteren PPWideChar lösen lassen, welchem nach

TempArgs := CommandLineToArgvW(GetCommandLineW, NumArgs); der Wert von TempArgs zugewiesen wird.

[samso]

Ja, das ist wohl war. Es gibt viele Wege zum Ziel. Es geht auch so:

Delphi-Quellcode:

procedure GetCommandLineArgs(Args: TStrings);
var
  NumArgs: Integer;
  TempArgs, p: PPWideChar;
  i: Integer;
begin
  TempArgs := CommandLineToArgvW(GetCommandLineW, NumArgs);
  try
    if TempArgs <> nil then
    begin
      p := TempArgs;
      for i := 0 to NumArgs - 1 do
      begin
        Args.Add(p^);
        Inc(p);
      end;
    end
    else
      RaiseLastOSError;
  finally
    LocalFree(THandle(TempArgs));
  end;
end;

Gegenüber der Lösung in Antwort #6 sieht das hier zwar nicht so schön aus, dafür übersteht es aber eine Bereichsprüfung.

[Garfield]

Man muss Prioritäten setzen. Schönheit oder Korrektheit.

[Dezipaitor]

Naja, das try finally ist hier garnicht notwendig und macht es imo unübersichtlich. Besser sollte es weg und das LocalFree in die if-Bed mit rein.