Stack Overflow en español Asked by Horacio Martinazzi on December 4, 2021
Esta aplicación se ejecuta en una tablet, dentro de una red.
Tengo un Botón que agrega un registro a una tabla:
procedure TTurnosList.CornerButton1Click(Sender: TObject);
begin
with D_Turnos do
begin
TurnosSocios.Insert;
TurnosSociosCod_Socio.Value := SociosCod_Socio.Value;
Cod_Socios_Esperando.Add(IntToStr(D_Turnos.SociosCod_Socio.Value));
TurnosSocios.Post;
TurnosSocios.ApplyUpdates();
TurnosSocios.CommitUpdates;
ConexionTurnos.Commit;
end;
end;
Por otra parte, desde otras PC’s pueden actualizar la misma tabla. Y con un TIdTCPServer
tengo que actualizar la vista de dicha tabla, que lo hago a continuación
procedure TD_Turnos.Tablet_IdTCP_ServerExecute(AContext: TIdContext);
var S: String;
begin
S := AContext.Connection.Socket.ReadLn;
if S <> ''
then
Begin
TurnosSocios.Close;
TurnosSocios.Open;
TurnosList.Cod_Socios_Esperando.Delete(StrToInt(S));
End;
end;
La pregunta es ¿Cómo los sincronizo para evitar conflictos?.
Get help from others!
Recent Questions
Recent Answers
© 2024 TransWikia.com. All rights reserved. Sites we Love: PCI Database, UKBizDB, Menu Kuliner, Sharing RPP