In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Antes de comenzar

Foro público de Xailer en español
Responder
perolero
Mensajes: 135
Registrado: Mar Dic 21, 2010 9:54 am

Antes de comenzar

Mensaje por perolero »

Hola:
Quisiera realizar algunas acciones antes de lanzar el modulo principal, como lectura de ficheros *.ini, etc y supongo que habra que hacerlo aqui:
Procedure Main()
Application:cTitle := "prueba"
Application:lUseReturn := .T.
TFormPrincipal():New( Application ):Show()
Application:Run()
Return
Como hay que hacerlo, tanto para acciones antes de lanzar el modulo principal como al terminar la aplicación.
Saludos,
Emilio Gil.
jrcpoli-quitar
Mensajes: 558
Registrado: Mar Feb 09, 2010 2:26 pm

Antes de comenzar

Mensaje por jrcpoli-quitar »

Emilio:
Yo lo hago así­:
Procedure Main()
REQUEST DBFCDX, DBFFPT
REQUEST HB_LANG_ES
REQUEST HB_CODEPAGE_ESMWIN
REQUEST TLabelBuddy
HB_LANGSELECT( "ES" )
HB_SETCODEPAGE( "ESMWIN" )
RddSetDefault("DBFCDX")
*
SET CENTURY ON
SET EPOCH TO ( Year(Date())-50 )
SET DELETED ON
SET DATE FRENCH
*
Application:cTitle := "Aplicación Concurso Club Españoles"
Application:lSingleInstance := .T.
Application:oIcon := "AAICONPAL"
Application:oHelp := Application:cDirectory + "Concurso.chm"
Application:lUseReturn := .T.
*
** Variables globales del sistema
AppData:AddData("gCaption", "Aviso de la Aplicación")
.....
.....
.....
*
** Llamada al formulario de inicio de la aplicación
Empezar()
Application:Run()
Return
Procedure Empezar()
LOCAL oEntrada
LOCAL cFile := Application:cDirectory + "Concurso.ini"
LOCAL cRutaAplication := Application:cDirectory
*
** Si no existe el fichero ini lo crea
IF !File(cFile)
WITH OBJECT TIni():Create(cFile)
:AddSection("CONFIG")
:AddSection("COMUNES")
:AddSection("INDIVIDUAL")
:AddSection("ENCESTE")
:AddSection("RELOJ")
:AddSection("PUERTOS")
:SetEntry("CONFIG","DBFDirectory",Application:cDirectory +
"Bases")
:SetEntry("CONFIG","NTXDirectory","")
:SetEntry("CONFIG","CDXDirectory",Application:cDirectory +
"Bases")
:SetEntry("CONFIG","DBFBenzing",Application:cDirectory +
"Benzing")
:SetEntry("CONFIG","CDXBenzing",Application:cDirectory +
"Benzing")
:SetEntry("CONFIG","CrearIndices",.F.)
:SetEntry("CONFIG","CrearDbf",.F.)
:SetEntry("CONFIG","Federacion","")
:SetEntry("COMUNES","ManualCompTodo",.T.)
:SetEntry("COMUNES","ManualCompAtraso",.F.)
:SetEntry("COMUNES","ManualCompAdelanto",.F.)
:SetEntry("COMUNES","ElectroCompTodo",.T.)
:SetEntry("COMUNES","ElectroCompAtraso",.F.)
:SetEntry("COMUNES","ElectroCompAdelanto",.F.)
:SetEntry("COMUNES","ManualProporcional",.T.)
:SetEntry("COMUNES","ElectroProporcional",.F.)
:SetEntry("INDIVIDUAL","DistanciaGeograficas",.F.)
:SetEntry("INDIVIDUAL","DistanciaExadecimal",.F.)
:SetEntry("INDIVIDUAL","DistanciaUtm",.T.)
:SetEntry("INDIVIDUAL","DistaciaFichero",.F.)
:SetEntry("ENCESTE","UsarCestas",.F.)
:SetEntry("PUERTOS","PuertoCcDuo","")
:SetEntry("PUERTOS","PuertoCensos","")
:SetEntry("PUERTOS","PuertoCarreras","")
*
** Grabar los datos
:Commit()
*
** Destruir el objeto
:End()
*
END WITH
ENDIF
*
** Leer Fichero Ini
WITH OBJECT TIni():New(Application:cDirectory + "Concurso.ini")
*
** Cargar el Nombre de la Federación
AppData:gNombFed := :GetEntry("CONFIG","Federacion", "")
*
** Destruir el Objeto
:End()
END
*
oEntrada:= TFormPrincipal():New( Application )
oEntrada:Show()
*
Return
Luego en el evento OnClose del formulario donde se cierra la aplicación
haces lo mismo con el fichero INI pero para grabar lo que quieras antes
de cerrarla.
METHOD FormClose( oSender, lClose ) CLASS TFormMenu
*
lClose := .F.
*
IF MsgNoYes("¿Deseas Abandonar la aplicación.?", AppData:gCaption)
** Acciones para grabar el fichero INI
*
lClose := .T.
*
ENDIF
*
RETURN lClose
José Ramón Castro.
El 10/03/2011 18:02, Emilio Gil escribió:
> Hola:
>
> Quisiera realizar algunas acciones antes de lanzar el
> modulo principal, como lectura de ficheros *.ini, etc y
> supongo que habra que hacerlo aqui:
>
> Procedure Main()
>
> Application:cTitle := "prueba"
> Application:lUseReturn := .T.
> TFormPrincipal():New( Application ):Show()
> Application:Run()
>
> Return
>
> Como hay que hacerlo, tanto para acciones antes de lanzar
> el modulo principal como al terminar la aplicaciíƒÂ³n.
>
> Saludos,
> Emilio Gil.
>
perolero
Mensajes: 135
Registrado: Mar Dic 21, 2010 9:54 am

