用INDY的idTCP來傳送acm音頻 |
尚未結案
|
hanli
一般會員 發表:4 回覆:5 積分:1 註冊:2005-03-23 發送簡訊給我 |
我想用INDY的idTCP來傳送acm音頻代碼如下,但是Server那邊卻聽不到聲音,哪位幫我看看是什么錯誤那?代码如下:
//髮送
procedure TForm1.ACMWaveIn1Data(data: Pointer; size: Integer);
var
pchData:pChar;
myStream:TMemoryStream;
begin
pchData:=pchar(data);
if pchData[1]='' then exit;
myStream:=TMemoryStream.Create;
try
myStream.Write(pchData^,size);
if idTCPClient1.Connected then
begin
idTCPClient1.WriteInteger(memStream.size);
idTCPClient1.WriteBuffer(myStream.Memory^, myStream.Size, True);
end;
finally
myStream.Free;
end;
end;
//接收
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var mystream:TMemoryStream;
recData:string;
pcharplaystr:pchar;
BuffLen: Integer;
n: integer;
begin
BuffLen := AThread.Connection.ReadInteger;
myStream:=TMemoryStream.create;
try
AThread.Connection.ReadStream(myStream,BuffLen);
Setlength(recdata,BuffLen);
myStream.Read(recdata[1],BuffLen); //将流转换成字符串
pcharplaystr:=pchar(recData);
ACMWaveOut1.PlayBack(pcharplaystr,BuffLen); //播放接收到的数据
finally
myStream.free;
end;
end;
|
taishyang
站務副站長 發表:377 回覆:5490 積分:4563 註冊:2002-10-08 發送簡訊給我 |
|
pcplayer99
尊榮會員 發表:146 回覆:790 積分:632 註冊:2003-01-21 發送簡訊給我 |
|
hanli
一般會員 發表:4 回覆:5 積分:1 註冊:2005-03-23 發送簡訊給我 |
|
pcplayer99
尊榮會員 發表:146 回覆:790 積分:632 註冊:2003-01-21 發送簡訊給我 |
|
hanli
一般會員 發表:4 回覆:5 積分:1 註冊:2005-03-23 發送簡訊給我 |
|
killghost
一般會員 發表:14 回覆:21 積分:7 註冊:2004-04-21 發送簡訊給我 |
|
goodbye
一般會員 發表:5 回覆:8 積分:2 註冊:2005-04-29 發送簡訊給我 |
|
killghost
一般會員 發表:14 回覆:21 積分:7 註冊:2004-04-21 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |