Z
zgp2000
Unregistered / Unconfirmed
GUEST, unregistred user!
to 网中戏<br> 我就是那一块去文件头再重写不会啊。你将源码帖出，我调试成功就送分给你了！<br>谢谢！
阿
阿九
Unregistered / Unconfirmed
GUEST, unregistred user!
学习。
网
网中戏
Unregistered / Unconfirmed
GUEST, unregistred user!
var<br> tempSmallInt;integer ;<br>.............<br>Source.Position:=0;//定位<br>[red]Source.ReadBuffer(tempSmallInt,44);//先进读44字节[/red]<br>Target.CopyFrom(Source,0);//因为上面读了44字节现在就会自动从45字节复制了<br>.......................
Z
zgp2000
Unregistered / Unconfirmed
GUEST, unregistred user!
to 网中戏<br> 我加到软件众好像报错，运行不能通过
网
网中戏
Unregistered / Unconfirmed
GUEST, unregistred user!
是我这一句错吗？[red]Source.ReadBuffer(tempSmallInt,44);//先进读44字节[/red]<br>别的是你的代码呀！你把流改成功内存流。我用TMemoryStream合成成功的。
一
一生中最爱
Unregistered / Unconfirmed
GUEST, unregistred user!
晕，现成的activex插件，应用代码可以在www.ysza.com下载，qq：171833017，平常都在，隐身。<br>-----------------------------------------<br>更多美图--http://www.mttx365.com<br>幽默笑话--http://www.haha77.com<br>免费影视--http://www.103h.com
Z
zgp2000
Unregistered / Unconfirmed
GUEST, unregistred user!
to 网中戏<br> 你干脆将源码全部帖出来得了，或者发到我邮箱啊。source2005@126.com
Z
zgp2000
Unregistered / Unconfirmed
GUEST, unregistred user!
还是没解决啊，弟兄们，帮帮忙啊！
Z
zgp2000
Unregistered / Unconfirmed
GUEST, unregistred user!
我建立一个wav空文件头，将一个语音文件去除文件头，合成成功。<br>但是在此基础上再合成wav文件，则只有第一次合成进去的语音，后面<br>合成的都没有声音。但文件是合并后的大小，合并还是进入了。<br>请高手指点一下。是不是最后要重写文件头？如何重写？只差最后一步了！<br>procedure TForm1.Button8Click(Sender: TObject);<br>var<br> stream: TMemoryStream;<br> TempStream:TFileStream;<br> ThisInt:Int64;<br>begin<br> CreateWav(1, 16, 22050, ('f:/temp.wav'));<br> stream:= TMemoryStream.Create;<br> TempStream:= TFileStream.Create('f:/temp.wav',fmOpenReadWrite or fmShareDenyNone );<br> stream.LoadFromFile('f:/0.wav');<br> stream.ReadBuffer(ThisInt,44);<br> TempStream.CopyFrom(stream,0);<br> stream.Free;<br> TempStream.Free;<br>end;
S
sbzldlb
Unregistered / Unconfirmed
GUEST, unregistred user!
void writewavefile(char* filepath, void* buffer, unsigned long bytestowrite)<br>{<br> FILE* pf;<br> WAVE_FILE_HEADER wfh;<br> pf = fopen(filepath,"r+b"
;<br> if (NULL == pf)<br> {<br> pf = fopen(filepath,"wb"<br> // wite file header<br> wfh.riff_hdr.id[0] = 'R';<br> wfh.riff_hdr.id[1] = 'I';<br> wfh.riff_hdr.id[2] = 'F';<br> wfh.riff_hdr.id[3] = 'F';<br> wfh.riff_hdr.len = 50;<br> <br> wfh.wave_id[0] = 'W';<br> wfh.wave_id[1] = 'A';<br> wfh.wave_id[2] = 'V';<br> wfh.wave_id[3] = 'E';<br><br> wfh.fmt_hdr.id[0] = 'f';<br> wfh.fmt_hdr.id[1] = 'm';<br> wfh.fmt_hdr.id[2] = 't';<br> wfh.fmt_hdr.id[3] = 32;<br> wfh.fmt_hdr.len = 18;<br><br> wfh.fmt_ck.wFormatTag = fc.wFormatTag ;<br> wfh.fmt_ck.wChannels = fc.wChannels;<br> wfh.fmt_ck.dwSamplesPerSec = fc.dwSamplesPerSec;<br> wfh.fmt_ck.dwAvgBytesPerSec = fc.dwAvgBytesPerSec;<br> wfh.fmt_ck.wBlockAlign = fc.wBlockAlign;<br> wfh.fmt_ck.FormatSpecific = fc.FormatSpecific;<br> wfh.fmt_ck.cbSize = fc.cbSize ;<br> <br> wfh.fact_hdr.id[0] = 'f';<br> wfh.fact_hdr.id[1] = 'a';<br> wfh.fact_hdr.id[2] = 'c';<br> wfh.fact_hdr.id[3] = 't';<br> wfh.fact_hdr.len = 4;<br> wfh.fact_ck = 8;<br><br> wfh.data_hdr.id[0] = 'd';<br> wfh.data_hdr.id[1] = 'a';<br> wfh.data_hdr.id[2] = 't';<br> wfh.data_hdr.id[3] = 'a';<br> wfh.data_hdr.len = 0;<br><br> fwrite(&wfh,1,sizeof(wfh),pf);<br> fclose(pf);<br> pf = fopen(filepath,"r+b"<br> }<br> fseek(pf,0,SEEK_SET);<br> fread(&wfh, 1, sizeof(wfh),pf);<br> wfh.riff_hdr.len += bytestowrite;<br> wfh.fact_ck += bytestowrite;<br> wfh.data_hdr.len += bytestowrite;<br> fseek(pf,0,SEEK_SET);<br> fwrite(&wfh, 1, sizeof(wfh),pf);<br> fseek(pf,0L,SEEK_END);<br> fwrite(buffer,1,bytestowrite,pf);<br> fclose(pf);<br>}
;<br> if (NULL == pf)<br> {<br> pf = fopen(filepath,"wb"<br> // wite file header<br> wfh.riff_hdr.id[0] = 'R';<br> wfh.riff_hdr.id[1] = 'I';<br> wfh.riff_hdr.id[2] = 'F';<br> wfh.riff_hdr.id[3] = 'F';<br> wfh.riff_hdr.len = 50;<br> <br> wfh.wave_id[0] = 'W';<br> wfh.wave_id[1] = 'A';<br> wfh.wave_id[2] = 'V';<br> wfh.wave_id[3] = 'E';<br><br> wfh.fmt_hdr.id[0] = 'f';<br> wfh.fmt_hdr.id[1] = 'm';<br> wfh.fmt_hdr.id[2] = 't';<br> wfh.fmt_hdr.id[3] = 32;<br> wfh.fmt_hdr.len = 18;<br><br> wfh.fmt_ck.wFormatTag = fc.wFormatTag ;<br> wfh.fmt_ck.wChannels = fc.wChannels;<br> wfh.fmt_ck.dwSamplesPerSec = fc.dwSamplesPerSec;<br> wfh.fmt_ck.dwAvgBytesPerSec = fc.dwAvgBytesPerSec;<br> wfh.fmt_ck.wBlockAlign = fc.wBlockAlign;<br> wfh.fmt_ck.FormatSpecific = fc.FormatSpecific;<br> wfh.fmt_ck.cbSize = fc.cbSize ;<br> <br> wfh.fact_hdr.id[0] = 'f';<br> wfh.fact_hdr.id[1] = 'a';<br> wfh.fact_hdr.id[2] = 'c';<br> wfh.fact_hdr.id[3] = 't';<br> wfh.fact_hdr.len = 4;<br> wfh.fact_ck = 8;<br><br> wfh.data_hdr.id[0] = 'd';<br> wfh.data_hdr.id[1] = 'a';<br> wfh.data_hdr.id[2] = 't';<br> wfh.data_hdr.id[3] = 'a';<br> wfh.data_hdr.len = 0;<br><br> fwrite(&wfh,1,sizeof(wfh),pf);<br> fclose(pf);<br> pf = fopen(filepath,"r+b"<br> }<br> fseek(pf,0,SEEK_SET);<br> fread(&wfh, 1, sizeof(wfh),pf);<br> wfh.riff_hdr.len += bytestowrite;<br> wfh.fact_ck += bytestowrite;<br> wfh.data_hdr.len += bytestowrite;<br> fseek(pf,0,SEEK_SET);<br> fwrite(&wfh, 1, sizeof(wfh),pf);<br> fseek(pf,0L,SEEK_END);<br> fwrite(buffer,1,bytestowrite,pf);<br> fclose(pf);<br>}
D
dwqxj
Unregistered / Unconfirmed
GUEST, unregistred user!
楼主，解决了吗，<br>恳请给我一份答案，谢谢dw-wtt@sohu.com
Z
zgp2000
Unregistered / Unconfirmed
GUEST, unregistred user!
没解决啊,楼上帖的是C语言的
T
tseug
Unregistered / Unconfirmed
GUEST, unregistred user!
以前写的一段代码，你看看吧<br>
代码:
<br>unit PCMWaves;<br><br>interface<br><br>uses<br> Classes, SysUtils, MMSystem;<br><br>type<br> TPCMWaveHeader = packed record<br> rID : array[0..3] of Char; //'RIFF' 标识<br> rLen : Longint;<br> wID : array[0..3] of Char; //'WAVE' 标识<br> fID : array[0..3] of Char; //'fmt ' 标识<br> fLen : Longint; //固定值, 16<br> wFormatTag : Word; //固定值, 1<br> nChannels : Word; //Mono=1, Stereo=2<br> nSamplesPerSec : Longint; //采样频率, HZ<br> nAvgBytesPerSec : Longint;<br> nBlockAlign : Word;<br> nBitsPerSample : Word; //精度, e.g. 8 or 16<br> dId : array[0..3]of Char; //'data' 标识<br> dLen : Longint; //数据长度<br> end;<br><br>type<br> EInvalidPCMWaveFormat = class(Exception);<br> <br> TPCMWave = class(TObject)<br> private<br> FStream : TMemoryStream;<br> FHeader : TPCMWaveHeader;<br><br> protected<br> function isValidFormat(aStream: TStream): Boolean; virtual;<br> function getPCMWaveHeader(aStream: TStream): TPCMWaveHeader; virtual;<br> function getData: Pointer; virtual;<br> <br> public<br> constructor Create; virtual;<br> destructor Destroy; override;<br><br> procedure LoadFromFile(const aFileName: String); virtual;<br> procedure LoadFromStream(aStream: TStream); virtual;<br> procedure SaveToFile(const aFileName: String); virtual;<br> procedure SaveToStream(aStream: TStream); virtual;<br><br> procedure Append(const aFileName: String); overload; virtual;<br> procedure Append(aStream: TStream); overload; virtual;<br><br> procedure Clear;<br><br> procedure Play;<br> procedure Stop;<br> <br> property Header: TPCMWaveHeader read FHeader;<br> property Data: Pointer read getData;<br> end;<br><br>implementation<br>uses<br> LogFiles;<br> <br>constructor TPCMWave.Create;<br>begin<br> FillChar(FHeader, SizeOf(FHeader), 0);<br> with FHeader do<br> begin<br> rID := 'RIFF'; //'RIFF' 标识<br> rLen := 36; //dLen + 36<br> wID := 'WAVE'; //'WAVE' 标识<br> fID := 'fmt '; //'fmt ' 标识<br> fLen := 16; //固定值, 16<br> wFormatTag := 1; //固定值, 1<br> nChannels := 1; //Mono=1, Stereo=2<br> nSamplesPerSec := 16000; //采样频率, HZ<br> nAvgBytesPerSec := 32000; //nSamplesPerSec*nChannels*Trunc(nBitsPerSample div 8);<br> nBlockAlign := 2; //nChannels*(nBitsPerSample div 8);<br> nBitsPerSample := 16; //精度, e.g. 8 or 16<br> dId := 'data'; //'data' 标识<br> dLen := 0;<br> end;<br><br> FStream := TMemoryStream.Create;<br> Assert(FStream <> nil);<br> <br> FStream.Write(FHeader, SizeOf(FHeader));<br>end;<br><br>destructor TPCMWave.Destroy;<br>begin<br> if Assigned(FStream) then FStream.Free;<br> inherited Destroy;<br>end;<br><br>function TPCMWave.isValidFormat(aStream: TStream): Boolean;<br>var<br> Header : TPCMWaveHeader;<br>begin<br> Header := getPCMWaveHeader(aStream);<br> with Header do<br> begin<br> Result := (rID = 'RIFF') and (wID = 'WAVE') and (wFormatTag = 1);<br> end;<br>end;<br><br>procedure TPCMWave.SaveToFile(const aFileName: String);<br>var<br> Stream: TStream;<br>begin<br> Stream := TFileStream.Create(aFileName, fmCreate);<br> Assert(Stream <> nil);<br> try<br> SaveToStream(Stream);<br> finally<br> Stream.Free;<br> end;<br>end;<br><br>procedure TPCMWave.LoadFromFile(const aFileName: String);<br>var<br> Stream: TStream;<br>begin<br> Stream := TFileStream.Create(aFileName, fmOpenRead or fmShareDenyWrite);<br> Assert(Stream <> nil);<br> try<br> LoadFromStream(Stream);<br> finally<br> Stream.Free;<br> end;<br>end;<br><br>procedure TPCMWave.SaveToStream(aStream: TStream);<br>begin<br> aStream.Seek(0, soFromBeginning);<br> FStream.Seek(0, soFromBeginning);<br> aStream.CopyFrom(FStream, FStream.Size);<br>end;<br><br>procedure TPCMWave.LoadFromStream(aStream: TStream);<br>begin<br> if not isValidFormat(aStream) then<br> raise EInvalidPCMWaveFormat.Create('Invalid PCM Wave Format');<br><br> aStream.Seek(0, soFromBeginning);<br> FStream.Seek(0, soFromBeginning);<br> FStream.CopyFrom(aStream, aStream.Size);<br> FHeader := getPCMWaveHeader(FStream);<br>end;<br><br>function TPCMWave.getPCMWaveHeader(aStream: TStream): TPCMWaveHeader;<br>var<br> Header : TPCMWaveHeader;<br>begin<br> aStream.Seek(0, soFromBeginning);<br> aStream.Read(Header, SizeOf(Header));<br> Result := Header;<br>end;<br><br>function TPCMWave.getData: Pointer;<br>begin<br> Result := FStream.Memory;<br>end;<br><br>procedure TPCMWave.Append(const aFileName: String);<br>var<br> Stream: TStream;<br>begin<br> Stream := TFileStream.Create(aFileName, fmOpenRead or fmShareDenyWrite);<br> Assert(Stream <> nil);<br> try<br> Append(Stream);<br> finally<br> Stream.Free;<br> end;<br>end;<br><br>procedure TPCMWave.Append(aStream: TStream);<br>var<br> Header : TPCMWaveHeader;<br> isSame : Boolean;<br>begin<br> if not isValidFormat(aStream) then<br> raise EInvalidPCMWaveFormat.Create('Invalid PCM Wave Format');<br><br> //数据区非空, 追加<br> if FHeader.dLen > 0 then<br> begin<br> //检测是否是相同的数据格式<br> Header := getPCMWaveHeader(aStream);<br> isSame := (Header.nChannels = FHeader.nChannels) //<br> and (Header.nSamplesPerSec = FHeader.nSamplesPerSec) //<br> and (Header.nBitsPerSample = FHeader.nBitsPerSample); //<br><br> //数据格式相同<br> if isSame then<br> begin<br> //处理非标准格式, 按规范定义, rLen不包含RIFF标志和长度共8字节<br> //因此，aStream.Size = SizeOf(TPCMWaveHeader)+Header.dLen<br> // aStream.Size = Header.rLen + 8<br> //但在实际中发现存在rLen值为包含RIFF标志和长度8字节的文件<br> if Header.dLen > aStream.Size-SizeOf(TPCMWaveHeader) then<br> begin<br> Header.dLen := aStream.Size - SizeOf(TPCMWaveHeader);<br> end;<br><br> //计算数据区长度<br> with FHeader do<br> begin<br> rLen := rLen + Header.dLen;<br> dLen := dLen + Header.dLen;<br> end;<br><br> //更新文件头<br> FStream.Seek(0, soFromBeginning);<br> FStream.Write(FHeader, SizeOf(FHeader));<br><br> //追加数据<br> FStream.Seek(0, soFromEnd);<br> aStream.Seek(SizeOf(TPCMWaveHeader), soFromBeginning); //跳过文件头<br> FStream.CopyFrom(aStream, Header.dLen);<br> end;<br> end<br> else //数据区为空, 读入新的数据<br> begin<br> LoadFromStream(aStream);<br> end;<br>end;<br><br>procedure TPCMWave.Clear;<br>begin<br> FillChar(FHeader, SizeOf(FHeader), 0);<br> with FHeader do<br> begin<br> rID := 'RIFF'; //'RIFF' 标识<br> rLen := 36; //dLen + 36<br> wID := 'WAVE'; //'WAVE' 标识<br> fID := 'fmt '; //'fmt ' 标识<br> fLen := 16; //固定值, 16<br> wFormatTag := 1; //固定值, 1<br> nChannels := 1; //Mono=1, Stereo=2<br> nSamplesPerSec := 16000; //采样频率, HZ<br> nAvgBytesPerSec := 32000; //nSamplesPerSec*nChannels*Trunc(nBitsPerSample div 8);<br> nBlockAlign := 2; //nChannels*(nBitsPerSample div 8);<br> nBitsPerSample := 16; //精度, e.g. 8 or 16<br> dId := 'data'; //'data' 标识<br> dLen := 0;<br> end;<br><br> FStream.Clear;<br> FStream.Write(FHeader, SizeOf(FHeader));<br>end;<br><br>procedure TPCMWave.Play;<br>begin<br> //声卡已安装<br> if waveOutGetNumDevs > 0 then<br> begin<br> PlaySound(Data, hInstance, SND_MEMORY or SND_ASYNC);<br> end;<br>end;<br><br>procedure TPCMWave.Stop;<br>begin<br> //声卡已安装<br> if waveOutGetNumDevs > 0 then<br> begin<br> PlaySound(nil, hInstance, 0);<br> end;<br>end;<br><br>end.<br>
Z
zgp2000
Unregistered / Unconfirmed
GUEST, unregistred user!
呵呵,问题解决。感谢tseung关键时刻提供的无私支持。现将我刚刚调试通过的源码公布如下：<br>procedure TForm1.Button1Click(Sender: TObject);<br>var FStream : TMemoryStream;<br> aStream : TMemoryStream;<br> Header : TPCMWaveHeader;<br> isSame : Boolean;<br> FHeader : TPCMWaveHeader;<br>begin<br> FillChar(FHeader, SizeOf(FHeader), 0);<br> with FHeader do<br> begin<br> rID := 'RIFF'; //'RIFF' 标识<br> rLen := 36; //dLen + 36<br> wID := 'WAVE'; //'WAVE' 标识<br> fID := 'fmt '; //'fmt ' 标识<br> fLen := 16; //固定值, 16<br> wFormatTag := 1; //固定值, 1<br> nChannels := 1; //Mono=1, Stereo=2<br> nSamplesPerSec := 22050; //采样频率, HZ<br> nAvgBytesPerSec := 44100; //nSamplesPerSec*nChannels*Trunc(nBitsPerSample div 8);<br> nBlockAlign := 2; //nChannels*(nBitsPerSample div 8);<br> nBitsPerSample := 16; //精度, e.g. 8 or 16<br> dId := 'data'; //'data' 标识<br> dLen := 0;<br> end;<br><br> FStream := TMemoryStream.Create;<br> Assert(FStream <> nil);<br><br> FStream.Write(FHeader, SizeOf(FHeader));<br><br> aStream := TMemoryStream.Create;<br> aStream.LoadFromFile('f:/0.wav');<br><br> //处理非标准格式, 按规范定义, rLen不包含RIFF标志和长度共8字节<br> //因此，aStream.Size = SizeOf(TPCMWaveHeader)+Header.dLen<br> // aStream.Size = Header.rLen + 8<br> //但在实际中发现存在rLen值为包含RIFF标志和长度8字节的文件<br> if Header.dLen > aStream.Size-SizeOf(TPCMWaveHeader) then<br> begin<br> Header.dLen := aStream.Size - SizeOf(TPCMWaveHeader);<br> end;<br> //计算数据区长度<br> with FHeader do<br> begin<br> rLen := rLen + Header.dLen;<br> dLen := dLen + Header.dLen;<br> end;<br><br> //更新文件头<br> FStream.Seek(0, soFromBeginning);<br> FStream.Write(FHeader, SizeOf(FHeader));<br><br> //追加数据<br> FStream.Seek(0, soFromEnd);<br> aStream.Seek(SizeOf(TPCMWaveHeader), soFromBeginning); //跳过文件头<br> FStream.CopyFrom(aStream, Header.dLen);<br><br> aStream := TMemoryStream.Create;<br> aStream.LoadFromFile('f:/1.wav');<br><br> //处理非标准格式, 按规范定义, rLen不包含RIFF标志和长度共8字节<br> //因此，aStream.Size = SizeOf(TPCMWaveHeader)+Header.dLen<br> // aStream.Size = Header.rLen + 8<br> //但在实际中发现存在rLen值为包含RIFF标志和长度8字节的文件<br> if Header.dLen > aStream.Size-SizeOf(TPCMWaveHeader) then<br> begin<br> Header.dLen := aStream.Size - SizeOf(TPCMWaveHeader);<br> end;<br> //计算数据区长度<br> with FHeader do<br> begin<br> rLen := rLen + Header.dLen;<br> dLen := dLen + Header.dLen;<br> end;<br><br> //更新文件头<br> FStream.Seek(0, soFromBeginning);<br> FStream.Write(FHeader, SizeOf(FHeader));<br><br> //追加数据<br> FStream.Seek(0, soFromEnd);<br> aStream.Seek(SizeOf(TPCMWaveHeader), soFromBeginning); //跳过文件头<br> FStream.CopyFrom(aStream, Header.dLen);<br><br> FStream.SaveToFile('f:/ddd.wav');<br><br>end;
Z
zgp2000
Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.
Z
zgp2000
Unregistered / Unconfirmed
GUEST, unregistred user!
糟糕，加错分了。应该加给tseug。有办法更改吗？