Zitat von
himitsu:
PS: hab dat OR ma ausgetauscht ._. (siehe oben)
Jupp. Ich hatte nämlich wieder 512 Byte raus.
Jetzt bin ich bei einem MB, wenn die beiden Clustergrößen 512 Byte sind.
Jetzt bin ich wieder bei meinem dynamischen Array mit
SetLength und er liest immer -1 Byte:
BytesRead := FileRead(hFile, MemBuffer[0], Min(sizeof(MemBuffer[0]) * length(MemBuffer), BytesToRead));
Delphi-Quellcode:
function FileRead(
Handle: Integer;
var Buffer; Count: LongWord): Integer;
begin
if not ReadFile(THandle(
Handle), Buffer, Count, LongWord(Result),
nil)
then
Result := -1;
end;
Nachtrag: var Buffer hat ihn FileRead den Wert
no Value.
