Archivos runtime de VFP

Enlace a la página de FoxProWiki con el listado de los archivos runtimes necesarios para correr un ejecutable de VFP.



Para VFP9:
http://fox.wikis.com/wc.dll?Wiki~VFP9RuntimeFiles

Para VFP8:
http://fox.wikis.com/wc.dll?Wiki~VFP8RuntimeFiles

Para VFP7:
http://fox.wikis.com/wc.dll?Wiki~VFP7RuntimeFiles

---

Ejecuto un EXE de VFP y finaliza instantáneamente

¿Quién no ha leído preguntas de este tipo alguna vez en el grupo de noticias?: "...cuando lo ejecuto se abre y cierra el programa y no da ningún tipo de error..." o "...funciona bien en el entorno de programación, pero al hacerlo ejecutable abre y cierra..." o "...al hacer doble clic sobre el ejecutable se cierra el programa automaticamente..." son frecuentes en distintos foros de Visual FoxPro.

Esto ocurre porque en nuestro programa principal debemos añadir un bucle de eventos para esperar los eventos del usuario, tales como un click de ratón o la pulsación de una tecla.

Un bucle de eventos comienza con un comando READ EVENTS y finaliza con un comando CLEAR EVENTS que retorna el control al programa que inició el bucle de eventos.

Si no incluimos en nuestro programa principal un comando READ EVENTS, el programa se ejecutará correctamente desde la ventana comandos de Visual FoxPro, pero cuando ejecutamos la aplicación desde el archivo EXE generado, esta aparecerá durante unos instantes y finalizará.

Una estructura de un programa principal deberia disponer los siguientes puntos:

1. Establecer las configuraciones iniciales, inicializar variables, abrir bases de datos, etc.
   
2. Establecer la interface inicial ejecutando un menú o un formulario.
   
3. Establecer un bucle de eventos ejecutando el comando READ EVENTS.
   
4. Establecer la finalización del bucle de eventos desde la opción Salir del menú o el botón Salir del formulario con el comando CLEAR EVENTS.
   
5. Terminar el programa cerrando las bases de datos, liberando variables, etc.

El código de un programa principal siguiendo los pasos anteriores seria:

*-----------------
*-- Principal.prg
*-----------------
*-- Configuraciones iniciales
DO Inicio.prg
*-- Mostrar la interface inicial
DO MenuPrincipal.MPR  &&  Menú principal
*- ó 
DO FORM FormPrincipal  && Formulario principal
*-- Iniciar el bucle de eventos
READ EVENTS
*-- Terminar el programa
DO Termina.prg

Recordar que el menú (en su opción Salir) o el formulario principal (en el botón Salir o en el método Destroy) deben incluir el comando CLEAR EVENTS para finalizar el bucle de eventos. Al ejecutar CLEAR EVENTS la ejecución del programa continúa en la línea siguiente al comando READ EVENTS.

Un breve ejemplo

El siguiente ejemplo es un programa que:

1. Genera el archivo EJEMPLO.PRG que muestra un formulario principal como formulario de nivel superior e inicia un bucle de eventos. La finalización del bucle de eventos está alojada en el método Destroy del formulario.
   
2. Crea y construye el proyecto EJEMPLO.PJX estableciendo como principal a EJEMPLO.PRG.
   
3. Crea y genera el archivo ejecutable EJEMPLO.EXE a partir del proyecto EJEMPLO.PJX.

LOCAL lc
SET SAFETY OFF
TEXT TO lc NOSHOW 
*-- Inicio del programa Ejemplo.prg
LOCAL loForm AS FORM
_SCREEN.VISIBLE = .F.
loForm = CREATEOBJECT('FormPrincipal')
loForm.SHOW
MESSAGEBOX("Se iniciará el bucle de eventos",64, "READ EVENTS")
READ EVENTS
MESSAGEBOX("Terminó el bucle de eventos",64, "CLEAR EVENTS")
_SCREEN.VISIBLE = .T.
RETURN

DEFINE CLASS FormPrincipal AS FORM
  CAPTION = "Ejemplo de un bucle de eventos"
  SHOWWINDOW = 2
  AUTOCENTER = .T.
  HEIGHT = 480
  WIDTH = 640
  ADD OBJECT cmdSalir AS COMMANDBUTTON WITH ;
    CAPTION = "Salir", ;
    HEIGHT = 40, WIDTH = 100, ;
    TOP = 400, LEFT = 500

  PROCEDURE cmdSalir.CLICK
    RELEASE THISFORM
  ENDPROC

  PROCEDURE DESTROY
    CLEAR EVENTS
  ENDPROC

  PROCEDURE CLICK
    WAIT WINDOWS "Evento click en el formulario" NOWAIT
  ENDPROC
ENDDEFINE

*-- Fin de Ejemplo.prg
ENDTEXT

*-- Genero el PRG, PJX y EXE
STRTOFILE(lc,"Ejemplo.prg")
BUILD PROJECT Ejemplo.pjx FROM Ejemplo.prg
BUILD EXE Ejemplo.EXE FROM Ejemplo.pjx
MESSAGEBOX("Ahora ejecute el archivo EJEMPLO.EXE generado.",64,"Aviso")

Ejecutamos el archivo EJEMPLO.EXE que generamos con el código arriba descrito y comprobamos que el bucle de eventos queda esperando los eventos del usuario (en este caso el evento "Click" en el formulario).

Hasta la próxima,

Luis María

Generar archivos .RAR desde linea de comandos con RAR32 para DOS

A veces no queremos que nuestros usuarios tengan instalado el WinRar o el WinZip y entonces decide escribir la presente rutina.

