ab.com コミュニティ

by 7 » 2007年5月29日(火) 19:33

> 現在過去ログを頼りに、テキストボックスに追記していく方法を模索中です）
エディットボックスにデータを追加していく関数を以前何回も投稿しました(笑)
見つけることが出来たかもしれませんが、一応また投稿しておきます。

' エディットボックスに文字列を追加
Function Edit_AddText(ByVal hWnd As HWND,ByVal lpString As LPSTR,ByVal bUndo As BOOL) As BOOL
    SendMessage(hWnd,EM_SETSEL,GetWindowTextLength(hWnd),-1)
    Edit_AddText=SendMessage(hWnd,EM_REPLACESEL,bUndo,lpString As LPARAM) As BOOL
End Function

lpStringに追加したい文字列、bUndoにTRUEを指定すると「元に戻す」を実行できます。

by **ゲスト** » 2007年5月29日(火) 19:14

http://www.2chab.net/uploader/src/up0021.zip
上の、349行目の

コード: 全て選択

SendMessage(GetDlgItem(hMainWnd,EditBox2),194,0,buf2)

って奴を少し書き換えれば「追記」することはそんなに難しくはなさそうですよ。

by **tomo** » 2007年5月28日(月) 23:25

7様、tak様、お返事ありがとうございます。

ちゃんと標準出力を取得できていますね～。感動です＞＜
本当にありがとうございました。
いやはや、やってる事が高度すぎて、コピーして少し手を加えるのが精一杯…精進します。（ソースのコメントには大いに助けられております…）
それにしても、取得するだけでこんなにも複雑な手順を踏まないといけないとは…。
#そのうち専用の関数とか出たらいいのに…（汗）

今はテキストボックスに「リアルタイムに」表示できるよう奮闘中です＾＾；
（While-Wend中でバッファをを別変数に追加・追加…→ループ外でSetDlgItemTextを使い、一括表示は可能でした。
ただ、SetDlgItemTextをループ内に入れてしまうと、毎回全テキストを書き換えるためか、固まってしまい撃沈…
現在過去ログを頼りに、テキストボックスに追記していく方法を模索中です）

今回は本当にありがとうございました。

by **tak** » 2007年5月28日(月) 02:24

7さんの提示してくださったサンプルコードを参考にして、とりあえず動くものをこさえてみました。
Ver 4.24 でのみ動作検証を行いました。これ以降の Ver5CP 版では多少手直しが必要かもしれませんが、たぶん深刻な問題は発生しないと思います。

[ここをクリックすると内容が表示されます]

コード: 全て選択

Declare Function CreatePipe Lib "kernel32" (ByRef hReadPipe As HANDLE, ByRef hWritePipe As HANDLE, ByVal lpSecutiryAttributes As *SECURITY_ATTRIBUTES, ByVal nSize As DWord) As BOOL

' ↓ ここからプログラムが実行されます

ExitProcess(main())

Function main() As Long
	' パイプ対の作成
	Dim hRead As HANDLE, hWrite As HANDLE
	Dim sa As SECURITY_ATTRIBUTES
	sa.bInheritHandle = TRUE
	sa.lpSecurityDescriptor = NULL
	sa.nLength = Len(sa)
	CreatePipe(hRead, hWrite, VarPtr(sa), 0)

	' プロセスの作成
	Dim sinfo As STARTUPINFO
	ZeroMemory(VarPtr(sinfo), Len(sinfo))
	sinfo.cb = Len(sinfo)
	sinfo.dwFlags = STARTF_USESTDHANDLES
	sinfo.hStdOutput = hWrite
	Dim succeeded As BOOL
	Dim pinfo As PROCESS_INFORMATION
	succeeded = CreateProcess(NULL, "cmd /c dir", ByVal NULL, ByVal NULL, TRUE, 0, NULL, NULL, sinfo, pinfo)
	' 親プロセスにはパイプの書き込み側は不要なので閉じておく。
	CloseHandle(hWrite)
	If succeeded Then
		' パイプを通して子プロセスからデータを受け取る。
		Dim buf[1024] As Byte
		Dim dwRead As DWord	' 読み込まれたデータのサイズ（read は過去分詞ね）
		' このループで、子プロセスがパイプを切断する（= 終了する）まで読み込み続ける。
		' この部分をうまく機能させるためには、確実に自プロセスの書き込み側パイプを閉じておくこと。
		' さもないと処理が戻ってこずに永遠に待たされます。
		While ReadFile(hRead, buf, 1024 - 1, VarPtr(dwRead), ByVal NULL)
			buf[dwRead] = 0
			' ヒント：エディットボックスに表示したい場合は、この部分を改造します。
			MessageBox(NULL, buf, "Test", MB_ICONINFORMATION)
		Wend

		' 子プロセスがパイプを閉じたので後片付け
		WaitForSingleObject(pinfo.hProcess, INFINITE)
		CloseHandle(pinfo.hThread)
		CloseHandle(pinfo.hProcess)
	Else
		MessageBox(NULL, "子プロセスの起動に失敗", "Test", MB_ICONERROR)
	End If

	CloseHandle(hRead)
	main = 0

