Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

モバイル・デバイスとリモート・サーバー間のファイル転送です。

プロパティ

RemoteServerUrl

リモート・サーバーへの URL です。URL にはポート番号も含めてください。

RemoteServerUser

リモート・サーバーへのログイン時に使用するユーザー ID です。

RemoteServerPassword

RemoteServerUser に指定されたユーザーのパスワードです。

LocalFile

アップロードするファイルの完全修飾名です

RemoteFile

リモート・ファイルの完全修飾名です。

メソッド

Upload

ファイルをアップロードします。

  • 入力引数: なし
  • 出力引数: なし
  • 戻り値: 状態コード

Download

ファイルをダウンロードします。

  • 入力引数: なし
  • 出力引数: なし
  • 戻り値: 状態コード

イベント

Completed

ファイル転送が終了すると起動されます。

  • パラメータ:

    名前

    タイプ

    説明

    Status

    列挙値

    状態コードを参照してください。

    Message

    文字列


サンプル・コード

    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