14.6.11 xDeviceFileTransfer ウィジェット

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

プロパティ

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