ＨＳＰでＰＣのスピーカーから出てる音を音声ファイルで録音する方法をおしえて

44Bのファイルが出来るのに空のファイルとは不正確ですね



	savefilename = "D:\\record.wav"
	Samplingrate = 44100
	samplingbitrate = 16
	
	
	mci "open new alias rec type waveaudio"
	// 音質の設定
	mci "set rec channels 2 samplespersec "+str(Samplingrate)+" bitspersample "+str(samplingbitrate)
	// 録音開始
	mci "record rec"

	// 1秒待機
	wait 100

	// 停止し書き込み
	mci "stop rec"
	mci "save rec \""+savefilename+"\""
	mci "close rec"
	wait 50

	exist savefilename
	filesize = strsize
	sdim data,filesize+1
	bload savefilename,data
	lpoke data,28,(Samplingrate*2*(samplingbitrate/8))
	bsave savefilename,data,filesize
	sdim data
	
	stop

サンプリングレートや量子化ビット数を変えられるようにしてみました
うちのPCは既定値の再生デバイスが96000Hz/24bit、録音デバイスが48000Hz/24bitですが、
この方法での録音は44100Hz/16bitと48000Hz/16bitで録音出来ませんでした

HSPTV!掲示板