Ftp from and to a server

[tenochtitlanuk]

I suggested to atomose that if he uses LB rather than JB he could make his games download a hi-score table to display when starting, & upload a user's score to a ftp server when exiting  This high-score table would be generated by a program run by him say hourly, that read all new high scores and sorted them.

However I don't want people to know my ( paid for) username and password for the ftp/http server that runs my website, for obvious reasons!!! And yes, I could create and run a local server, ensure its security, and run it 24 h/24 with a static or edirected ISP address- hastle!

Anyway, as an experiment I created a FREE ftp site courtesy of DriverHQ. Very straightforward to create. The following code shows uploading a file, downloading a file, and also getting the remote directory listing.

To use it you need ftp4w32.dll from my site in the same directory as you save the code below.

PM me if you want to try it, and I'll send the username/password I used. But I'd prefer you set up your own site as you can delete my files or change the password!!


   nomainwin

   dim error$(6000)

   error$(    0) ="No problem.."
   error$( 1003) ="user not connected to server"
   error$( 1004) ="cannot open file"
   error$( 1008) ="action not taken"
   error$( 1010) ="server cannot open file"
   error$( 3001) ="3001"
   error$( 5002) ="5002"

   WindowWidth   =  800
   WindowHeight  =  550

   global parentftp, port, pasv, ftphost$, login$, password$, initpath$, upload$, serverFile$, backLocal$, TRUE, FALSE, ftpsession

   port          = 21                       'port to use.
   pasv          =  1                       'PASV mode? 1 is yes, 0 is no.
   ftphost$      = "ftp.drivehq.com"        'ftp site address.
   login$        = "*************"          'ftp site username login.
   password$     = "*************"          'ftp site password.
   initpath$     = ""                       'leave blank if you want the site's default.
   upload$       = "exampleN4a.txt"         'full path & file info for local file to upload. NB could all be the same...
   serverFile$   = "exampleN4b.txt"         'what file is called on the ftp server.
   backLocal$    = "exampleN4c.txt"         'what to call the returned local downloaded file.

   TRUE          = 1
   FALSE         = 0

   ftpsession    = FALSE

   button #w.b1, " Upload ",     [upload],    LR, 550,  50, 110,  30
   button #w.b2, "Download",     [download],  LR, 400,  50, 110,  30
   button #w.b3, "Server dir'y", [remoteDir], LR, 250,  50, 110,  30

   texteditor #w.te, 10, 10, 740, 400

   open "LB" for window as #w

   #w "trapclose [quit.main]"

   #w "font bold 12"

   parentftp    =hwnd( #w)

   wait

[upload]
   call action "upload"
   wait

[download]
   call action "download"
   wait

[remoteDir]
   call action "Server dir'y"
   wait

sub action command$     '   Implements at present file upload/download ( with renaming if you want) and remote direstory listing.
   open "ftp4w32.dll" for dll as #ftp
   ftpsession = TRUE
   calldll #ftp, "FtpInit", parentftp as long, res as long                 :   #w.te "Initialising "; res; " "; error$( res)
   calldll #ftp, "FtpSetSynchronousMode", void as long                     :   #w.te "Mode set async"
   calldll #ftp, "FtpSetDefaultPort", port as long, void as long           :   #w.te "Port set 21"
   calldll #ftp, "FtpSetPassiveMode", pasv as long, void as long           :   #w.te "Mode set passive"
   calldll #ftp, "FtpLogin", ftphost$ as struct, login$ as struct, password$ as struct, parentftp as long, 0 as long, res as long: #w.te "Logging in. Returned "; res
   'calldll #ftp, "FtpCWD", initpath$ as struct, res as long                :   #w.te "Change remote working directory " ; res; " "; error$( res); " "

   if command$ ="upload" then
       calldll #ftp, "FtpSendFile", upload$ as struct, serverFile$ as struct, 0 as long, 0 as long, parentftp as long, 0 as long, res as long:_
                                                                               #w.te "Sent file "; upload$; " as "; serverFile$; " & received error "; error$( res)
   end if

   if command$ ="download" then
       calldll #ftp, "FtpRecvFile", serverFile$ as struct, backLocal$ as struct, 0 as long, 0 as long, parentftp as long, 0 as long, res as long:_
                                                                               #w.te "Requesting file "; serverFile$; " for download as "; backLocal$;_
         " error ="; res; " "; error$( res)
   end if

   if command$ ="Server dir'y" then
       dirlist$ ="ftplist.tmp": argument$ =""
       calldll #ftp, "FtpDir", argument$ as struct, dirlist$ as struct, 1 as long, parentftp as long, 0 as long, res as long:_
                                                                               #w.te "Dir'y listing..": #w.te argument$
       open dirlist$ for input as #fIn
           content$ =input$( #fIn, lof( #fIn))
       close #fIn
       kill dirlist$
       #w.te content$
   end if

 [closeftp]
   calldll #ftp, "FtpCloseConnection", void as long:                           #w.te "Connection closed... ";
   calldll #ftp, "FtpRelease",         void as long        :                   #w.te "  .. and released."
   close   #ftp
   ftpsession = FALSE

   #w.te "__________________________________"
   #w.te ""

end sub

[quit.main]
   close #w
   if ftpsession = TRUE then
       calldll #ftp, "FtpCloseConnection", void as long
       calldll #ftp, "FtpRelease",         void as long
       close   #ftp
   end if
   end


'   Initialising 0 No problem..
'   Mode set async
'   Port set 21
'   Mode set passive
'   Logging in. Returned 0
'   Sent file exampleN4.txt & received error No problem..
'   Dir'y listing..

'   drwx------ 1 user group            138 Mar 09 16:06 My Documents
'   drwx------ 1 user group        3093195 Mar 09 16:06 My Pictures
'   drwx------ 1 user group            111 Mar 11 20:56 tenoch
'   drwx------ 1 user group          24332 Mar 09 16:06 wwwhome
'   drwx------ 1 user group              0 Mar 12 12:55 drivehqshare
'   -rwx------ 1 user group             23 Mar 09 16:53 example.txt
'   -rwx------ 1 user group             34 Mar 10 18:49 exampleN.txt
'   -rwx------ 1 user group             33 Mar 10 19:32 exampleN2.txt
'   -rwx------ 1 user group             44 Mar 11 21:47 exampleN3.txt
'   -rwx------ 1 user group            129 Mar 12 12:54 exampleN4.txt
'   -rwx------ 1 user group            129 Mar 12 12:55 exampleN4c.txt
'   Requesting file exampleN4c.txt for download  ; error =0 No problem..
'   Connection closed
'     .. and released.



[James Grubbs (Jimmy)]

I think I'm having a server side issue. This program logs in with no issue. When I upload it finds the file path and sends the file to my server but the file it sends is 0 bytes and I get 3001 error. I'm not sure what that error means. I'm sure my server permissions are good. My filezilla has no problems making transfer but there may be a security issue stopping the proper transfer. I have tried turning my firewall off with no luck. I'm sure the issue is with me. Any suggestions?

[tenochtitlanuk]

Several ( possibly relevant!) thoughts.

1 errors like 3001- from the dll help file.....

3000-3999
Error messages from the FTP server program, predigested by FTP4W.
FTPERR_UNEXPECTEDANSWER
The FTP server sent a response that FTP4W didn't expect. FTP4W doesn't know whether the command was successful or not.
FTPERR_CANNOTCHANGETYPE
The FTP server cannot change to the requested transfer type (ASCII, BINARY, or L8).
FTPERR_CMDNOTIMPLEMENTED
The FTP server recognized the command, but it does not know how to execute it.
FTPERR_PWDBADFMT
The FTP server reports its current working directory, but FTP4W cannot parse the answer.
FTPERR_PASVCMDNOTIMPL
The FTP server does not support passive mode. (FTP4W needs this mode for several functions.)


2 Is your ftp server on a commercial or free site? DriveHQ cut off my ftp access after I'd run experiments on it, but left the free web-interface version working! This despite them saying I had '100 ftp sessions then limit of ten per day'.


3 My version subroutine closes the ftp connection after every call, so if you send a 'change directory' it is forgotten for the next call. Move it outside the subroutine to when you quit, perhaps, or use full pathnames?

Let us know if you get it working! I'm currently in the throws of downsizing/moving house- so little time on my computers....

[tenochtitlanuk]

I also notice that sending a file to the server then reading it back changes its length by 1 byte as the file which had chr$( 10) at the end now has chr$( 12); chr$( 10). I realise working on Linux and on Windows that they disagree on line endings, but I'm surprised that ftp up/down would alter the file itself!

EDIT Looks like it was set to transfer as ASCII rather than binary???

FtpSetType This function changes the default transfer type.

Syntax: FtpSetType (char cType)

Argument:
cType

new default transfer mode (either TYPE_A or TYPE_I)

But I'm not managing to change transfer type..
type$   ="I"    '   A =ASCII, I =Image ie binary
       calldll #ftp, "FtpSetType",  type$       as struct, res as long


[Brandon Parker]

All very good and interesting stuff you got going here...

Was it chr$(13) (carriage return) and not actually chr$(12) (form feed)...?


{:0)

Brandon Parker

[tenochtitlanuk]

Yup, sorry. 0D 0A replacing just 0A. Mea culpa /typo.
I can set I or A mode from FileZilla but not from LB.
Any ideas??

[Chris Iverson]

FtpSendFile (LPCSTR szLocal, LPCSTR szRemote,
            char cType, BOOL bNotify,
            HWND hParentWnd, UINT wMsg)

Arguments:

szLocal
The file to be sent
szRemote
Remote file specification
cType
TYPE_A for ASCII, TYPE_B for binary
bNotify
A message should be sent by to the application each time a frame has been received.
hWnd
the handler of the windows to which to pass the message
wMsg
the application-defined message to pass to the application

FtpSendFile itself has a parameter for type. Also, it's defined as a single character, _not_ a pointer. The same is true of the FtpSetType call.

Maybe pass the character "I" as a char[1], or pass its ASC() value? (Make sure it's uppercase.)

The reason I say "I" is because of the FtpSetType code. The header file that defines the values of TYPE_A, TYPE_B, and TYPE_I seems to be missing, or at least, I can't find it anywhere. I can't find the source code to ftp4w anymore, either. (The author's site is available on the Wayback Machine, but those specific files aren't.)

Reverse-engineering the DLL a little bit, the code that handles the cType parameter is expecting either a capital "A", capital "I", or capital "L". "A" I'm assuming is ASCII, so it's one of the other two types.

Edit: Just call FtpSetType with the specified value. FtpSendFile literally just calls FtpSetType itself if you provide a new type value.

[tenochtitlanuk]

Thanks for the hint, Chris. Always reliable on deep understanding!
Yes, 'I' is 'image' ie send all bytes while 'A' sends as lines of 'A'SCII text and appropriate line endings for Linux/MS system.

The following seems to work-

   if command$ ="upload" then
       type   =asc( "I")
       calldll #ftp, "FtpSetType",  type       as ulong,  res as long
       calldll #ftp, "FtpSendFile", upload$    as struct, serverFile$ as struct, 0 as long, 0 as long, parentftp as long, 0 as long, res as long:_
   end if


Will edit this post if I find problems on transfers!

[tenochtitlanuk]

Now on a web page at Diga Me

[atomose]

thx for work