Datei Header und Struktur?

[xSkaschY]

Zitat von shmia:

Die Verwendung von ReadBuffer anstelle von Read erspart dir das Prüfen, ob auch alle Bytes gelesen wurden

Dann bekomme ich ein "Stream-Lesefehler" an den Kopf geworfen.

Mein Code at the moment:

Delphi-Quellcode:

function readFile(sFilename: String): String;
var
        rPBOFile: TFileStream;
        sContent, sBuffer: String;
        iFileSize: Integer;
begin
        rPBOFile := TFileStream.Create(sFilename, fmOpenRead or fmShareDenyWrite);
        try
                iFileSize := rPBOFile.Size;
                {
                sContent := ExtractFileName(sFilename) + '
Filesize: ' + formatFilesize(iFileSize, true) + ' - Files in PBO: 0';
                sContent := sContent + '<hr />';
                }
                rPBOFile.ReadBuffer(sBuffer[1], iFileSize);

                //sContent := sContent + 'First match: [b]' + IntToStr(Pos(Chr(0), sBuffer)) + '[/b]

Filecontent:
';
                sContent := sContent + '<code>' + sBuffer + '</code>';
        finally
                Result := sContent;
                rPBOFile.Free;
        end;
end;

Streams können echt nervig sein.