[Lazarus-es] Resumen de Lazarus-es, Vol 60, Envío 14
MSc. Ing. Pedro Pablo Oviedo Vera (ENPA)
ppo.vera en enpa.minag.cu
Jue Sep 27 00:15:59 CEST 2012
Buen día Paola,
te comento aśi de rápido que Interbase/ firebird tiene la posibilidad
(en verdad estoy apelando a mi memoria...luego verificaré y te diré con
mayor seguridad.. ) de enviar una señal a los clientes cuando ocurre
algún tipo de actualización (copiar/eliminar/modificar) sobre la tabla
servidora...a través de los trigger..hace ya un tiempo que no trabajo
por esas coordenadas pero es una pista....
Saludos
pp
.El mié, 26-09-2012 a las 23:20 +0200,
lazarus-es-request en lists.lazarus.freepascal.org escribió:
> Envíe los mensajes para la lista Lazarus-es a
> lazarus-es en lists.lazarus.freepascal.org
>
> Para subscribirse o anular su subscripción a través de la WEB
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>
> O por correo electrónico, enviando un mensaje con el texto "help" en
> el asunto (subject) o en el cuerpo a:
> lazarus-es-request en lists.lazarus.freepascal.org
>
> Puede contactar con el responsable de la lista escribiendo a:
> lazarus-es-owner en lists.lazarus.freepascal.org
>
> Si responde a algún contenido de este mensaje, por favor, edite la
> linea del asunto (subject) para que el texto sea mas especifico que:
> "Re: Contents of Lazarus-es digest...". Además, por favor, incluya en
> la respuesta sólo aquellas partes del mensaje a las que está
> respondiendo.
>
>
> Asuntos del día:
>
> 1. ot: sistema admin de propiedades (Paola Bruccoleri)
> 2. actualizar grid automáticamente (Paola Bruccoleri)
> 3. Re: actualizar grid automáticamente (Jose Daboin)
> 4. Re: actualizar grid automáticamente (Paola Bruccoleri)
> 5. Re: actualizar grid automáticamente (Maikel Enrique Pernía Matos)
> 6. Re: actualizar grid automáticamente (Hilde Hansz)
> 7. Problemas con strings (Victor Garcia Tascon)
>
>
> ----------------------------------------------------------------------
>
> Message: 1
> Date: Wed, 26 Sep 2012 11:38:21 -0300
> From: Paola Bruccoleri <pbruccoleri en adinet.com.uy>
> Subject: [Lazarus-es] ot: sistema admin de propiedades
> To: Lista Lazarus <lazarus-es en lists.lazarus.freepascal.org>
> Message-ID: <5063135D.6070702 en adinet.com.uy>
> Content-Type: text/plain; charset=ISO-8859-1; format=flowed
>
> Hola todos..
> alguien tiene algún sistema (y un demo) para administración de
> propiedades? o sea más bien gestión de alquileres...
> El que sea, que me contacte a mi privado
> muchas gracias
> chauuuuuuuu
>
>
>
>
> ------------------------------
>
> Message: 2
> Date: Wed, 26 Sep 2012 16:33:13 -0300
> From: Paola Bruccoleri <pbruccoleri en adinet.com.uy>
> Subject: [Lazarus-es] actualizar grid automáticamente
> To: Lista Lazarus <lazarus-es en lists.lazarus.freepascal.org>
> Message-ID: <50635879.3090008 en adinet.com.uy>
> Content-Type: text/plain; charset=ISO-8859-1; format=flowed
>
> Hola todos..
>
> tengo una aplicación (programa1) siempre abierta, donde en un form hay
> un grid con datos de una tabla de firebird (es una tabla q se maneiene
> con muy pocos registros x eso no usé una consulta)
> A su vez hay otro programa (programa2) que carga items en esa misma tabla.
>
> Necesito que el gris del programa1 siempre esté mostrando los agregados
> q hace el programa2
> ¿La única forma que tengo de que ese grid vea reflejado constantemente
> esos agregados, es poniendo un timer que haga el refresh de la tabla? o
> de qué otra manera puede ser?
> tengo a la tabla, propiedad updateMode = umUpdateChanged
>
> Lo mismo me pasa en otro grid q está en ese form...
>
> Ahora he probado ejecutando los 2 programas en la misma máquina y el
> grid no se me actualiza si no salgo del programa1 y vuelvo a entrar.
>
> (uso componentes zeos 7, y Lazarus 0.9.31 r30432 FPC 2.5.1
> i386-win32-win32/win64... si, se que está desactualizado pero no he
> podido hacerlo)
>
> Agradezco cualquier pista
> muchas gracias
>
>
>
>
> ------------------------------
>
> Message: 3
> Date: Wed, 26 Sep 2012 15:35:25 -0430
> From: Jose Daboin <metalbox9000 en gmail.com>
> Subject: Re: [Lazarus-es] actualizar grid automáticamente
> To: Spanish version of Lazarus List
> <lazarus-es en lists.lazarus.freepascal.org>
> Message-ID:
> <CAAvkSmBV5=Qffz4sgGEZDj6w9_OjhVtxyUjhkO5BMDWgDpjmzA en mail.gmail.com>
> Content-Type: text/plain; charset="iso-8859-1"
>
> Te iba a decir que con un timer pero ya lo estas haciendo [?]
>
> El 26 de septiembre de 2012 15:03, Paola Bruccoleri <
> pbruccoleri en adinet.com.uy> escribió:
>
> > Hola todos..
> >
> > tengo una aplicación (programa1) siempre abierta, donde en un form hay un
> > grid con datos de una tabla de firebird (es una tabla q se maneiene con muy
> > pocos registros x eso no usé una consulta)
> > A su vez hay otro programa (programa2) que carga items en esa misma tabla.
> >
> > Necesito que el gris del programa1 siempre esté mostrando los agregados q
> > hace el programa2
> > ¿La única forma que tengo de que ese grid vea reflejado constantemente
> > esos agregados, es poniendo un timer que haga el refresh de la tabla? o de
> > qué otra manera puede ser?
> > tengo a la tabla, propiedad updateMode = umUpdateChanged
> >
> > Lo mismo me pasa en otro grid q está en ese form...
> >
> > Ahora he probado ejecutando los 2 programas en la misma máquina y el grid
> > no se me actualiza si no salgo del programa1 y vuelvo a entrar.
> >
> > (uso componentes zeos 7, y Lazarus 0.9.31 r30432 FPC 2.5.1
> > i386-win32-win32/win64... si, se que está desactualizado pero no he podido
> > hacerlo)
> >
> > Agradezco cualquier pista
> > muchas gracias
> >
> >
> > ______________________________**_________________
> > Lazarus-es mailing list
> > Lazarus-es en lists.lazarus.**freepascal.org<Lazarus-es en lists.lazarus.freepascal.org>
> > http://lists.lazarus.**freepascal.org/mailman/**listinfo/lazarus-es<http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es>
> >
> ------------ próxima parte ------------
> Se ha borrado un adjunto en formato HTML...
> URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20120926/ada76f15/attachment-0001.html>
> ------------ próxima parte ------------
> A non-text attachment was scrubbed...
> Name: no disponible
> Type: image/gif
> Size: 453 bytes
> Desc: no disponible
> URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20120926/ada76f15/attachment-0001.gif>
>
> ------------------------------
>
> Message: 4
> Date: Wed, 26 Sep 2012 17:15:35 -0300
> From: Paola Bruccoleri <pbruccoleri en adinet.com.uy>
> Subject: Re: [Lazarus-es] actualizar grid automáticamente
> To: Spanish version of Lazarus List
> <lazarus-es en lists.lazarus.freepascal.org>
> Message-ID: <50636267.7000905 en adinet.com.uy>
> Content-Type: text/plain; charset="iso-8859-1"; Format="flowed"
>
> El 26/09/2012 05:05 p.m., Jose Daboin escribió:
> > Te iba a decir que con un timer pero ya lo estas haciendo
> Hola José..
> no, aún no he probado con el timer!..
> quizás con alguna propiedad de la conexión o la tabla se pueda, por eso
> pregunté!
> muchas gracias!
>
> ------------ próxima parte ------------
> Se ha borrado un adjunto en formato HTML...
> URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20120926/803843bd/attachment-0001.html>
> ------------ próxima parte ------------
> A non-text attachment was scrubbed...
> Name: no disponible
> Type: image/gif
> Size: 453 bytes
> Desc: no disponible
> URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20120926/803843bd/attachment-0001.gif>
>
> ------------------------------
>
> Message: 5
> Date: Wed, 26 Sep 2012 16:27:03 -0400
> From: Maikel Enrique Pernía Matos <reprepoli2mz en infomed.sld.cu>
> Subject: Re: [Lazarus-es] actualizar grid automáticamente
> To: Spanish version of Lazarus List
> <lazarus-es en lists.lazarus.freepascal.org>
> Message-ID: <1348691223.3209.2.camel en trastos>
> Content-Type: text/plain; charset="UTF-8"
>
> has pensado en utilizar un socket o tuberia para comunicar ambas
> aplicaciones, en esencia tendrías una siempre en escucha, y de la otra
> la mandarías a actualizar cada vez que hagas un cambio en la base de
> datos.
>
> El problema creo que se resolvería con uso de memoria compartida,
> básicamente por ahí anda la cosa.
>
> Saludos
> Maikel
>
> El mié, 26-09-2012 a las 16:33 -0300, Paola Bruccoleri escribió:
> > Hola todos..
> >
> > tengo una aplicación (programa1) siempre abierta, donde en un form hay
> > un grid con datos de una tabla de firebird (es una tabla q se maneiene
> > con muy pocos registros x eso no usé una consulta)
> > A su vez hay otro programa (programa2) que carga items en esa misma tabla.
> >
> > Necesito que el gris del programa1 siempre esté mostrando los agregados
> > q hace el programa2
> > ¿La única forma que tengo de que ese grid vea reflejado constantemente
> > esos agregados, es poniendo un timer que haga el refresh de la tabla? o
> > de qué otra manera puede ser?
> > tengo a la tabla, propiedad updateMode = umUpdateChanged
> >
> > Lo mismo me pasa en otro grid q está en ese form...
> >
> > Ahora he probado ejecutando los 2 programas en la misma máquina y el
> > grid no se me actualiza si no salgo del programa1 y vuelvo a entrar.
> >
> > (uso componentes zeos 7, y Lazarus 0.9.31 r30432 FPC 2.5.1
> > i386-win32-win32/win64... si, se que está desactualizado pero no he
> > podido hacerlo)
> >
> > Agradezco cualquier pista
> > muchas gracias
> >
> >
> > _______________________________________________
> > Lazarus-es mailing list
> > Lazarus-es en lists.lazarus.freepascal.org
> > http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>
>
>
> --
>
> Este mensaje le ha llegado mediante el servicio de correo electronico que ofrece Infomed para respaldar el cumplimiento de las misiones del Sistema Nacional de Salud. La persona que envia este correo asume el compromiso de usar el servicio a tales fines y cumplir con las regulaciones establecidas
>
> Infomed: http://www.sld.cu/
>
>
>
> ------------------------------
>
> Message: 6
> Date: Wed, 26 Sep 2012 17:33:37 -0300
> From: "Hilde Hansz" <hhansz en adinet.com.uy>
> Subject: Re: [Lazarus-es] actualizar grid automáticamente
> To: "'Spanish version of Lazarus List'"
> <lazarus-es en lists.lazarus.freepascal.org>
> Message-ID: <006501cd9c26$363c6370$a2b52a50$@com.uy>
> Content-Type: text/plain; charset="iso-8859-1"
>
> Hola Paola, yo no he encontrado otra forma, que en el timer, colocar:
> tabla.Close, tabla.Open. Hace poco, vi una implementación para actualizar,
> pero esto funciona. Si la encuentro te lo paso.
>
> hh
>
>
>
> De: Paola Bruccoleri [mailto:pbruccoleri en adinet.com.uy]
> Enviado el: miércoles, 26 de septiembre de 2012 05:16 p.m.
> Para: Spanish version of Lazarus List
> Asunto: Re: [Lazarus-es] actualizar grid automáticamente
>
>
>
> El 26/09/2012 05:05 p.m., Jose Daboin escribió:
>
> Te iba a decir que con un timer pero ya lo estas haciendo
>
> Hola José..
> no, aún no he probado con el timer!..
> quizás con alguna propiedad de la conexión o la tabla se pueda, por eso
> pregunté!
> muchas gracias!
>
> ------------ próxima parte ------------
> Se ha borrado un adjunto en formato HTML...
> URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20120926/eaa5475d/attachment-0001.html>
> ------------ próxima parte ------------
> A non-text attachment was scrubbed...
> Name: no disponible
> Type: image/gif
> Size: 453 bytes
> Desc: no disponible
> URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20120926/eaa5475d/attachment-0001.gif>
>
> ------------------------------
>
> Message: 7
> Date: Wed, 26 Sep 2012 23:20:09 +0200
> From: Victor Garcia Tascon <public en insidecat.biz>
> Subject: [Lazarus-es] Problemas con strings
> To: lazarus-es en lists.lazarus.freepascal.org
> Message-ID: <1698942507.20120926232009 en insidecat.biz>
> Content-Type: text/plain; charset=ISO-8859-15
>
> Estimados compañeros del foro:
>
> Llevo un par de años apuntado a "nuestra" lista,
> leyendo y aprendiendo de vuestros mensajes.
> Este es mi primer mensaje. Un saludo a todos.
>
> Llevo unos cuantos meses probando CodeTyphon 2.70
> bajo Windows XP SP3, todo 32 bits. En todos los .pas
> pongo {$mode delphi} para evitarme problemas...
>
> Las pruebas van bien, y empieza a gustarme Lazarus...
>
> Pero me ha surgido un problema con unas rutinas, que
> uso desde hace años en Delphi 6. Las rutinas los que
> hacen es transformar (comprimir) numeros enteros, a
> strings de la mitad de su tamaño.
>
> Un ejemplo:
>
> el integer 9876543210 se convierte a 'ABCDE'
>
> El codigo de las rutinas os lo pongo al final del mensaje.
>
> El problema que me he encontrado al usarlas en Lazarus, es
> que en MUY POCAS ocasiones, devuelven una cadena con un char
> menos de tamaño. Es decir, le paso 123456, me deberia dar algo
> como XXX, pero me da solo XX.
>
> Lo unico que se me ocurre, es que debido al uso de UTF-8 (o
> sabe dios que), alguna pareja de chars que devuelve la funcion,
> se interprete como uno. Las funciones funcionan perfectamente en
> Delphi 6, que creo que usa ANSI para los strings...
>
> La verdad es que el rollo del utf-8 "para todo" en lazarus me
> esta dando muchos problemas. Espero que las ventajas de usar
> utf-8 merezcan la pena.
>
> Si a alguien se le ocurren ideas, las probare. Tambien podeis
> comentar optimizaciones a las rutinas. Las uso a menudo en Delphi.
>
> Estas son las funciones (que son open source para todos):
>
> function TFPrincipal.EncodeTextInteger64(const num: int64):string;
> // NECESITA: un numero entero positivo o negativo
> // DEVUELVE: una cadena, de longitud par, con el numero codificado segun el siguiente esquema
> // - si el numero es negativo, se le quita el signo
> // - si el numero de cifras es impar, se añade un cero a la izquierda
> // - cada bloque de dos cifras, se sustituye por su código ASCII
> // desplazado 32 posiciones hacia adelante
> // - con el primero de ellos, distinguimos si es negativo o positivo:
> // si es positivo, se desplaza 32 como siempre (es decir, estara entre 32 y 131)
> // si es negativo, no estara desplazado 32, sino 32+100 (es decir, estara entre 132 y
>
> 231)
> // EJEMPLOS: 1056-> 42 88 -> *X 90860599->122 118 37 131->zv%â
> // -1056-> 42+100 88 -> ÄX -11231 ->133 44 63 ->à,?
> // NOTAS: esta pensada para guardar numeros enteros grandes en ficheros de texto
> // se consigue un ahorro del 50% respecto a texto puro, y solo se pierde
> // un 25% respecto al formato binario (el mas eficiente)
> var auxs, cacho: string;
> auxi: integer;
> neg: boolean;
> begin
> result:='';
> neg:=false;
> if num>=0 then auxs:=inttostr(num)
> else begin auxs:=inttostr(-num); neg:=True; end;
>
> if length(auxs) mod 2 =1 then auxs:=' '+auxs;
> for auxi:=1 to length(auxs) do
> begin
> if (auxi mod 2)=0 then continue;
> cacho:=copy(auxs,auxi,2);
> result:=result+chr(strtoint(cacho)+32);
> end;
> if neg then result[1]:=chr(ord(result[1])+100);
> end;
>
>
> function TFPrincipal.DecodeTextInteger64(const numtext: string):int64;
> // NECESITA: una cadena que sea un entero codificado segun EncodeTextInteger()
> // DEVUELVE: el numero entero "decodificado", segun este esquema
> // - cada caracter, se pasa a numero ASCII u se le resta 32
> // - se compone el numero concatenado los ASCII
> // - en funcion del 1º sabemos si es negativo o no
> // EJEMPLOS: *X->42 88->1056 zv%â->122 118 37 131->90860599
> // NOTAS: es la complementaria de EncodeTextInteger()
> var i: integer;
> auxs: string;
> begin
> if numtext[1]>=#132 then auxs:='-'+format('%2.2d',[ord(numtext[1])-132])
> else auxs:=format('%2.2d',[ord(numtext[1])-32]);
> for i:=2 to length(numtext) do
> auxs:=auxs+format('%2.2d',[ord(numtext[i])-32]);
> result:=strtoint64(auxs);
> end;
>
--
MSc. Ing. Pedro Pablo Oviedo Vera
Dirección Técnica y Desarrollo
Empresa de Proyectos e Ingeniería ENPA
Ministerio de la Agricultura
Boyeros y Conill, Piso 10 Edif MINAG, La Habana, Cuba.
Telef. (537)884 7649
(Ubuntu User #34812)
More information about the Lazarus-es
mailing list