root/trunk/FileInString.pas

////////////////////////////////////////////////////////////
//            Êëàññ äëÿ ðàáîòû ñ ôàéëîì, êàê              //
//                ñ ïàñêàëåâñêîé ñòðîêîé                  //
//                        v 1.5                           //
//                                                        //
//              Copyright (C) 2007 Gipat Group            //
//          Ðàñïðîñòðàíÿåòñÿ íà óñëîâèÿõ LGPL 2.1         //
//                  ñì. ôàéë lgpl.txt                     //
//                                                        //
//                   www.gipatgroup.org                   //
////////////////////////////////////////////////////////////

//Ê ðàáîòå íàä äàííûì ôàéëîì ïðèëîæèëè ðóêè, íîãè.... êîðî÷å àôôòàðû:
// 1) Sagrer (sagrer@yandex.ru)

////////////////////////////////////////////////////////////////////////

unit FileInString;

{$IFDEF FPC}  
  {$mode objfpc}
{$ENDIF FPC}

{$H+}

interface

uses
  Windows, SysUtils, Forms, Dialogs, Classes;
  
const
  //Êîäû äëÿ OutputMessagesMode
  FIS_Output_none = 0;        //Íå âûâîäèòü ìåññàãè.
  FIS_Output_GUI = 1;         //Âûâîäèòü îêîøêè â GUI.
  FIS_Output_Console = 2;     //Âûâîäèòü î îøèáêàõ â êîíñîëü.

type
  TFileInString = Class (TObject)                //Êëàññ äëÿ çàãðóçêè ôàéëà â ñòðîêó è ñîõðàíåíèÿ. + ðàáîòà ñî ñòðîêîé.
  public
    //Ïåðåìåííûå
    OutputMessagesMode : Integer;                //Êóäà âûâîäèòü ìåññàãè î îøèáêàõ - â GUI / â êîíñîëü / â íèêóäà.
    FileString : AnsiString;                     //Òóò õðàíèòñÿ ñîáñíî çàãðóæåííàÿ èíôà.
    FirstLoaded : boolean;                       //Ïðèçíàê òîãî ÷òî êàêàÿ-ëèáî èíôîðìàöèÿ êîãäà-ëèáî çàãðóæàëàñü.
    //Êîíñòðóêòîðû-äåñòðóêòîðû
    constructor Create; virtual;                            //Êîícòðóêòîð  %).
    Destructor Destroy; override;                           //Òèïà äåñòðóêòîð.
    //Ìåòîäû
    Function Siz : Integer;                      //Ïîëó÷èòü ðàçìåð çàãðóæåííîé èíôû.
    Function Load(const FName : AnsiString) : boolean; virtual; //Çàãðóçèòü èç ôàéëà.
    Procedure Save(const FName : AnsiString);                   //Ñîõðàíèòü â ôàéë.
    Procedure MakNewFile(); virtual;                              //"Ñîçäàòü íîâûé ôàéë" %).
    Procedure AddChar(const ch : char);                         //Äîáàâèòü ñèìâîë.
    Procedure AddByte(const bt : byte);                         //Äîáàâèòü áàéò.
    Function ReadStr(const FirstByte, BytesRead : Integer) : AnsiString;    //Ïðî÷èòàòü ñòðîêó.
    Procedure LoadFromResource(const ResName, ResType : PChar);             //Çàãðóçèòü èíôó èç ðåñóðñà.
  end;  

implementation

////////////////////////////////////////
//           TFileInString            //
////////////////////////////////////////

//------------------------------------//
//      Êîíñòðóêòîðû-äåñòðóêòîðû      //
//------------------------------------//

Constructor TFileInString.Create;
//Êîíóòðóêòîð  %).
begin
  FirstLoaded := false;
  FileString := '';
  SetLength(FileString,0);
  OutputMessagesMode := FIS_Output_none;      //Ïî óìîë÷àíèþ âûâîä â íèêóäà.
end;

Destructor TFileInString.Destroy;
begin
  //Òèïà äåñòðóêòîð.
  SetLength(FileString,0);
  inherited;
end;

//------------------------------------//
//             Ìåòîäû                 //
//------------------------------------//

