Foros Club Delphi - Funciones para bloqueo/desbloqueo en paradox

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - Funciones para bloqueo/desbloqueo en paradox (https://www.clubdelphi.com/foros/showthread.php?t=7873)

Funciones para bloqueo/desbloqueo en paradox

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...

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)

Código:

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

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

saludos.