Delphi - Blog de Carlos G

Holly shit, soy un nerd!

2009-10-20T00:42:00.000-07:00

Ahora que no tenía mucho que hacer, bagabundeando por ahí llegué a esta encuesta que evalua que tan Nerd eres; y santos héroes del fobaproa Batman!! saqué 94% !!!

Ya tenia yo conciencia de tener cierto nivel de frikismo, ¿pero tanto??, si llega a ser preocupante. Esta calificación me pone como un kaiosama de los nerds.

Ahora que en una introspectiva exhaustiva, debo confesar que si soy fan de algunas series de anime, he coleccionado algunos comics alguna vez en mi vida, me gustan mucho los juegos de video, paso muchas horas al día pegado a la computadora, soy super fan del universo de star wars (no asi de star trek), y tengo varias figuras de acción de superheroes en la casa, puedo pasarme toda una tarde viendo documentales en el animal planet, y en el toilet hay una pila de libros de diferentes temáticas que van desde algoritmos genéticos hasta de modelos estocásticos. Solo puedo alegar en mi defensa que nada de esto me enajena y que en realidad prefiero mil veces pasar una buena noche bohemia con vino y guitarras que una noche de halo multiplayer online. Aunque, si lleva su buena tajada de razón la susodicha encuesta.

Por cierto, ¿conocen ya la nueva forma de jugar piedra, papel o tijera al estilo nerd?, en la serie "The big bang theory" proponen que se agreguen 2 elementos nuevos al juego, de modo que el juego quedaría en "piedra, papel, tijeras, lagarto, spock", y las reglas pues son muy simples:

Las tijeras cortan el papel
El papel cubre a la piedra
La piedra aplasta al lagarto
El lagarto envenena a Spock
Spock destroza las tijeras
Las tijeras decapitan al lagarto
El lagarto se come el papel
El papel refuta a Spock
Spock vaporiza la piedra
y, como siempre ha sido... La piedra aplasta las tijeras

un diagrama lo ejemplifica mejor:

Esto con el fin de minimizar el riesgo de empates en el juego... claro que es preferente que esta versión se juegue en el idioma klingon, sino, pues es igual pero pierde parte del encanto =:-)

Que tengan una larga y prospera vida...

Mi visor volumétrico de imágenes médicas

2006-01-21T20:19:00.000-08:00

Este proyecto es un visor volumétrico de imágenes médicas, realmente a este proyecto no se le ha dedicado el tiempo que se debiera porque han habido otros proyectos que han ido surgiendo y han hecho que este se vea pospuesto y tambien el tiempo de desarrollo hasta ahora ha sido muy corto (Solo me llevó alrededor de un mes y medio desarrollarlo). De lo que se trata es de que recibe como entrada una serie de imágenes DICOM de un estudio de algun paciente y este programa construye un modelo 3D de lo que esas imágenes y ese estudio representan. Originalmente fué desarrollado sobre Delphi 6, pero ahora compila sin problemas sobre Delphi 2006, usa como motor gráfico a OpenGL y como motor de BD a Firebird.

Esta dividido en dos partes, la parte de analisis bidimensional de las imágenes, en donde se puede de una manera muy simple y práctica adecuar los niveles de brillo y contraste en los colores de la imágen, efectuar mediciones milimétricas dentro de la imagen al tamaño real del objeto del que fue tomada, cambiar los tonos y los niveles, efectuar acercamientos a ciertas areas (Zoom), etc...

Y la parte de vision volumétrica, la cual es la que permite hacer la exploración 3D de los cuerpos que se representan en dichas imágenes médicas, pudiendose aplicar, planos de corte, transparencias, eliminacion de cuerpos basado en la densidad mostrada en las imágenes, rotaciones, traslaciones, etc...

Aquí algunos screenshots de la aplicación. Pueden dar click en las imágenes para verlas en tamaño completo.

La vista 2D permite efectuar mediciones milimétricas sobre el modelo

La vista 3D del estudio anterior; es una resonancia magnetica de una cabeza humana, aqui la vemos de perfil, pero puede ser rotada en tiempo real en cualquier sentido.

El mismo modelo anterior aplicandole 2 cortes en 2 ejes; aqui se puede ver el interior del craneo, los cortes se aplican dinamicamente a gusto del usuario.

Un pie humano con un factor de transparencia alta, lo cual permite ver los huesos a travez de la piel del sujeto.

El mismo pie variando los niveles del umbral visible con lo cual se permite descartar la piel del modelo y mostrar solo los huesos. Este proceso actualmente trabaja sobre las densidades de los objetos, permitiendo hacer la descartación en el modelo final basandose solo en que tan denso aparece el objeto en la imágen, este proceso se piensa modificar para hacerlo mucho mas selectivo y significativo.

DICOM es un estandar en la medicina en cuanto a la forma en como se almacenan y tratan las imágenes médicas, y practicamente todos los equipos modernos de radiografía, tomografía, ultrasonido o resonancia magnética trabajan con imágenes en formato DICOM, por lo que ahora es muy común que al paciente se le entregue ademas o en vez de las tradicionales placas de sus estudios, un CD con las imágenes en formato DICOM, con lo cual este programa puede construir todo el modelo tridimensional sin problema alguno y mostrarselo al paciente en el propio consultorio del médico.

Generalmente esto es posible solo con equipos y software muy caro y el ambito esta restringido a los radiologos que cuentan con este equipo, pero ahora con esta aplicación, la idea es que cualquier médico en su consultorio pueda obtener la imágen volumetrica de los analisis que reciben sus pacientes. y asi incluso mostrarle al paciente el modelo real en 3D de su propio cuerpo en el mismo consultorio, tal vez para mostrar la evolución de alguna fractura o algún otro padecimiento.

Otra aplicación que se me ocurrió es en el ámbito académico, con esta aplicación los alumnos podrán obtener una mejor idea de lo que significan las imágenes médicas así como poder hacer exploraciones mas a detalle de sus estudios pues las posibilidades son infinitas cuando se tiene una vision tridimensional de las cosas a verse forzado a hacer un análisis puramente en 2D.

