C# と VB.NET の質問掲示板

■No10687 (渋木宏明(ひどり) さん) に返信
> 当初エビス様と同じ仕組みで考えていたので、その辺（＝芋虫の向いてる方向とか）後付けなんです。

エビス様とはなんでしょう？
通天閣にいる奴というのは知ってますが。

>>1000x1000にランダムに100匹ぐらい置いてます。
> 
> 僕のも、内部的には１０００ｘ１０００のマップにも耐える作りになっていますが、
> その規模になると芋虫のエントリのＵＩを入れ替えないと登録がつらいです (^^;
> 
> 自動配置のロジック考えるのも面倒だったので、僕は「育成（＝芋虫ロジック検討）」
>「対戦（＝少数芋虫によるサバイバル）」をメインにした仮想世界を作っていこうと思います。

はい。
育成は少しずつやるとなんか育成してる感じですし、
1対1の対戦も面白いと思います。

>>こういう感じでDLLだけで戦えると良いですね。
> ですね ;-)

で、インタフェースが同じなので、
同じインタフェースを実装してれば、
対戦でも10000匹サバイバルでも、おなじDLLで参加できるのはすばらしいと思うのですよ。
インタフェースの目的に適ってます。

> 次のリリースに追加しておきます。

で、私のもせっかく作ったんでまぁどっかで公開するかも知れないんですが、
微妙にインタフェースが違ってます。
できればあわせていただけるとラッパー作らなくていいのでうれしいです。

まず、方向の定義の定数と
ハッパの状態の定数が少し違います。
最初のは適当につけただけなので、ちょっと非合理でした。
自分は真ん中にいるという定義なので、wormの種類は必要ありませんでした。
また、方向は一般に左回りが＋、右回り−がでした。
IWormは虫の名前を保持したいと思ってます。
GetNextDirectionの引数はworldではなくsightの方がいいと気づきました。

たぶん定数はこの方が後々楽になるかと思います。
虫の名前とか引数の名称は私の好みですが。
あわせていただけるとありがたいです。

namespace WormWorld {

    public interface IWorm {
        string Name { get; }
        Direction GetNextDirection( LeafState[] sight );
    }

    public enum LeafState {
        worm = -1,
        leaf = 0,
        hole = 1
    }

    public enum Direction {
        right = -1,
        forward = 0,
        left = 1
    }
}

ちなみに、インタフェース以外の中身は驚くほど違います。
コードを読み解くと同じ結果になるんですが。

#もちろん私のは手抜きで、ひどりさんのは手を抜いてないのです。

> あなたが書いたVBのソースを載せて、どこが悪いのか指摘を受けたほうが有意義だと思いますよ。

よもやまさんに紹介していただいたページをVBに変換しました。
http://www.adp-gmbh.ch/csharp/avi/write_avi.html

悪い点や誤り等ありましたらご指摘をお願いいたします。


以下ソースです。よろしくお願いします。
※ToUInt32についてはSystem.Convert.を省略して記載しています。

Imports System
Imports System.Runtime.InteropServices
Imports System.Drawing
Imports System.Drawing.Imaging

 _

