Dudas Ejemplo GPRS

[Arturo Lopesoria]

ANTONIO, ELIAS TORRES, AMIGOS DEL FORO:

El 25 Oct 2007 Elias Torres publica en este foro un ejemplo para abrir de manera automatica el servicio de GPRS. Tengo 2 preguntas:

1.- Al compilar me manda error al no encontrar la referencia a CONNMGR_STATUS_CONNECTED. Me falta algún include? Cuál?

2.- Con el objeto de comunicarse vía GPRS por medio de FTP yo estoy usando primeramente InternetOpen, después InternetConnect, y a partir de ahí utilizo funciones para FTP. La pregunta concreta es: DEBO UTILIZAR GPRSCONNECT ANTES QUE INTERNETCONNECT?

GRACIAS. SALUDOS!

[Biel EA6DD]

Te debe faltar el include de "connmgr.h"

Code: Select all  Expand view  RUN

#pragma BEGINDUMP

#include "windows.h"
#include "wininet.h"
#include "hbapi.h"
#include "initguid.h"
#include "connmgr.h"
...


GprsConnect Debes utilizarlo antes de InternetOpen.
Ejemplo de funcion que conecta via GPRS, solo testea si pued abrir la conexion, y devuelve un mensaje.

Code: Select all  Expand view  RUN

//------------------
FUNCTION GprsTst()
//------------------
   LOCAL hInternet, hConnect:=0,nVeces:=0, hGprs
   CursorWait()
   hGprs:=GprsConnect()
   hInternet:= InternetOpen( "HnasMbl", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 )
   IF !hInternet==0
      WHILE hConnect==0 .AND. nVeces<3
         hConnect:=InternetConnect( hInternet, Trim(Cfg->Ip), Cfg->Puerto, Trim(Cfg->Usr), Trim(Cfg->Psw), INTERNET_SERVICE_FTP, 0, 0 )
         nVeces++
      END
      IF hConnect==0
         MsgStop('Error al conectar FTP via GPRS')
      ELSE
         MsgInfo('GPRS  O K!','Chequeo conexión')
      ENDIF
      InternetCloseHandle( hConnect )
      InternetCloseHandle( hInternet )
   ELSE
      MsgStop('GPRS no disponible')
   ENDIF
   GprsRelease(hGprs)
   CursorWE()
RETURN NIL

[Arturo Lopesoria]

Biel. Muchas Gracias, esto se ve mucho mas simple y sencillo de lo que ahora estoy haciendo, lo probare.
Saludos desde Mexico!

Te debe faltar el include de "connmgr.h"

Code: Select all  Expand view  RUN

#pragma BEGINDUMP

#include "windows.h"
#include "wininet.h"
#include "hbapi.h"
#include "initguid.h"
#include "connmgr.h"
...


GprsConnect Debes utilizarlo antes de InternetOpen.
Ejemplo de funcion que conecta via GPRS, solo testea si pued abrir la conexion, y devuelve un mensaje.

Code: Select all  Expand view  RUN

//------------------
FUNCTION GprsTst()
//------------------
   LOCAL hInternet, hConnect:=0,nVeces:=0, hGprs
   CursorWait()
   hGprs:=GprsConnect()
   hInternet:= InternetOpen( "HnasMbl", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 )
   IF !hInternet==0
      WHILE hConnect==0 .AND. nVeces<3
         hConnect:=InternetConnect( hInternet, Trim(Cfg->Ip), Cfg->Puerto, Trim(Cfg->Usr), Trim(Cfg->Psw), INTERNET_SERVICE_FTP, 0, 0 )
         nVeces++
      END
      IF hConnect==0
         MsgStop('Error al conectar FTP via GPRS')
      ELSE
         MsgInfo('GPRS  O K!','Chequeo conexión')
      ENDIF
      InternetCloseHandle( hConnect )
      InternetCloseHandle( hInternet )
   ELSE
      MsgStop('GPRS no disponible')
   ENDIF
   GprsRelease(hGprs)
   CursorWE()
RETURN NIL