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 (記載なし)

PowerSpaceの運営は、パワーフューチャー株式会社が行っております。
Copyright © 2013 Power Future Co., Ltd.