Displaying 1 result from an estimated 1 matches for "pagesegments".
Did you mean:
page_segments
2002 Jul 12
0
Problem with checksums
...acked array of Byte;
TCharArray = packed array of Char;
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 Exceptio...