FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index All products support Ftp di Internet explorer
Posts: 858
Joined: Fri Oct 07, 2005 12:00 PM
Ftp di Internet explorer
Posted: Mon Jun 25, 2007 08:18 AM

Salve,
fino ad ora ho utilizzato la classe ftp di Fivewin leggermente modificata in modo da avere una barra di progressione dello stato di avanzamento trasmissione e non ho mai avuto problemi.

Ad un cliente mi si presenta però un problema di crash nella trasmissione di files piuttosto grandi (circa 15MB). Credo il problema dipenda dalla qualità dell'Adsl visto che lo stesso file da me viene trasmesso.

Vorrei sapere se è possibile utilizzare un ftp alternativo per fare una prova e pensavo all'ftp di explorer.

Come faccio a chiamare da fivewin il classico ftp di explorer ("ftp://.....") e passargli i file di origine, destinazione, userid e password ?

Grazie in anticipo

Saluti

Marco

Best Regards,



Marco Turco

SOFTWARE XP LLP
Posts: 383
Joined: Tue Oct 11, 2005 01:01 PM
Ftp di Internet explorer
Posted: Mon Jun 25, 2007 08:30 AM

Marco,

penso che puoi fare tutto, meno indicare la destinazione (io non so come farlo)

ftp://utente:password@iltuoip/iltuofile

Saluti

Pedro Gonzalez
Posts: 113
Joined: Wed Feb 08, 2006 10:32 PM
Ftp di Internet explorer
Posted: Mon Jun 25, 2007 09:32 AM
Ciao,
puoi creare un file .bat e lanciarlo da riga comando con winexec() o waitrun()
ad es:

ftp -s:myftpjob -i -d myftpserver.it
pause


dove myftpjob contiene:

myusername
mypassword
send myfile.zip
quit


saluti a tutti
Roberto Chiaiese

Roberto Chiaiese
R&C Informatica S.n.c.
https://www.recinformatica.it
info@recinformatica.it

Harbour 3.2 - FW2512

Posts: 9022
Joined: Thu Oct 06, 2005 08:17 PM
Re: Ftp di Internet explorer
Posted: Mon Jun 25, 2007 09:32 AM

Per prima cosa prova con Filezilla e vedi se lo stesso file viene trasmesso regolarmente dal tuo cliente.

EMG

Posts: 9022
Joined: Thu Oct 06, 2005 08:17 PM
Ftp di Internet explorer
Posted: Mon Jun 25, 2007 09:33 AM

Sì, anche con il comando FTP puoi testare se dal tuo cliente va tutto bene. Se riesci ad inviare regolarmente con FTP o con Filezilla (magari prova con entrambi per sicurezza) allora il problema dev'essere nel programma.

EMG

Posts: 858
Joined: Fri Oct 07, 2005 12:00 PM
Ftp di Internet explorer
Posted: Wed Jun 27, 2007 08:46 AM

Grazie, entrambe i sistemi non permettono però di avere una barra di progressione che mostra lo stato di avanzamento dell'upload o sbaglio ?

Best Regards,



Marco Turco

SOFTWARE XP LLP
Posts: 113
Joined: Wed Feb 08, 2006 10:32 PM
Ftp di Internet explorer
Posted: Wed Jun 27, 2007 09:18 AM

Con il comando FTP sicuramente no, ma avevo capito che ti servisse qualcosa per fare dei test.
In ogni caso io uso questo metodo anche in applicazioni reali perchè (per ora) è quello che mi ha dato maggiore affidabilità trasferendo senza problemi file anche da 30-40MB, i file batch che mi servono li creo al volo da FW e poi eseguo il comando.
Forse meno elegante ma più sicuro :wink:

ciao
Roberto

Roberto Chiaiese
R&C Informatica S.n.c.
https://www.recinformatica.it
info@recinformatica.it

Harbour 3.2 - FW2512

Posts: 858
Joined: Fri Oct 07, 2005 12:00 PM
Ftp di Internet explorer
Posted: Wed Jun 27, 2007 09:39 AM

>Forse meno elegante ma più sicuro

Su questo hai ragione, utilizzavo anch'io il tuo sistema e non ho mai avuto problemi, tuttavia la banda di progressione mi serve assolutamente.

Best Regards,



Marco Turco

SOFTWARE XP LLP
Posts: 842
Joined: Mon Oct 10, 2005 01:29 PM
Ftp di Internet explorer
Posted: Wed Jun 27, 2007 01:03 PM
Io uso
   for n = 1 to Len( aSource )
      hSource = FOpen( aSource[ n ] )
      oFile = TFtpFile():New( aTarget[ n ], oFTP )
      oFile:OpenWrite()
	   oSay:SetText("Copia:" + aSource[ n ] +  " in  "  + aTarget[ n ])
      oProg3:SetRange( 0,  FSeek( hSource, 0, 2 ))
      oProg3:SetPos( 0 )
      FSeek( hSource, 0, 0 )
      nFile := 0
      SysRefresh()
      while ( nBytes := FRead( hSource, @cBuffer, nBufSize ) ) > 0  .and. ! lEnd
         oFile:Write( SubStr( cBuffer, 1, nBytes ) )
         oProg3:SetPos( nFile += nBytes )
			nTotal += nBytes
         SysRefresh()
      end
      FClose( hSource )
      oFile:End()
      if lEnd
        exit
      endif

		AddoLbx("Trasferimento file:" + aSource[ n ] + " completata " )
   next

Continue the discussion