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