[ |../../index.htm#lansa/vlwebeng02_0125.htm]
現在地:

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  
  [ |../../index.htm#lansa/vlwebeng02_0125.htm]