End Function

> > さすがにエディットボックスに直に表示はできませんか…
> > （出力垂れ流しなはずだし、そのまま表示くらい…と思っていたのですが。甘かったですな…）
> コンソールアプリケーションが流すデータをパイプを通して奪い取り、それを変数に確保、そのデータをエディットボックスに出力、といった形になるようです。

はい。7さんの指摘されているとおりで、パイプを通して入力されたテキストをバッファに溜めておき、それを SetWindowText() などでエディットボックスに表示させるのがもっとも簡単だと思います。

by 7 » 2007年5月27日(日) 21:05

> 実行できているとばかり思っていました…（汗）
あ。よく分かんないんですけど、そっちのでも出来るみたいです...。
ネットに落ちてるサンプルコードを見てみるとtomoさんのコードになっているのもありました。

> さすがにエディットボックスに直に表示はできませんか…
> （出力垂れ流しなはずだし、そのまま表示くらい…と思っていたのですが。甘かったですな…）
コンソールアプリケーションが流すデータをパイプを通して奪い取り、それを変数に確保、そのデータをエディットボックスに出力、といった形になるようです。

いまはまだちゃんと実装できていないのですが、以下のサンプルを参考に一応頑張っています...。
誰かサクっと実装できる方いませんか？

[ここをクリックすると内容が表示されます]

コード: 全て選択

int APIENTRY WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
	//名前なしパイプ作成
	SECURITY_ATTRIBUTES sa;
	sa.lpSecurityDescriptor = NULL;
	sa.nLength = sizeof(SECURITY_ATTRIBUTES);
	sa.bInheritHandle = TRUE;
	HANDLE hRead, hWrite;
	if(!CreatePipe(&hRead, &hWrite, &sa, 0))
		return 0;
	
	//プロセス作成
	STARTUPINFO si;
	PROCESS_INFORMATION pi;
	ZeroMemory(&si, sizeof(STARTUPINFO));
	si.cb = sizeof(STARTUPINFO);
	si.dwFlags = STARTF_USESHOWWINDOW | STARTF_USESTDHANDLES;
	si.wShowWindow = SW_SHOWDEFAULT;
	si.hStdOutput = hWrite;
	//ping 実行
	if(CreateProcess(NULL, "ping localhost", NULL, NULL, TRUE, 0, NULL, NULL, &si, π)) {
		WaitForInputIdle(pi.hProcess, INFINITE);
		//プロセス待機
		WaitForSingleObject(pi.hProcess, INFINITE);
		CloseHandle(pi.hThread);
		CloseHandle(pi.hProcess);
		//パイプから結果を読み出す
		DWORD dwAvail;
		if(PeekNamedPipe(hRead, NULL, 0, NULL, &dwAvail, NULL) && dwAvail > 0) {
			char szOut[1024];
			ZeroMemory(szOut, sizeof(szOut));
			DWORD dwRead;
			if(ReadFile(hRead, szOut, sizeof(szOut) - 1, &dwRead, NULL)) {
				MessageBox(NULL, szOut, NULL, 0);
			}
		}
	}
	CloseHandle(hRead);
	CloseHandle(hWrite);
	
	return 0;
}

[ここをクリックすると内容が表示されます]

コード: 全て選択