Public Class AviWriter
	<StructLayout(LayoutKind.Sequential, Pack:=1)> _
	Private Structure AVISTREAMINFOW
		Public fccType, fccHandler, dwFlags, dwCaps As UInt32

		Public wPriority, wLanguage As UInt16

		Public dwScale, dwRate, dwStart, dwLength, dwInitialFrames, dwSuggestedBufferSize, dwQuality, dwSampleSize, rect_left, rect_top, rect_right, rect_bottom, dwEditCount, dwFormatChangeCount As UInt32

		Public szName0, szName1, ..... szName63 As UInt16
	End Structure 'AVISTREAMINFOW
	<StructLayout(LayoutKind.Sequential, Pack:=1)> _
		Private Structure AVICOMPRESSOPTIONS
		Public fccType As UInt32
		Public fccHandler As UInt32
		Public dwKeyFrameEvery As UInt32 ' only used with AVICOMRPESSF_KEYFRAMES
		Public dwQuality As UInt32
		Public dwBytesPerSecond As UInt32 ' only used with AVICOMPRESSF_DATARATE
		Public dwFlags As UInt32
		Public lpFormat As IntPtr
		Public cbFormat As UInt32
		Public lpParms As IntPtr
		Public cbParms As UInt32
		Public dwInterleaveEvery As UInt32
	End Structure 'AVICOMPRESSOPTIONS
	<StructLayout(LayoutKind.Sequential, Pack:=1)> _
	 Public Structure BITMAPINFOHEADER
		Public biSize As UInt32
		Public biWidth As Int32
		Public biHeight As Int32
		Public biPlanes As Int16
		Public biBitCount As Int16
		Public biCompression As UInt32
		Public biSizeImage As UInt32
		Public biXPelsPerMeter As Int32
		Public biYPelsPerMeter As Int32
		Public biClrUsed As UInt32
		Public biClrImportant As UInt32
	End Structure 'BITMAPINFOHEADER
	_

	Public Class AviException
		Inherits ApplicationException

		Public Sub New(ByVal s As String)
			MyBase.New(s)
		End Sub 'New

		Public Sub New(ByVal s As String, ByVal hr As Int32)
			MyBase.New(s)

			If hr = AVIERR_BADPARAM Then
				err_msg = "AVIERR_BADPARAM"
			Else
				err_msg = "unknown"
			End If
		End Sub 'New


		Public Function ErrMsg() As String
			Return err_msg
		End Function 'ErrMsg
		Private AVIERR_BADPARAM As Int32 = -2147205018
		Private err_msg As String
	End Class 'AviException

	Private Const OF_WRITE As Long = &H1
	Private Const OF_CREATE As Long = &H1000
	Private Const OF_SHARE_DENY_NONE As Long = &H40
	Private Const AVIIF_KEYFRAME As Long = &H10L

	Public Function Open(ByVal fileName As String, ByVal frameRate As UInt32, ByVal width As Integer, ByVal height As Integer) As Bitmap
		frameRate_ = frameRate
		width_ = width
		height_ = height
		bmp_ = New Bitmap(width, height, PixelFormat.Format24bppRgb)
		Dim bmpDat As BitmapData = bmp_.LockBits(New Rectangle(0, 0, width, height), ImageLockMode.ReadOnly, PixelFormat.Format24bppRgb)
		stride_ = bmpDat.Stride
		bmp_.UnlockBits(bmpDat)
		AVIFileInit()
		Dim hr As Integer = AVIFileOpen(pfile_, fileName, OF_CREATE Or OF_WRITE Or OF_SHARE_DENY_NONE, 0)

		If hr <> 0 Then
			Throw New AviException("error for AVIFileOpen")
		End If

		CreateStream()
		SetOptions()

		Return bmp_
	End Function 'Open


	Public Sub AddFrame()

		Dim bmpDat As BitmapData = bmp_.LockBits(New Rectangle(0, 0, CInt(width_), CInt(height_)), ImageLockMode.ReadOnly, PixelFormat.Format24bppRgb)

		Dim hr As Integer = AVIStreamWrite(psCompressed_, count_, 1, bmpDat.Scan0, CType(stride_ * height_, Int32), 0, 0, 0)
		' pointer to data
		' 16 = AVIIF_KEYFRAMe

		If hr <> 0 Then
			Throw New AviException("AVIStreamWrite")
		End If

		bmp_.UnlockBits(bmpDat)

		count_ += 1
	End Sub 'AddFrame


	Public Sub Close()
		AVIStreamRelease(ps_)
		AVIStreamRelease(psCompressed_)

		AVIFileRelease(pfile_)
		AVIFileExit()
	End Sub 'Close


	Private Sub CreateStream()
		Dim strhdr As New AVISTREAMINFOW
		strhdr.fccType = fccType_
		strhdr.fccHandler = fccHandler_
		strhdr.dwFlags = ToUInt32(0)
		strhdr.dwCaps = ToUInt32(0)
		strhdr.wPriority = ToUInt16(0)
		strhdr.wLanguage = ToUInt16(0)
		strhdr.dwScale = ToUInt32(1)
		strhdr.dwRate = frameRate_ ' Frames per Second
		strhdr.dwStart = ToUInt32(0)
		strhdr.dwLength = ToUInt32(0)
		strhdr.dwInitialFrames = ToUInt32(0)
		strhdr.dwSuggestedBufferSize = ToUInt32(height_ * stride_)
		strhdr.dwQuality = ToUInt32(4294967295)
		strhdr.dwSampleSize = ToUInt32(0)
		strhdr.rect_top = ToUInt32(0)
		strhdr.rect_left = ToUInt32(0)
		strhdr.rect_bottom = ToUInt32(height_)
		strhdr.rect_right = ToUInt32(width_)
		strhdr.dwEditCount = ToUInt32(0)
		strhdr.dwFormatChangeCount = ToUInt32(0)
		strhdr.szName0 = ToUInt16(0)
		strhdr.szName1 = ToUInt16(0)

		Dim hr As Integer = AVIFileCreateStream(pfile_, ps_, strhdr)

		If hr <> 0 Then
			Throw New AviException("AVIFileCreateStream")
		End If
	End Sub 'CreateStream


	Private Sub SetOptions()
		Dim opts As New AVICOMPRESSOPTIONS
		opts.fccType = ToUInt32(0) 'fccType_;
		opts.fccHandler = ToUInt32(0) 'fccHandler_;
		opts.dwKeyFrameEvery = ToUInt32(0)
		opts.dwQuality = ToUInt32(0) ' 0 .. 10000
		opts.dwFlags = ToUInt32(0) ' AVICOMRPESSF_KEYFRAMES = 4
		opts.dwBytesPerSecond = ToUInt32(0)
		opts.lpFormat = New IntPtr(0)
		opts.cbFormat = ToUInt32(0)
		opts.lpParms = New IntPtr(0)
		opts.cbParms = ToUInt32(0)
		opts.dwInterleaveEvery = ToUInt32(0)

		Dim p As AVICOMPRESSOPTIONS
		Dim pp As AVICOMPRESSOPTIONS

		Dim x As IntPtr = ps_
		Dim ptr_ps As IntPtr

		AVISaveOptions(0, ToUInt32(0), 1, ptr_ps, pp)

		' TODO: AVISaveOptionsFree(...)
		Dim hr As Integer = AVIMakeCompressedStream(psCompressed_, ps_, opts, 0)
		If hr <> 0 Then
			Throw New AviException("AVIMakeCompressedStream")
		End If

		Dim bi As New BITMAPINFOHEADER
		bi.biSize = ToUInt32(40)
		bi.biWidth = ToDecimal(width_)
		bi.biHeight = ToDecimal(height_)
		bi.biPlanes = 1
		bi.biBitCount = 24
		bi.biCompression = ToUInt32(0) ' 0 = BI_RGB
		bi.biSizeImage = ToUInt32(stride_ * height_)
		bi.biXPelsPerMeter = 0
		bi.biYPelsPerMeter = 0
		bi.biClrUsed = ToUInt32(0)
		bi.biClrImportant = ToUInt32(0)

		hr = AVIStreamSetFormat(psCompressed_, 0, bi, 40)
		If hr <> 0 Then
			Throw New AviException("AVIStreamSetFormat", hr)
		End If
	End Sub 'SetOptions

	Private Declare Sub AVIFileInit Lib "avifil32.dll" ()

	Private Declare Sub AVIFileExit Lib "avifil32.dll" ()

	Private Declare Function AVIFileOpen Lib "avifil32.dll" _
			 (ByRef ptr_pfile As Integer, ByVal fileName As String, _
			  ByVal flags As Integer, ByRef dummy As Integer) As Integer 'byval

	Private Declare Function AVIFileOpenW Lib "avifil32.dll" _
			 (ByRef ptr_pfile As Integer, ByVal fileName As String, _
			  ByVal flags As Integer, ByRef dummy As Integer) As Integer 'byval

	Private Declare Function AVIFileCreateStream Lib "avifil32.dll" _
			  (ByVal ptr_pfile As Integer, ByRef ptr_ptr_avi As IntPtr, _
			   ByRef ptr_streaminfo As AVISTREAMINFOW) As Long

	Private Declare Function AVIMakeCompressedStream Lib "avifil32.dll" _
			   (ByRef ppsCompressed As IntPtr, ByVal aviStream As IntPtr, _
				ByRef ao As AVICOMPRESSOPTIONS, ByVal dummy As Integer) As Integer

	Private Declare Function AVIStreamSetFormat Lib "avifil32.dll" _
			   (ByVal aviStream As IntPtr, ByVal lPos As Int32, _
				ByRef lpFormat As BITMAPINFOHEADER, ByVal cbFormat As Int32) As Integer

	Private Declare Function AVISaveOptions Lib "avifil32.dll" _
		  (ByVal hwnd As Integer, ByVal flags As UInt32, _
		   ByVal nStreams As Integer, _
		   ByRef ptr_ptr_avi As IntPtr, ByRef ao As AVICOMPRESSOPTIONS) As Integer 'byval

	Private Declare Function AVIStreamWrite Lib "avifil32.dll" _
		 (ByVal aviStream As IntPtr, ByVal lStart As Int32, _
		  ByVal lSamples As Int32, ByVal lpBuffer As IntPtr, _
		  ByVal cbBuffer As Int32, ByVal dwFlags As Int32, _
		  ByRef dummy1 As Int32, ByRef dummy2 As Int32) As Integer 'byval

	Private Declare Function AVIStreamRelease Lib "avifil32.dll" _
			   (ByVal aviStream As IntPtr) As Integer

	Private Declare Function AVIFileRelease Lib "avifil32.dll" _
			   (ByVal pfile As Integer) As Integer

	Private pfile_ As Integer = 0
	Private ps_ As New IntPtr(0)
	Private psCompressed_ As New IntPtr(0)
	Private frameRate_ As UInt32 = ToUInt32(0)
	Private count_ As Integer = 0
	Private width_ As Integer = 0
	Private stride_ As Integer = 0
	Private height_ As Integer = 0
	Private fccType_ As UInt32 = ToUInt32(1935960438) ' vids
	Private fccHandler_ As UInt32 = ToUInt32(808810089) ' IV50
	'1145656899;  // CVID
	Private bmp_ As Bitmap
