タイトル : Re^2: vb6での標準出力 投稿日 : 2017/09/29(Fri) 14:33 投稿者 : ミッフィー
ありがとうございます。とりあえず解決です さきにテストしてから投稿すればよかったですね 関数的exe------------ Private Declare Function AllocConsole Lib "kernel32" () As Long private Declare Function FreeConsole Lib "kernel32" () As Long 'ストリームの呼び出し前に call allocConsole TS.WriteLine ("dummy") '<=これでコマンドラインにテキスト表示 'またはapi経由でも buffer = "APIDummy" Std_Hdl = GetStdHandle(STDOUT_HANDLE) API_Result = WriteFile(Std_Hdl, buffer, StdOut_Length, Written_Bytes, ByVal 0&) '↑これでもテキスト表示 call freeconsole ---------終了 これで呼び出し側VB6から、strResult = objExec.StdOut.ReadAll で受取可能です。\(^o^)/ やりたいことは、 exe間の文字列受け渡しなので「標準出力」という表現は違うのかもしれません。 これで、問題ないでしょうか、メモリに残骸が残るとか。。 これでメモリに残骸が残ったりしませんか |