Antes de comenzar

Mensaje por perolero »

Jose Ramón:
Muchí­simas gracias. Por cierto ¿tu eres el socio de Bingen verdad ?
Saludos,
Emilio
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5718
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:

Antes de comenzar

Mensaje por jfgimenez »

Emilio,
échale un vistazo a esto: http://xailer.info/esp/?p=17
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
jrcpoli-quitar
Mensajes: 558
Registrado: Mar Feb 09, 2010 2:26 pm

Antes de comenzar

Mensaje por jrcpoli-quitar »

Saludos:
No, no soy el socio de Bingen, estube en la reunión y creo que era el
de mayor edad de todos, vivo en Cartagena.
José Ramón Castro.
El 10/03/2011 18:44, Emilio Gil escribió:
> Jose RamíƒÂ³n:
>
> MuchíƒÂ­simas gracias. Por cierto í‚¿tu eres el socio de
> Bingen verdad ?
>
> Saludos,
> Emilio
perolero
Mensajes: 135
Registrado: Mar Dic 21, 2010 9:54 am

Antes de comenzar

Mensaje por perolero »

Ok, ya se quien eres, cominos uno al lado del otro, era el que estaba a ti izquierda.
Saludos,
Emilio.
jrcpoli-quitar
Mensajes: 558
Registrado: Mar Feb 09, 2010 2:26 pm

Antes de comenzar

Mensaje por jrcpoli-quitar »

Yo si sabia quien eras, ¿ has solucionado el tema de los recursos ? al
cual te respondí­ ayer y no sé si he acertado con la respuesta.
José Ramón Castro.
El 10/03/2011 19:11, Emilio Gil escribió:
> Ok, ya se quien eres, cominos uno al lado del otro, era el
> que estaba a ti izquierda.
>
> Saludos, Emilio.
>
ssi-estono-
Mensajes: 239
Registrado: Sab Ene 24, 2009 8:23 pm

Antes de comenzar

Mensaje por ssi-estono- »

Venga chicos, para que no pase esto podiamos poner una fotico de cada uno.
Paco V
"Emilio Gil" <emilio-gil[at]hotmail[dot]com> escribió en el mensaje
news:4d791454$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Ok, ya se quien eres, cominos uno al lado del otro, era el
> que estaba a ti izquierda.
>
> Saludos, Emilio.
>
Responder