No puedo acceder a mi FTP

[JoseLuis]

Buenos dias

Me gustaría saber a que puede ser debido que mediante código y con la clase tftp, no puedo acceder a mi ftp, y sin embargo mediante un cliente ftp (filezilla, total commander, etc.) no tengo ningún problema

Ya había expuesto este problema aqui:
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=22060
Pero se me había olvidado mencionar ésto último

Saludos

[mgsoft]

Hola.

¿Has probado con las clases nativas de Harbour?.

[mgsoft]

Prueba también con:

#include "Fivewin.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


//
// file access types
//

#define GENERIC_READ 2147483648
#define GENERIC_WRITE 1073741824


FUNCTION MAIN()

LOCAL oDlg, oPrg

DEFINE DIALOG oDlg

@ 2, 2 PROGRESS oPrg;
SIZE 100, 15

@ 3, 2 BUTTON "FTP download";
ACTION DOWNLOAD( oPrg )

ACTIVATE DIALOG oDlg;
CENTER

RETURN NIL


STATIC FUNCTION DOWNLOAD( oPrg )

LOCAL hInternet, hConnect, hSource, hDest, nRead

LOCAL cData := SPACE( 1024 )

LOCAL nPos := 0

hInternet = INTERNETOPEN( "Anystring", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 )

hConnect = INTERNETCONNECT( hInternet, "myftpaddress", INTERNET_INVALID_PORT_NUMBER, "myuserid", "mypassword", INTERNET_SERVICE_FTP, 0, 0 )

hDest = FTPOPENFILE( hConnect, "/emagsoftware.it/test/atest.prg", GENERIC_WRITE, 0, 0 )

oPrg:SetPos( 0 )

oPrg:SetRange( 0, FSIZE( "atest.prg" ) )

hSource = FOPEN( "atest.prg" )

WHILE .T.
nRead = FREAD( hSource, @cData, LEN( cData ) )

IF nRead = 0
IF FERROR() = 0
? "Upload OK"
ELSE
? "Read error"
ENDIF

EXIT
ENDIF

IF !INTERNETWRITEFILE( hDest, @cData, nRead )
? "Upload error"
EXIT
ENDIF

nPos += LEN( cData )

oPrg:SetPos( nPos )
ENDDO

FCLOSE( hSource )

INTERNETCLOSEHANDLE( hSource )

INTERNETCLOSEHANDLE( hConnect )

INTERNETCLOSEHANDLE( hInternet )

RETURN NIL


#pragma BEGINDUMP

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


HB_FUNC( INTERNETOPEN )
{
hb_retnl( ( LONG ) InternetOpen( hb_parc( 1 ), hb_parnl( 2 ), hb_parc( 3 ), hb_parc( 4 ), hb_parnl( 5 ) ) );
}


HB_FUNC( INTERNETCLOSEHANDLE )
{
hb_retl( InternetCloseHandle( ( HINTERNET ) hb_parnl( 1 ) ) );
}


HB_FUNC( INTERNETCONNECT )
{
hb_retnl( ( LONG ) InternetConnect( ( HINTERNET ) hb_parnl( 1 ), hb_parc( 2 ), ( INTERNET_PORT ) hb_parnl( 3 ), hb_parc( 4 ), hb_parc( 5 ), hb_parnl( 6 ), hb_parnl( 7 ), hb_parnl( 8 ) ) );
}


HB_FUNC( FTPOPENFILE )
{
hb_retnl( ( LONG ) FtpOpenFile( ( HINTERNET ) hb_parnl( 1 ), hb_parc( 2 ), hb_parnl( 3 ), hb_parnl( 4 ), hb_parnl( 5 ) ) );
}


HB_FUNC( FTPGETFILESIZE )
{
DWORD nFileSizeHigh;

hb_retnl( ( LONG ) FtpGetFileSize( ( HINTERNET ) hb_parnl( 1 ), &nFileSizeHigh ) );
}


HB_FUNC( INTERNETREADFILE )
{
DWORD nBytesRead;

BOOL lSuccess = InternetReadFile( ( HINTERNET ) hb_parnl( 1 ), hb_parc( 2 ), hb_parclen( 2 ), &nBytesRead );

if ( !lSuccess )
hb_retnl( -1 );
else
hb_retnl( nBytesRead );
}


HB_FUNC( INTERNETWRITEFILE )
{
DWORD nBytesWritten;

BOOL lSuccess = InternetWriteFile( ( HINTERNET ) hb_parnl( 1 ), hb_parc( 2 ), hb_parnl( 3 ), &nBytesWritten );

hb_retl( lSuccess );
}

#pragma ENDDUMP

[Manuel Valdenebro]

¿Y admite el servidor el modo comandos?

Recientemente me ha ocurrido con Webfusion el mismo problema (servidor Windows) y al consultarles me contestaron que por razones de seguridad, no admitian el acceso con comandos al servidor y me recomendaron Filezilla.

Prueba desde el dos con los comandos FTP. Si no puedes acceder, el problema es del servidor.

[JoseLuis]

Manuel

Así es, cuando leí tu mensaje he llamado a Arsys, y me han dicho lo que me comentas, que es por seguridad.

Lo que a mí me despistó fué que he estado funcionando durante cuatro años, y se me cortó hace poco, así que me toca emigrar a otro hosting.

Muchas gracias