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

#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

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

#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

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