type
      type_ParametersOfEvents =record
      UserID                              :integer;   
      Path                                :string;     
      end;

function insertData(perParametersOfEvents:type_ParametersOfEvents):boolean;
var
  per_IBQuery:TIBQuery;
  Stm: TMemoryStream;
begin
      per_IBQuery.Active := False;
      per_IBQuery.SQL.Clear;
      per_IBQuery.SQL.Add('insert into LOGS '
                          + '(PARAMETERS '                  

                          + ')'
                          + ' values ('
                          + ':perID_USER '
                          + ')');


    Stm := TMemoryStream.Create( );
    try

       Stm.Write( perParametersOfEvents, sizeof(perParametersOfEvents) );


       Stm.Position := 0;
       per_IBQuery.ParamByName('perID_USER').LoadFromStream( Stm, ftBlob);
 
    finally
       FreeAndNil(Stm)
    end; // finally


      per_IBQuery.ExecSQL;
      fmConnectToBase.IBTransaction2.Commit;
      FreeAndNil(per_IBQuery); 
end;

function GetData(perID:integer):type_ParametersOfEvents;
var
  per_IBQuery:TIBQuery;
  stm: TStream;
begin
per_IBQuery.Active:=false;
per_IBQuery.SQL.Clear;
per_IBQuery.SQL.Add('select * from LOGS WHERE ID = :perID');  
if  perID=0 then per_IBQuery.ParamByName('perID').IsNull else  per_IBQuery.ParamByName('perID').AsInteger:=perID;
per_IBQuery.Active:=true;
per_IBQuery.Last;

stm := per_IBQuery.CreateBlobStream( per_IBQuery.FieldByName('PARAMETERS'), bmRead);
   try // finally
      stm.Position := 0;
      stm.Read( result, sizeof(result) );
   finally
      stm.Free;
   end;
end;