local qrar
qrar="rar32.exe a c:\midirectorioxls\miarchivo.rar *.xls"
set defa to c:\midirectorioxls
run/N7 &qrar
messagebox("Compactar el archivo  en formato rar",48)
wait windows "compactando datos  en archivo rar" nowait noclear
do while (FindWindow (0, "c:midirectorioxlsrar32.exe") > 0)
enddo
clear WINDOWS
set defa to c:\mydefault

Detalles:

Agregando /N7 permite poner inactiva y minimizada la ventana dos para saber cuando termina el proceso uso findwindow explicada en hilos anteriores y pregunto si existe el caption del form c:\midirectorioxls\rar32.exe que es el que vfp en este caso.

El rar32.exe, emx.exe y rsx.exe deben estar en la carpeta donde estan los datos, por eso ademas cambio en set dafault a dicha carpeta y luego recupero el que corresponde ya que sino no encuentra dichos archivos, otra opcion es ponerlos en el root o en windowssystem.

El rar32.exe lo pueden bajar desde www.rarlab.com

Espero le sirva.

Hernan Perez Tonini

Comentarios en nuestros programas

Agregue comentarios en sus programas para aumentar la legibilidad del código.

Una buena práctica de programación es comentar el código de nuestros programas. Esto nos ayudará a una mejor comprensión de código escrito en el pasado y mas aun si el código es compartido por un equipo de desarrollo de varias personas.

En Visual FoxPro existen varias formas de comentar nuestro código.

Quizás la forma mas conocida es iniciar una línea con el caracter " * " (asterisco) que nos indica el comienzo de una línea de comentarios no ejecutable en nuestro archivo de programa.

Ejemplo:

* Esto es un comentario de nuestro código

Otra forma similar es utilizar el comando " NOTE ", que también nos indica el comienzo de una línea de comentarios no ejecutable en nuestro código.

Ejemplo:

NOTE Esto es una línea de comentario

Otro comando que podemos utilizar para nuestros comentarios es " && "que indica que a continuación aparece un comentario en línea.

Ejemplo:

lnMes = 1
DO WHILE lnMes <= 12 && Ciclo de 12 meses
  lnMes = lnMes + 1
ENDDO && WHILE lnMes <= 12

La inserción de comentarios en línea para indicar el final de los comandos de programación estructurados IF ... ENDIF, DO WHILE ... ENDDO, CASE ... ENDCASE y FOR ... ENDFOR mejora significativamente la legibilidad del código.

Todas estas formas admiten el " ; " (punto y coma) al final de la línea de comentarios, que indica que el comentario continua en la linea siguiente

Ejemplo:

* Esto es un comentario que abarca ;
  dos líneas

NOTE Esto es una línea de comentarios que ;
  continua en la siguiente línea

IF DAY(DATE()) = 1 && Si es el primer día del ;
  mes se ejecuta el siguiente código
  ? "Primer día del mes"
ENDIF && DAY(DATE()) = 1

Otra buena práctica de programación es colocar texto al inicio de nuestros programas o funciones con datos como: nombre, autor, fecha, descripción, etc.

A partir de VFP8 tenemos la Caja de Herramientas (Toolbox) que nos permite tener plantillas de fragmentos de textos (text scrap) para añadir a nuestros programas con solo arrastrar y soltar (drag & drop). Por ejemplo podemos tener el siguiente fragmento de texto en el Toolbox para comenzar nuestros procemientos o funciones:

*---------------------
* PROCEDURE / FUNCTION
*---------------------
* Autor......:
* Fecha......: <<DATE()>>
* Descripción:
* Uso........:
* Parámetros.:
* Retorno....:
*---------------------

Con solo arrastrar y soltar el fragmento de texto desde el Toolbox a nuestro archivo de programa, este aparecerá escrito. En el fragmento de texto podemos tener texto de funciones o expresiones rodeados por delimitadores de combinación de texto (Ej: <<DATE()>>) que se evaluarán si en las propiedades del fragmento de texto (text scrap) marcamos la casilla de verificación "Evaluar usando text merge".

Luis María Guayán

Uso de AERROR() para errores ODBC

AERROR() es una función general de errores de Visual FoxPro que crea una matriz que contiene información sobre el último error de Visual FoxPro, OLE u ODBC.

Como ejemplo intentaremos ejecutar un comando SELECT de una tabla que no existe en el servidor de datos remoto.

Tambien capturamos el error con AERROR() si la conexión falla.

LOCAL lnHandle, laError, lcMsg, ln
DIMENSION laError[1]
*-- Especificar el DSN, Usuario y Contraseña correctos
lnHandle = SQLCONNECT('[Origen de datos SQL]','sa','')
IF lnHandle > 0
  SQLEXEC(lnHandle,'SELECT * FROM TablaQueNoExiste')
  IF AERROR(laError) > 0
    *-- Ocurrio un error
    * DISPLAY MEMORY LIKE laError
    lcMsg = ""
    FOR ln = 1 TO ALEN(laError,2)
      lcMsg = lcMsg + TRANSFORM(laError(1,ln)) + CHR(13)
    ENDFOR
    MESSAGEBOX(lcMsg, 16, "Error de ODBC")
  ENDIF
  SQLDISCONNECT(lnHandle)
ELSE
  IF AERROR(laError) > 0
    *-- Ocurrio un error
    * DISPLAY MEMORY LIKE laError
    lcMsg = ""
    FOR ln = 1 TO ALEN(laError,2)
      lcMsg = lcMsg + TRANSFORM(laError(1,ln)) + CHR(13)
    ENDFOR
    MESSAGEBOX(lcMsg, 16, "Error de ODBC")
  ENDIF
ENDIF

AERROR( ) crea una matriz con siete columnas y devuelve el número de filas de la matriz. El tipo de error que se produce determina el número de filas de la matriz.

Para mayor información vea la ayuda de la función AERROR().

Luis María Guayán