FindFirstStreamW auch ohne Vista

[himitsu]

Da hier grad soooo viele mit ADS (Alternate Data Stream) rumspielen
und FindFirstStreamW ja erst seit Windows Vista existiert,

hier ein kleiner "weitgehenst" kompatibler Ersatz.


Den Code hatte ich mir mal aus Teilen irgendwo im MSDN über-/zusammengesetzt und noch etwas überarbeitet/verändert,
aber wo alles genau her ist, daß weiß ich ehrlich gesagt nicht mehr ... hatte das mal vor über 'nem halben Jahr verbrockt (jedenfalls steht das Änderungsdatum der Datei, wo das mit drin ist, auf dem 05.03.2007 ... dat ist also wesentlich älter)

Tut mir Leid für alle die sich da jetzt selbst per BackupRead und Co. durchgewurschtelt haben,
aber warum habt ihr denn nicht irgendwas gesagt?


So, hier noch ein Beispielcode:

Delphi-Quellcode:

Var FindStream: THandle;
  FFStream: WIN32_FIND_STREAM_DATA;


FindStream := FindFirstStreamW(PWideChar(Dateiname),
  FindStreamInfoStandard, @FFStream, 0);
If FindStream <> INVALID_HANDLE_VALUE Then Begin
  While True do Begin

    {Streamname} := PWideChar(@FFStream.StreamName)

    If not FindNextStreamW(FindStream, @FFStream) Then Begin
      If GetLastError <> ERROR_NO_MORE_FILES Then {Error};
      Break;
    End;
  End;
End Else If GetLastError <> ERROR_NO_MORE_FILES Then {Error};
FindCloseStream(FindStream);

und das Ganze in einer Funktion, welche auch nur die "reinen" Streamnamen ausgibt:
(ich hoff es geht ... hab's jetzt nur auf einem alten Projekt rausgenommen und etwas umgeschrieben)

Delphi-Quellcode:

Type TWideStringArray = Array of WideString;

Procedure GetStreamNames(Const Filename: WideString;
  StreamNames: TWideStringArray): Boolean;

  Var i: Integer;
    FindStream: THandle;
    FFStream: WIN32_FIND_STREAM_DATA;

  Begin
    Result      := True;
    StreamNames := nil;
    FindStream  := FindFirstStreamW(PWideChar(Dateiname),
      FindStreamInfoStandard, @FFStream, 0);
    If FindStream <> INVALID_HANDLE_VALUE Then Begin
      While True do Begin
        If FFStream.StreamName[1] = ':' Then MoveMemory(@FFStream.StreamName,
          @FFStream.StreamName[2], SizeOf(FFStream.StreamName) - 1);
        i := LStrLenW(@FFStream.StreamName);
        If LStrCmpW(@FFStream.StreamName[i - 5], ':$DATA') = 0 Then
          FFStream.StreamName[i - 5] := #0;
        i := Length(StreamNames);
        SetLength(StreamNames, i + 1);
        Streamnames[i] := PWideChar(@FFStream.StreamName)
        If not FindNextStreamW(FindStream, @FFStream) Then Begin
          If GetLastError <> ERROR_NO_MORE_FILES Then Result := False;
          Break;
        End;
      End;
    End Else If GetLastError <> ERROR_NO_MORE_FILES Then Result := False;
    FindCloseStream(FindStream);
  End;

[edit] ups, Datei vergessen ._.
[edit2&3]Suchwörter wie "Alternate Data Stream" und "alternative Datenströme" oder "NTFS" mit im Text eingebaut
[letztes edit]Beispiele hinzugefügt