PB 電子会議室
発言No. | 更新日 | 題名(クリックすると発言内容と関連するコメントが表示されます) |
---|---|---|
15778 | 01/07/12 20:23:11 | RE(6):PB6.5: FTPコマンドとPBは、相性が悪いのでしょうか? By TKS |
15768 | 01/07/12 12:48:34 | RE(5):PB6.5: FTPコマンドとPBは、相性が悪いのでしょうか? By ハム |
15752 | 01/07/11 15:51:38 | RE(4):PB6.5: FTPコマンドとPBは、相性が悪い?(ロジックNo.3) By mae |
15751 | 01/07/11 15:41:51 | RE(3):PB6.5: FTPコマンドとPBは、相性が悪い?(ロジックNo.2) By mae |
15750 | 01/07/11 15:24:35 | RE(2):PB6.5: FTPコマンドとPBは、相性が悪い?(ロジックNo.1) By mae |
15741 | 01/07/11 12:31:15 | RE(1):PB6.5: FTPコマンドとPBは、相性が悪いのでしょうか? By M.M |
15740 | 01/07/11 11:23:51 | PB6.5: FTPコマンドとPBは、相性が悪いのでしょうか? By mae |
カテゴリ:PowerBuilderの開発環境
日付:2001年07月11日 15:24 発信者:mae
題名:RE(2):PB6.5: FTPコマンドとPBは、相性が悪い?(ロジックNo.1)
M.Mさん、こんにちは。
本当は、「はじめまして」なのですが、
一方的ですが「いつもお世話になってます」と挨拶させて下さい。
>具体的にどういうロジックを記述したのでしょうか。
>バッチ終了を確認する方法に何か問題があったのではないか
以下に、試した手法を大分して、3つ記載します。
どの手法を試した時も、処理を入れなければ
うまくいくことを確認しています。
読みにくいかと思いますが、宜しくお願いします。
【手法1】
→現行のシステムで、実績があるやり方
(但しDOSコマンド実施のバッチ)のため
信頼できると思っていたが…。
********外部関数宣言**********
//windowが開いているかを取得する関数 ※&省略
FUNCTION uint FindWindowA(long classname,
string windowname) LIBRARY \"user32.dll\"
//windowsフォルダのpathを取得する関数
FUNCTION long GetWindowsDirectory (ref string dir,
long size) LIBRARY \"kernel32.dll\"
ALIAS FOR \"GetWindowsDirectoryA\"
■ アプリケーションOPENイベント::af_main()←アプリケーション関数
RUN(転送.bat FTPテキストパス ログテキストパス)
OPEN(レスポンスウィンドウ)
■ レスポンスウィンドウOPENイベント
Timer(1,This)
■ レスポンスウィンドウTimerイベント
//コマンドプロンプトへのpathを取得していない場合
IF is_dir = \"\" THEN
//windowsフォルダへのpathを取得
ll_len = GetWindowsDirectory(is_dir,ll_len)
//インスタンス変数にコマンドプロンプトへのpathを格納
is_dir = is_dir + \"\\system32\\CMD.EXE\"
END IF
//コマンドプロンプト(バッチ)が立ち上がっているかをハンドリングする
il_handle = FindWindowA(0,is_dir)
//コマンドプロンプト(バッチ)が立ち上がっていない場合
IF il_handle = 0 THEN
//timer動作をリセット
Timer(0,this)
//ダミーwindow(このwindow)を閉じる
close(this)
END IF
Return 0
---------------------
済みません。
2000Byteを超えているそうです。
続きはNo.2に書きますので、宜しくお願いします。
付加情報:
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows NT 4.0
DBMS Sybase Open Client/C 11
Browser (記載なし)
Server SoftWare
OS Windows NT 4.0
DBMS Sybase SQL Server System 11
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.