End Class 'AviWriter

XmlSerializerについての質問です。

１のようなXMLがあり、２のクラスにDesirializeメソッドを使って値を格納したいと考えています。
chumon要素の配列を取得したいのですが、データが入ってくれず悩んでいます。

現状、ルート要素のchumonListResponseとchumonListItemには値が入っているのですが、
chumon要素の配列には値が入ってくれません（Length==0）
どなたか２のクラスのどこが間違っているか教えていただけませんでしょうか？
よろしくお願いします。

１．XML
<?xml version="1.0" encoding="UTF-8" ?>
<chumonListResponse>
  <chumonList>
    <chumonListItem>
      <chumonType>6</chumonType>
      <chumon chumonBango="001">
        <hatchuSuryo>10000</hatchuSuryo>
        <hatchuNichiji>2007-05-30 13:17:00</hatchuNichiji>
        <yukoNichiji />
      </chumon>
      <chumon chumonBango="002">
        <hatchuSuryo>10000</hatchuSuryo>
        <hatchuNichiji>2007-05-30 13:17:00</hatchuNichiji>
        <yukoNichiji />
      </chumon>
      <chumon chumonBango="003">
        <hatchuSuryo>10000</hatchuSuryo>
        <hatchuNichiji>2007-05-30 13:17:00</hatchuNichiji>
        <yukoNichiji />
      </chumon>
    </chumonListItem>
  </chumonList>
  <message>発注一覧を取得しました。</message>
