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)