En este momento nos encontramos al final de la etapa de desarrollo de este producto, pero aún tenemos espectativas que se pueden contemplar para este, tales como el reconocimiento de organos automático dentro del volumen para poder hacer discriminaciones basadas no solo en la densidad de lo que se ve sino en las texturas de los tejidos, etc... asi como la construccion biplanar de modelos para simplificar y abaratar aun mas el proceso para un radiologo de obtener el estudio.

En fin, esas son solo algunas cosas que se me han ocurrido, espero que a partir de esto se me ocurran mas. Y estoy ávido tambien de que quienes lean esto me puedan dar más ideas de todo tipo, de programación, estilo, cientificas, comerciales, etc. Así que pueden sentirse con entera libertad de publicar sus comentarios al respecto.

Richard Stallman en Xalapa este 26 de Nov 2009

2009-10-21T17:58:00.000-07:00

El próximo 26 de noviembre del 2009 Richard Stallman, fundador del movimiento GNU, estará en Xalapa -la capital del estado de Veracruz- para impartir una conferencia como parte del Tour GULEV de Software Libre 2009.

El Tour será un evento de 3 días en 3 ciudades: el 26 en Xalapa, Veracruz; el 27 en Puebla, Puebla; y el 28 en Guanajuato, Guanajuato.

En Xalapa, el evento será en el Museo del Transporte. Para más información visite la página del evento.

Esquema de colores para PsPad

2009-10-04T00:02:00.000-07:00

PsPad es un editor de texto gratuito para programadores que por lo menos para mi se ha convertido en herramenta indispensable para el trabajo día a día.

Ahora les quiero compartir un esquema de colores que he hecho para este editor, los colores están inspirados en el de el editor para mac TextMate.

El esquema se puede descargar de aquí, espero lo disfruten tanto como yo =:-)

You can download it here, enjoy =:-)

¿Buscas un buen hosting gratuito que soporte PHP/MySQL?

2008-05-26T01:06:00.001-07:00

Dale una oportunidad a http://www.000webhost.com/ es gratis, sin publicidad, servidor FTP, transferencia de hasta 100GB, con los servicios de un hosting profesional y un desempeño bastante aceptable.

Si el HTML no es tu fuerte, o no se te da muy bien el PHP, este sitio cuenta con un instalador automático de una gran variedad de sistemas manejadores de contenidos (CMS) como Joomla, Drupal, PHPNuke, etc; o si quieres montar tu propio foro puedes hacerlo con PHPBB con un solo click, o montar tu propio Blog o Tienda en línea, lo que se te ocurra.

Lo he estado probando ~~y me ha parecido muy bueno~~, y ahora lo comparto con ustedes. Que lo disfruten y aprovechen al máximo!

Update:

Me han borrado mi cuenta de 000webhost sin decir agua va, y no tengo ni idea de porque haya sido, el caso es que se perdieron los sitios de prueba que tenía alojados ahí y no tengo modo de recuperar ni un solo bit de información. Lo bueno es que solo eran algunas cosillas de poca importancia que solo usaba para probar como funcionaban en linea, pero eso da una buena idea de que no se deben usar estos hostings gratuitos para cosas serias, sino que hay que tomarlos mas bien a la ligera.

Para mi hosteo en serio estoy usando el servicio del cloud de RackSpace, con este servicio te olvidas de cualquier inconveniente con la escalabilidad de tu página o servicio en linea, lo puedo recomendar porque me ha funcionado excelentemente bien con aplicaciones verdaderamente grandes, si te interesa te puedo ofrecer una opción para que el primer mes solo pagues la mitad, solo preguntame como, y te hago llegar un cupon de descuento especial.

¿es que se acabó el encanto?

2009-06-20T00:38:00.000-07:00

Hace ya mucho tiempo que no publico algo en este blog acerca de la programación con Delphi y Firebird; tal vez algunos se pregunten si es que me he desencantado de su magia y he abandonado el sendero de la luz; pero no, no es así de hecho todos los dias trabajo con Delphi y Firebird, dandole mantenimiento a algunos programas que se han comercializado.

Algo de trabajo me ha dado migrar algunas bases de datos desde Firebird 1.5 a Firebird 2.1, pero la verdad es que el cambio ha valido la pena y con creces, las nuevas características de la versión 2.1 son invaluables, y transportan a los servidores a un nuevo nivel. Y los clientes felices, ¿como sabes que un cliente es feliz? porque no te llama para quejarse... es muy raro que llamen para aplaudir un acierto, pero si hay algún problema puedes estar seguro que llamará :)

No he probado la versión de Delphi 2009 así que poco puedo decir al respecto, la verdad creo que en mi caso pasará un rato para que llegue a dedicarle algo de tiempo a esta versión, pues algunas de las librerías que uso en mis proyectos, o no hay versión compatible con las nuevas reglas Unicode, o me sale en un billete actualizarlas solo para tener esta funcionalidad, lo cual no creo necesitar todavía. Tal vez mas adelante pero por ahora no está en mis planes.

Por lo pronto otros paisajes han llamado mi atención, el desarrollo web me sonrió y me mostró un cúmulo de posibilidades que antes no me eran ajenas pero que ahora puedo ver más claramente. Y es aquí donde he volcado mis atenciones en los últimos meses, he aprendido mucho en este aspecto, y es que el desarrollo de este tipo de aplicaciones es algo muy especial y en donde la cantidad de conceptos que debe uno manejar ha crecido exponencialmente en los últimos años; pero también he podido apreciar que el impacto social que se puede conseguir con esta clase de aplicaciones es bastante grande. Ya iré contando mis andanzas en el desarrollo web en futuros posts, y cual es mi nueva perspectiva de la web y el futuro de las aplicaciones en las nubes.

El proyecto NATAL

2009-06-02T17:36:00.000-07:00

En el último E3 una de las novedades que ha llamado más la atención es este proyecto presentado por el mismísimo Peter Moulineux, y que ha dejado boquiabierto a mas de cuatro:

¡Simplemente impresionante!

Aunque al parecer todavía tendremos que esperar un par de años para poder probar esta maravilla en nuestros hogares; sin duda el nivel de interactividad en las consolas y en la computación en general está tomando nuevos y relucientes senderos.

*Pueden ver la presentación en alta definición aquí.

El Dragón Trovero

2007-02-24T14:05:00.000-08:00

