Muy buenas, tengo un par de dudas sobre el GPRS, mirar he compilado un código para ver si funciona la conexion y envio de ficheros via FTP en GPRS pero el problema radica en que la PDA no conecta con GPRS, entonces para ver si funciona he lanzado el Internet Explorer (entonces ya se conecta el GPRS) y una vez hecho eso ejecuto mi programa y funciona perfectamente, entonces, ¿Que puedo hacer para que conecte y desconecte GPRS como hace el explorer?
Mi código es:
include "Fwce.ch"
//
// File attributes
//
define FILE_ATTRIBUTE_READONLY 1
define FILE_ATTRIBUTE_HIDDEN 2
define FILE_ATTRIBUTE_SYSTEM 4
define FILE_ATTRIBUTE_DIRECTORY 16
define FILE_ATTRIBUTE_ARCHIVE 32
define FILE_ATTRIBUTE_NORMAL 128
define FILE_ATTRIBUTE_TEMPORARY 256
//
// access types for InternetOpen()
//
define INTERNET_OPEN_TYPE_PRECONFIG 0 // use registry configuration
define INTERNET_OPEN_TYPE_DIRECT 1 // direct to net
define INTERNET_OPEN_TYPE_PROXY 3 // via named proxy
define INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY 4 // prevent using java/script/INS
//
// manifests
//
define INTERNET_INVALID_PORT_NUMBER 0 // use the protocol-specific default
define INTERNET_DEFAULT_FTP_PORT 21 // default for FTP servers
define INTERNET_DEFAULT_GOPHER_PORT 70 // " " gopher "
define INTERNET_DEFAULT_HTTP_PORT 80 // " " HTTP "
define INTERNET_DEFAULT_HTTPS_PORT 443 // " " HTTPS "
define INTERNET_DEFAULT_SOCKS_PORT 1080 // default for SOCKS firewall servers.
//
// service types for InternetConnect()
//
define INTERNET_SERVICE_FTP 1
define INTERNET_SERVICE_GOPHER 2
define INTERNET_SERVICE_HTTP 3
//
// flags for FTP
//
define INTERNET_FLAG_TRANSFER_ASCII 1
define INTERNET_FLAG_TRANSFER_BINARY 2
FUNCTION MAIN()
LOCAL hInternet, hConnect
hInternet = INTERNETOPEN( "Anystring", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 )
msginfo(hInternet)
hConnect = INTERNETCONNECT( hInternet, "servidor ftp", INTERNET_DEFAULT_FTP_PORT, "usuario", "clave", INTERNET_SERVICE_FTP, 0, 0 )
msginfo(hConnect)
// ? FTPGETFILE( hConnect, "Your remote file", "Your local file", 0, FILE_ATTRIBUTE_ARCHIVE, 0, 0 )
IF hConnect==0
MsgStop('Error al conectar FTP via GPRS')
ELSE
MsgInfo('GPRS O K!','Chequeo conexión')
? FTPPUTFILE( hConnect, "\Gprs\busca.bmp", "/public_html/busca.bmp", 2, 0 )
ENDIF
INTERNETCLOSEHANDLE( hConnect )
INTERNETCLOSEHANDLE( hInternet )
RETURN NIL
pragma BEGINDUMP
include "windows.h"
include "wininet.h"
include "hbapi.h"
LPWSTR AnsiToWide( LPSTR );
HB_FUNC( INTERNETOPEN )
{
LPWSTR cAgent = AnsiToWide( hb_parc( 1 ) );
LPWSTR cProxyName = AnsiToWide( hb_parc( 3 ) );
LPWSTR cProxyBypass = AnsiToWide( hb_parc( 4 ) );
HINTERNET hInternet = InternetOpen( cAgent, hb_parnl( 2 ), cProxyName, cProxyBypass, hb_parnl( 5 ) );
hb_xfree( cAgent );
hb_xfree( cProxyName );
hb_xfree( cProxyBypass );
hb_retnl( ( LONG ) hInternet );
}
HB_FUNC( INTERNETCLOSEHANDLE )
{
hb_retl( InternetCloseHandle( ( HINTERNET ) hb_parnl( 1 ) ) );
}
HB_FUNC( INTERNETCONNECT )
{
LPWSTR cServerName = AnsiToWide( hb_parc( 2 ) );
LPWSTR cUserName = AnsiToWide( hb_parc( 4 ) );
LPWSTR cPassword = AnsiToWide( hb_parc( 5 ) );
HINTERNET hInternet = InternetConnect( ( HINTERNET ) hb_parnl( 1 ), cServerName, ( INTERNET_PORT ) hb_parnl( 3 ), cUserName, cPassword, hb_parnl( 6 ), hb_parnl( 7 ), hb_parnl( 8 ) );
hb_xfree( cServerName );
hb_xfree( cUserName );
hb_xfree( cPassword );
hb_retnl( ( LONG ) hInternet );
}
HB_FUNC( FTPGETFILE )
{
LPWSTR cRemoteFile = AnsiToWide( hb_parc( 2 ) );
LPWSTR cNewFile = AnsiToWide( hb_parc( 3 ) );
hb_retl( FtpGetFile( ( HINTERNET ) hb_parnl( 1 ), cRemoteFile, cNewFile, hb_parl( 4 ), hb_parnl( 5 ), hb_parnl( 6 ), hb_parnl( 7 ) ) );
hb_xfree( cRemoteFile );
hb_xfree( cNewFile );
}
HB_FUNC( FTPPUTFILE )
{
LPWSTR cLocalFile = AnsiToWide( hb_parc( 2 ) );
LPWSTR cNewRemoteFile = AnsiToWide( hb_parc( 3 ) );
hb_retl( FtpPutFile( ( HINTERNET ) hb_parnl( 1 ), cLocalFile, cNewRemoteFile, hb_parnl( 4 ), hb_parnl( 5 ) ) );
hb_xfree( cLocalFile );
hb_xfree( cNewRemoteFile );
}
pragma ENDDUMP
Muchas Gracias.