FoxPro/Visual FoxPro - Mis amigos colegas como siempre yo molestandoles

   
Vista:

Mis amigos colegas como siempre yo molestandoles

Publicado por DOUGLAS (297 intervenciones) el 06/12/2007 18:20:21
hola, a todos y de antemanos agradezco su apoyo.
He tenido un inconveniente, con una aplicacion, la cual trabaja con word and excel.

1 Tengo una aplicacion que necesita de internet, me gustaria saber cuando se cae el internet o no hay internet en ese momento. es via conexion ASDL.
ya que cuando se ejecutan ciertas funciones y no hay internet. manda error, y eso para los usuarios es un problema del sistema claro por validacion, pero no propio ya que es de internet. quiero enviar un mensaje que diga no hay internet en este momento.
Gracias.

2 Cuando facturan en ciertas maquinas, y el propietario me ordeno desintalar todo los programas excel word.
hay un boton para activar esto.

MIEXCEL = CREATEOBJECT("EXCEL.APPLICATION")
RESP = IIF(TYPE("MIEXCEL")="O"," ","Microsoft excel no esta Instalado")
if !empty(resp)
=messagebox(resp,0+16,"Alerta")
endif

PERO ENVIA UN ERROR EN ESTA MAQUINAS YA QUE LA LINEA QUE ESTA MALA ES
LA PRIMERA YA QUE NUNCA SE VA A CREAR EL OBJETO SI NO ESTA INSTALADO WORD.

COMO HACER PARA QUE ME ENVIE
=messagebox("No esta instalado m. excel"0+16,"Alerta")
en ves de el error
he visto algo con tray catch. pero no se usarlo a ver si me ayudan.

2 tiene algun ejemplito de tray catch sencillo me lo pueden enviar.

GRACIAS.

DOUGLAS
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Mis amigos colegas como siempre yo molestandole

Publicado por enrique (1041 intervenciones) el 06/12/2007 18:56:29
1. esto lo reemplazas en cada funcion que conecte a internet (proba con una)
v_conec = prg_internet()
if v_conec = 1
ejecutas tus funciones
else
messagebox("Aparentemente no hay conexion",16,"")
endif

function prg_internet
parameter conectada
DECLARE SHORT InternetGetConnectedState IN wininet;
INTEGER @ lpdwFlags,;
INTEGER dwReserved
conectada= InternetGetConnectedState (1,0)
return conectada

2. creo que controlando el error 1733 (No se encuentra la definición de clase "nombre") en tu rutina de errores no deberías tener problemas
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar