FiveTech Software tech support forums

Posted: **Fri Oct 06, 2006 2:39 am**

Un saludo a todos :

Estoy usando la función InternetWriteFile() para realizar actualizaciones a un FTP y cuando el archivo tiene un tamaño mayor a 9kb la transaccion se corta.

Este es ejemplo del código que estoy usando :

Code: Select all


FUNCTION FtpWriteFile(cFtpSite,cFtpUser,cFtpPassword,cFtpLocal,cFtpRemote,oFtpMeter,nMeterStart,nMeterEnd)

    LOCAL hInternet, hConnect,lReturn, i
    local cBuffer:=space(1024)
    local nBufSize:=1024
    local handle
    local nSize
    local nProgress
    local nWritten:=0
    local lValue
    local nRange
    local hFile
    local nBytes

    nSize:=fsize(cFTPlocal)

    if oFTPMeter<>NIL
        nRange:=nMeterEnd-nMeterStart
    endif

    ftplog("")
    ftplog("Session FTPWRITEFILE - Site: "+cFtpRemote+" Local file:"+cFtpLocal+" Remote file: "+cFtpRemote)

    ftplog("Loading Wininet.dll")
    hLib := LoadLibrary( "\Windows\System32\wininet.dll" )
*    hLib := Control("wininet.dll",oDlg)
    ftplog("Done. Handle:"+str(hLib,10))

    ftplog("Calling InetOpen")
    hInternet := INETOPEN( "Anystring", 0, 0, 0, 0 )
    ftplog("Done. Handle:"+str(hInternet,10))

    ftplog("Calling hConnect")
    hConnect = INETCONNECT( hInternet, cFtpSite, 21, cFtpUser, cFtpPassword,INTERNET_SERVICE_FTP, 0, 0 )
    ftplog("Done. Handle:"+str(hConnect,10))

    ftplog("Calling FtpOpenFile")
    hFile := FtpOpenFile( hConnect, cFtpRemote, GENERIC_WRITE, FTP_TRANSFER_TYPE_BINARY, 0 )
    ftplog("Done. Handle:"+str(hFile,10))

    nProgress:=0
    handle:=fopen(cFtpLocal)
        while ( nBytes := FRead( handle, @cBuffer, nBufSize ) ) > 0
            lReturn:=InternetWriteFile(hFile, cBuffer, nBytes, @nWritten )
            if lReturn=.f.
                ftplog("Write error."+str(hFile,10))
            endif

            nProgress += nWritten
            ftplog("Wrote "+alltrim(str(nProgress,10))+" of "+alltrim(str(nSize,10)))
            if oFTPMeter<>NIL
                oFTPMeter:Set(nMeterStart+(nProgress*nRange)/nSize)
            endif
        end
        FClose( handle )

    lValue:=INETCLOSE( hFile )
    if lValue
        ftplog("Closing FtpOpenFile. Ok.")
    else
        ftplog("Closing FtpOpenFile. Error.")
    endif

    lValue:=INETCLOSE( hConnect )
    if lValue
        ftplog("Closing HCONNECT. Ok.")
    else
        ftplog("Closing HCONNECT. Error.")
    endif

    lValue:=INETCLOSE( hInternet )
    if lValue
        ftplog("Closing HINTERNET. Ok.")
    else
        ftplog("Closing HINTERNET. Error.")
    endif

    lValue:= FreeLibrary( hLib )
    if lValue<>0
        ftplog("Closing WININET. Ok.")
    else
        ftplog("Closing WININET. Error.")
    endif
    RETURN lReturn

Posted: **Fri Oct 06, 2006 5:08 am**

Hola Vikthor

Te mande algo al respecto a tu privado.

Saludos

Posted: **Fri Oct 06, 2006 2:11 pm**

Raymundo Islas M. wrote:Hola Vikthor

Te mande algo al respecto a tu privado.

Saludos

Raymundo :

Archivo recibido , gracias.

Analizando el código que tengo vs el tuyo, la diferencia está en el envío de los parámetros, la ruta de destino que yo estaba enviando , no era correcta.

FiveTech Software tech support forums

Ftp y InternetWriteFile()

Ftp y InternetWriteFile()