Function TFileInString.Siz : Integer;
//Ïîëó÷èòü ðàçìåð çàãðóæåííîé èíôû.
begin
  Result := Length(FileString);
end;

Function TFileInString.Load(const FName : AnsiString) : boolean;
//Çàãðóçèòü èç ôàéëà.
var
  DataFile: THandle;
  FileSize: DWORD;
  Resultt : integer;
begin
  Result := false;
  FileString := '';
  Resultt := 0;
  //Ïðîöåäóðà çàãðóçêè â ñòðîêó.
  //Îòêðûâàþ ôàéë è ïîëó÷àþ åãî ðàçìåð.
  //Êñòàòè ïðîâåðÿþ ôàéë íà åãî íàëè÷èå :).
  If FileExists(FName) = true then begin
    DataFile := FileOpen(FName, fmOpenRead or fmShareDenyNone);
    if DataFile = 0 then
      if OutputMessagesMode = FIS_Output_GUI then begin
        Application.MessageBox(PChar('Error, loading'+FName),'Error',MB_OK or MB_ICONERROR);
      end
      else if OutputMessagesMode = FIS_Output_Console then begin
        Writeln('Error, loading'+FName);
      end;
    try
      FileSize := GetFileSize(DataFile, nil);
      SetLength(FileString, FileSize);
      ReadFile(THandle(DataFile),Pointer(FileString)^,FileSize,LongWord(Resultt),nil)
    finally
      CloseHandle(DataFile);
    end;
    FirstLoaded := true;
    Result := true;
  end
  else begin
    //Íàîðàòü íà þçâåðÿ (èëè ïðîãðàììåðà), ÷òî ôàéëà íåòó!
    if OutputMessagesMode = FIS_Output_GUI then begin
      ShowMessage('Îøèáêà! Òèïà íå ìîãó îòêðûòü ôàéë '+FName+', ò.ê. îòêðûâàòü òî íå÷åãî. Ïðîâåðüòå ïóòè.');
    end
    else if OutputMessagesMode = FIS_Output_Console then begin
      Writeln('Error, cant load file'+FName+'because file is not exists! Check paths!');
    end;
  end;
end;

procedure TFileInString.Save(const FName : AnsiString);
//Ñîõðàíèòü â ôàéë.
var
  DataFile: THandle;
  FileSize: DWORD;
  Resultt : integer;

begin
  //Ïðîöåäóðà ñåéâà èç ñòðîêè..
  Resultt := 0;
  If Siz <> 0 then begin
    if FirstLoaded = true then begin
      //Åñëè åñòü ÷åãî ñîõðàíÿòü, òî ïîãíàëè.
      if (DirectoryExists(ExtractFilePath(FName)) = false) and (ExtractFilePath(FName) <> '') then begin
        //Åñëè ïàïêè äëÿ ôàéëà íåò, òî ïîïðîáîâàòü ñîçäàòü åå...
        ForceDirectories(ExtractFilePath(FName));
      end;
      //Åñëè ñòàðûé ôàéë åñòü - ñîçäàòü ïóñòîé íà åãî ìåñòå.
      DataFile := CreateFile(PChar(FName),GENERIC_READ or GENERIC_WRITE,0,nil,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,0);
      //DataFile := FileOpen(FName, fmOpenWrite or fmShareDenyWrite);
      if DataFile = 0 then
        if OutputMessagesMode = FIS_Output_GUI then begin
          Application.MessageBox(PChar('Error, Saving'+FName),'Error',MB_OK or MB_ICONERROR);
        end
        else if OutputMessagesMode = FIS_Output_Console then begin
          Writeln('Error, Saving'+FName);
        end;
      try
        FileSize := siz;
        WriteFile(THandle(DataFile),Pointer(FileString)^,FileSize,LongWord(Resultt),nil)
      finally
        CloseHandle(DataFile);
      end;
      FirstLoaded := true;
    end
    else begin
      //Åñëè ñîõðàíÿòü íå÷åãî, òî ãðîìêî çàðóãàòüñÿ!
      if OutputMessagesMode = FIS_Output_GUI then begin
        ShowMessage('ÅÏÒÛÒÜ!..., êàðî÷å â îáüåêò êëàñà åùå íè ðàçó íè÷å íå ãðóçèëîñü! À ñîõðàíÿòü òî ÷åãî áëèí??? Òèïà îøèáêà, íè÷å íå ñîõðàíèëîñü :(');
      end
      else if OutputMessagesMode = FIS_Output_Console then begin
        Writeln('ERROR! Nothing loaded into TFileInString class''s object! Nothing to save!');
      end;
    end;
  end
  else begin
    //Åñëè ôàéë ïóñòîé (0 áàéòîâ)

    //try
      DataFile := CreateFile(PChar(FName),GENERIC_READ or GENERIC_WRITE,0,nil,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,0);
    //finally
      CloseHandle(DataFile);
    //end;
  end;