</chumonListResponse>


２．格納用クラス

    public class chumonListResponse 
    {
        public string message;
        [XmlArray("chumonList")]
        [XmlArrayItem("chumonListItem", typeof(chumonListItem))]
        public chumonListItem[] chumonListItem;
    }

    public class chumonListItem
    {
        public string chumonType;
        [XmlArrayItem("chumon", typeof(chumon))]         //←ここがどう設定すればよいかわからない。。。
        public chumon[] chumon;
    }

    public class chumon
    {
        [XmlAttributeAttribute()]
        public string chumonBango;
        public string hatchuSuryo;
        public string hatchuNichiji;
        public string yukoNichiji;
    }


ウォッチで下記の値を確認すると0となってしまいます。
msgChumonListResponse.chumonListItem[0].chumon.Length

■No15210 (アキラ さん) に返信
> ■No15209 (セイン さん) に返信
> 
>>自分なりにofstreamの中を追いかけてみたところ、
>>以下の関数を使って書き込みをしていました。
>>C言語のfputsじゃなかったんですね＾＾；
>>basic_streambuf::sputn
>>basic_streambuf::sputc
>>
> 
> いえ、VC++8.0のofstreamはfwrite, fputcを使ってます

あうぅ。ごめんなさい僕の力不足です。そうなんですね。

