Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 05-05-2006
nenufer nenufer is offline
Miembro
 
Registrado: dic 2005
Posts: 90
Poder: 19
nenufer Va por buen camino
Unhappy idudpserver

Hola a todos!! Tengo un problema q me trae de cabeza y la verdad espero que podais ayudarme. Tengo 2 tablas en interbase, Tabla1 con unos campos, ej.--> codigo ,nombre,domicilio,descripcion y tabla2 con 2 campos --> fecha y nombreBorrado.
Tengo una libreria con su udf en interbase hexa
En delphi dos grids con sus navigator cada uno y lo que quiero es que cuando
inserte,modifique o borre, en tabla1, cualquier registro me actualice la tabla2 con el nombre que se ha borrado,modificado o insertado y la fecha y hora cuando se realizo.
En los triggers de la tabla1(insert,update y delete) tengo

Código SQL [-]
AS
  declare variable aux integer;
BEGIN
  /* Trigger body */
 insert into "Tabla2"("descripcion","fecha")
 values  ('Nuevo: ' || new."nombre" || ' Viejo: ' || old."nombre"
  ,current_timestamp);
// udf le paso un puerto y un mensaje.
 aux = "Mensaje"('4031', 'Recibido');
END

y asi para borrado e insercion. Pero si es un insert solo new.nombre y si es borrado solo ol.nombre con la fecha las dos.

Tengo en delphi un idudpserver y hago lo siguiente:

Código Delphi [-]
procedure TfrmPrueba.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var
  ST : TStringStream;
begin
  ST := TStringStream.Create('');
  try
    // lectura de la trama enviada
    ST.CopyFrom(AData, AData.Size);
    ShowMessage(ST.DataString);
    // refresco de tablas
    Dtstabla2.Close;
    Dtstabla2.Open;
  finally
    ST.Free;
    ST := nil;
  end;
end;

Deberia de salirme el mensaje y al momento actualizar en tabla2 ,verdad? No me hace nada de esto y no se si lo estoy hacienod bien o que.

Las propiedades que tengo rellenas en el idudpserver son defaultport := 4031 y el active a true y el broadcasenable a true;

si alguien me puede ayudar,buff muxisimas gracias.
No se si se entendera espero que si.
gracias
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Ayuda con IdUdpServer nenufer Varios 2 05-05-2006 09:10:00
Ayudan con IdUDPServer y IdUDPClient chabbertd Internet 0 26-07-2003 17:32:03


La franja horaria es GMT +2. Ahora son las 10:19:54.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi