2012-05-15 20:40 UTC+0300 Pavel Tsarenko (tpe2 at mail.ru)

* contrib/hbtip/ftpcli.prg
    ! small fix in the :FileSize() method
  * contrib/hbtip/client.prg
    * added additional check in the :ReadToFile() method

harbour/ChangeLog

@@ -16,6 +16,12 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2012-05-15 20:40 UTC+0300 Pavel Tsarenko (tpe2 at mail.ru)
+  * contrib/hbtip/ftpcli.prg
+    ! small fix in the :FileSize() method
+  * contrib/hbtip/client.prg
+    * added additional check in the :ReadToFile() method
+
 2012-05-15 18:08 UTC+0200 Viktor Szakats (harbour syenar.net)
   * contrib/hbqt/qtwebkit/hbqtwebkit.hbm
   * contrib/hbqt/hbqt_common.hbm

harbour/contrib/hbtip/client.prg

@@ -501,6 +501,9 @@ METHOD ReadToFile( cFile, nMode, nSize ) CLASS tIPClient
 
    ::nStatus := 2
    FClose( nFout )
+   IF ::InetErrorCode( ::SocketCon ) != 0
+      RETURN .F.
+   ENDIF
 
    RETURN .T.
 

harbour/contrib/hbtip/ftpcli.prg

@@ -742,7 +742,7 @@ METHOD fileSize( cFileSpec ) CLASS tIPClientFTP
    LOCAL aFile
    LOCAL nSize := 0
    FOR EACH aFile IN ::ListFiles( cFileSpec )
-      nSize += Val( aFile[ F_SIZE ] )
+      nSize += aFile[ F_SIZE ]
    NEXT
    RETURN nSize