1,183
社区成员
发帖
与我相关
我的任务
分享这个问题折腾好几天了,在这里请教大家有没有解决的办法？
我现在做了一个局域网语音聊天的东西，可是等做好了以后，在使用的过程中，等用一段时间后，它自己就会死掉，后来调试一检查，原来是执行waveOutWrite时没了反应。
它执行的顺序是这样的，在语音播放时定义了一个回调函数，每当一个缓冲区播放完毕后，便向接收线程发送一个消息，接收线程接到消息后，便接收数据，然后便进行播放，一般情况下，刚开始播放时是不会出错的，等运行一段时间后（可能五六秒钟也可能一个小时）后，当执行到waveOutWrite时便没有反应了，具体代码如下：
// 回调函数
procedure WaveOutProc(HW: HWAVEOUT; MS: Integer; UX: Cardinal; p1: PWAVEHDR; p2: Cardinal); stdcall; far;
begin
if ms = WOM_DONE then
begin
repeat until waveOutUnprepareHeader(hw, p1, Sizeof(WAVEHDR)) = 0;
if ThreadOut <> 0 then PostThreadMessage(ThreadOut, WM_RECVAUDIO, hw, Integer(p1));
end;
end;
// 接收线程
procedure TAudioRecvThread.Execute;
var
p: PWAVEHDR;
ms: MSG;
J: Integer;
error: Integer;
begin
while not Terminated do
begin
GetMessage(ms, 0, 0, 0);
case ms.message of
WM_RECVAUDIO:
begin
P := PWAVEHDR(ms.lParam);
repeat
J := FSocket.RecvBuffer(@(P^.lpData[0]), BufInSize);
until ((FSocket.LastError = 0){ and (J = BufInSize)}) or Terminated;
p^.dwFlags := 0;
p^.dwBufferLength := J;
p^.dwBytesRecorded := J;
repeat
until (waveOutPrepareHeader(ms.wParam, p, Sizeof(WAVEHDR)) = 0) or Terminated;
repeat
until (waveOutWrite(ms.wParam, p, Sizeof(WAVEHDR)) = 0) or Terminated;
end;
WM_TERMINATE: Terminate;
end; // case
end; // while
end;
不知道waveOutWrite这个函数在什么情况下就没有反应了？
它执行的顺序是这样的，在语音播放时定义了一个回调函数，每当一个缓冲区播放完毕后，便向接收线程发送一个消息，接收线程接到消息后，便接收数据，然后便进行播放，一般情况下，刚开始播放时是不会出错的，等运行一段时间后（可能五六秒钟也可能一个小时）后，当执行到waveOutWrite时便没有反应了，具体代码如下：
// 回调函数
procedure WaveOutProc(HW: HWAVEOUT; MS: Integer; UX: Cardinal; p1: PWAVEHDR; p2: Cardinal); stdcall; far;
begin
if ms = WOM_DONE then
begin
repeat until waveOutUnprepareHeader(hw, p1, Sizeof(WAVEHDR)) = 0;
if ThreadOut <> 0 then PostThreadMessage(ThreadOut, WM_RECVAUDIO, hw, Integer(p1));
end;
end;
// 接收线程
procedure TAudioRecvThread.Execute;
var
p: PWAVEHDR;
ms: MSG;
J: Integer;
error: Integer;
begin
while not Terminated do
begin
GetMessage(ms, 0, 0, 0);
case ms.message of
WM_RECVAUDIO:
begin
P := PWAVEHDR(ms.lParam);
repeat
J := FSocket.RecvBuffer(@(P^.lpData[0]), BufInSize);
until ((FSocket.LastError = 0){ and (J = BufInSize)}) or Terminated;
p^.dwFlags := 0;
p^.dwBufferLength := J;
p^.dwBytesRecorded := J;
repeat
until (waveOutPrepareHeader(ms.wParam, p, Sizeof(WAVEHDR)) = 0) or Terminated;
repeat
until (waveOutWrite(ms.wParam, p, Sizeof(WAVEHDR)) = 0) or Terminated;
end;
WM_TERMINATE: Terminate;
end; // case
end; // while
end;
不知道waveOutWrite这个函数在什么情况下就没有反应了？
...全文
请发表友善的回复…
发表回复
Rex_love_Burger 2004-07-28
- 打赏
- 举报
up
CDSoftwareWj 2004-07-28
- 打赏
- 举报
hehe^^ 不是吧~~~~~~ 周六？？要不你改到星期日，我生日你请我吃饭吧
对了推荐你当 版主吧，我不想当了......
你就用这个ID啦？
对了推荐你当 版主吧，我不想当了......
你就用这个ID啦？
LoveIvy 2004-07-28
- 打赏
- 举报
谢谢大家的帮助,虽然没有解决什么问题,我还是谢谢大家.
现在这个问题已经不了了之,因为我在别的电脑上测试的时候,这个问题已经不再出现了.
可能是我的电脑有问题吧.
周六晚上我要请客,想来的赶紧报名呀!!
联系人:LoveIvy
报名热线:13315985070
现在这个问题已经不了了之,因为我在别的电脑上测试的时候,这个问题已经不再出现了.
可能是我的电脑有问题吧.
周六晚上我要请客,想来的赶紧报名呀!!
联系人:LoveIvy
报名热线:13315985070
LoveIvy 2004-07-28
- 打赏
- 举报
CDSoftwareWj(95927) ：
不想当，麻烦
以后就用这个ID了。周六我有重要的事情，比你的生日还重要，是我的终身大事，所以不能改的
不想当，麻烦
以后就用这个ID了。周六我有重要的事情，比你的生日还重要，是我的终身大事，所以不能改的
ly_liuyang 2004-07-28
- 打赏
- 举报
呵呵
flyforlove 2004-07-27
- 打赏
- 举报
我觉得这种应答式的设计方式不太好，
应该让线程一直接受声音数据，然后申请填充缓冲区，进行播放，再播放完的时候释放缓冲区。
但是这种方式也有不好之处，就是频繁的申请释放，程序速度受影响。
最好的方式是用一个缓冲区环，循环填充播放，只要环足够大的话，不会出现缓冲区溢出，
这样速度也够快了。
应该让线程一直接受声音数据，然后申请填充缓冲区，进行播放，再播放完的时候释放缓冲区。
但是这种方式也有不好之处，就是频繁的申请释放，程序速度受影响。
最好的方式是用一个缓冲区环，循环填充播放，只要环足够大的话，不会出现缓冲区溢出，
这样速度也够快了。
CDSoftwareWj 2004-07-27
- 打赏
- 举报
LoveIvy(我爱艾维) 这个ID也是你新注册的吧，以前好像不是这个...
CDSoftwareWj 2004-07-27
- 打赏
- 举报
hehe^^ 两个...
按 getit911(Windows转Linux中) 说的看看
TAudio 你有吧
按 getit911(Windows转Linux中) 说的看看
TAudio 你有吧
getit911 2004-07-27
- 打赏
- 举报
参考Taudioio控件
getit911 2004-07-27
- 打赏
- 举报
可能是缓冲区溢出。
LoveIvy 2004-07-27
- 打赏
- 举报
w95927w(D版第一铁公鸡^^) :
你有几个号？
你有几个号？
tonylk 2004-07-27
- 打赏
- 举报
up
CDSoftwareWj 2004-07-27
- 打赏
- 举报
UP
tonylk 2004-07-27
- 打赏
- 举报
“香菇炖鸡肉”？？不是竹笋拷肉就可以。。
LoveIvy 2004-07-27
- 打赏
- 举报
刚下载了一个，如果解决了，请大家来我家吃香菇炖鸡肉
LoveIvy 2004-07-27
- 打赏
- 举报
没有TAudio这个东西,从那里能找到?
CDSoftwareWj(95927):
换个新鲜的
CDSoftwareWj(95927):
换个新鲜的
w95927w 2004-07-26
- 打赏
- 举报
等你做出来了，我推荐你当多媒体版版主哦 hehe^^
能认出俺来吧.. 嘿嘿
能认出俺来吧.. 嘿嘿
