Hi
Does someone have an example of TFTP
I managed to get TInternet working.
I needed to test to make sure a web server was online and have done that.
I now need to test if an FTP server is online, accepting connections and
that I can login with a username and password.
Cheers
Nick
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
TFPT
-
Nick Hilder
- Mensajes: 328
- Registrado: Mar Nov 21, 2006 2:10 am
TFPT
Nick,
> Does someone have an example of TFTP
Yes, here you have a little one:
WITH OBJECT TFtp():Create( Self )
:cUser := "user"
:cPassword := "pass"
//:nTransferType := FTP_TRANSFER_TYPE_BINARY
IF :Open()
IF ! :Connect( <server> )
MsgAlert( :GetErrorDescription() )
ELSE
MsgAlert( :GetCurrrentDirectory() )
ENDIF
:Close()
END WITH
Regards,
José Lalín
> Does someone have an example of TFTP
Yes, here you have a little one:
WITH OBJECT TFtp():Create( Self )
:cUser := "user"
:cPassword := "pass"
//:nTransferType := FTP_TRANSFER_TYPE_BINARY
IF :Open()
IF ! :Connect( <server> )
MsgAlert( :GetErrorDescription() )
ELSE
MsgAlert( :GetCurrrentDirectory() )
ENDIF
:Close()
END WITH
Regards,
José Lalín
TFPT
Nick,
> Does someone have an example of TFTP
Yes, here you have a little one:
WITH OBJECT TFtp():Create( Self )
:cUser := "user"
:cPassword := "pass"
//:nTransferType := FTP_TRANSFER_TYPE_BINARY
IF :Open()
IF ! :Connect( <server> )
MsgAlert( :GetErrorDescription() )
ELSE
MsgAlert( :GetCurrrentDirectory() )
ENDIF
:Close()
END WITH
Regards,
José Lalín
> Does someone have an example of TFTP
Yes, here you have a little one:
WITH OBJECT TFtp():Create( Self )
:cUser := "user"
:cPassword := "pass"
//:nTransferType := FTP_TRANSFER_TYPE_BINARY
IF :Open()
IF ! :Connect( <server> )
MsgAlert( :GetErrorDescription() )
ELSE
MsgAlert( :GetCurrrentDirectory() )
ENDIF
:Close()
END WITH
Regards,
José Lalín
-
Nick Hilder
- Mensajes: 328
- Registrado: Mar Nov 21, 2006 2:10 am
TFPT
Interesting
No one wonder I couldn't get it to work...
Under the help for TFTP help there is no cUser or cPassword
There is no Open() or Connect()
Now I see it inherits TInternet...damn, wish I noticed that yesturday.....
Might be worth adding the example to the help for the next sucker plike
me...
Thanks for yoiur help
Nick
The help
"José Lalín" <notengo@correo.com> wrote in message
news:489181c2$[email=2@ozsrv2.ozlan.local...]2@ozsrv2.ozlan.local...[/email]
>
> Nick,
>
>> Does someone have an example of TFTP
>
> Yes, here you have a little one:
>
> WITH OBJECT TFtp():Create( Self )
> :cUser := "user"
> :cPassword := "pass"
> //:nTransferType := FTP_TRANSFER_TYPE_BINARY
>
> IF :Open()
> IF ! :Connect( <server> )
> MsgAlert( :GetErrorDescription() )
> ELSE
> MsgAlert( :GetCurrrentDirectory() )
> ENDIF
> :Close()
> END WITH
>
> Regards,
> José Lalín
No one wonder I couldn't get it to work...
Under the help for TFTP help there is no cUser or cPassword
There is no Open() or Connect()
Now I see it inherits TInternet...damn, wish I noticed that yesturday.....
Might be worth adding the example to the help for the next sucker plike
me...
Thanks for yoiur help
Nick
The help
"José Lalín" <notengo@correo.com> wrote in message
news:489181c2$[email=2@ozsrv2.ozlan.local...]2@ozsrv2.ozlan.local...[/email]
>
> Nick,
>
>> Does someone have an example of TFTP
>
> Yes, here you have a little one:
>
> WITH OBJECT TFtp():Create( Self )
> :cUser := "user"
> :cPassword := "pass"
> //:nTransferType := FTP_TRANSFER_TYPE_BINARY
>
> IF :Open()
> IF ! :Connect( <server> )
> MsgAlert( :GetErrorDescription() )
> ELSE
> MsgAlert( :GetCurrrentDirectory() )
> ENDIF
> :Close()
> END WITH
>
> Regards,
> José Lalín
-
Nick Hilder
- Mensajes: 328
- Registrado: Mar Nov 21, 2006 2:10 am
TFPT
Interesting
No one wonder I couldn't get it to work...
Under the help for TFTP help there is no cUser or cPassword
There is no Open() or Connect()
Now I see it inherits TInternet...damn, wish I noticed that yesturday.....
Might be worth adding the example to the help for the next sucker plike
me...
Thanks for yoiur help
Nick
The help
"José Lalín" <notengo@correo.com> wrote in message
news:489181c2$[email=2@ozsrv2.ozlan.local...]2@ozsrv2.ozlan.local...[/email]
>
> Nick,
>
>> Does someone have an example of TFTP
>
> Yes, here you have a little one:
>
> WITH OBJECT TFtp():Create( Self )
> :cUser := "user"
> :cPassword := "pass"
> //:nTransferType := FTP_TRANSFER_TYPE_BINARY
>
> IF :Open()
> IF ! :Connect( <server> )
> MsgAlert( :GetErrorDescription() )
> ELSE
> MsgAlert( :GetCurrrentDirectory() )
> ENDIF
> :Close()
> END WITH
>
> Regards,
> José Lalín
No one wonder I couldn't get it to work...
Under the help for TFTP help there is no cUser or cPassword
There is no Open() or Connect()
Now I see it inherits TInternet...damn, wish I noticed that yesturday.....
Might be worth adding the example to the help for the next sucker plike
me...
Thanks for yoiur help
Nick
The help
"José Lalín" <notengo@correo.com> wrote in message
news:489181c2$[email=2@ozsrv2.ozlan.local...]2@ozsrv2.ozlan.local...[/email]
>
> Nick,
>
>> Does someone have an example of TFTP
>
> Yes, here you have a little one:
>
> WITH OBJECT TFtp():Create( Self )
> :cUser := "user"
> :cPassword := "pass"
> //:nTransferType := FTP_TRANSFER_TYPE_BINARY
>
> IF :Open()
> IF ! :Connect( <server> )
> MsgAlert( :GetErrorDescription() )
> ELSE
> MsgAlert( :GetCurrrentDirectory() )
> ENDIF
> :Close()
> END WITH
>
> Regards,
> José Lalín
TFPT
Nick,
in our blog there is an article with a component called TFTPFile which will
help to upload/download files from a FTP server.
Regards,
José Lalín
in our blog there is an article with a component called TFTPFile which will
help to upload/download files from a FTP server.
Regards,
José Lalín