Распаковка формата

[Brutalus]

В таком случае в переменной BigInd будет лежать весь тот файл в HEX'e и в литтл индиане?

[Serge_Bliznykov]

В таком случае в переменной BigInd будет лежать весь тот файл в HEX'e и в литтл индиане?

разумеется, НЕТ!

Это пример чтения и перевода ОДНОЙ переменной (4 байта) из биг-эндиан в родной интеловский литл-эндиан.

а весь файл (в общем случае!!) вам и не нужно переводить! Там же не только числа могут быть. могут быть бинарные данные. строки, наконец. их конвертировать НЕ НУЖНО!

[Brutalus]

Так, уже есть некоторые успехи.

var
  Form1: TForm1;
  Header: String;
  Count: DWORD;
  SSFStream: TFileStream;
  ch: array[0..4] of Char;
implementation

{$R *.dfm}

function ReverseString(s: string): string;
var
  i: integer;
begin
  Result := '';
  if Trim(s) <> '' then
    for i := Length(s) downto 1 do
      Result := Result + s[i];
end;

function SwapEndian(Value: DWORD): DWORD; register; overload;
asm
  bswap eax
end;

procedure TForm1.btn_openssfClick(Sender: TObject);
begin
If FileExists(edit_ssfpath.Text) then
  Begin
  SSFStream:= TFileStream.Create(edit_ssfpath.Text, fmOpenReadWrite);
  SSFStream.Seek(0, soFromBeginning);
  SSFStream.Read(ch,4);
  SSFStream.Seek(12, soFromCurrent);
  SSFStream.Read(Count,4);
  Memo_Console.Lines.Add('Çàãîëîâîê "'+ReverseString(String(ch))+'" êîëëè÷åñòâî ôàéëîâ '+IntToStr(Count));
  SSFStream.Free;
  End;
end;

end.

Программа считывает всегдашнее начало ssf файла (53 45 43 20), и возможно корректно считывает количество файлов в архиве

[Brutalus]

Снова нужна помощь...

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    edit_ssfpath: TEdit;
    btn_openssf: TButton;
    Label1: TLabel;
    edit_header: TEdit;
    Memo_Console: TMemo;
    procedure btn_openssfClick(Sender: TObject);
    procedure GetFilesInfoFromSSF;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Header: String;
  Count, Size: DWORD;
  SSFStream: TFileStream;
  ch: array[0..4] of Char;
const
  BlockCount=1024;
  sBlockCount=2;
implementation

{$R *.dfm}

function ReverseString(s: string): string;
var
  i: integer;
begin
  Result := '';
  if Trim(s) <> '' then
    for i := Length(s) downto 1 do
      Result := Result + s[i];
end;

function SwapEndian(Value: DWORD): DWORD; register; overload;
asm
  bswap eax
end;

procedure TForm1.btn_openssfClick(Sender: TObject);
begin
If FileExists(edit_ssfpath.Text) then
  Begin
  SSFStream:= TFileStream.Create(edit_ssfpath.Text, fmOpenReadWrite);
  SSFStream.Seek(0, soFromBeginning);
  SSFStream.Read(ch,4);
  SSFStream.Seek(12, soFromCurrent);
  SSFStream.Read(Count,4);
  SSFStream.Read(Size,4);
  Memo_Console.Lines.Add('Заголовок "'+ReverseString(String(ch))+'" количество файлов '+IntToStr(Count)+' размер файла: '+IntToStr(Size));
  GetFilesInfoFromSSF;
  SSFStream.Free;
  End;
end;

procedure TForm1.GetFilesInfoFromSSF;
  var
  FileType:LongInt;
  FileOffset:LongInt;
  FileSize:LongInt;
  FileNameChr: array[0..23] of AnsiChar;
  FileIndex:LongInt;
begin
try
Begin
 for FileIndex := 0 to Count do
    Begin
    SSFStream.Seek(FileIndex*12,0);
    SSFStream.Read(FileType,4);    //Читаем тип файла
    SSFStream.Read(FileOffset,4);    //Читаем смещение файла
    SSFStream.Read(FileSize,4);   //Читаем размер файла
    Memo_Console.Lines.Add('Файл: Номер '+IntToStr(FileIndex)
      +'; Тип '+IntToStr(SwapEndian(FileType))
        +'; Размер '+IntToStr(SwapEndian(FileSize)*BlockCount)
          +'; Смещение '+IntToStr(SwapEndian(FileOffset)*BlockCount));

    End;
End;
end;


end.

Вот код. Почему-то выводит всякую фигню, помогите, исправьте. Вро де бы делал по той инфе что в первом посте.
Вот что прога выдаёт:
Заголовок "SEC " колличество файлов 13 размер файла: 16
Файл: Номер 0; Тип 541279571; Размер байт0; Смещение байт 0
Файл: Номер 1; Тип 3690987520; Размер байт0; Смещение байт 0
Файл: Номер 2; Тип 1586432; Размер байт536870912; Смещение байт 0
Файл: Номер 3; Тип 2158692608; Размер байт0; Смещение байт 1778511872
Файл: Номер 4; Тип 12060928; Размер байт1778511872;

Кроме того, он пробивает только 4 файла, а как показало первое считывание - их 13. Короче что-то я намутил...

[s-andriano]

Сообщение от Brutalus

Serge_Bliznykov, спасибо, я сам уже нашел.
Вопрос в том, как файл разом перевести в l-e.

Это невозможно.
В некоторых простых случаях, когда весь файл представляет собой однородный массив чисел известной разрядности - можно. А файл, имеющий внутреннюю структуру - нельзя.

[Brutalus]

Понятно .

[Brutalus]

Скажите, а как в Delphi 7 использовать UINT32? Компилер говорит, что такого типа нет.

[3D Hunter]

Это эквивалент типа Cardinal, 32-битовое число без знака.