以下ソースになるのですが、速度にそれぞれ差が出ました。
一番下に書いてあるのが、fputcになります。
ofstreamよりfputcのほうが僕の環境では遅くなります。



メイン関数側
	CLogHlp m_Log;
	m_Log.CreateWriteFile("C:\\tmp.txt");

	CString str;
	for(int i = 0; i < 100000; i++) {
		str.Format("%10d\t", i);
		m_Log.Write(str);
	}

	m_Log.WirteFileUnload();




ログ書き込みクラス
#pragma once
#include <fstream>

class CLogHlp
{
public:
	CLogHlp() 
	{
	}

	~CLogHlp() 
	{
		try {
			WirteFileUnload();
		} catch(...) {}
	}

	/** ファイル読み込み @return TRUE:オープン成功 FALSE:失敗 */
	BOOL CreateWriteFile
	(
		LPCSTR path					///< [I]ファイルパス
	)
	{
		int ret = TRUE;
		try{
			// ファイル作成
			if(mWriteFile.Open(path, CFile::modeCreate|CFile::modeWrite) != TRUE) {
				ret = FALSE;
			}
		}catch(...) {
			ret = FALSE;
		}
		return ret;
	}

	/* オープン中のファイルクローズ */
	void WirteFileUnload()
	{
		if(mWriteFile.m_hFile != CFile::hFileNull) {
			mWriteFile.Close();
		}
	}

	/* 書き込み */
	BOOL Write
	(
		CString str					///< [I]保存内容
	)
	{
		int ret = TRUE;
		try {
			mWriteFile.Write(str, str.GetLength());
		}
		catch(...) {
			ret = FALSE;
		}
		return ret;
	}

private:
	// 書き込み用ファイル
	CFile mWriteFile;
};



class CLogHlp
{
public:
	CLogHlp() 
	{
	}

	~CLogHlp() 
	{
		try {
			WirteFileUnload();
		} catch(...) {}
	}

	/** ファイル読み込み @return TRUE:オープン成功 FALSE:失敗 */
	BOOL CreateWriteFile
	(
		LPCSTR path					///< [I]ファイルパス
	)
	{
		try {
			setlocale(LC_ALL, "Japanese"); 
			// ファイルオープン
			fsm.open(path, std::ios::trunc | std::ios::out);
			if(fsm.is_open() == false)
			{
				// 既にオープン中
				return FALSE;
			}
		}
		catch(...) {
			return FALSE;
		}
		return TRUE;
	}

	/* オープン中のファイルクローズ */
	void WirteFileUnload()
	{
		if(fsm.is_open() == true)
		{				
			// ファイルのクローズ
			fsm.close();
		}
	}

	/* 書き込み */
	BOOL Write
	(
		CString str					///< [I]保存内容
	)
	{
		int ret = TRUE;
		try {
			fsm << (LPCSTR)str;
		}
		catch(...) {
			ret = FALSE;
		}
		return ret;
	}

private:
	// ファイルストリーム
	std::ofstream	fsm;
};



class CLogHlp
{
public:
	CLogHlp() 
	{
	}

	~CLogHlp() 
	{
		try {
			WirteFileUnload();
		} catch(...) {}
	}

	/** ファイル読み込み @return TRUE:オープン成功 FALSE:失敗 */
	BOOL CreateWriteFile
	(
		LPCSTR path					///< [I]ファイルパス
	)
	{
		try {
		  if((fopen_s( &fp, path, "w" )) != 0 ){
			  return FALSE;
		  }

		}
		catch(...) {
			return FALSE;
		}
		return TRUE;
	}

	/* オープン中のファイルクローズ */
	void WirteFileUnload()
	{
		try {
			fclose(fp);
		}
		catch(...) {
		}
	}

