TFIleStream Read füllt Buffer nicht

[himitsu]

Dann ist Seek/Position wohl hinter das Dateiende gelangt. :stupid:

Darum gibt es BlockRead bzw. TStream.ReadBuffer, wenn man das selber nicht prüfen mag.

[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

[himitsu]

Verkürzen...

http://docwiki.embarcadero.com/Libra....IOUtils.TFile
Es fehlt nur noch ein ReadBytes, dem man einen Offset+Lenght geben kann.