請教ACM與INDY UDP的使用問題 |
|
尚未結案
|
|
hanli
一般會員   發表：4 回覆：5 積分：1 註冊：2005-03-23 發送簡訊給我 |
我想用ACM與INDY UDP來實現internet上的語音通話，但是象下邊的寫法就有很大的雜音，不知道是哪裏齣錯呢？另外使用UDP可以在internet上通訊嗎？（假設一方使用ADSL撥號上網，另一方為侷域網，或兩方都使用ADSL撥號）另外idUDPServer有OnUDPRead事件可以接收數據，而idUDPClient卻沒有該怎么寫呢？呵呵，我的問題有些多，希望大傢幫助。不要讓我看例子哦，ktop上的例子都不是用INDY的，下邊是代碼： procedure TForm1.Button1Click(Sender: TObject);
var format:pointer;
begin
format:=ACMDialog1.OpenDialog;
if format=nil then exit;
IdUDPServer1.Active:=true;
ACMWaveOut1.Open(format);
ACMWaveIn1.Open(format);
Button1.Enabled:=false;
Button2.Enabled:=true;
end; procedure TForm1.Button2Click(Sender: TObject);
begin
ACMWaveIn1.Close;
ACMWaveOut1.Close;
IdUDPServer1.Active:=false;
Button1.Enabled:=true;
Button2.Enabled:=false; end; procedure TForm1.ACMWaveIn1Data(data: Pointer; size: Integer);
begin
IdudpClient1.SendBuffer('10.1.1.2',8192,data,size);
end; procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
var
DataStringStream: TStringStream;
begin
DataStringStream := TStringStream.Create('');
try
DataStringStream.CopyFrom(AData, AData.Size);
ACMWaveOut1.PlayBack(AData,AData.Size);
finally
DataStringStream.Free;
end; end;
|
|
k910612
一般會員 發表：0 回覆：1 積分：0 註冊：2006-08-29 發送簡訊給我 |
|
|
822
一般會員 發表：2 回覆：8 積分：2 註冊：2004-12-09 發送簡訊給我 |
發表時間：2005-04-26 03:37:25
IP:221.199.xxx.xxx 未訂閱
系統時間：2024-12-04 1:36:07
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |