FiveTech Software tech support forums

... correctamente: FtpSendFile(cFTP, cSource, cTarget, nVar41, nVar42, 14147 ) FUNCTION FtpSendFile( cFTPSite, cSource, cTarget, cUser, cPass, nBufSize ) LOCAL oInternet, oFTP DEFAULT cUser:="", cPass:="", nBufSize:=2000 IF EMPTY(cFtpSite) .or. EMPTY(cSource) .or. EMPTY(cTarget) ...

Gustavo, EL ejemplo que tu me enviaste, con la pequeña modificación que te indiqué (nBufSize), parace funcionar correctamente. Puedes comprobar si ha llegado el fichero fwintro.pdf a tu servidor FTP ? gracias //////////////////////////////////////////////////////////////////////////////// ...

... :=FOpen(cFileOrigen) cFileFTP:='httpdocs/Clientes/Archivo.txt' oFile :=TFtpFile():New(cFileFTP, oFTP) oFile:OpenWrite() FSeek(hSource, 0, 0) nBufSize:=2000000 cBuffer :=space(nBufSize) do while ( nBytes:=FRead( hSource, @cBuffer, nBufSize ) ) > 0 oFile:Write( SubStr( cBuffer, 1, nBytes ...

... function xlee(hsource) local hTarget local cBuffer := Space(4000) local nBytes, nFile := 0, nTotal := 0 local nTotSize := 0 local nBufsize:=4000 local xfile:="" hSource = FOpen( hsource) while ( nBytes := FRead( hSource, @cBuffer, nBufSize ) ) > 0 xfile:=xfile+left(cbuffer,nBytes) ...

... Function FTPSendFiles( cFTPSite, aSource, aTarget, cUserFtp, cPassFtp ) Local lEnd := .f. Local nBufSize := 2000 Local oInternet, oFTP oInternet := TInternet():New() if Empty( oInternet:hSession ) MsgAlert( "Sin Conexión a Internet!" ...

... Function FTPSendFiles( cFTPSite, aSource, aTarget, cUserFtp, cPassFtp ) Local lEnd := .f. Local nBufSize := 2000 Local oInternet, oFTP MsgRun( "Conectando al Sitio FTP...", "Espere...",; { || oInternet := TInternet():New(),; ...

... Function FTPSendFiles( cFTPSite, aSource, aTarget, cUserFtp, cPassFtp ) Local lEnd := .f. Local nBufSize := 2000 Local oInternet, oFTP MsgRun( "Conectando al Sitio FTP...", "Espere...",; { || oInternet := TInternet():New(),; ...

... using the TFtpFile class also result in no bytes to be transfered. oFile = TFtpFile():New( aSource[ n ], oFTP ) oFile:OpenRead() oFile:Read( nBufSize ) Any ideas why I can't see or use files on the FTP site? I'm using FWH 10.1 with xHarbour 1.2 and Borland BCC 5.5 Thank you in advance for ...

... cFTPSite, aSource, aTarget ) local oDlg, oSay1, oSay2, oSay3, oBtnCancel local oMeter1, oMeter2 local nAmount1, nAmount2 local lEnd := .f. local nBufSize := 4096 //2000 local oInternet, oFTP MsgRun( "Connecting to FTP...", "Please, wait",{ || oInternet := TInternet():New(),; ...

... MisAreas() ENDIF return nil //----------------------------------------------------------------------------// function CopyFiles( aSource, aTarget, nBufSize ) local oDlg, oSay1, oSay2, oSay3, oBtnCancel local oMeter1, oMeter2 local nAmount1, nAmount2 local lEnd := .f. DEFAULT nBufSize := 4000 DEFINE ...

... venia como ejemplo en FW //----------------------------------------------------------------------------// function CopyFiles( aSource, aTarget, nBufSize ) local oDlg, oSay1, oSay2, oSay3, oBtnCancel local oMeter1, oMeter2 local nAmount1, nAmount2 local lEnd := .f. DEFAULT nBufSize := 4000 DEFINE ...

... 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 ) local nBytes, nFile := ...

... 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 ) local nBytes, nFile := ...

... 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 ) local nBytes, nFile := ...

... aFiles[ n,1 ] ) oFile = TFtpFile():New( "out/"+aFiles[ n, 1 ], oFTP ) oFile:OpenRead() SysRefresh() while ( nBytes := Len( cBuffer := oFile:Read( nBufSize ) ) ) > 0 FWrite( hTarget, cBuffer, nBytes ) SysRefresh() end FClose( hTarget ) oFTP:DeleteFile("out/"+aFiles[ n, 1 ]) oFile:End() nFiles++ ...