Displaying 1 result from an estimated 1 matches for "pagebody".
2002 Jul 12
0
Problem with checksums
...ar;
TOggPageHeader = packed record
CapturePattern: packed array [1..4] of Char;
StreamStructureVersion,
HeaderTypeFlag: Byte;
AbsolutePosition: Int64;
StreamSerialNumber,
PageSequenceNumber,
Checksum: Cardinal;
PageSegments: Byte;
SegmentTable: TByteArray;
PageBodyLength: Cardinal;
end;
procedure ChecksumCalc(var CRC: Cardinal; buffer: Pointer; size:
Cardinal); pascal; external;
[...]
InStream.Read(PageHeader, 27);
I := 0;
if (PageHeader.CapturePattern <> 'OggS') then
raise Exception.Create('Not a valid Ogg stream');
if P...