Frodo_Torbins
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: TSection = packed record
Type: Integer;
InnerSections: Integer;
Ofset: Integer;
Length: Integer;
end;
//Читаем заголовок в цикле
for i := 1 to SectionsCount do
File.Read(Sections[i], SizeOf(TSection));
//Секция с картинкой
TImageSection = packed record
Format: String[3];
Name: String[40];
Length: Integer;
//Data - картинка может иметь переменную длину, поэтому ее читаем отдельно
end;
//Таких типов столько, сколько у вас может быть типов секций
//Читаем картинку
File.Read(Image, SizeOf(TImageSection));
SetLength(Buf, Image.Length);
File.Read(Buf[0], Length(Buf));//Data |
|
