AppData y HDSerial

[zeasoftware]

1.- No se puede usar o anexar una variable a AppData en un Init Function?
Function SerialHD()
Local cSerial
AppData:AddData(Serial, "2217651579" )
Return ( cSerial )
Marca error GPF.
2.- Existe en xHarbour o Xailer alguna funcion para obtener datos o el
#serie del disco duro?
Saludos.
--
Ramón Zea
ramonzea@yahoo.com
http://www.paginasprodigy.com/zeasoft/

[Yamil Bracho]

Ramon, no se si sera eso pero no inicializas el valor de la variable
cSerial. Asi te queda
Function SerialHD()
Local cSerial := "2217651579"
AppData:AddData(Serial, cSerial )
Return ( cSerial )
Con respecto a tu segunda pregunta debe haber una funcion en el Win32 API
para hacer lo que quieres... No la tengo a la mano ...
"Ramón Zea" <zeasoftware@hotmail.com> wrote in message
news:[email=44641033@ozsrvnegro.ozlan.local...]44641033@ozsrvnegro.ozlan.local...[/email]
> 1.- No se puede usar o anexar una variable a AppData en un Init Function?
>
> Function SerialHD()
> Local cSerial
>
> AppData:AddData(Serial, "2217651579" )
>
> Return ( cSerial )
>
> Marca error GPF.
>
> 2.- Existe en xHarbour o Xailer alguna funcion para obtener datos o el
> #serie del disco duro?
>
> Saludos.
> --
> Ramón Zea
> ramonzea@yahoo.com
>
> http://www.paginasprodigy.com/zeasoft/
>
>

[jfgimenez]

Ramón,
> 1.- No se puede usar o anexar una variable a AppData en un Init Function?
No se debe hacer dentro de una INIT FUNCTION, ya que el compilador no
garantiza el orden en el que se ejecutarán todas las INIT FUNCTION, y podría
ser que intentes accerder al objeto AppData cuanto todavía no existe.
Deberías hacerlo desde el procedure main del programa. Revisa los artículos
http://levante3000.org/blogs/blogs/inde ... =tecnicas_ avanzadas_con_xailer_1&more=1&c=1&tb=1&pb=1 y
http://levante3000.org/blogs/blogs/inde ... =tecnicas_ avanzadas_con_xailer_el_codigo_&more=1&c=1&tb=1& amp;pb=1
donde se explica cómo poner la función que tú quieras al inicio del
programa.
> AppData:AddData(Serial, "2217651579" )
es:
AppData:AddData( "Serial", "2217651579" )
> 2.- Existe en xHarbour o Xailer alguna funcion para obtener datos o el
> #serie del disco duro?
El API de windows tiene funciones para leer el número de serie lógico del
volumen (el número que aparece al poner DIR desde la línea de comandos),
pero no para obtener el número de serie físico del disco duro.
--
Un saludo,
José F. Giménez
http://www.xailer.com

[zeasoftware]

La cosa es que quiero usar un equivalente a las Ini Function, pero veo que
para lo que quiero no me estan sirviendo, y ahora opte por anexar a un
metodo en una clase y definirla como CONSTRUCTOR.
En mis vagos recuerdos de Pascal CONSTRUCTOR indicaba al compilador una
clase la cual se ejecutaba cuando se invocaba a dicho objeto, asi si este lo
heredaba al otro no tenia que forzar a ejecutar un methodo que me
inicializara las variables en cada uno de los objetos utilizados.
Indique un methodo CONSTRUCTOR pero este no se auto-ejecuta.
El InitApp lo puse para representar y si estaba mal escrito, jejejeej, error
de dedo por no copiar y pegar.
Saludos.
PD. que API ocupo para el Serial?
--
Ramón Zea
ramonzea@yahoo.com
http://www.paginasprodigy.com/zeasoft/