	/* 書き込み */
	BOOL Write
	(
		CString str					///< [I]保存内容
	)
	{
		int ret = TRUE;
		try {
			fputs(str, fp);
		}
		catch(...) {
			ret = FALSE;
		}
		return ret;
	}

private:
	// ファイルストリーム
	FILE *fp;
};

みなさん、ご意見ありがとうござます！返事が遅くなってしまいすみません。

■No15929 (PATIO さん) に返信

>オフスクリーン描画といわれている手法です。

おそらく、Bitmapクラスのsetpixelを使って描画する方法がそれに当たると思い、
再びトライしてみたところ、裏で描いてる時間は多少かかるものの、
表示は一瞬で出来るようになりました！

ありがとうございます！


>多分、座標計算して描画した方が早いのではないかと思いますが、

描画した画像を回すと、回転後の画像がぼやけてしまったので、座標を計算しなおしてから、描画させてみます！




■No15959 (組込系の人 さん) に返信

>DirectXについて

一番はじめにDirectXを使ってみたのですが、
ループ処理によって常に再描画をする、という仕組みから（ここをちゃんと理解していないのかもしれませんが）、
十万点を再描画させ続けると、全ての点が一度に描画される事がなく、
常にパラパラと、部分部分だけ表示される状態になってしまったので、
「やはり十万点は量が多すぎるのか。。」
とあきらめて、ループ処理ではない、graphicsクラスや、Bitmapクラスを使ってみることにしました。

しかし、今一度、DirectXも学びなおしてみます。
ご意見ありがとうございます。


■No15960 (Jitta on the way さん) に返信

>ちょっとよくわからないのですが、描画単位をなににしていますか？ケータイからなので調べにくいので調べませんが、ピクセル単位に描画させれば、整数指定で大丈夫だと思います。

描画単位を全く指定していません。（指定の仕方を把握できてません。。）
Bitmapクラスを使って描画する時には、ピクセル単位だとは思っているのですが、
Graphicsクラスを使って描画する時には、FillRectangleの第4・5 引数にfloat型が入ったので、
なるべく小さな四角形にするために、0.5という数字をいれました。ちなみに0.1にすると、表示されませんでした。。

>Matrixというクラス

ネット上でサンプルを見ながら、RotateAtメソッドを使ってみました。

ありがとうございます！

------------------------------------------------------------

みなさんに、いろいろなご意見を頂くことができ、本当に勉強になります。ありがとうございます。
一応今現在のソースコードを簡単に載せてみます。
描画までは良いのですが、回転に関して、一度描画した画像を回すと、回転後の画像がブレたような感じになってしまったので、次は、座標を計算しなおしてから、描画させるという方法をとってみようと思っています。


描画部分↓↓

Bitmap bm = new Bitmap(Picturebox1.Width, Picturebox1.Height);
               
float xP, yP;

中略（xP,xYに、座標データ:構造体配列ah[100000]から値を代入）
for (int i = 0; i <= 99999; i++)
            {
                xP = ah[i].dx;
                yP = ah[i].dy;
//裏で描画
                bm.SetPixel((int)xP, (int)yP, Color.White);

　　　　　　　　//g.FillRectangle(Brushes.White, xP, yP, (float)0.5, (float)0.5);
　　　　　　　　（こちらだと、描画に時間がかかってしまいましたので、今はsetpixelメソッドを。。）　　
            }
//ピクチャボックスに表示
Picturebox1.Image = bm;


回転部分↓↓
              
Graphics g = Display1.CreateGraphics();

Matrix mx = new Matrix();

mx.RotateAt(15, new Point(bm.Width / 2, bm.Height));（bm:先ほど作ったBitmapクラスのインスタンス）

g.Transform = mx;

g.DrawImage(bm, new Point(0, 0));

私はやりませんが。
こんなのなら出来なくもないです。

PInvokeでVB、且つByte型限定ですが。

<DllImport("kernel32.dll", EntryPoint:="RtlFillMemory")> _
Shared Sub FillMemory(<[In](), Out()> ByVal Destination As Byte(), ByVal Length As UInt32, ByVal Fill As Byte)
End Sub


Dim buf As Byte()
buf = New Byte(100000) {}
FillMemory(buf, buf.Length, 10)

[OS]WinXP
[VB]2003/2005

