FiveTech Support Forums

I'm having my first steps with FiveWin / xHarbour.
My customers need to download updated data from our servers to keep their database up to date. Is there is a way that they can download their data (if entitled to, subscription based) automatically ? Something like anti-virus software does it ? How can this be done using FiveWin ?

HunterEC wrote:I'm having my first steps with FiveWin / xHarbour.
My customers need to download updated data from our servers to keep their database up to date. Is there is a way that they can download their data (if entitled to, subscription based) automatically ? Something like anti-virus software does it ? How can this be done using FiveWin ?

HunterEC wrote:Is there is a way that they can download their data (if entitled to, subscription based) automatically ?

Can you post some code on how this might be done. Thanks

Harvey

hag wrote:Can you post some code on how this might be done. Thanks

Harvey

              // Create ftp connect
              oFtp := TFtp():New( cFTP_IP, oInternet, cUsername, cPassword )
              If oFtp:hFtp == 0
                 Tone( 1000, 1 )
                 MsgStop( "Ftp connect fail!", "Error!" )
                 oFtp:End()
                 Exit
              EndIf
              :
              :
              :
              // Open remote file
              oFtpFile := TFtpFile():New( cServerFile, oFtp )
              oFtpFile:lBinary := .T.
              //
              oFtpFile:OpenRead()      // Open and Read mode
                  If oFtpFile:nError <> 0
                  Tone( 1000, 1 )
                  MsgStop( "ftp file:["+cServerFile+"]Open & read fail!!", "Error!" )
                  oFtpFile:End()
                  lRet := .F.
                  Exit
               EndIf

Sheng:

Thanks for the data. I'll give it a try in a couple of days. Thanks again.

Harvey

Davide, Hag, Sheng: thank you all. I'll give it a try.

hag wrote:Can you post some code on how this might be done.

hi,
If webclient / TFTP can overwrite even if the file is open or at running ?
For example: my.exe ,my.dll,libmysql.dll are running, overwrite them besides they are running.
Under Linux ,could.

Shuming Wang

hag wrote:Sheng:

You posted some code here. Could you post the complete function so I can see what the values for the variables come from.

Thanks

Your Code

Code: Select all Collapse

// Create ftp connect 
              oFtp := TFtp():New( cFTP_IP, oInternet, cUsername, cPassword ) 
              If oFtp:hFtp == 0 
                 Tone( 1000, 1 ) 
                 MsgStop( "Ftp connect fail!", "Error!" ) 
                 oFtp:End() 
                 Exit 
              EndIf 
              : 
              : 
              : 
              // Open remote file 
              oFtpFile := TFtpFile():New( cServerFile, oFtp ) 
              oFtpFile:lBinary := .T. 
              // 
              oFtpFile:OpenRead()      // Open and Read mode 
                  If oFtpFile:nError <> 0 
                  Tone( 1000, 1 ) 
                  MsgStop( "ftp file:["+cServerFile+"]Open & read fail!!", "Error!" ) 
                  oFtpFile:End() 
                  lRet := .F. 
                  Exit 
               EndIf

User and pass word i understand.
What about: cFTP_IP, cServerfile what are these values?

Guys:

Thank you all for your help. I'll give it a try.