• Viernes 8 de Noviembre de 2024, 17:12

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - salvica

Páginas: [1]
1
Delphi / Re: Problema Con Rxlib
« en: Viernes 14 de Abril de 2006, 20:07 »
Hola Perrero, vamos a ver si puedo ayudarte

Yo tambien tengo D7, ahora en w2K y antes con wXP y siempre me ham funcionado., para ello, desinstala las rxLib que tengas y bájate la última (yo tengo la 2.75), creo que lo hice desde rxLib tienes versiones para los delphi 3, 4, 5, 6, 7 y 2005

1º - Descomprimelas en un directorio temporal y esta carpeta te la llevas a la carpeta "Source" donde tengas instalado tu delphi-7

2º - Leete el fichero "readme.txt", sobre todo este punto:

Installation
------------
If you have Delphi 7 Professional or Personal Edition, deactivate the
conditional define {$DEFINE DCS} in the RX.INC file before compiling the
library.

O sea, que si tienes D7 professional o D7 personal tienes que desactivar la condicional de la línea {$DEFINE DCS}, solo consiste en poner un "punto" delante y dejarla tal que así: {.$DEFINE DCS}

3º - Abres Delphi, y en "Tools", "Library", pinchas en el botón [...] de la línea "Library Path" y le añades $(DELPHI)\Source\rxLib_275_d7\Units y pinchas sobre el botón [Add]

4º - Yo añadí el paso anterior a la línea "Browsing path", y no me ha dado ningún problema.

5º - Cierra la ventana de "Environment options"

6º - Pincha, en el menú principal del IDE de delphi, sobre "File" y elige "Open" para abrir el paquete RXCTL7.DPK en la carpeta "Units" de las rxLib, y pulsa sobre "Compile" para compilarlas (es el paquete de "Runtime")

7º - Repite el paso anterior ("File" y elige "Open") para abrir el paquete RXDB7.DPK en la carpeta "Units" de las rxLib, y pulsa sobre "Compile" para compilarlas (también es un paquete de "Runtime")

8º - Repite el paso anterior ("File" y elige "Open") para abrir el paquete RXBDE7.DPK en la carpeta "Units" de las rxLib, y pulsa sobre "Compile" para compilarlas (también es un paquete de "Runtime")

Con esto habrás compilado las librerías "Runtime" de las rxLib, ahora queda instalar las librerías de "Diseño"

9º - Abre, como anteriormente has hecho, el paquete DCLRX7.DPK y pulsa sobre "Install"

10º - Repite el paso anterior apara instalar DCLRXDB7.DPK

11º - Repite el paso anterior apara instalar DCLRXBD7.DPK

12º - Cierra TODOS los paquetes abiertos, pero MUY IMPORTANTE: NO SALVES LOS CAMBIOS REALIZADOS cuando te lo pida

Con esto lo tendrás todo operativo, espero que te haya servido como a mi  :smartass:

Saludetes: salvica

2
Delphi / Re: Dia De La Semana
« en: Viernes 14 de Abril de 2006, 19:16 »
Sobre lo de "bisiesto" os falta lo siguiente:

- Si año no es divisible por 4, NUNCA es bisiesto. (1991)

- Si año es divisible por 4, puede ser bisiesto, o no serlo  :whistling: , para ello debe cumplir:
- Si año no es divisible por 100, SIEMPRE es bisiesto (2004)
- Si año es divisible por 100, pero no es divisible por 400 NUNCA es bisiesto (3000)
- Si año es divisible por 100, y tambien es divisible por 400 SIEMPRE es bisiesto (2000)
Código: Text
  1.  
  2. function bisiesto( year:integer ):boolean;
  3. begin
  4.   if( year mod 4<>0 ) then
  5.     { no es divisible por 4, luego no es bisiesto }
  6.        Result := false;
  7.   else if( year mod 100<>0 ) then
  8.           { no es divisible por 100, luego si es bisiesto }
  9.              Result := true;
  10.          else if( year mod 400=0 ) then
  11.                  { es divisible por 100 y por 400, luego si es bisiesto }
  12.                     Result := true
  13.                 else
  14.                  { en cualquier otro caso no es bisiesto }
  15.                     Result := false
  16. end;
  17.  
  18.  
Saludos
salvica

3
Delphi / Tedit No Responde A Onkeypress
« en: Viernes 14 de Abril de 2006, 18:48 »
Hola a tod@s, de nuevo recurro a vosotr@s  :whistling:

Dado que el componente TEdit (dichoso) no me permite alinearlo, estoy intentando hacer una rutina genérica metiéndolo en un TPanel, pero, no sé porqué, no me responde al evento OnKeyPress

El código es el siguiente:
Código: Text
  1.  
  2. procedure TForm1.Edit_ENTRADA_OnKeyPress(Sender: TObject; var Key: Char);
  3. var
  4.   Panel : TPanel;
  5.   Alias : string;
  6. begin
  7. { esto lo pongo para seguimiento, pero por aquí no pasa }
  8.   Panel_DATOS.Caption  := '['+Alias+' ha pasado por aquí]';
  9.   if( Key=#13 ) then begin
  10.       Key := #0;
  11.       Alias                := Trim(Edit_ENTRADA.Parent.Name);
  12.     { esto lo pongo para seguimiento, pero por aquí tampoco pasa }
  13.       Panel_DATOS.Caption  := '['+Alias+']';
  14.     { buscar el panel sobre el que está puesto }
  15.       Panel                := FindComponent(Alias) as TPanel;
  16.     { copiar el texto del Edit en el Panel que lo contiene }
  17.       Panel.Caption        := Edit_ENTRADA.Text;
  18.     { quitarlo de enmedio }
  19.       Edit_ENTRADA.Visible := false;
  20.       Edit_ENTRADA.Parent  := Panel_DATOS;
  21.   end;
  22. end;
  23.  
  24.  
El TEdit lo pongo sobre un panel determinado, le doy tamaño y el foco desde el evento OnChange de un ComboBox y funciona sin problemas, pero no consigo que al acabar de meter texto se desactive y se oculte.

Se me olvidaba, Proyecto CLX, Delpi-7, Windows2K

Gracias por adelantado por la ayuda que podais prestarme
Salvica

4
PHP / Re: Prob Con Los Headers
« en: Sábado 10 de Julio de 2004, 23:07 »
No pones el código que utilizas, así que poca ayuda te puedo dar  :devil:

El error te dice que no se puede añadir información a las cabeceras, ya que han sido enviadas con anterioridad... (o algo así, que mi inglés es de Vallecas)

Una causa es porque no utilizas un "exit depues del header

Intenta resolverlo así, a ver si te funciona  ;)
Código: Text
  1.  
  2. .....
  3. .....
  4. ....
  5.   include("../libs/db.inc.php") // si la ruta a la página es esa
  6.   if( $correcto ) {
  7.        $cabecera = "pagina_error.php?"
  8.                        . "&nombre=" . $nombre
  9.                        . "&pass="   . $pass
  10.                        . "&error="  . "Nombre o contraseña INVÁLIDOS";
  11.        header("Location: $cabecera"); /* Redirigir al navegador */
  12.        exit; /* Asegurarse de que no se ejecute el codigo adicional cuando se redireccione. */
  13.   }
  14.  
  15.  
Ya me diras si te he resuelto algo  :hola:  :hola:  :hola:
Saludetes

Páginas: [1]