Transfer file between mobile device and remote server.

Properties

RemoteServerUrl

URL to the remote server. Include port number in the URL.

RemoteServerUser

Userid to use to login to remote server

RemoteServerPassword

Password for user specified in RemoteServerUser

LocalFile

Fully qualified name of the file to upload

RemoteFile

Fully qualified name of the remote file

Methods

Upload

Upload the file

  • Input Arguments: None.
  • Output Argument: None.
  • Return Value: Status code

Download

Download the file

  • Input Arguments: None.
  • Output Argument: None.
  • Return Value: Status code

Events

Completed

Triggered when file transfer is finished.

  • Parameters:

    Name

    Type

    Description

    Status

    Enum

    See Status Code

    Message

    String


Code Examples

    Define_Com Class(#xDeviceFileTransfer) Name(#FileTransfer)
 
    Evtroutine Handling(#COM_OWNER.Initialize)   
      #ServerUrl := 'http://10.5.1.270:6501/service/longreach.jsp'   
      #Userid := 'MYUSER'   
      #Password := ''   
      #LocalFile := '/myfiles/file1'   
      #RemoteFile := '/longreachdata/user/{NAME}/file1'   
      #Transfer.Enabled := false 
    Endroutine 

    Evtroutine Handling(#FileTransfer.Initialize)   
      #Transfer.Enabled := true   
      #FileTransfer.RemoteServerUrl := 'http://10.5.1.270:6501/service/longreach.jsp' 
    Endroutine 

    Evtroutine Handling(#Transfer.Click)   
      #FileTransfer.RemoteServerUser := #Userid   
      #FileTransfer.RemoteServerPassword := #Password   
      #FileTransfer.LocalFile := #LocalFile   
      #FileTransfer.RemoteFile := #RemoteFile   

      If (#Upload.ButtonChecked)     
        #FileTransfer.Upload   
      Else     
        #FileTransfer.Download   
      Endif   

    Endroutine 

    Evtroutine Handling(#FileTransfer.Completed) Status(#lstatus) Message(#lMessage)   
      #Status := #returnedStatus   
      If (#Status <> OK)     
        #StatusMessage := #message   
      Endif 
    Endroutine
  • No labels