FiveTech Software tech support forums

... oInternet, cUser, cPass ) IF Empty( oFTP:hFTP ) MsgStop( "Cannot connect to "+cFtpSite ) oInternet:End() return .f. ENDIF ENDIF SendFiles( cSource, cTarget, nBufSize, oFTP ) oInternet:End() return nil //----------------------------------------------------------------------------// ...

... intentandolo con el siguiente código que vi por aquí: //----------------------------------------------------------------------------// Function FTPSendFiles( cFTPSite, aSource, aTarget, cUserFtp, cPassFtp ) Local lEnd := .f. Local nBufSize := 2000 Local oInternet, oFTP oInternet := TInternet():New() ...

Así hago yo para subir archivos a un ftp //----------------------------------------------------------------------------// Function FTPSendFiles( cFTPSite, aSource, aTarget, cUserFtp, cPassFtp ) Local lEnd := .f. Local nBufSize := 2000 Local oInternet, oFTP MsgRun( "Conectando al Sitio ...

... { || FtpSend(salida,cServerFtp,cUserFtp,cPassFtp) } ) //----------------------------------------------------------------------------// Function FTPSendFiles( cFTPSite, aSource, aTarget, cUserFtp, cPassFtp ) Local lEnd := .f. Local nBufSize := 2000 Local oInternet, oFTP MsgRun( "Conectando ...

... a sample and is really elemantary) something like this: I tracked down the moment of freezing, it is when the FOR/NEXT loop starts in function sendfiles() ..........cFTPSite := "xx.xx.xx.xx"    IF lHaveZips   * Send both (ZIP and INI)   aTarget := { cFTPfile, cFTPmemoFile ...

... en FWH Ejemplo: #include "FiveWin.ch" * Archivo a enviar con que nombre se va a guardar function Main() // │ │ SET 3DLOOK ON // v v FTPSendFiles("ftp.Laquinta.com.pe",{"c:\dioni.zip"},{"/httpdocs/data2009/chura1.zip"}) * Archivo de FTP archivo a guardar ...

... desde windows vista, si se ven los archivos. //----------------------------------------------------------------------------// static function SendFiles( aSource, aTarget, nBufSize, oSay1, oSay2,; oMeter1, oSay3, oMeter2, lEnd, oDlg, oFTP ) local n local hSource local cBuffer := Space( nBufSize ...

... desde windows vista, si se ven los archivos. //----------------------------------------------------------------------------// static function SendFiles( aSource, aTarget, nBufSize, oSay1, oSay2,; oMeter1, oSay3, oMeter2, lEnd, oDlg, oFTP ) local n local hSource local cBuffer := Space( nBufSize ...

... desde windows vista, si se ven los archivos. //----------------------------------------------------------------------------// static function SendFiles( aSource, aTarget, nBufSize, oSay1, oSay2,; oMeter1, oSay3, oMeter2, lEnd, oDlg, oFTP ) local n local hSource local cBuffer := Space( nBufSize ...

... REDEFINE METER oMeter2 VAR nAmount2 ID 112 OF oCopia; PROMPT " " ; COLORS CLR_HGRAY, CLR_BLUE ; BARCOLOR CLR_HRED, CLR_BLUE oCopia:bStart := { || SendFiles( aSource, aTarget, nBufSize, oSay1, oSay2, oMeter1, oSay3, oMeter2,; @lEnd, oCopia, oFTP ,cFTPSite)} ACTIVATE DIALOG oCopia CENTERED ESPERO ...

... REDEFINE METER oMeter2 VAR nAmount2 ID 112 OF oCopia; PROMPT " " ; COLORS CLR_HGRAY, CLR_BLUE ; BARCOLOR CLR_HRED, CLR_BLUE oCopia:bStart := { || SendFiles( aSource, aTarget, nBufSize, oSay1, oSay2, oMeter1, oSay3, oMeter2,; @lEnd, oCopia, oFTP ,cFTPSite)} ACTIVATE DIALOG oCopia CENTERED ESPERO ...