哪里有IP电话协议的资料啊？ (100分)

我只是有http://www.openh323.org上面的资料。
大家有没有其他资料呢？
我现在要编这方面的程序，不知道怎么入手啊？

这个东西，好复杂的说，以前好像大家讨论过这方面的资料哪里有的，找找看把

openh323上面的东西基本上已经够用了，呵呵
其实这个东西的实现不是很难，关键是你要把流程搞清楚，另外对ASN.1也要好好研究一下

to Activer：
　　我找过了，此论坛基本上没有这方面的资料。只有：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=632900
http://www.delphibbs.com/delphibbs/dispq.asp?lid=149960

to Chenlili：
　　就是入门难啊！我都不知道应该如何入手。我以为这里没有人研究这方面的东西，才
出100分啊！请大家帮忙！分，我多的是。

用Delphi开发这方面的程序应该可以吧？我不会VC啊！

这个东西挺有意思的，我来跟着学学

好像不止一两个协议这么简单，其中PC－to－Phone还要有关守等设备，电信会干吗？

大家可以推荐一下值得看的书吗？

如果电信不干，有联通啊！
联通不干，还有网通！！！

unit Unit1;//ip电话的一个例子，自己看看

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ACMDialog, ACMWaveIn, ACMWaveOut, StdCtrls, NMUDP, ExtCtrls, Psock,
ComCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
NMUDP1: TNMUDP;
StatusBar1: TStatusBar;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure ACMWaveIn1Data(data: Pointer; size: Integer);
procedure NMUDP1DataReceived(Sender: TComponent; NumberBytes: Integer;
FromIP: String; Port: Integer);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
PlayPackets:integer;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);//开始
var formatointer;
begin
NMUDP1.Remotehost:=edit1.text;
format:=ACMDialog1.OpenDialog;
if format=nil then exit;
ACMWaveOut1.Open(format);
ACMWaveIn1.Open(format);
Button1.Enabled:=false;
Button2.Enabled:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);//停止
begin
ACMWaveIn1.Close;
ACMWaveOut1.Close;
Button1.Enabled:=true;
Button2.Enabled:=false;
end;

procedure TForm1.ACMWaveIn1Data(data: Pointer; size: Integer);
var
mdata:array[1..10000] of char;
k:integer;
str:string;
begin
for k:=1 to size do mdata[k]:=pchar(dword(data)+k-1)^;
NMUDP1.SendBuffer(mdata,size);
end;

procedure TForm1.NMUDP1DataReceived(Sender: TComponent;
NumberBytes: Integer; FromIP: String; Port: Integer);
var
mdata:array[1..10000] of char;
datachar;
str:string;
k:integer;
begin
NMUDP1.ReadBuffer(mdata,NumberBytes);
data:=pchar(dword(@mdata));
StatusBar1.SimpleText:='Packets:'+inttostr(PlayPackets);
inc(PlayPackets);
ACMWaveOut1.PlayBack(data,NumberBytes);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ACMWaveOut1.visible:=false;
ACMWaveIn1.visible:=false;
NMUDP1.ReportLevel := Status_Basic;
NMUDP1.LocalPort := 6668;
NMUDP1.RemotePort := 6668;
PlayPackets:=0;
end;

end.

关注

用ACM控件！
那个控件是用什么协议的啊？
好象不是基于H.323啊！

up
acm控件在哪里得到？谢谢

多人接受答案了。