BOOL ConsolExec( CHAR *strCom )
{
	STARTUPINFO				si;
	PROCESS_INFORMATION		pi;
	SECURITY_ATTRIBUTES		sa;
	DWORD					dwExitCode;
	DWORD					dwRet;
	HANDLE					hProc;
	CHAR					strPath[ MAX_PATH ];
	CHAR					strCmd[ MAX_PATH ];
	CHAR					strExec[ MAX_PATH ];
	BOOL					bRet;


	// 環境変数COMSPECの文字列を取得
	GetEnvironmentVariable( "COMSPEC" , strCmd , sizeof(strCmd) );

	// CreateProcessに渡せる"cmd.exe /c xxxxxx"or"command.com /c xxxxxx"の形を作成
	wsprintf( strExec , "%s /c %s" , strCmd , strCom );

	// SECURITY_ATTRIBUTES 構造体の設定
	memset( &sa , 0 , sizeof( SECURITY_ATTRIBUTES ) );
	sa.nLength              = sizeof( SECURITY_ATTRIBUTES );
	sa.lpSecurityDescriptor = NULL;
	sa.bInheritHandle       = TRUE;// ハンドルを継承する


	// STARTUPINFO 構造体の設定
	memset( &si , 0 , sizeof( STARTUPINFO ) );
	si.cb          = sizeof( STARTUPINFO );
	si.lpDesktop   = NULL;
	si.lpTitle     = NULL;
	si.dwFlags     = STARTF_USESHOWWINDOW;//STARTF_USESTDHANDLES;
	si.wShowWindow = SW_HIDE;
	si.hStdInput   = NULL;// ここを自前で指定すれば出力結果を得られる
	si.hStdOutput  = NULL;// 
	si.hStdError   = NULL;// 

	// 現在のディレクトリパスを取得
	GetCurrentDirectory( sizeof(strPath) , strPath );

	// 別プロセスで実行させる
	if( CreateProcess( NULL , strExec , NULL , NULL , FALSE , 0 , NULL , NULL , &si , π ) == FALSE ){
		// エラー発生
		LPVOID	lpMsgBuf;
		// エラー内容の表示
		dwRet = GetLastError();
		FormatMessage( FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM, NULL , dwRet, LANG_USER_DEFAULT, (LPTSTR)&lpMsgBuf , 0, NULL );
		MessageBox( NULL , (LPTSTR)lpMsgBuf , "Error" , MB_OK|MB_ICONINFORMATION );
		bRet = FALSE;
	}else{
		// 正常
		hProc = pi.hProcess;
		// コマンド終了まで待つ、n秒以内に終了しないと強制終了させる。INFINITEはずっと待つ
		if( WaitForSingleObject( hProc , INFINITE ) == WAIT_FAILED ){
			GetExitCodeProcess( hProc , &dwExitCode );
		}
		bRet = TRUE;

	}

	// ハンドル開放
	if( hProc ){
		CloseHandle( hProc );
		hProc = NULL;
	}
	
	return bRet;
}

[ここをクリックすると内容が表示されます]

コード: 全て選択

/* API登録 */
#uselib	"kernel32.dll"
#func	CreatePipe	"CreatePipe"	sptr,sptr,sptr,sptr
#func	CloseHandle	"CloseHandle"	sptr
#func	CreateProcessA	"CreateProcessA"	sptr,sptr,sptr,sptr,sptr,sptr,sptr,sptr,sptr,sptr
#func	ReadFile		"ReadFile"	sptr,sptr,sptr,sptr,sptr

/* 各種定数 */

#const	TRUE		1
#const	FALSE		0
#const	NULL		0

#define	NAME_CB_EXE	"cb.exe"

#const	SIZE_SEC_ATTR	12	// SECURITY_ATTRIBUTES構造体サイズ

// STARTUPINFO構造体パラメータ
#const	SIZE_SUP_INFO		68		// STARTUPINFO構造体サイズ
#const	STARTF_USESHOWWINDOW	0x00000001	// パラメータ使用フラグ（ウィンドウ表示状態）
#const	STARTF_USESTDHANDLES	0x00000100	// パラメータ使用フラグ（標準出入力ハンドル）
#const	SW_HIDE			0		// 起動時ウィンドウを表示しない