Ya es muy conocida en el ambiente la historia de los programadores matando un dragón y todas las estrategias que sigue cada uno de los diferentes tipos de programadores, bien aqui esta el punto de vista "trovero" de la misma historia, (recordarán que soy un fan de la música de trova, y en general de la poesía y me pareció curioso este hallazgo) Rodrigo Solis nos narra su poesía "El Dragón"... disfrutenla

¿Sabes lo que es un hashmap?

2008-07-31T01:51:00.001-07:00

Para los programadores de Java este concepto tal vez no sea tan extraño pues el uso de hashmaps es común, pero para los programadores de Delphi puede sonarles a nuevo.

Un hashmap es una estructura de datos que permite crear un mapa en memoria para la rápida identificación de elementos a partir de un dato usado como llave. Puedes decir: ok si conozco muchas estructuras de datos que permiten hacer eso, ¿cual es la diferencia con los hashmaps?; bien, la principal es que los hashmaps son verdaderamente rápidos.

La librería JCL incluye varias clases para la implementación de diferentes tipos de hashmaps, aquí mostraré una de estas para poder encontrar una cadena a partir de el valor de otra:

var
  Map: IJclStrStrMap;

procedure TForm2.Button2Click (Sender: TObject);
var
  i: integer;
begin
  Map := TJclStrStrHashMap.Create;
  //llenamos el hashmap con 20000 relaciones
  for i := 1 to 20000 do
  begin
    Map.PutValue (Format ('Llave%d', [i]), Format ('Cadena%d', [i]));
  end;
end;

Y una vez hecho esto, encontrar una aguja dentro de ese gran pajar se reduce a una simple instrucción:

    ShowMessage (Map.GetValue ('Llave5670'));

En este caso hemos ejemplificado usando cadenas (que incluso usando hashmaps se gana mucha velocidad respecto a utilizar los clásicos derivados de TStrings, TStringList), pero las posibilidades se multiplican si te das cuenta de que puedes mapear grandes cantidades de objetos usando esta técnica. Estos pequeños grandes tips hacen la diferencia entre lo que puede parecer un lento cacharro, o un veloz jet a la hora de trabajar con cantidades de datos muy considerables.

Extendiendo la VCL sin usar herencia ni registrando componentes nuevos

2006-05-04T21:09:00.000-07:00

Es común que de repente estemos tentados a instalar fulano componente porque hace X monería, el problema con eso es que si nos viciamos en esa practica, llevar los fuentes de nuestro proyecto a otra máquina tiene el inconveniente de que hay que instalar todos estos componentes antes de poder compilar la primera línea de código.

Existen algunas practicas que permiten variar el comportamiento de los componentes que trae Delphi por defecto sin hacer derivaciones de las clases registradas, lo cual permite que sin instalar nada en el IDE tengamos el resultado que deseamos. Una de esas técnicas la describo un poco en el artículo Alternativas a los Skins y es la técnica de las clases sobrepuestas, pero en Delphi 2006 esta no es la única opción... existe una técnica mas estilizada y que se apega más a las buenas costumbres orientadas a objetos.

En BDS 2006 y desde Delphi 8 existe una extensión del lenguaje de Object Pascal llamada Class Helpers esta nueva característica nos permite definir nuevos comportamientos para alguna clase previamente definida de manera natural y su práctica nos ofrece muchos beneficios. Vamos a un ejemplo:

Muchos de nosotros usamos la funcion Trim() de Delphi que elimina los espacios en blanco al principio y al final de una cadena, y solemos usarla en controles como el caso del TEdit con código como este:


Edit1.Text := Trim(Edit1.Text);

Pero, ¿no sería mas claro y elegante que el control Edit1 tuviera un método Ajustar() que hicera eso directamente sobre el control?, veamos como implementariamos eso, primero definimos la clase que servira como ayudante de la clase TEdit.


TMiEdit = class helper for TEdit
   public
      procedure Ajusta;
  end;

He llamado a la clase auxiliar TMiEdit ya que en esta técnica la clase auxiliar no tiene que llevar el mismo nombre de la clase a la que estamos ayudando, y ahora definimos el método nuevo:


procedure TMiEdit.Ajusta;
begin
  Text := Trim(Text);
end;

Observen que como esta clase es una ayudante de TEdit puedo acceder a las propiedades de la misma clase TEdit, en este caso la propiedad Text, ahora para hacer uso del nuevo método no tengo que crear nuevas instancias solo usar un objeto común de la clase TEdit de este modo:


procedure TForm2.Button1Click(Sender: TObject);
begin
  Edit1.Ajusta;
end;

Pero tambien se pueden modificar métodos de la clase afectada, por ejemplo si quisieramos hacer que al llamar al método Clear del TEdit este en vez de poner una cadena nula pusiera por defecto un cero, hariamos algo como esto:


TMiEdit = class helper for TEdit
   public
      procedure Clear; overload;
  end;
  
procedure TMiEdit.Clear;
begin
  Text := '0';
end;


begin
  Edit1.Clear;
end;

En este caso estamos sobrecargando el método Clear pero al ser este un método re-definido en la clase ayudante se toma este último por defecto.

Esto suele sernos útil en casos donde por ejemplo tenemos que ajustar controles como el TDBGrid para que soporte la ruedita del ratón, o para que cambie de casilla con la tecla Enter, o para Editar campos Memo en las celdas, etc... usando el control TDBGrid de toda la vida.

Las limitaciones que tiene esta técnica son que desde las clases ayudantes no se puede tener acceso a propiedades o métodos declarados como estrictamente privados o estrictamente protegidos, asi como tampoco permite la definición de datos adicionales, es decir que no se pueden declarar variables de campos en estas clases auxiliares; lo único que se permite es que se púeden definir variables de clase (una nueva característica tambien), es decir variables que serán comunes a todas las instancias de la clase ayudada, esto es útil para por ejemplo poder llevar la cuenta de cuantas instancias de X clase se han creado y de alguna manera implementar variantes del patrón de diseño singleton sobrecargando el constructor de la clase.

Alternativas a los skins

2006-03-07T19:30:00.000-08:00

Existen muchos y muy variadas herramientas en el mercado que permiten hacer cosas bastante llamativas con las interfaces de los programas, VCLSkin, SuiSkin, entre otros con sus ventajas y desventajas entre ellos

