ADS Stream lesen

[Luckie]

Ich versuche gerade einen ADS Stream zu lesne, nur leide rkommt da bei mir nur Mist raus. Einen ADS Stream kann man sich zum Beiepil mit Notepad anzeigen lassen:

Code:

notepad tscc.exe:Zone.Identifier

Wobei die Zeichenfolge hinter dem Doppelpunkt der ADS-Name ist. Wenn man Dateien mit dem IE runterläd wird ein ADS Stream mit dem Namen Zone.Identifier angehangen mit dem Inhalt:

Zitat:

[ZoneTransfer]
ZoneId=3

Wenn ich versuche den ADS Stream von der gleichen Datei so auszulesen:

Delphi-Quellcode:

function TMpuADS.GetDataStream(const StreamName: WideString; StreamSize: Int64): WideString;
var
  hFile             : THandle;
  ReadBuffer        : WideString;
  BytesRead         : DWORD;
begin
  hFile := CreateFileW(PWideChar(FFilename), GENERIC_READ, FILE_SHARE_READ, nil,
    OPEN_ALWAYS, 0, 0);
  if hFile <> INVALID_HANDLE_VALUE then
  begin
    Setlength(ReadBuffer, StreamSize);
    if ReadFile(hFile, ReadBuffer[1], StreamSize, BytesRead, nil) then
      SetString(Result, PWideChar(ReadBuffer), StreamSize)
    else
    begin
      CloseHandle(hFile);
      raise Exception.CreateFmt(rsExceptionTemplate, [GetLastError, SysErrorMessage(GetLastError)]);
    end;
    CloseHandle(hFile);
  end;
end;

IN FFilename steht deer Pfad, Exename und der ADS-Name korrekt drinne.
Bekomme ich allerdings nur Datenmüll:
[code]?????????????er :$DATA ???[quote]
Das $DATA hing anfangs noch am ADS-Namen dran, das hab eich abgeschnitte. Was mache ich da falsch?

[marabu]

Hallo Michael,

schau mal:

Delphi-Quellcode:

var
  s: string;
begin
  with TFileStream.Create(fn, fmOpenRead) do
  try
    SetLength(s, Size);
    Read(s[1], Size);
    ShowMessage(s);
  finally
    Free;
  end;
end;

Der Alternate Data Stream wird vom IE nicht als Unicode geschrieben. Ob du $DATA anhängst oder nicht ist egal - $DATA ist Default.

Gute Nacht

[Luckie]

Zitat:

Zitat von marabu

Der Alternate Data Stream wird vom IE nicht als Unicode geschrieben. Ob du $DATA anhängst oder nicht ist egal - $DATA ist Default.

:wall:

Ich bin davon ausgegangen, da alle anderen Funktionen Unicode-Strings erwarten und verarbeiten und es NTFS ist und es ab Windows 2000 ADS gibt, dass zumindest Microsoft Software selber Unicode zum Schreiben benutzt. Aber das lehrt einen mal wieder, dass man sich auf Microsoft nicht verlassen kann. Besten Dank, das war es.

[_frank_]

hi luckie,
veröffentlichst du das Programm (evtl. inkl. Code) später als Freeware, wenn du es fertig hast?
wäre sehr daran interessiert, nach ADS zu suchen, auszulesen/exportieren, löschen, etc.

Gruß Frank

[richard_boderich]

@_frank_

So etwas gibt es schon.

http://www.delphipraxis.net/internal...667&highlight=

mfG Richard

[Luckie]

Aber nicht als Opensource. Meins wird aber definitiv Opensource. ;) Kommt in den nächsten zwei drei Stunden.

[Luckie]

Here we go: ADSReader

[suni]

Hallo Luckie... :)
Wie könnte ich anhand deine routine denn jetzt zum beispiel prüfen ob der ADS Stream "xyz" existiert ? :oops:

[Luckie]

Lad dir mein Programm runter und guck dir die Klasse an.