Форум программистов [Powered by Invision Power Board]

Код


В начале заголовок:

GRPHeader: record
  Sprites: LongInt;             //Количество спрайтов
  FullWidth: LongInt;           //Полная ширина изображения
  FullHeight: LongInt;          //Полная высота изображения
End;

По адресу $06  располагается SAT (Sprite Allocation Table) - таблица расположе-
ния спрайтов. Каждая запись имеет следующую структуру:

SATRecord: record
    OffsetLeft: Byte;           //Смещение спрайта от левого края изображения
    OffsetTop: Byte;            //Смещение спрайта от верхнего края изображения
    SpriteWidth: Byte;          //Ширина спрайта
    SpriteHeight: Byte;         //Высота спрайта
  Offset: LongInt;              //Смещение до данных спрайта
End;

Код


var
GprStream,NewStream: PStream;//Потоки для открытия и конвертирования спрайтов
  Sprites: LongInt;             //Количество спрайтов
  FullWidth: LongInt;           //Полная ширина изображения
  FullHeight: LongInt;          //Полная высота изображения
  OffsetLeft: Byte;           //Смещение спрайта от левого края изображения
    OffsetTop: Byte;            //Смещение спрайта от верхнего края изображения
    SpriteWidth: Byte;          //Ширина спрайта
    SpriteHeight: Byte;         //Высота спрайта
  Offset: LongInt;              //Смещение до данных спрайта
  BMPHeader: RECORD             //Заголовок *.bmp формата(необходим для конвертирования)
               FullSize: LongInt;
               _H1: LongInt;
               _C1: LongInt;
               _C2: LongInt;
               X: LongInt;
               Y: LongInt;
               _C3: Word;
               _C4: Word;
               _H2: LongInt;
               _H3: LongInt;
               DataSize1: LongInt;     //DataSize=X*Y+2*Y
               DataSize2: LongInt;     //DataSize=X*Y+2*Y
               _C5: ARRAY[1..8]OF Byte;
             END;
inplemenation

Procedure OpenGpr(FileName: string;ProgressBar:PControl);
var
Binfo: longInt;
begin
GprStream:=NewReadFileStream(FileName);
ProgressBar.Position:=0;
ProgressBar.MaxProgress:=GprStream.Size;
ProgressBar.Position:=GprStream.Position;
GprStream.Seek(Binfo,spBegin);
While GprStream.Position < $06 do //Пока позиция не равна позиции SAT читаем Header
  begin
   GprStream.Read(Sprites,4);
   GprStream.Read(FullWidth,4);
   GprStream.Read(FullHeight,4);
  end;
 if GprStream.Position = $06 then
 repeat
  begin
  GprStream.Read(OffsetLeft,1);
  GprStream.Read(OffsetTop,1);
  GprStream.Read(SpriteWidth,1);
  GprStream.Read(SpriteHeight,1);
  GprStream.Read(Offset,4);
  {***расшифровка спрайта***}
 until
end;