Algunos usan sus propios componentes, es decir su propio TEditSkineado, TPanelEskineado, etc, el problema con eso es que obviamente cuando los usas te obligas a reescribir tu aplicacion o al menos pasarle un experto que cambie los nombres de las clases de los controles que ahora serán del nuevo tipo; y tambien con eso ya te estas ~~jodiendo~~ comprometiendo de alguna manera con ese proveedor de la herramienta, pues algunas características que ofrezcan estos componentes no se encontrarán en las clases genéricas.

Otros como VCLSkin son mas flexibles, con solo poner un simple componente en tu formulario principal te cambia la apariencia de la aplicación por completo, abarcando incluso cuadros de dialogo y demás chunches propios de windows

Aqui vamos a discutir una alternativa al uso de estas herramientas que son de pago (aunque algunas realmente valen lo que cuestan si la apariencia es tan importante para ti), y lo haremos usando una técnica ancestral que nos provee Delphi y a la que se le llama "Clases Sobrepuestas". Es increible cuanto mejora la apariencia de una ventana tan solo usando colores agradables y redondeando las esquinas de los componentes contenedores, aqui va el ejemplo vamos a estudiar como hacer que esto en diseño:

se vea en ejecución como esto:

Sin usar componentes de terceros y sin tener que cambiar los componentes que ahora estas usando en tu aplicación común y corriente de Delphi.

La idea es muy simple, vamos a hacer una unidad que será la que pongas al final de la sección uses de tu forma en la parte de la interfase; ahora, esto es importante, la unidad que contenga las clases sobrepuestas debe ser la última en la lista del uses, sino podria no funcionar el truco, por lo menos no para las clases que esten contenidas en las unidades que se encuentren despues de la nuestra.

Primero creamos una nueva unidad llamada GTPaneles.pas, y definamos algunos parámetros configurables al gusto de cada quien...


const
  CnstArco = 35;
  CnstBotonNormal = clMoneyGreen;
  CnstBotonPress = clGray;
  CnstTagDisable = 99;

la constante CnstArco definirá que tan pronunciados queremos que sean los arcos de las esquinas redondeadas, las siguientes dos constantes definen los colores que tendrán los botones en los estados normal y cuando estan presionados, y por último definimos un valor para diferenciar a aquellos componentes a los que no quisieramos que se les aplique el proceso de "embellecimiento", esta técnica la usa VCLSkin, donde si a algun panel no quisieras que se le aplique el Skin solo basta con poner el valor 99 en la propiedad Tag de dicho componente.

Yo suelo utilizar la propiedad Tag de los componentes para algunos trucos al nivel de la interface de las aplicaciones, si ese es tu caso tambien tendrías que hacer algunos malabares para que esto no te ocasione problemas

Para ejemplificar el trabajo lo haremos con la clase TPanel, y mostraremos la parte mas simple del asunto, aqui hacemos la sobreposición de la clase:


TPanel = class(ExtCtrls.TPanel)
  protected
    procedure Paint; override;
  end;

Definamos un par de procedimientos genéricos que usaremos despues en la implementacion de los métodos de las clases sobrepuestas:

Este procedimiento borra el fondo donde se ha de dibujar el control y prepara el terreno para dibujar nuestra obra de arte.


procedure QuitarFondo(Control: TControl; Dest: TCanvas);
var
  SaveIndex: Integer;
  DC: HDC;
  Position: TPoint;
begin
  with Control do
  begin
    if Parent = nil then
      Exit;
    DC := Dest.Handle;
    SaveIndex := SaveDC(DC);
{$IFDEF PDJ_2}
    GetViewportOrgEx(DC, @Position);
{$ELSE}
    GetViewportOrgEx(DC, Position);
{$ENDIF}
    SetViewportOrgEx(DC, Position.X - Left, 
                           Position.Y - Top, nil);
    IntersectClipRect(DC, 0, 0, Parent.ClientWidth, 
                       Parent.ClientHeight);
    Parent.Perform(WM_ERASEBKGND, Integer(DC), Integer(0));
    Parent.Perform(WM_PAINT, Integer(DC), Integer(0));
    RestoreDC(DC, SaveIndex);
  end;
end;

Este otro dibuja ya formalmente los rectangulos redondeados de modo que de la perspectiva 3D.


procedure DibujaRedondeado(const C: TCanvas; R1: 
                      TRect; Color: TColor);
var R2: TRect;
begin
  //Guardamos el Rectangulo original
  R2 := R1;
  with C do
  begin
    Pen.Width := 1;
    //Dibujamos la sombra
    inc(R1.left, Pen.Width);
    inc(R1.top, Pen.Width);
    pen.Color := clbtnhighlight;
    Brush.Style := bsSolid;
    Brush.Color := Color;
    RoundRect(R1.Left, r1.top, r1.Right, r1.Bottom, 
                                    CnstArco, CnstArco);

    pen.Color := color;
    Brush.Style := bsclear;
    inc(R1.left, Pen.Width);
    inc(R1.top, Pen.Width);
    RoundRect(R1.Left, r1.top, r1.Right, r1.Bottom, 
                                       CnstArco, CnstArco);

    //Dibujamos la base...
    pen.Color := clBlack;
    Brush.Style := bsclear;
    r1 := R2; //Recuperamos el rectangulo original...
    RoundRect(R1.Left, r1.top, r1.Right, r1.Bottom, 
                                       CnstArco, CnstArco);
    Brush.Style := bsSolid;
  end;
end;

Despues de eso solo basta con codificar la nueva versión del método Paint del componente mandando a llamar a los dos métodos que ya vimos:


procedure TPanel.Paint;
begin
  if (Tag <> CnstTagDisable) then
  begin
  QuitarFondo(Self, Canvas);
  DibujaRedondeado(Canvas, GetClientRect, Color);
  end else inherited;
end;

Para el caso de los botones y los TGroupBoxes el procedimiento es similar con la variante de desplegar el texto o el caption del componente en cuestión, e incluso se puede hacer una variante que dibuje tambien los Glyphs de los botones, pero yo por lo menos mi versión la he dejado hasta ahi; si alguien continua con este desarrollo hagamelo saber. También sobre BDS 2006 se pueden hacer uso de los nuevos eventos OnMouseEnter y OnMouseLeave para dar más efectos a los componentes.

