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)