Чтение файла

[SpyHunter]

Хотел прочитать MIX файл (пмевдоархив из игры Command&Conquer), но у меня получилось прочитать инф. о количестве файлов а дальше никак. Если кто может то помогите!!!

[Jenizix]

а как читаешь???

вот так попробуй:

Код: Выделить всё

open "filename" for binary as 1
' тут читаеш....
close #1


читать нужно примерно так:

Код: Выделить всё

Get #1, , Str

[SpyHunter]

Мне необходимо создать запись- массив. Если интересно могу додогнать пример на Паскале:
Header : record
NumFiles : word; {Number of files in MIX}
DataSize : longint; {Size of body}
Index : array [1..NumFiles] of
record
ID : longint; {File ID}
Start : longint; {Offset of file from the start of the body}
Size : longint; {file size}
end;
end;
Поскольку я чайник то немогу понять как это сделать. Единственное что я мог прочесть это кол-во файлов.

[KDima]

Я его тоже немогу додогнать
Далее читаешь всё остальное.
Какие возникают трудности?
Код в студию?
Исходный MIX файл в студию.

[Inferno]

Мне необходимо создать запись- массив. Если интересно могу додогнать пример на Паскале:
Header : record
NumFiles : word; {Number of files in MIX}
DataSize : longint; {Size of body}
Index : array [1..NumFiles] of
record
ID : longint; {File ID}
Start : longint; {Offset of file from the start of the body}
Size : longint; {file size}
end;
end;
Поскольку я чайник то немогу понять как это сделать. Единственное что я мог прочесть это кол-во файлов.

Ндя грустно.
Это насколько я понял формат файла.

Код: Выделить всё

option explicit

Type FileHeader
  Numfiles as long
  DataSize as long
end type

Type FileInfo
   Id As long
   Start As long
   Size As long
end type


......
Dim fHeader as FileHeader
Dim fInfo() as FileInfo

open "filename" for binary as 1
  Get 1,,fHeader
  Redim finfo(fHeader.Numfiles )
  Get 1,,fInfo
close #1
.....




С типом переменныx не уверен