W
watter
Unregistered / Unconfirmed
GUEST, unregistred user!
前一段时间在网上当了一个局域网IP电话的东东：iphone14，好多大虾可能都用过，可是我无论
怎么都听不到声音，运行程序，开始->确定后，弹出提示框：WaveOutPrepareHeader error
OK后，提示：WaveOutWrite error，有时在两台机器上同时运行，提示框是没有了，但还是听不到声音
扬声器里只有比较大噪音。另外，程序里用到的控件：TUDPSocket，哪位大哥有请给我发一个，
小弟先谢过了。
部分代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var format
ointer;
begin
UDPsock1.RemoteIP:=edit1.text;
format:=ACMDialog1.OpenDialog;
if format=nil then exit;
UDPSock1.Start;
ACMWaveOut1.Open(format);
ACMWaveIn1.Open(format);
Button1.Enabled:=false;
Button2.Enabled:=true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ACMWaveIn1.Close;
ACMWaveOut1.Close;
UDPSock1.Stop;
Button1.Enabled:=true;
Button2.Enabled:=false;
end;
procedure TForm1.ACMWaveIn1Data(data: Pointer; size: Integer);
begin
UDPSock1.Send(data,size);
end;
procedure TForm1.UDPSock1Recv(data: PChar; delka: Integer; host: String);
begin
ACMWaveOut1.PlayBack(data,delka);
end;
怎么都听不到声音，运行程序，开始->确定后，弹出提示框：WaveOutPrepareHeader error
OK后，提示：WaveOutWrite error，有时在两台机器上同时运行，提示框是没有了，但还是听不到声音
扬声器里只有比较大噪音。另外，程序里用到的控件：TUDPSocket，哪位大哥有请给我发一个，
小弟先谢过了。
部分代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var format
ointer;begin
UDPsock1.RemoteIP:=edit1.text;
format:=ACMDialog1.OpenDialog;
if format=nil then exit;
UDPSock1.Start;
ACMWaveOut1.Open(format);
ACMWaveIn1.Open(format);
Button1.Enabled:=false;
Button2.Enabled:=true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ACMWaveIn1.Close;
ACMWaveOut1.Close;
UDPSock1.Stop;
Button1.Enabled:=true;
Button2.Enabled:=false;
end;
procedure TForm1.ACMWaveIn1Data(data: Pointer; size: Integer);
begin
UDPSock1.Send(data,size);
end;
procedure TForm1.UDPSock1Recv(data: PChar; delka: Integer; host: String);
begin
ACMWaveOut1.PlayBack(data,delka);
end;