You are viewing an old version of this page. View the current version.

Compare with Current View Page History

Version 1 Next »

[ |../../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]
  • No labels