unit Extractor;

interface
uses Windows, SysUtils;

var
 VERSION:byte = 1;
 BufferSize:DWORD = 1048576;
 ArchiveIsPriority:boolean = false;

 //  Файл_есть_в_архиве & (Архив_приоеритетен | !Файл_есть_на_диске)

type
 PTextFile = ^TTextFile;

 TArchiveItem = record
   Name:array[0..255] of char;
   State:DWORD;                 //2 - Normal, 3 - LZW
   Offset:DWORD;
   Size:DWORD;
 end;

 TExtractor = class
 public
   Constructor Create;                                     //Создаем экземпляр объекта
   Destructor  Destroy; override;                          //Освобождением данных
   Procedure   LoadFromFile(const FileName:string);        //Загружаем архив
   Procedure   SetPath(const Path:string);                 //Устанавливаем абсолютный путь нахождения архива
   Function    GetCount:integer;                           //Получаем количество файлов в архиве
   Function    GetFileIndex(const FileName:string):integer;//Получаем индекс файла. Если файла в архиве нет, то -1
   Function    GetData(FileIndex:integer):Pointer;         //Получаем указатель на данные файла. Потом их надо освободить!
   Function    GetSize(FileIndex:integer):DWORD;           //Получаем размер файла
   Function    GetName(FileIndex:integer):string;          //получаем имя файла
 protected
   AbsolutePath:string;
   Count:integer;
   Items:array of TArchiveItem;
   FileHandle:integer;
 end;

 TSimpleFile = class
 public
   Constructor Create(const FileName:string);
   Destructor  Destroy();override;
   Function    EoF:boolean;
 protected
   Data:Pointer;
   Position:PByte;
   Size:DWORD;
 end;

 TTextFile = class(TSimpleFile)
 public
   Function    ReadString:string;
   Function    ReadTrimString:string;
 end;

 TIntegerFile = class(TSimpleFile)
 public
   Function    ReadInteger:integer;
 end;

implementation
uses Data;

{ TExtractor }

const
 ERR_OUTOFRANGE = 'File Index in DPG archive out of range';
 ERR_ENDOFFILE = 'Riched End Of File';

constructor TExtractor.Create;
begin
 FileHandle:=0;
 Count:=0;
 SetLength(Items,Count);
end;

destructor TExtractor.Destroy;
begin
 Count:=0;
 SetLength(Items,Count);
 if FileHandle<>0 then CloseHandle(FileHandle);
end;

function TExtractor.GetCount: integer;
begin
 Result:=Count;
end;

function TExtractor.GetData(FileIndex: integer): Pointer;
begin
 if (FileIndex<0) or (FileIndex>Count-1) then
   raise Exception.Create(ERR_OUTOFRANGE);
 Result:=AllocMem(Items[FileIndex].Size);
 FileSeek(FileHandle,Items[FileIndex].Offset,0);
 FileRead(FileHandle,Result^,Items[FileIndex].Size);
end;

function TExtractor.GetFileIndex(const FileName: string): integer;
var
 Index:integer;
 S:string;
begin
 S:=UpperCase(FileName);
 Result:=-1;
 for Index:=0 to Count-1 do
   if AbsolutePath+Items[Index].Name=S then begin
     Result:=Index;
     exit;
   end;
end;

function TExtractor.GetName(FileIndex:integer): string;
begin
 if (FileIndex<0) or (FileIndex>Count-1) then
   raise Exception.Create(ERR_OUTOFRANGE);
 Result:=Items[FileIndex].Name;
end;

function TExtractor.GetSize(FileIndex: integer): DWORD;
begin
 if (FileIndex<0) or (FileIndex>Count-1) then
   raise Exception.Create(ERR_OUTOFRANGE);
 Result:=Items[FileIndex].Size;
end;

procedure TExtractor.SetPath(const Path: string);
begin
 AbsolutePath:=UpperCase(Path);
end;

procedure TExtractor.LoadFromFile(const FileName: string);
var
 Vers:byte;
 Index:DWORD;
 S:string;
begin
 if FileHandle<>0 then begin
   FileClose(FileHandle);
   Count:=0;
   SetLength(Items,Count);
   AbsolutePath:='';
 end;

 FileHandle:=FileOpen(FileName,fmOpenRead);
 FileRead(FileHandle,Vers,sizeof(Vers));
 FileRead(FileHandle,Count,sizeof(Count));
 SetLength(Items,Count);

 for Index:=0 to Count-1 do begin
   FileRead(FileHandle,Items[Index],sizeof(TArchiveItem));
   S:=UpperCase(Items[Index].Name);
   CopyMemory(@Items[Index].Name[0],@S[1],Length(S));
 end;
end;

{ TTextFile }

constructor TSimpleFile.Create(const FileName: string);
var
 Index:integer;
 Handle:integer;
begin
 Index:=Archive.GetFileIndex(FileName);
 if (Index>-1) and (ArchiveIsPriority or not FileExists(FileName)) then begin
   Data:=Archive.GetData(Index);
   Size:=Archive.GetSize(Index);
 end
 else
 if FileExists(FileName) then
 begin
   Handle:=FileOpen(FileName,fmOpenRead);
   Size:=FileSeek(Handle,0,2);
   FileSeek(Handle,0,0);

   Data:=AllocMem(Size);
   FileRead(Handle,Data^,Size);
   FileClose(Handle);
 end
 else
   raise Exception.Create('File not found: \"'+FileName+'\"');
 Position:=Data;
end;

destructor TSimpleFile.Destroy;
begin
 FreeMem(Data,Size);
 inherited;
end;

function TSimpleFile.EoF: boolean;
begin
 Result:=Integer(Position)-Integer(Data)>=Size;
end;

function TTextFile.ReadString: string;
begin
 Result:='';
 if not EoF then begin
   while (not EoF) and (Position^<>13) do begin
     Result:=Result+chr(Position^);
     inc(Position);
   end;
   if not EoF then
     inc(Position,2);
 end
 else
   raise Exception.Create(ERR_ENDOFFILE);
end;

function TTextFile.ReadTrimString: string;
begin
 Result:=Trim(ReadString);
end;

{ TIntegerFile }

function TIntegerFile.ReadInteger: integer;
begin
 Result:=0;
 if not EoF then begin
   Result:=PInteger(Position)^;
   inc(Position,sizeof(Integer));
 end
 else
   raise Exception.Create(ERR_ENDOFFILE);
end;

end.

VERSION:byte = 1;
BufferSize:DWORD = 1048576;