Nein leider nicht, mit Streams habe ich noch nichts gemacht.
es knallt in der While-Schleife bei der zweiten Runde
Code:
while (BytesRead = BLOCK_SIZE ) do
begin
BytesToWrite := Min(Count, BLOCK_SIZE);
BlockRead(F, pTemp^, BytesToWrite , BytesRead );
pTemp := Pointer(LongInt(pTemp) + BLOCK_SIZE);
Count := Count-BytesRead;
end;
Speziell bei der Zeile:
Code:
BlockRead(F, pTemp^, BytesToWrite , BytesRead );