Hola,
Hace ya algún tiempo me quejé de que la lista de desarrolladores de xHarbour estaba vetada a los no desarrolladores. Yo, como ya dije en un post anterior, estoy apuntado a la lista de Harbour desde hace ya mucho tiempo (creo que 5 ó 6 años). La he estado siguiendo durante este tiempo con más o menos atención. Iba a temporadas. Pero en todos los casos estaba viendo en ‘directo’ las discusiones técnicas de los desarrolladores de mi lenguaje de programación favorito. Esto, desde mi humilde punto de vista, enriquece el conocimiento de la herramienta.
Ahora he leido en el foro que Patrick Mast ha prometido abrir la lista de desarrolladores de xHarbour a los ‘no desarrolladores’. Esta apertura, por lo que he podido entender, será de tipo solo lectura. Bien. Para mi es suficiente.
Si esto es así, creo que tendré una buena oportunidad de poder ver cómo dos proyectos comunes, con caminos separados, son conducidos por sus desarrolladores, y cuales son las motivaciones técnicas (y las no técnicas).
Espero que esta vez, tal y como ha dicho Patrick Mast en la lista de desarrolladores de Harbour, sí que se abra esa lista a todos los demás.
Saludos.
Octubre 20th, 2007
Hola,
Al final de estas lineas os dejo un proyecto Xailer donde he modificado el comportamiento de algunos métodos de la clase tdbfDataset para que nos informe de lo que está haciendo en ese momento la clase.
Xailer nos introdujo al mundo xBase la utilización de las clases X y T. Esta forma de jerarquizar las clases permite hacer algo que nos facilita mucho o muchísimo la adaptación a nuestras necesidades o a nuestros gustos las clases estándar de Xailer. En este caso concreto lo que he pretendido es mostrar al usuario, mediante unos bitmaps y unos textos, qué esta haciendo nuestra aplicación cuando se opera con tablas dbfs. La idea del ejemplo es sobreescribir la clase TdbfDataset para añadir antes y después de la llamada real un texto informando de la acción a realizar. Vamos a ver lo que he dicho con un ejemplo concreto:
CLASS TDbfDataSet FROM xDbfDataSet
METHOD Open()
ENDCLASS
METHOD Open( l ) CLASS TDbfDataSet
LOCAL u
TRY
Application:oMainForm:oStatusBar1:aItems[2]:cText := "Abriendo "+::cName
Application:oMainForm:oStatusBar1:aItems[2]:nImage := 2
CATCH
END
u := Super:Open( l )
TRY
Application:oMainForm:oStatusBar1:aItems[2]:cText := "Reposo"
Application:oMainForm:oStatusBar1:aItems[2]:nImage := 1
CATCH
END
RETURN u
Este método hace una llamada al método superior (super). Pero justo antes y justo después muestra información en Application:oMainForm:oStatusBar1:aItems[2]. Esto puede modificarse a gusto de cada uno. De hecho, y para los más puristas del OOP, esta no sería la mejor forma de hacerlo. No. Lo correcto sería añadir una data a la clase con el control que vamos a manipular y en el momento de la creación del objeto tdbfDatase indicar el control. Para el caso del ejemplo lo he simplificado por cuestiones de tiempo y claridad en el ejemplo.
Espero que os guste. Para cualquier cuestión o pregunta… me tenéis a vuestra disposición. Aquí podéis descargar el ejemplo.
Salud!
José Luis Capel
Octubre 14th, 2007
Hola,
Hace ya algún tiempo publiqué aquí la noticia del nacimiento de ourxdbu de mi amigo Miguel Angel Marchuet. Creo que ya ha pasado casi dos años desde entonces. Creo que este producto está ya muy estable y maduro para utilizarlo en producción. Yo lo utilizo habitualmente para consultar tablas dbfs y algunas bases de datos SqlServer. Me gustaría que le echárais un vistazo a esta herramienta y me déis vuestra opinión. Seguro que os gustará. Podéis descargar la última versión desde aquí. Este programa está en la lista ‘Top 10′ de descargas de xharbour.
Y lo dicho… Miguel Angel estás hecho un monstruo del (x)Harbour!!
Saludos a todos.
Octubre 13th, 2007
