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

Hola.

¿Has probado con las clases nativas de Harbour?.

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

¿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.

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