お世話になっております。
今回は表題の通り、ProcessのStandardOutputを逐次読み取りたいというものです

わかりやすいとこで言うとPINGコマンド等、処理の間にもプロンプトに
順次表示されるものを、呼び出し元で奪ってしまおうと思ったのですが
当初書いた以下のコードでは当然ながら最終的な出力結果がまとめて返ってきます

Dim proc As Process

proc = New Process

With proc.StartInfo
    .FileName = "PING"
    .Argument = "xxx.xxx.xx.xx"     'IPは伏せます
    .RedirectStandardOutput = True
    .WindowStyle = ProcessWindowStyle.Hidden
    .CreateNoWindow = True
    .UseShellExecute = False
End With

proc.Start()
Debug.WriteLine(proc.StandardOutput.ReadToEnd())
proc.WaitForExit(10000)

proc.Close()
proc.Dispose()
proc = Nothing


タイマーでReadToEndとも考えたのですが良く考えればStartで固まるので
意味ありませんでした。
マルチスレッド使わずに標準出力のリアルタイム取得を実現できる方法があれば
ご教示願いたいと思います（マルチスレッド使って実現できるかどうかも未確認ですが）

2008/06/03(Tue) 09:40:28 編集(投稿者)

前投函を盛大に勘違いしてたお詫びにサンプルを作って計測してみました。
参考になれば…

・計測内容
1. 1,000,000件x30文字の配列を作成
2. string.Join メソッドを使った連結
3. StringBuilderクラスを使った連結(キャパ指定なし)
4. StringBuilderクラスを使った連結(キャパ指定あり)
5. += を使った文字列の連結

・計測結果
1. 15ms
2. 141ms
3. 430ms
4. 137ms
5. 時間がかかりすぎ最後まで到達しなかったので1,000件毎10,000件までの計測
  1000 :   120ms
  2000 :   336ms
  3000 :   697ms
  4000 :  1291ms
  5000 :  2349ms
  6000 :  3679ms
  7000 :  5131ms
  8000 :  6877ms
  9000 :  8848ms
 10000 : 11109ms

・結論
お手軽 = string.Joinメソッド
速さ = StringBuilderクラス(キャパ指定あり)

・サンプルソース

//配列作成
string[] testArray = new string[1000000];
//受け取り用文字列
string resultString = "";

//計測
Stopwatch testTime = new Stopwatch();

//配列作成
testTime.Start();
for (int count = 0; count <= testArray.Length - 1; count++)
{
    testArray[count] = "123456789012345678901234567890";
}

testTime.Stop();
Debug.WriteLine(string.Format("1.[{0}ms]", testTime.ElapsedMilliseconds));
testTime.Reset();

//単純にJoinで
testTime.Start();
resultString = string.Join("", testArray);

testTime.Stop();
Debug.WriteLine(string.Format("2.[{0}ms]", testTime.ElapsedMilliseconds));
testTime.Reset();
resultString = "";

//キャパ指定なし
StringBuilder stringBuilder = new StringBuilder();

testTime.Start();
for (int count = 0; count <= testArray.Length - 1; count++)
{
    stringBuilder.Append(testArray[count]);
}
resultString = stringBuilder.ToString();

testTime.Stop();
Debug.WriteLine(string.Format("3.[{0}ms]", testTime.ElapsedMilliseconds));
testTime.Reset();
resultString = "";

//キャパ指定あり
stringBuilder = new StringBuilder(30000000);

testTime.Start();
for (int count = 0; count <= testArray.Length - 1; count++)
{
    stringBuilder.Append(testArray[count]);
}
resultString = stringBuilder.ToString();

testTime.Stop();
Debug.WriteLine(string.Format("4.[{0}ms]", testTime.ElapsedMilliseconds));
testTime.Reset();
resultString = "";
stringBuilder = null;

//+=の場合
testTime.Start();
for (int count = 0; count <= testArray.Length - 1; count++)
{
    if((count % 1000) == 0)
        Debug.WriteLine(string.Format("{0} : [{1}ms]", count, testTime.ElapsedMilliseconds));

    //リミッタ
    if (count >= 10000) break; 

    resultString += testArray[count];
}

testTime.Stop();
Debug.WriteLine("End");