unit TablasBloqueo;

interface
uses dbtables,dbiProcs,Dialogs;

function DesbloqueaTabla(Tabla:TTable):Boolean;
procedure PackDBF(Const ADatabase, ATable : String);
implementation

procedure PackDBF(Const ADatabase, ATable : String);
Begin
	with TTable.Create(nil) do
   try
//    ShowMessage('Error al compactar '+ ADatabase+'  '+ATable);
   	DatabaseName := ADataBase;
     TableName := ATable;
     Exclusive := True;
     Open;
     Check(DbiPackTable(Database.Handle,Handle,'','',True));
//   except
//   ShowMessage('Error al compactar '+ ATable);

   finally
   	Free;
   end;
End;




function DesbloqueaTabla(Tabla:TTable):Boolean;
begin

      with Tabla do
     begin
       UpdateCursorPos;
       Check( DbiRelRecordLock(handle,TRUE) );
     end;


end;

end.