#const	SIZE_BUF			1024		// ReadFile読み取りサイズ上限


	/************/
	/* 処理本体 */
	/************/

	mydir = dir_cur				// このスクリプトの起動ディレクトリ

	/* 名無しパイプ作成 */
	secAttr = SIZE_SEC_ATTR, NULL, TRUE		// SECURITY_ATTRIBUTES構造体
	CreatePipe varptr(hRead),varptr(hWrite),varptr(secAttr),0
	if stat=FALSE {
		dialog "パイプの作成に失敗しました。スクリプトを終了します。", 1, "エラー"
		end
	}

	/* パイプの書き込み側を標準出力につないでcb.exeを起動 */
	cmdline		= mydir + "\\" + NAME_CB_EXE
	// STARTUPINFO構造体
	supInfo		= SIZE_SUP_INFO,	NULL,	NULL,	NULL
	supInfo(4)	= 0,		0,	0,	0
	supInfo(8)	= 0,		0,	NULL,	STARTF_USESHOWWINDOW | STARTF_USESTDHANDLES
	supInfo(12)	= SW_HIDE,	NULL,	NULL,	hWrite,	NULL
	// PROCESS_INFOMATION構造体
	dim procInfo,4
	// cb.exeを起動
	CreateProcessA NULL,cmdline,0,0,TRUE,NULL,NULL,NULL,varptr(supInfo),varptr(procInfo)

	/* cb.exe起動のエラーチェック */
	if stat=FALSE {
		CloseHandle hWrite		// パイプの書き込み側ハンドルを閉じる
		dialog NAME_CB_EXE + "の起動に失敗しました。スクリプトを終了します。", 1, "エラー"
		goto *@f
	}

	/* パイプの書き込み側ハンドルを閉じる（スクリプトでは使わない） */
	CloseHandle hWrite
	/* cb.exe関連のハンドルを閉じる（スクリプトでは使わない） */
	CloseHandle procInfo(0)
	CloseHandle procInfo(1)

	/* パイプからcb.exeの出力を読み取る */
	outbuf	= ""			// 出力受け取り用バッファ
	size	= 0			// ReadFile読み取りサイズ
	repeat
		sdim buf,SIZE_BUF+1	// ReadFile用バッファ
		ReadFile hRead,varptr(buf),SIZE_BUF,varptr(size),NULL
		if stat {			// ReadFile成功
			if size=0 {	// 読み取り完了
				break
			}
			outbuf += buf
		}
		else {			// ReadFile失敗
			break
		}
	loop

*@
	/* パイプの読み取り側ハンドルを閉じる */
	CloseHandle hRead

	/* 結果表示 */
	dialog "\""+outbuf+"\"",,"処理結果"
	end

by **tomo** » 2007年5月27日(日) 20:31

7様、お返事ありがとうございます。

> 件のコードではたぶん目的のアプリケーションすら実行されていないと思います。

ありゃ…たしかに挙動が違いますね。私のコードでは実行されていないようです。実は試しに、私のコードを

コード: 全て選択

CmdLine = "cmd.exe /c dir c:\windows\system32 > c:\a.txt"

に変更して実行すると、a.txt が生成されていたので（ちゃんと中身あり）、実行できているとばかり思っていました…（汗）

> とりあえず目的のアプリケーションを実行する所までは出来ました。

コード: 全て選択

> Dim si As STARTUPINFO
> Dim pi As PROCESS_INFORMATION
> 
> 	si.cb=SizeOf(STARTUPINFO)
> 	' ウィンドウを非表示で実行
> '	si.dwFlags=STARTF_USESHOWWINDOW
> '	si.wShowWindow=SW_HIDE
> 
> 	If CreateProcess(
> 			"C:\WINDOWS\system32\cmd.exe", ' 実行ファイルへのパス
> 			"/c dir c:\windows\system32", ' 実行ファイルに渡すコマンドライン文字列
> 			ByVal NULL,ByVal NULL,TRUE,NORMAL_PRIORITY_CLASS,0,
> 			"c:\windows\system32", ' カレントディレクトリ
> 			si,pi) Then
> '		WaitForSingleObject(pi.hProcess,INFINITE)
> 		CloseHandle(pi.hThread)
> 		CloseHandle(pi.hProcess)
> 	End If

wShowWindow というものがあったのですね。過去ログで、コンソールを表示しないには、DETACHED_PROCESS が使えると
書いてあったのでそれを使わせていただいていました＾＾；

> 追記。
> CreatePipe()関数やPeekNamedPipe()関数を使う必要があるようです。

ありゃ…いきなり難しい話になってしまいましたな…（滝汗）
さすがにエディットボックスに直に表示はできませんか…
（出力垂れ流しなはずだし、そのまま表示くらい…と思っていたのですが。甘かったですな…）

> とりあえずエディットボックスに出力結果の一部を表示することは出来たのですが、ちょっとこれは正しい動作じゃないような...。

