TFIleStream Read füllt Buffer nicht

[EWeiss]

Zitat:

BlockRead

Hmmm hört sich interessant an denn ich habe 2 Blöcke die ich nacheinander lesen muss.

Ist beides das selbe der einzige unter schied ist dieser.

Delphi-Quellcode:

//Buffer 2

        BufferSize := FileStream.Size - anih.offset - sizeof(anih) + 1;
        SetLength(sBuffer, BufferSize);
        FileStream.Seek(anih.offset - 1, soBeginning);
        FileStream.Read(sBuffer[0], integer(BufferSize));

//Buffer 1

        BufferSize := anih.offset - 1;
        SetLength(sBuffer, BufferSize);
        FileStream.Seek(0, soBeginning);
        FileStream.Read(sBuffer[0], integer(BufferSize));

Vielleicht könnte man das mit BlockRead verkürzen.

gruss