FiveTech Software tech support forums

... ),;                             FileTimeToTime( oWin32FindData:nLastWriteAccess ) } )          end       endif       InternetCloseHandle( hFTPDir )    endif return aFiles function StripFromNull(str)   local nPos := at(chr(0), str), cRet := ""   if !empty(str) ...

... AS DWORD ) AS LONG; PASCAL FROM "InternetOpenA" LIB hLib DLL32 FUNCTION INETCLOSEHANDLE( hInternet AS LONG ) AS BOOL; PASCAL FROM "InternetCloseHandle" LIB hLib DLL32 FUNCTION INETCONNECT( hInternet AS LONG, cServerName AS LPSTR, nServerPort AS LONG, cUserName AS LPSTR, cPassword ...

... msginfo("Ningún archivo para la máscara: "+cMask) else msginfo("Archivo más reciente: "+lastFileinDir) endif */ endif INTERNETCLOSEHANDLE( hConnect ) INTERNETCLOSEHANDLE( hInternet ) return clastFileinDir #pragma BEGINDUMP #include "windows.h" #include "wininet.h" ...

Lucas, These functions are duplicated in ftp.prg or ftp.c. There is no ftp.* in FWH neither in Harbour, unless I miss something: fiveh32.lib(WININET.obj) : warning LNK4006: _HB_FUN_INTERNETOPEN ya se definió en ftp.obj; segunda definición omitida fiveh32.lib(WININET.obj) : warning LNK4006: _HB_FUN_I...

... As 8, lpszHeaders As 8, dwHeadersLength As 7, dwFlags As 7, dwContext As 7) As 7 FROM "InternetOpenUrlA" PASCAL Lib xdll DLL32 FUNCTION InternetCloseHandle( hSession AS LONG ) AS BOOL PASCAL LIB xdll

... hConnect, cOrigen, cDestino, 0, 0 ) alert (lOk) CATCH ALERT ("Error FTP.",,"Descarga","X",,.t.) END ENDIF INTERNETCLOSEHANDLE( hConnect ) INTERNETCLOSEHANDLE( hInternet ) RETURN nil 3) Llama a esa funcion desde cualquier parte de tu programa, sustituyendo ...

... := FTPPUTFILE( hConnect, cOrigen, cDestino, 0, 0 )          alert (lOk)       CATCH          alert ("Error FTP.")       END    ENDIF INTERNETCLOSEHANDLE( hConnect ) INTERNETCLOSEHANDLE( hInternet ) RETURN nil  

... !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" ...

... (c) 1997, 2000 Borland Error: Unresolved external 'InternetOpenA' referenced from C:\FWH\LIB\FIVEHC.LIB|WININET Error: Unresolved external 'InternetCloseHandle' referenced from C:\FWH\LIB\FIVEHC.LIB|WININET Error: Unresolved external 'InternetConnectA' referenced from C:\FWH\LIB\FIVEHC.LIB|WININET ...

... } ) end end if InternetCloseHandle(hFTPDir) end if cBuffer:=nil oWin32FindData:cBuffer:=nil oWin32FindData:=nil hFTPDir:=nil return aFiles Un Saludo.

... "usuario", "clave", INTERNET_SERVICE_FTP, 0, 0 ) ? FTPPUTFILE( hConnect, "envia.txt", "envia.txt", 0, 0 ) INTERNETCLOSEHANDLE( hConnect ) INTERNETCLOSEHANDLE( hInternet ) RETURN NIL #pragma BEGINDUMP #include "windows.h" #include "wininet.h" ...

... As Long dwReserved0 As Long dwReserved1 As Long cFileName As String * MAX_PATH cAlternate As String * 14 End Type Private Declare Function InternetCloseHandle Lib "wininet" (ByRef hInet As Long) As Long Private Declare Function InternetConnect Lib "wininet.dll" Alias ...

... ! FTPPUTFILE( hConnect, "\\My Storage\MobApp\error.txt", "c:\fpt\error.txt", 0, 0 ) MsgAlert('FTP failed') // fails here endif INTERNETCLOSEHANDLE( hConnect ) INTERNETCLOSEHANDLE( hInternet ) RETURN(NIL)

... on FTP Connection ") RETURN .F. ENDIF FTPPUTFILE( hConnect, "\\My Storage\\mobapp\\user.dbf", "user.dbf", 0, 0 ) INTERNETCLOSEHANDLE( hConnect ) INTERNETCLOSEHANDLE( hInternet ) RETURN NIL Regards Colin

... n2 AS LONG ) */ ferase ( CurDir() +"\"+aInfo[I,1]) else msginfo("konnte nicht gesendet werden: " + aInfo[I,1]) endif NEXT INTERNETCLOSEHANDLE( hConnect ) INTERNETCLOSEHANDLE( hInternet ) //msginfo("OK") endif RETURN NIL #pragma BEGINDUMP #include "windows.h" ...