FiveTech Software tech support forums

... ) MsgStop( "File not found: " + cSource ) Return .f. endif hSource = FOpen( cSource ) oFile = TFtpFile():New( cTarget, oFTP ) oFile:OpenWrite() FSeek( hSource, 0, 0 ) nFile := 0 while ( nBytes := FRead( hSource, @cBuffer, nBufSize ) ) > 0 oFile:Write( SubStr( cBuffer, 1, nBytes ...

... hSource :=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( ...

hmpaquito, Can you please tell me, what exactly is the purpose of this method? Can I use it somehow to catch the problem I have in function oFile:OpenWrite() when uploading to FTP? If so, can you please make a small example I need to be able either to detect if the program is in the Firewall list ...

... I have no idea because she decides where she will backup her files, she said "you are programmer, you should know"....) Seems that the :OpenWrite function cannot be CATCH-ed, because it is not actually an error - the FTP class just tries to create and get the handle of the file on FTP ...

... firewall list: It hangs on: // This creates the object normaly oFile = TFtpFile():New( aTarget[ n ], oFTP ) // It hangs on the line below: oFile:OpenWrite() It doesn't show any info, just hangs forewer... Is there any way I can catch the moment the Firewall is blocking opening the file for writting ...

... FTP y no consigo que funcione, a lo más que llega es a crear el archivo en el servidor, pero se queda con 0 bytes de longitud. La llamada a oFile:OpenWrite() se demora más de un minuto y se queda con permisos 644 en el servidor . Uso Harbour (no XHarbour), no se si esto tendrá algo que ver. Saludos ...

... 0, 2 ) FClose( hSource ) next for n = 1 to Len( aSource ) hSource = FOpen( aSource[ n ] ) oFile = TFtpFile():New( aTarget[ n ], oFTP ) oFile:OpenWrite() FSeek( hSource, 0, 0 ) nFile := 0 while ( nBytes := FRead( hSource, @cBuffer, nBufSize ) ) > 0 .and. ! lEnd oFile:Write( SubStr( cBuffer, ...

... 0, 2 ) FClose( hSource ) next for n = 1 to Len( aSource ) hSource = FOpen( aSource[ n ] ) oFile = TFtpFile():New( aTarget[ n ], oFTP ) oFile:OpenWrite() FSeek( hSource, 0, 0 ) nFile := 0 while ( nBytes := FRead( hSource, @cBuffer, nBufSize ) ) > 0 .and. ! lEnd oFile:Write( SubStr( cBuffer, ...

... el archivo, pienso que debe ser un retraso, al escribir en el archivo txt se retrasa unos segundos y de ahi se logra subir al servidor FTP. oFile:OpenWrite() oTxt:=TTxtFile():New("c:\probando.txt") oTxt:add(cFTPDir+cFile+" "+time()) oTxt:add(STR(oFile:hFile)+" "+time()) ...

... wich has problem with this and I found that the problem is:     oFile = TFtpFile():New( aTarget[ n ], oFTP )    oFile:OpenWrite()      // <= this is the poit where the process hangs....  Where is this OpenWrite() function? I need to check what ...

... next oMeter2:nTotal = nTotSize for n = 1 to Len( aSource ) hSource = FOpen( aSource[ n ] ) oFile = TFtpFile():New( aTarget[ n ], oFTP ) oFile:OpenWrite() oSay1:SetText( "Source: " + aSource[ n ] ) oSay2:SetText( "Target: " + aTarget[ n ] ) oMeter1:Set( 0 ) oMeter1:nTotal ...

... next oMeter2:nTotal = nTotSize for n = 1 to Len( aSource ) hSource = FOpen( aSource[ n ] ) oFile = TFtpFile():New( aTarget[ n ], oFTP ) oFile:OpenWrite() oSay1:SetText( "Origen : " + aSource[ n ] ) oSay2:SetText( "Destino: " + aTarget[ n ] ) oMeter1:Set( 0 ) oMeter1:nTotal = FSeek( hSource, ...

... next oMeter2:nTotal = nTotSize for n = 1 to Len( aSource ) hSource = FOpen( aSource[ n ] ) oFile = TFtpFile():New( aTarget[ n ], oFTP ) oFile:OpenWrite() oSay1:SetText( "Origen : " + aSource[ n ] ) oSay2:SetText( "Destino: " + aTarget[ n ] ) oMeter1:Set( 0 ) oMeter1:nTotal = FSeek( hSource, ...

... next oMeter2:nTotal = nTotSize for n = 1 to Len( aSource ) hSource = FOpen( aSource[ n ] ) oFile = TFtpFile():New( aTarget[ n ], oFTP ) oFile:OpenWrite() oSay1:SetText( "Origen : " + aSource[ n ] ) oSay2:SetText( "Destino: " + aTarget[ n ] ) oMeter1:Set( 0 ) oMeter1:nTotal = FSeek( hSource, ...

... LOCAL oFile, h, cBuff, nSize, nRead, nWrite LOCAL lRet := .F. oFile := TFtpFile():New(cFTPDir+cFile,oFtp) oFile:OpenWrite() if oFile:hFile > 0 h := fOpen(cFile) nSize := fSeek(h,0,2) fSeek(h,0,0) cBuff := Space(nSize) nRead := fRead(h,@cBuff,nSize) fClose(h) ...