Und noch ein Problem: Kann aus TFilestream nicht lesen

**alldelphinator**

also... mein 2. Problem in dieser Stunde

Diesmal liefert

Delphi-Quellcode:

			function TXORStream.Read(var Buffer; Count: Integer): Integer;

var

  I: Integer;

  s : array of byte;

begin

  setlength(s, count);

   result := FStream.Read(s[0], count);

  for I := 0 to result -1 do

  begin

    s[i] := s[i] xor (ord(PW[((FStream.Position-result+I) mod length(PW))+1]));

  end;

  move(s[0], Buffer, result);

end;

immer 0 zurück. FStream ist als TStream deklariert, jedoch mit
FStream := TFileStream.Create(Filename, fmOpenReadWrite OR fmShareExclusive); initialisiert worden. FStream.Size liefert den korrekten Wert, Position steht auch auf null. Nun frag ich mich: warum kann ich nicht aus dieser Datei lesen?? (bzw. bekomme keine Daten)

Und noch ein Problem: Kann aus TFilestream nicht lesen

Und noch ein Problem: Kann aus TFilestream nicht lesen

Forumregeln