Funciones para bloqueo/desbloqueo en paradox

[luisreg]

Hola a todos, estoy realizando un aplicacion en delphi 6 con tablas paradox, y la quiero poner en red, ya me lei el articulo de paradox en red y todo lo que indica ya lo tengo pero lo que no he podido conseguir es obtener el bloqueo de registros, aqui es donde estoy batallando porque no se como hacerle para bloquear o desbloquear registros en paradox , alguien me puede decir como le puedo hacer.

Agradeceria si alguien me ayuda

saludos...

[[Lepe]]

Un registro queda bloqueado cuando un usuario lo está editando. En este caso lo que puedes hacer, es usar un mensaje para informarlo.


Para bloquear y desbloquear he encontrado esto, pero hasta ahora no he visto bajo que circunstancia funciona (falta de tiempo)

function TDTM.RegistroBloqueado(Table1 : TTable): Boolean;
var
  Blokeado:LongBool;
begin
  with Table1 do
  begin
    UpdateCursorPos;
    DbiIsRecordLocked(Handle,Blokeado);

  end;
result:=blokeado;
end;

procedure TDTM.ExpulsaUsuario(Table1 : TTable);
begin
  with Table1 do
  begin
    UpdateCursorPos;
    try
      Check( DbiRelRecordLock(handle,FALSE) );
    except
      showmessage('No se ha podido expulsar al usuario de la Base de Datos.');
    end;
  end;
end;

Para informar al usuario de que está bloqueado, mira este hilo, no tiene desperdicio bloqueados los registros

[luisreg]

Gracias Lepe me ha servido de mucho tu ayuda, ahora ya puedo bloquear y desbloquear registros, nos vemos.

saludos.