FiveTech Support Forums

  oInternet:=tinternet():New()
  sysrefresh()
  oFtp     :=tFtp():New(cServer,oInternet,cUser,cPass)
  if !Empty( oFtp:hFtp )
   aFiles :=oFtp:Directory(lower(ALLTRIM(actual_CA)+'/*.'+cextension)) && CUIDADO: Se tiene en cuenta las MAYUSC/minusc
   if Len(aFiles)>0
     SndPlaySound( ".\alarma.wav" )
     oText:SetText('Descargando archivo... espere...')
     GetFileT( (ALLTRIM(actual_CA)+'/'+carchivo),aFiles[nposi,2],oFtp,carchivo,oText,oDlgj) && descargando archivo con la información de las novedades de la nueva versión a instalar
     if file(camino+"\"+carchivo)
      CURSORARROW()
      ShellExecute(,"open",camino+'\'+carchivo) 
     endif
   endif
 endif

....

FUNCTION GetFileT( cSource,nSize,oFtp,cnamefile,oText,oDlguu ) && para descargar el archivo TXT
   LOCAL oFile, hTarget, lValRet:=.F.
   LOCAL nBufSize,cBuffer,nBytes, nTotal:=0,nFile:=0
   nBufSize:=4096
   cBuffer:=Space(nBufSize)
   hTarget := FCreate(camino+'\'+cnamefile)
   oFile := tFtpFile():New( cSource, oFtp )
   oFile:OpenRead()
   WHILE  ( nBytes := Len( cBuffer := oFile:Read( nBufSize ) ) ) > 0
      FWrite( hTarget, cBuffer, nBytes )
      nTotal+=nBytes
      oMeter:Set( nTotal )
      SysRefresh()
   END
   FClose( hTarget )
   oFile:End()
RETURN nTotal==nSize

HINTERNET InternetConnect(
  _In_ HINTERNET     hInternet,
  _In_ LPCTSTR       lpszServerName,
  _In_ INTERNET_PORT nServerPort,
  _In_ LPCTSTR       lpszUsername,
  _In_ LPCTSTR       lpszPassword,
  _In_ DWORD         dwService,
  _In_ DWORD         dwFlags,
  _In_ DWORD_PTR     dwContext
);

 hWinINet    := WinINet()
oInternet   := InternetOpen( "Anystring", 1, 0, 0, 0 )
if hConnect := InternetConnect( oInternet, cServer, 21, cUser, cPass, 1, 0, 0 ) ==0  && primer 0=puerto (21), 1, 2, 0
 msginfo('NO puedo conectar a '+cServer) ; return
endif
cnom:='Publicomercios.bmp'
cSource=(ALLTRIM(actual_CA)+cnom)
hSource = FTPOPENFILE( hConnect, cSource , 2147483648, 0, 0 )
hDest = FCREATE( camino+cnom )
do while .t.
  nRead = INTERNETREADFILE( hSource, @cData )
  if nRead = -1
     msginfo( "Download error" )
     exit
  endif
  if nRead = 0
     msginfo( "Download OK" )
     exit
  endif
  FWRITE( hDest, cData, nRead )
enddo
if file(camino+cnom)
  msginfo('filesize: '+str(FileSize(camino+cnom)))
 else
  msginfo('En PC NO encuentro el archivo '+cnom)
ENDIF
INTERNETCLOSEHANDLE( hSource )
INTERNETCLOSEHANDLE( hConnect )
INTERNETCLOSEHANDLE( oInternet )
...
...


DLL32 FUNCTION InternetOpen( cApp as LPSTR, n1 AS DWORD, n2 AS LPSTR, n3 AS LPSTR,;
                             n4 AS DWORD ) AS LONG PASCAL ;
                             FROM "InternetOpenA" LIB hWinINet

DLL32 FUNCTION InternetConnect( hSession AS LONG, cHost AS LPSTR, nPort AS LONG,;
                                cUserName AS LPSTR, cPassword AS LPSTR, n4 AS LONG, n5 AS LONG,;
                                n6 AS LONG ) AS LONG PASCAL ;
                                FROM "InternetConnectA" LIB hWinINet