end;

Procedure TFileInString.MakNewFile();
//"Ñîçäàòü íîâûé ôàéë" %).
begin
  //ÏðîöåÄóðêà äëÿ "ñîçäàíèÿ" ôàéëà - ÷òîá íîâûé äåëàòü ìîæíî áûëî.
  FirstLoaded := true;
  SetLength(FileString,0);
  FileString := '';
end;

Procedure TFileInString.AddChar(const ch : char);
//Äîáàâèòü ñèìâîë.
begin
  //Ïðîöåäóðà äîáàâêè áàéòà â ñòðîêó â âèäå ÷àðà.
  FileString := FileString+ch;
end;

Procedure TFileInString.AddByte(const bt : byte);
//Äîáàâèòü áàéò.
begin
  //Ïðîöåäóðà äîáàâêè áàéòà â ñòðîêó â âèäå áàéòà...
  FileString := FileString+char(bt);
end;

Function TFileInString.ReadStr(const FirstByte, BytesRead : Integer) : AnsiString;
//Ïðî÷èòàòü ñòðîêó.
var
  TempInt, LastByte : Integer;
begin
  //Ïðî÷èòàòü ñòðîêó íà÷èíàÿ ñ íóæíîãî áàéòà.
  //è ïî êîíå÷íûé áàéò.
  TempInt := Length(FileString);
  LastByte := FirstByte+BytesRead;

  If LastByte <= TempInt+1 then begin
    //Òîëüêî åñëè LastByte íå âûëåçëî çà ïðåäåëû ôàéëà.
    //(òî÷íåå çà ïðåäåëû ïåðåìåííîé - â òó ÷àñòü ïàìÿòè, êóäà ëåçòü íå ïîëîæåíî)
    //àòî âèíäà ïîêàæåò ñèíèé ýêðàí÷èê :).
    SetLength(Result,LastByte-FirstByte);
    Result := Copy(FileString,FirstByte,BytesRead);
    SetLength(Result,LastByte-FirstByte);
  end
  else begin
    result := '';
  end;  
end;

Procedure TFileInString.LoadFromResource(const ResName, ResType : PChar);
//Çàãðóçèòü èíôó èç ðåñóðñà.
var
  R : HRSRC;
  G : HGlobal;
  P : PChar;
  Sz : DWORD;
  E : Integer;
  
begin
  //Ôóíêà äëÿ çàãðóçêè èíôû â ôàéë èç ðåñóðñà, ïðèñîáà÷åííîãî ê ýêçåéíèêó.
  
  //×èòàåì % )). Ñäåëàíî àíàëîãè÷íî òîìó êàê ñäåëàíî â KOL.
  R := FindResource( HInstance, ResName, ResType );
  if R <> 0 then
  begin
    Sz := SizeofResource( HInstance, R );
    G := LoadResource( HInstance, R );
    if G <> 0 then
    begin
      P := GlobalLock( G );
      if P = nil then
      begin
        E := GetLastError;
        if E = ERROR_INVALID_HANDLE then
           P := Pointer( G )
        else
           Exit;
      end;
      SetLength(FileString,Sz);
      CopyMemory(@FileString[1],P,Sz);
      if P <> Pointer( G ) then GlobalUnlock( G );
      //FreeResource( G );
      { from Win32.hlp: "You do not need to call the FreeResource
        function to free a resource loaded by using the LoadResource
        function." }
    end;
  end;
end;

end.