5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

くだすれDelphi(超初心者用)その37

867 :デフォルトの名無しさん:2007/01/18(木) 23:49:33
Delphiで、コマンドプロンプトの出力を得たいです。
コマンドプロンプトは非表示で、perlのファイルを実行、
その出力をEUCでエンコードしてMemoあたりに表示したいです。
一応、C#のソースならあります。誰か、Delphiに翻訳して下さい・・・

Process p = new Process() ;
p.StartInfo.FileName = Environment.GetEnvironmentVariable("ComSpec");
p.StartInfo.CreateNoWindow = true ; // 起動に ウィンドウ を使用しない
p.StartInfo.UseShellExecute = false ; // 起動に OS のシェルを使用しない
p.StartInfo.RedirectStandardInput = false ; // 標準リダイレクト入力を不許可
p.StartInfo.RedirectStandardOutput = true ; // 標準リダイレクト出力を許可
p.StartInfo.Arguments = @"/C cd C:\hogehoge && perl hoge" ; // コマンド設定(/C = 実行後 終了)
p.Start() ; // 起動

StreamReader output = new StreamReader(p.StandardOutput.BaseStream,Encoding.GetEncoding("EUC-JP")) ; // 出力を取得(参照の宣言のみ)
p.WaitForExit() ; // プロセスが終了するまで待つ

// 表示(出力を実際に取得)

output.Close();

266 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)