FiveTech Software tech support forums

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!

Te debe faltar el include de "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.

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

Biel EA6DD wrote:Te debe faltar el include de "connmgr.h"

Code: Select all

#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

//------------------
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