Распаковщик псевдо архивов

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DB, DBTables, ExtDlgs, ComCtrls, FileCtrl;
 
type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    ProgressBar1: TProgressBar;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Memo1: TMemo;
    Button4: TButton;
    OpenDialog1: TOpenDialog;
    OpenDialog2: TOpenDialog;
    SaveDialog1: TSaveDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    Edit1.Text:=OpenDialog1.FileName;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
  begin
  if OpenDialog2.Execute then
    Edit2.Text:=OpenDialog2.FileName;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var
path_dir: string;
begin
if SelectDirectory('Ïóòü ê ïàïêå ','C:\', path_dir) then
Edit3.Text:= (path_dir);
end;
 
procedure TForm1.Button4Click(Sender: TObject);
Var
  f,OutF : File;          //Íåòèïèçèðîâàííûé ôàéë
  StrList : TStringList;  //
  i,IL,II : Integer;      //Ïåðåìåííûå ñìåùåíèÿ
   BegPos : Integer;      // Íà÷àëî ïîçèöèè
   EndPos : Integer;      // Êîíåö ïîçèöèè
        s : String;
  OutFile : String;
      Buf : Array[0..65535] Of Byte;
begin 
  //×èòàåì òàáëèöó...
  StrList:= TStringList.Create;
  StrList.LoadFromFile(OpenDialog2.FileName);
 
  //Ñàìî ðàçðåçàíèå...
  AssignFile(f,OpenDialog1.FileName);
  Reset(f,1);
  For i:=0 To StrList.Count-1 Do
  Begin
    s:=StrList.Strings[i];
    BegPos:=StrToInt('$'+Copy(s,1,Pos('#',s)-1)); //Íà÷àëüíàÿ ïîçèöèÿ â èñõîäíîì ôàéëå
    Delete(s,1,Pos('#',s));
    EndPos:=StrToInt('$'+Copy(s,1,Pos('#',s)-1)); //Êîíå÷íàÿ ïîçèöèÿ â èñõîäíîì ôàéëå
    OutFile:=Copy(s,Pos('#',s)+1,Length(s)-Pos('#',s)); //Èìÿ âûõîäíîãî ôàéëà
 
    AssignFile(OutF,Edit3.Text+'\'+OutFile);
    Rewrite(OutF,1); //Ñîçäà¸ì ðåçóëüòèðóþùèé ôàéë â óêàçàííîé äèðåêòîðèè
 
    Seek(f,BegPos); //Óêàçàòåëü íà íà÷àëüíóþ ïîçèöèþ
    While BegPos<=EndPos Do
    Begin
      If (EndPos-BegPos)>65535 Then IL:=65536 Else IL:=EndPos-BegPos+1;
      BlockRead(f,Buf,IL,II);     //×èòàåì áëîê èç èñõîäíîãî ôàéëà
      BlockWrite(OutF,Buf,II);  //Ïèøåì áëîê â íîâûé ôàéë
      BegPos:=BegPos+II;
    End;
    CloseFile(OutF); //Çàêðûâàåì âûõîäíîé ôàéë
  End;
  CloseFile(f); //Çàêðûâàåì âõîäíîé ôàéë
StrList.Free 
end;
 
end.

Type
  Zap = Record
             NameF : Array[0..11] Of Byte;
             LengFile : Integer;
             BegPos : Integer;
           End;

fTable : File Of Zap;
 
Buf : Array[0..65535] Of Zap;

L:=Buf[10].LengFile;

Read(fTable,VarZap);

Var
  VarZap : Zap;
 
 
  BlockRead(fTable,VarZap,20,ii);
 
  L:=VarZap.LengFile;

procedure TForm1.Button2Click(Sender: TObject);
var
         f : file; //Нетипизированный файл
       Buf : Array[0..11] Of byte; //Выделяем буфер 12 байт.
         s : integer; //s Целое число
begin
  //Читаем файл...
  AssignFile(f,OpenDialog1.FileName);  //Открываем файл.
  Reset(f,1); // Устанавливаем размер блока (1 байт)
 
  Seek(f,4);           // Перепрыгиваем на 4 байта вперед.
  BlockRead(f,Buf,12); //Читаем следующих 12 байт из файла и записываем в буфер(buf).
  s:=IntToHex(Buf);    // Преобразовываем данные буфера в текст.
  Memo1.Lines.Add(s);  //Добавим преобразованный текст в Memo...
     end;
  CloseFile(f);        //Закрываем входной файл
end.

s:='';
For i:=Low(Buf) To High(Buf) Do s:=s+' '+IntToHex(Buf[i]);

{$WARN UNIT_PLATFORM OFF}

var
  Form1: TForm1;
  tmp: array of string;
 
 ...
 
(* Открываем файлы, которые нужно склеить *)
procedure TForm1.SelectStickFileClick(Sender: TObject);
var
  i: integer;
begin
   OpenDialog.Options := OpenDialog.Options + [ofAllowMultiSelect];
   if OpenDialog.Execute then
   begin
      // Устанавливаем длинну массива
      SetLength( tmp, OpenDialog.Files.Count );
      // Заполняем массив
      for i := Low( tmp ) to High( tmp ) do
         tmp[i] := OpenDialog.Files.Strings[i];
      // Обязательно сортируем
      Sort( tmp );
      // Выводим результат
      for i := Low( tmp ) to High( tmp ) do
         ListBoxForStick.Items.Add( tmp[i] );
      EditStickDir.Text := ExtractFilePath( OpenDialog.FileName );
   end;
end;

(* Функция для склейки файла *)
function StickFileStream( inFiles: array of string; outDir: string;
                          PB: TProgressBar = nil ): boolean;
var
  inStream: TFileStream;  // Входной файловый поток
  outStream: TFileStream; // Выходной файловый поток
  outFileName: string;    // Шаблон выходного имени файла
  recFirstFile: boolean;  // Признак записи первого файла
  i: integer;             // Цикловая переменная
begin
   // Инициализируем переменные
   if PB <> nil then
   begin
      PB.Position := 0;
      PB.Max := GetSizeAllFiles( inFiles );
   end;
   recFirstFile := false;
   outFileName := outDir + ExtractFileNameEx( inFiles[0] );
 
   // Здесь происходит склейка файлов
   for i := Low( inFiles ) to High( inFiles ) do
   begin
      inStream := TFileStream.Create( inFiles[i], fmOpenRead );
 
      // При записи первой части файла выходной файл создается,
      // при записи всех последующих выходной файл открывается на запись
      if recFirstFile then
         outStream := TFileStream.Create( outFileName, fmOpenWrite )
      else
      begin
         outStream := TFileStream.Create( outFileName, fmCreate );
         recFirstFile := true;
      end;
 
      outStream.Position := outStream.Size;
      outStream.CopyFrom( inStream, inStream.Size );
 
      if PB <> nil then
         PB.Position := outStream.Size + inStream.Size;
 
      outStream.Free;
      inStream.Free;
      Application.ProcessMessages;
   end;
 
   if PB <> nil then PB.Position := 0;
   Result := true;
end;