全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2142
推到 Plurk!
推到 Facebook!

請教ACM與INDY UDP的使用問題

尚未結案
hanli
一般會員


發表:4
回覆:5
積分:1
註冊:2005-03-23

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-04-26 03:37:25 IP:221.199.xxx.xxx 未訂閱
我想用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

發送簡訊給我
#2 引用回覆 回覆 發表時間:2006-08-29 16:21:00 IP:140.134.xxx.xxx 未訂閱

不知你的問題是否解決了,因為小弟我也在學習網路聊天程式的寫作,但是抓到的資料大多是Delphi 6的版本

,可是小弟用的是Delphi7的版本,簡單修改後, 程式可以跑,但在WaveOutOpen這邊就出現問題了,想了很久也

不知道為什麼,不知道你是否也有發現這樣的問題呢?

822
一般會員


發表:2
回覆:8
積分:2
註冊:2004-12-09

發送簡訊給我
#3 引用回覆 回覆 發表時間:2006-09-13 00:25:11 IP:59.37.xxx.xxx 未訂閱

udp不安全,常有丢包现象,要防止这种情况发生,就要自己写校验``,很麻烦,为何不用tcp/ip?

系統時間:2024-03-29 18:47:12
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!