FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour TFTP problem
Posts: 117
Joined: Thu Mar 02, 2006 11:06 AM
TFTP problem
Posted: Mon Dec 01, 2008 02:54 PM
Hello,

I start some tests with tFTP. I started with the sample tftp.prg from the samples dir

//----------------------------------------------------------------------------//

function Main()

   local oInternet := TInternet():New()
   local oFTP      := TFTP():New( "207.46.133.140", oInternet ) // Microsoft FTP
   local aFiles

   if ! Empty( oFTP:hFTP )
      aFiles = oFTP:Directory( "*.*" )
      AEval( aFiles, { | aFile | MsgInfo( aFile[ 1 ] ) } )
   else
      MsgAlert( "oFTP:hFTP is null" )
   endif

   oInternet:End()

   MsgInfo( "Done!" )

return nil


It does not work. It goes always to
MsgAlert( "oFTP:hFTP is null" )


I did not find parameters for user and password.

Am I missing something.

Greetings,

Willy
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
TFTP problem
Posted: Mon Dec 01, 2008 03:23 PM

Willy,

Have you tried with "ftp.microsoft.com" instead of "207.46.133.140" ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 117
Joined: Thu Mar 02, 2006 11:06 AM
TFTP problem
Posted: Mon Dec 01, 2008 03:43 PM

No I tried with "ftp://Micro...."

Now with "ftp.Micro... it works.

Thanks Antonio.

Greetings,

Willy

Posts: 117
Joined: Thu Mar 02, 2006 11:06 AM
TFTP problem
Posted: Mon Dec 01, 2008 04:13 PM

Hello,

I stil have some problems.

I can read a directory, but I can'nt copy file to and from the ftp.

So I look at the TFtpClient Class. But I do not find any samples for that class.

Is there a working example.

Greetings,

Willy

Posts: 117
Joined: Thu Mar 02, 2006 11:06 AM
TFTP problem
Posted: Fri Dec 05, 2008 02:33 PM

Anybody ?

Continue the discussion