En la sección de archivos de este blog esta disponible para descargar un demo completo de lo aqui explicado, seguro que con un poco mas de dedicación se puede ampliar la unidad para que soporte mas clases y con mejor apariencia.

Escribir en el Canvas de un componente

2005-12-22T18:49:00.000-08:00

Eneko alonso es un joven programador de Delphi que en su página web nos comparte esta muy útil funcion que permite escribir sobre el Canvas de algun componente en nuestras aplicaciones, pero les dejo que sean sus propias palabras quienes les expliquen el truco:

Para escribir texto transparente sobre el canvas de cualquier componente visual en Delphi, hay que usar la función SetBkMode de la API de Windows.

procedure TForm1.Button1Click(Sender: TObject);
var
  AnteriorBkMode: integer;
begin
 with Form1.Canvas do begin
  Brush.Color := clRed;
  TextOut(100, 80, 'Texto Opaco');
  AnteriorBkMode := SetBkMode(Handle, TRANSPARENT);
  TextOut(100, 100, 'Texto Transparente');
  SetBkMode(Handle, AnteriorBkMode);
 end;
end;

Distribuciones Estadísticas

2006-11-07T22:08:00.000-08:00

En esta unidad de Delphi se encuentra la implementación como una jerarquia de clases para el manejo de una buena cantidad de distribuciones estadísticas.

El hecho de que sea una jerarquia de clases le agrega una gran versatilidad a lo que ya de por sí es una herramienta estadística muy poderosa, ya que se pueden extender sus funcionalidades tan solo agregando nuevas clases a la jerarquia o bien sobreescribiendo algunos métodos que aparecen en las clases ancestras como métodos virtuales.

Una distribución muy común es la Chi Cuadrada, ó Ji Cuadrada, muy útil para hacer pruebas de hipótesis, analisis de dependencias, correlaciones, entre otras cosas. El siguiente ejemplo muestra lo sencillo que es hacer cálculos sobre la distribución usando esta herramienta:

var C: TChi_square_distribution;
  P: Single;
begin
  // Creamos la instancia
  // en este caso con 4 grados de libertad
  C := TChi_square_distribution.create(4);
  // Obtenemos la probabilidad acumulada al valor 5
  P := C.prob_between(0, 5);
  // Probabilidad X >= 5
  P := 1 - C.prob_between(0, 5);
  // El valor de la función de densidad en 10
  D := C.density(10);
  C.Free;
end;

Pero esta es solo una de las muchas distribuciones disponibles, entre las distribuciones continuas se encuentran la Normal, Gamma, Beta, F, T de Student, Exponencial, y muchas otras, y además tambien ofrece distribuciones discretas como la hipergeométrica, Binomial, Poisson, etc.

Las posibilidades que ofrece esta herramienta son muchisimas, pues las distribuciones estadísticas tienen muchos usos en cuestiones de predictibilidad, analisis de relaciones y dependencias entre diferentes datos, definitivamente estar familiarizado con conceptos estadísticos te puede dar una gran ventaja sobre otros programadores pues puedes ofrecer productos que brinden mucha más información útil a tus clientes y con esto tener un excelente valor agregado en tus programas.

Por fin sobrecarga de operadores en Delphi

2006-01-04T09:34:00.000-08:00

Dandole unos cuantos teclazos al BDS 2006 estuve probando la característica de la que tanto se presumia antes de liberarse que era la inclusión de sobrecarga de operadores. Aunque yo esperaba que fuera a nivel de clases parece que nos tendremos que conformar por ahora con su implementación en estructuras de tipo record.

Por ejemplo, para implementar como una estructura el manejo de números fraccionarios usabamos algo como esto:

 TFraccionario = record
    numerador, denominador: integer;
 end;

Ahora tenemos la posibilidad de agregar operadores que se encarguen de la transferencia de información asi como de las operaciones entre las estructuras, por ejemplo agregando el operador implicit :

 TFraccionario = record
  numerador, denominador: integer;
  class operator implicit( Value: TFraccionario): string;
end;

y su implementación:

 class operator TFraccionario.implicit(Value: 
                                   TFraccionario): string;
begin
   Result := IntToStr(Value.Numerador) + '/'+ 
             IntToStr(Value.Denominador);
end;

Ahora podemos asignar una variable de tipo TFraccionario a una simple y sencilla cadena asi:

var
  R1 : TFraccionario;
  S: string;
begin
  R1.Numerador := 2;
  R1.Denominador := 6;
  S := R1; //Aqui S valdria literalmente "2/6"

Y también a la inversa, podemos definir un comportamiento de operador para cuando queremos asignar una cadena a una variable de tipo TFraccionario

 class operator implicit( Value: string) : TFraccionario;

Y lo implementamos haciendo un parseo muy simple para la cadena, al fin de cuentas nadamas estamos ilustrando un ejemplo, no es la idea poner un parser completo sino mostrar el funcionamiento de los operadores

class operator TFraccionario.implicit(Value: string): 
                                             TFraccionario;
var p : integer;
begin
  Result.numerador := 0;
  Result.denominador := 0;
  p := Pos('/',Value);
  if P = 0 then exit;
  Result.numerador := StrToIntDef(Copy(Value,1,P-1),0);
  Result.denominador := StrToIntDef(Copy(Value,P+1,
                                     Length(Value)),0);
end;

Y una vez hecho esto ya podemos asignar cadenas a variables de tipo TFraccionario, de esta manera:

 var
  R1 : TFraccionario;
begin
  R1 := '2/6';

Pero, ¿como sumariamos 2 números fraccionarios usando directamente el operador +?, pues bien para eso pondríamos una definición de operador llamada add dentro de la misma estructura del registro, ahora la declaración del tipo completo sería:

 TFraccionario = record
  numerador, denominador: integer;
  class operator implicit( Value: TFraccionario): string;
  class operator implicit( Value: string) : TFraccionario;
  class operator add( v1, v2 : TFraccionario): TFraccionario;
end;

Y la implementación del operador (si mis maestros de la primaria no me engañaron) sería algo como esto:

class operator TFraccionario.add(v1, v2: TFraccionario): 
                                             TFraccionario;
