PB 電子会議室
発言No. | 更新日 | 題名(クリックすると発言内容と関連するコメントが表示されます) |
---|---|---|
13530 | 00/10/12 19:45:30 | RE(4):PB6.5: FTP転送でクローズできません(お礼) By Taka |
13515 | 00/10/11 15:35:46 | RE(3):PB6.5: FTP転送でクローズできません(お礼) By indian |
13508 | 00/10/10 20:07:46 | RE(2):PB6.5: FTP転送でクローズできません By ryochan |
13507 | 00/10/10 19:46:57 | RE(1):PB6.5: FTP転送でクローズできません By Taka |
13505 | 00/10/10 18:40:52 | PB6.5: FTP転送でクローズできません By indian |
カテゴリ:スクリプトの記述
日付:2000年10月10日 18:40 発信者:indian
題名:PB6.5: FTP転送でクローズできません
時々お世話になっております。Indianです。
今回、PB6.5でFTPを使用してファイルをUnixサーバに転送したいと考えています。
過去ログなどを参照させて頂いて、FTP32.dllを利用してファイルを転送するところまで
こぎつけたのですが(下記)セッションをクローズできません。引数の問題だとは思うのですが
どなたかお知恵を貸して頂けないでしょうか?C言語って全く知らないんでソース読んでも
良く分からないんです。
----------------------------------
//グローバル外部関数
Function Long FtpOpenArchive (ref Long hWnd , ref String szFileName, Long dwMode) LIBRARY \"ftp32\"
Function Long FtpAdd (Long harc , ref String fromval, ref String toval, Long dwMode) LIBRARY \"ftp32\"
Function Long FtpCloseArchive (long harc) LIBRARY \"ftp32\"
-------------------------------------
//PBスクリプト
Long ll_hwnd, ll_size, ret
String ls_cmdline
String remote_dirname,local_pathname
//このアプリケーションのハンドルを取得
ll_hwnd = handle(Parent)
//ファイルの転送先ディレクトリを設定
remote_dirname = \'ftp://lsi:lsi@ss49g1/pb/log\'
//ファイルの転送元パスを設定
local_pathname = \'C:\\WORK\\han020.xls\'
//転送後のファイル名を設定
ls_cmdline=\'han020.xls\'
//転送もとのファイルサイズを取得
ll_size = FileLength (local_pathname)
//FTP転送
il_close = FtpAdd(FtpOpenArchive(ll_hWnd , remote_dirname, 0), ls_cmdline, local_pathname, ll_size )
il_close = FtpCloseArchive (il_close)
↑ここが問題のクローズです。本当はFtpOpenArchiveの戻り値だと思うので、FtpAddと同じ書き方をすれば
多分出来るんだと思うのですが、当然ここでそう書いてしまっては新たなセッションが出来て、クローズされる
だけなんです。どなたかFTP32.dllを使ったことの有る方はいらっしゃいませんか?
付加情報:
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows98
DBMS Oracle SQL*Net 2.3
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS Oracle 7.3
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.