おぉ、すごいです！形になれば、是非伝授してください＾＾；

by 7 » 2007年5月27日(日) 16:19

> いざコードを書いてみると、目的のコンソールアプリケーションは実行されているようですが、
> 結果を表示させることができませんでした。
件のコードではたぶん目的のアプリケーションすら実行されていないと思います。
自分もいま実験しているのですが対象のコントロールに出力結果を表示することは出来ていません...。

とりあえず目的のアプリケーションを実行する所までは出来ました。

コード: 全て選択

Dim si As STARTUPINFO
Dim pi As PROCESS_INFORMATION

	si.cb=SizeOf(STARTUPINFO)
	' ウィンドウを非表示で実行
'	si.dwFlags=STARTF_USESHOWWINDOW
'	si.wShowWindow=SW_HIDE

	If CreateProcess(
			"C:\WINDOWS\system32\cmd.exe", ' 実行ファイルへのパス
			"/c dir c:\windows\system32", ' 実行ファイルに渡すコマンドライン文字列
			ByVal NULL,ByVal NULL,TRUE,NORMAL_PRIORITY_CLASS,0,
			"c:\windows\system32", ' カレントディレクトリ
			si,pi) Then
'		WaitForSingleObject(pi.hProcess,INFINITE)
		CloseHandle(pi.hThread)
		CloseHandle(pi.hProcess)
	End If

追記。
CreatePipe()関数やPeekNamedPipe()関数を使う必要があるようです。

コード: 全て選択

Declare Function CreatePipe Lib "kernel32.dll" (
	ByVal hReadPipe As *HANDLE,
	ByVal hWritePipe As *HANDLE,
	ByRef lpPipeAttributes As SECURITY_ATTRIBUTES,
	ByVal nSize As DWord) As BOOL

Declare Function PeekNamedPipe Lib "kernel32.dll" (
	ByVal hNamedPipe As HANDLE,
	ByVal lpBuffer As VoidPtr,
	ByVal nBufferSize As DWord,
	ByVal lpBytesRead As *DWord,
	ByVal lpTotalBytesAvail As *DWord,
	ByVal lpBytesLeftThisMessage As *DWord) As BOOL

とりあえずエディットボックスに出力結果の一部を表示することは出来たのですが、ちょっとこれは正しい動作じゃないような...。

by **tomo** » 2007年5月27日(日) 13:17

はじめまして。tomoと申します。

GUIを持つアプリケーションから、コンソールアプリケーションを呼び出す際に、
結果を（途中経過をリアルタイムで）コンソールではなくGUI中のテキストボックス等に
表示させたいのです。
（コンソールは表示させない方向で・・・）

調べてみたところ、「CreateProcess を使用し、STARTUPINFO構造体の
dwFlags と hStdOutput を設定しておく」まではわかったのですが、
いざコードを書いてみると、目的のコンソールアプリケーションは実行されているようですが、
結果を表示させることができませんでした。

コード: 全て選択

Dim CmdLine As String
Dim si As STARTUPINFO
Dim pi As PROCESS_INFORMATION

CmdLine = "cmd.exe /c dir c:\windows\system32"

si.cb = Len(si)
si.dwFlags = STARTF_USESTDHANDLES
si.hStdOutput = GetDlgItem(hMainWnd,EditBox1)

If CreateProcess(0, StrPtr(CmdLine), ByVal 0, ByVal 0, TRUE, DETACHED_PROCESS, 0, 0, si, pi) Then
    CloseHandle(pi.hProcess)
    CloseHandle(pi.hThread)
End If

どのようにすればよいのでしょうか…
どうかお力添えをいただけませんか？よろしくお願いします。

ab.com コミュニティ

標準出力のリダイレクト

返信する

展開ビュートピックのレビュー: 標準出力のリダイレクト

Re: 標準出力のリダイレクト

Re: 標準出力のリダイレクト

Re: 標準出力のリダイレクト

Re: 標準出力のリダイレクト

標準出力のリダイレクト

標準出力のリダイレクト

返信する

展開ビュー トピックのレビュー: 標準出力のリダイレクト

Re: 標準出力のリダイレクト

Re: 標準出力のリダイレクト

Re: 標準出力のリダイレクト

Re: 標準出力のリダイレクト

標準出力のリダイレクト

展開ビュートピックのレビュー: 標準出力のリダイレクト