begin
   if (V1.denominador = V2.denominador) then
   begin
     Result.denominador := V1.denominador;
     Result.numerador := V1.numerador + V2.numerador;
   end
   else
   begin
     Result.numerador := (V1.numerador * V2.denominador) +
                         (V1.denominador * V2.numerador );
     Result.denominador := V1.denominador * V2.denominador;
   end;
end;

Si, si, ya se que tambien se podría simplificar el número a su mínima expresión una vez efectuada la suma, pero prefiero dejarlo así por ahora para que no se complique en demasía el algoritmo y podamos admirar el trabajo con los operadores en vez de eso.

Ahora a poner a prueba el trabajo que hicimos, y a hacer también porque no algunos experimentos, primero veamos como podemos inicializar dos números fraccionarios a partir de un par de cadenas y sumemos ambos números y mostremos el resultado de la operación también en una cadena, para hacer uso de todos los operadores que hicimos, para eso ponemos un TButton en el formulario y le codificamos esto en el evento OnClick:

procedure TForm2.Button1Click(Sender: TObject);
var
  R1,R2 : TFraccionario;
begin
  R1 := '2/6';
  R2 := '3/6';
  Caption := R1 + R2;  //Esto devuelve "5/6" en el caption
end;

¡Bastante práctico!, ¿no es cierto?... ¿pero ahora si en vez de que se aplicara la operación entre ambos números fraccionarios lo que nos interesara fuera obtener la concatenación de sus representaciones como cadenas???, bien en ese caso lo que hay que hacer es tratar a ambas variables como cadenas para que el operador que nosotros definimos pierda su efecto y en vez de esto se aplique el operador predeterminado para el trabajo con cadenas, en este caso la concatenación:

Caption := string(R1) + string(R2); //Esto devuelve "2/63/6"

¡Fantástico!, y ¿podríamos hacer combinaciones?? es decir,¿ aplicar el operador con secuencias de operandos de diferentes tipos??... Si, claro y también esto ofrece un gran poder, solo hay que ver esto:

Caption := R1 + R2 + '1/6'; //Esto devuelve "6/6" !!!

¡Estupendo!!...de la misma manera podriamos definir muchos mas operadores para el trabajo con números fraccionarios, por ejemplo:

Add +

Substract -

Multiply *

Divide /

Negative -

Equal =

NotEqual <>

LessThan <

LessThanOrEqual <=

GreaterThan >

GreaterThanOrEqual >=

Con lo que hemos visto hasta ahora es fácil imaginarse como sería la implementación del resto de los operadores, suerte y a practicar esta nueva funcionalidad.

Nulos e Integridad Referencial

2005-12-28T16:58:00.000-08:00

Trabajando en un proyecto reciente me encontré con este detalle que parece tener Firebird (al menos en las versiones 1.5.2 y hasta el 1.5.3 RC3 que es la que tengo en mi laptop). Resultó ser ese tipo de cosas que te encuentras y que te pueden tomar muchas horas en dilucidar en donde es que radica el problema y resulta ser algo risorio y que se le ha escapado a alguien en el desarrollo de Firebird.

Para empezar he de explicar el escenario donde me ocurrió esto, tengo una tabla llamada GESTORES donde a cada gestor se le puede o no asociar un usuario del sistema, entonces hay registros que tienen un valor en este campo y otros en los que simplemente se queda en nulo. Dado esto, en teoría esta consulta me debería dar todos los usuarios que no estan asociados a algún gestor:

 SELECT (GEN_USUARIOS.USU_ID)
FROM GEN_USUARIOS
WHERE 
   (usu_id not in (SELECT distinct GES_USUARIO
                   FROM AFI_GESTORES
                   ))

Sin embargo, no fué así, esta consulta no me devolvía ni un solo valor aunque yo sabía que si habian por lo menos 15 usuarios que no estaban asociados a algún gestor.

De repente algun Dios olimpico iluminó mi mente y me llego la idea de que tal vez el hecho de que hubiera valores nulos en la tabla de gestores influiría, así que le agregué una pequeña condición para ignorar los valores nulos de la relación:

 SELECT (GEN_USUARIOS.USU_ID)
FROM GEN_USUARIOS
WHERE 
   (usu_id not in (SELECT distinct GES_USUARIO
                   FROM AFI_GESTORES
                   WHERE GES_USUARIO IS NOT NULL
                   ))

Con esto ya funcionó sin ningún problema el programa, ahora si me devolvía los 15 registros de los usuarios que no estaban asociados a gestores.

Pero la duda me aquejaba acerca de si esto era una constante en las relaciones WHERE NOT IN asi que me leí el magnífico artículo de Firebird Nulls Guide del sitio de Firebird, en el cual se explica mucho acerca del comportamiento de los valores nulos en las comparaciones y operaciones con Firebird, pero nada que me diera un Norte sobre porque mi consulta especificamente tenia un comportamiento tan errático. Probé con otras tablas de la misma base de datos y solo con estas dos me devolvia un conjunto vacío. Al rebuscar más meticulosamente cai en la cuenta de que la diferencia radicaba en que no había definido una regla de integridad referencial entre los campos de ambas relaciones, asi que raudo y veloz procedí a crearla:

 alter table AFI_GESTORES
add constraint FK_GES_USUARIO
foreign key (GES_USUARIO)
references GEN_USUARIOS(USU_ID)
on delete SET NULL
on update CASCADE

Y una vez hecho esto ya la primer consulta funciona perfectamente. Osea que al final de cuentas el problema es que la combinación de comparación del tipo WHERE [NOT] IN SELECT falla cuando en el subselect existen valores nulos y no hay una relación de integridad entre ambas relaciones, esto pareciera trivial, pero cuando en un sistema tratas de explotar al máximo los datos que tienes las consultas de este tipo suelen ser muy comunes y si tienes un sistema de consultas dinámicas o algun experto programado que haga estas consultas puede caer muy fácilmente en estos casos y no ser validado.

Entonces como conclusión de todo esto podemos emitir la siguiente sentencia:

¡Cuidado con Firebird! porque la combinación de comparación del tipo WHERE [NOT] IN SELECT falla cuando en el subselect existen valores nulos y no hay una relación de integridad entre ambas relaciones.

Pueden hacer sus pruebas en sus propias configuraciones y ver que otras implicaciones tiene este detalle, esperemos que esto se arregle pronto.

Una cadena = Un número único

2005-12-14T19:09:00.000-08:00

