FTPGetBinary

Syntax

FTPGetBinary (socket,remotefile,binfield) Returns status

Description

Note: The flag is set according to whether Omnis was able to make a call to this external command.

This Web command is multi-threaded, allowing another thread to execute in the multi-threaded server while it runs. Note that the same socket cannot safely be used concurrently by more than one thread.

FTPGetBinary downloads a file from an FTP server into an Omnis binary variable. The file is transferred using binary transfer mode.

Socket is an Omnis Long Integer field containing a socket opened to an FTP server using FTPConnect.

RemoteFile is an Omnis Character field containing the pathname of the remote file to download.

BinField is an Omnis Binary or Character field that will receive the contents of the remote file.

Status is an Omnis Long Integer field which receives the result of executing the command. Possible error codes are listed in the Web Command Error Codes Appendix.

Example

# set file transfer mode to binary
FTPType (iFTPSocket,1) Returns lErrCode
If  not(lErrCode)
  # assumes you are already in the correct folder on the ftp server so only the file name is needed 
  Calculate lRemoteFile as  'omnis.exe'
  # download the file 
  FTPGetBinary (iFTPSocket,lRemoteFile,lBinField) Returns lErrCode
  If  lErrCode
    OK message FTP Error {[con("Error transferring file ",upp(lRemoteFile),"Error code : ",lErrCode)]}
  Else
    # select where to save the file to on the local machine 
    Do  FileOps.$selectdirectory(lNewPath,'Enter path to  save file to',sys(115)) Returns lStatus
    If  lStatus
      # create the file 
      Do  lFileOps.$createfile(con(lNewPath,sys(9),lRemoteFile))
      # write the binary contents downloaded from the FTP server to the new local file 
      Do  lFileOps.$writefile(lBinField)
    End If 
  End If 
End If