Page History

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

...

モバイル・デバイスとリモート・サーバー間のファイル転送です。
プロパティ
RemoteServerUrl
リモート・サーバーへの URL です。URL にはポート番号も含めてください。
RemoteServerUser
リモート・サーバーへのログイン時に使用するユーザー ID です。
RemoteServerPassword
RemoteServerUser に指定されたユーザーのパスワードです。
LocalFile
アップロードするファイルの完全修飾名です
RemoteFile
リモート・ファイルの完全修飾名です。
メソッド
Upload
ファイルをアップロードします。

...

イベント
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

   
  [ Image Removed |../../index.htm#lansa/vlwebeng02_0125.htm]