Esta función me pareció tres cosas: útil, interesante y sencilla


type 
  UInt64 = 0..9223372036854775807;

function Unc(s: string): UInt64;
var
  x: Integer;
begin
  Result := 0;
  for x := 1 to Length(s) do 
            Result := Result + ((Ord(s[x])) 
                         shl ((x - 1) * 8));
end;

La lógica detrás de la función no es complicada, si bien si muy práctica y útil en varios casos cuando al manejar elementos en memoria interesa obtener identificadores únicos por alguna serie de textos ( me he encontrado con casos así al trabajar con sistemas de redes o árboles). Un inconveniente es que los números que se obtienen por esta función son muchas veces números muy grandes (de hasta 64 bits) por lo que la aplicación en una BD como Firebird por ejemplo resulta un tanto complicada; pero bueno no es tan fácil tenerlo todo siempre.

¿Y tu que tan Espartano eres?

2008-07-11T00:40:00.001-07:00

No, no se trata de un concurso para ver quien grita mas fuerte "This is Spartaaa!", Se trata de un estilo de programación de hecho. Me he enterado hace poco de este estilo, y como ven en el enlace tiene que ver con la austeridad en todos los sentidos.

Particularmente yo no soy tan espartano, me gusta anteponer la reutilización de código y la mantenibilidad por encima de la austeridad, por ejemplo siempre prefiero llamar a una variable: MediaAritmeticadelaMuestra, que simplemente M, lo mismo para las funciones y procedimientos. Aunque si dedico muy buena parte de mi tiempo de trabajo a optimizar y simplificar procesos ya hechos; no me preocupa demasiado el aprovechar hasta el más infimo bit de memoria; prefiero aprovechar las jerarquías de la VCL, y usar patrones de diseño a diestra y siniestra.

¿A cuantos aquí el estilo de programación se les parecería a esto si fuera uno de los 300?:

Instalar Zeos 6.6.2 rc en Delphi 2007

2008-06-29T19:27:00.001-07:00

Hay algunos detallitos para instalar este paquete de componentes particularmente en Delphi 2007 pero te comparto como puedes instalarlos sin problemas ajustando solo una línea de código.

En primera se debe abrir el archivo ZeosDbo.groupproj de la carpeta Delphi11 que se encuentra en la carpeta packages y compilar uno a uno los paquetes que aparecen en el Project Manager.

De estos, el paquete a instalar es el que se llama ZComponentDesign.dproj, pero al instalarlo así nada mas solo da el mensaje de que el paquete ha instalado pero no registra ningún componente, para corregir esto solo hay que editar el código fuente del paquete, esto es dar click con el botón derecho del ratón sobre este paquete y seleccionar la opción View Source desde el Project Manager, y agregar la siguiente línea de código justo antes del end. final:

contains
ZComponentReg in '..\..\src\component\ZComponentReg.pas';

Una vez hecho esto es solo Guardar los cambios y volver a seleccionar Install y esta vez si estarán todos los componentes registrados.

Fable 2 para finales de año

2008-06-02T00:19:00.001-07:00

Me gustan los RPG's, (bueno, no tanto los de combates por turnos) existen 2 títulos que me han gustado bastante, el primero es el "Ocarina of Time" de la serie de Zelda (un clásico de clásicos), creación del gran Shigeru Miyamoto, y el segundo fué Fable The Lost Chapters de LionHead, creado por Peter Moulineaux.

Este último me gustó mucho por la ambientación y lo bien cuidado de ciertos detalles, como la excelente música, hasta donde llegó incluso el talento de el gran Danny Elfman.

Consecuentemente me encuentro entre los miles de fans que esperan el lanzamiento de la secuela Fable 2, que ya ha sido anunciado para el otoño de este año 2008. Para que vean mas o menos de que va el asunto vean este avance del juego:

¿¿Que tal?? ¿¿se ve bueno no??, hay muchos detalles muy interesantes , el señor Moulineaux es muy buen diseñador de video juegos y ha prometido una serie de características que destacarán a este juego de entre los demás de su tipo; una de estas muchas cosas que per-se ya es una gran mejora, es la utilización del motor físico de Havok, que es uno de los mejores y muy utilizado en otras recientes publicaciones de mucho éxito.

El encanto que ha caracterizado las creaciones de Peter Moulineaux es el involucramiento de las emociones y la moral del jugador en la trama de la historia, el poder jugar y llegar a sentirte bien o mal por haber tomado cierta decisión, la sensación de tristeza por la perdida de un compañero, o la humillación que otros personajes hacen al protagonista por la derrota sufrida y que terminan por tocar el animo mismo del que juega el rol. Esto amigos es un todo un arte y existen muchos libros y artículos que hablan al respecto, de hecho tengo un libro electrónico muy bueno, que aborda este tema desde diferentes perspectivas y es estupendo, si a alguien le interesa este tema le puedo enviar una copia, solo tiene que solicitarlo.

¿Porque Delphi 2007?

2008-05-29T17:41:00.001-07:00

Cuando me preguntan si he cambiado a Delphi 2007 solo por seguir la moda geek o cuales son mis razones para haber dejado Delphi 6, les contesto:

Bueno!!... son tantas cosas, que es difícil enumerarlas en orden de importancia, pero para muestra unos cuantos ejemplos:

Delphi Latino BlogRoll

2008-05-27T00:23:00.001-07:00

Seguramente muchos aquí conocen el sitio www.delphifeeds.com, un estupendo compendio de bitácoras acerca de Delphi y los productos de CodeGear, donde la comunidad angloparlante comparte muy interesantes artículos con el mundo.

A decir verdad en español también hay una buena cantidad de sitios de bitácoras que ofrecen estupendos artículos, y la cantidad de estas crece día con día; y la gran mayoría realmente merece que se le haga una reseña completa.

Por esta razón he incluido en mi Blog una sección de las llamadas BlogRoll, donde aparecen automáticamente los últimos artículos de las Bitácoras que leo sobre Delphi en Español, para que todos aquellos que me hacen el honor de visitarme puedan también visitar alguna de estas fabulosas páginas, y así potenciarlas. Y también esto es con el afán de incentivar a los brillantes autores a seguirnos deleitando con contenido de gran calidad como nos tienen acostumbrados.

