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

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