Hasta el momento están incluidas en este BlogRoll bitácoras de renombrados programadores como: Ian Marteens, Nico Aragon, Al Gonzalez, Juan Antonio Castillo, Salvador Jover, Jose Castillo, Jhonny Suarez, y muchos, muchos mas.

Si tienes una página sobre Delphi con sindicación y deseas ser agregado a esta lista solo tienes que pedirlo y con gusto te agregamos. Así que si tienes algo que decirnos o enseñarnos, adelante! Seguro que entre todos podemos convertir el Embarcadero en un Majestuoso Puerto

Respaldos remotos con Firebird

2008-05-14T16:22:00.001-07:00

IBExpert (un gratuito gerenciador de Bases de Datos de Firebird) al estar conectado a una base de datos remota y entrar en la pantalla de Servicios y seleccionar la opción "Backup Database" nos dice el mensaje: "Take into account: Backup Files will be created in the server side!"

Esto al querer seleccionar el nombre de archivo con el que queremos que haga el respaldo; pero, ¿que pasa si lo que yo quiero es que el respaldo lo haga en mi propia computadora, no en el servidor?

Bien, en ese caso lo que puedo hacer es usar la linea de comandos y escribir esto:

gbak -b -z SERVIDOR:BASEDEDATOS "C:\localbackup.fbk" -verbose -user SYSDBA -password masterkey

Eso nos genera el respaldo en la máquina cliente, sin mayor problema. Solo hay que acotar que se necesita que en la máquina cliente se encuentre instalado Firebird o en su caso el servicio de GBAK para que esta magia funcione.

XBOX MEDIA CENTER un estupendo programa gratis y Open Source para tu consola

2008-05-07T01:21:00.001-07:00

Hace algunos meses, compré una vieja consola de XBOX de 20 gigas en disco duro (si, de las negras),esto con el afán de poder jugar algunos viejos juegos que nunca tuve oportunidad de jugar en su momento; en realidad nunca había tenido una consola de vídeo juegos propia, pero esta vez quería sacarle jugo a la televisión de 53 pulgadas que acababa de comprar. Todo iba bien, hasta que me enteré que podía conectar ese XBOX a mi laptop vía FTP y transferirle archivos a su disco duro; pero lo mejor fue cuando conocí el programa XBOX MEDIA CENTER.

El XBOX MEDIA CENTER (ó XBMC) convierte tu consola de vídeo juegos en un completo centro de entretenimiento digital, de opciones muy variadas, es un reproductor multimedia completo, sus bondades son muchas, pero les enumeraré las que yo mas utilizo:

Puedo ver las fotografías que saco con mi cámara digital, a lo grande en mi televisión, puedes rotar en automático las fotos o hacer zoom en la visualización de la foto, todo de una manera muy práctica con los controles del mando de la XBOX. Y aqui podemos repasar una y otra vez las fotos de las vacaciones, o las salidas a algún lugar interesante.
Reproduce perfectamente archivos de audio de todos los formatos que conozco, incluso reconoce automáticamente los archivos CDG + MP3, lo que convierte a la consola en un fantástico Karaoke, así que ahora en la casa ¡todos los días hay fiesta!, y nos la pasamos bailando y cantando todo tipo de música, le he ido tomando gusto a todos los géneros musicales gracias a esta estupenda característica.
Con los videos no se queda atrás, tiene integrados una enorme cantidad de CODECS con lo que prácticamente cualquier video descargado de la red puede visualizarse sin problemas, (incluido el formato rmvb que está tomando mucho auge por su alta calidad y el alto factor de compresión que utiliza); además el XBMC carga automáticamente archivos de subtítulos para las películas, lo que permite ver muy cómodamente series, películas, documentales, o los videos graciosos de YouTube, así que también tengo un cine personal en la sala de mi casa.

Aparte de todo esto tiene soporte Zip/Rar, un interprete de scripts del lenguaje Python, visualizaciones de fondo impresionantes para la música, su propio servidor FTP, conexión en linea con YouTube y otros sistemas para ver los trailers de las nuevas películas... ufff, en fin que es un gran estuche de monerías y no me alcanza todo este post para enumerar todo lo bueno que tiene, pero en la página del proyecto se enteran mejor.

El programa lo pueden conseguir principalmente en redes P2P y en algunos trackers de BitTorrent, es absolutamente gratis y está disponible el código fuente, definitivamente votaré por este proyecto en las futuras encuestas de SourceForge.

Es increíble todo en lo que puede convertirse una vieja consola de menos de 100 dólares.

Ventana Virtual 3D con Delphi

2008-04-30T09:36:00.001-07:00

¿Alguna vez pensaste en hacer una aplicación con Delphi a la que pudieras controlar de manera inalámbrica a distancia como la Wii o que la interfaz se ajustara automáticamente y en tiempo real a la posición de tu cuerpo con respecto a la pantalla?

El señor Paul van Dinther nos muestra que es bastante posible en el siguiente video usando Delphi y GLScene

This is a demonstration of a virtual window using OpenGL in GLScene (http://www.glscene.org) and Track IR (http://www.naturalpoint.com)

This technology is being developed by Dinther Product Design to be applied to a range of simulator systems we build. The idea is to allow drivers to lean in order to look around obstacles as we do in a car all the time to cover blind spots.

Cool... ¿no?,

Firebird SQL 2.1 ya está listo

2008-04-30T08:49:00.001-07:00

La versión 2.1 del afamado motor de base de datos, se esperaba desde finales del año pasado, y por fin ha visto la luz; Juan Antonio Castillo en su bitácora nos habla de las novedades que presenta esta versión, que no son pocas. Hay muchas mejoras que en general han sido aplaudidas por la comunidad de desarrolladores.

Yo he probado solo la versión embedded hasta ahora, y en primera instancia si se nota una ganancia en velocidad en la resolución de las consultas (con respecto a la versión 1.5 que es la que utilizo), las nuevas características añadidas al SQL del motor permiten hacer cosas espectaculares con una sola consulta; lo que aún no he probado por usar la versión embedded es el desempeño del nuevo protocolo de red; se prometía que las mejoras serían de un 50% aproximadamente, y hay que poner a prueba esa afirmación.

Si alguien ha hecho pruebas en este sentido sientase con libertad de compartirnos sus resultados.