NetMeeting的开发主要是导入类型库:NmManager
然后下面是初始化,和开启一个会议的例子程序:
初始化:
var
uOption: ULong;
uNouse: ULong;
begin
uOption := NM_INIT_NORMAL;
uNouse := 0;
TheManager := CoNmManager_.Create as INmManager;
if TheManager.Initialize(uOption, uNouse) <> S_OK then
begin
ShowMessage('init error');
exit;
end;
end;
开启会议:
var
ConName: WideString;
begin
if TheManager.CreateConference(TheConference, 'Test', '111', NMCH_DATA) <> S_OK then
begin
ShowMessage('create error');
exit;
end;
TheConference.Host;
TheConference.GetName(ConName);
Caption := ConName;
end;
后面的别的东西都根据以上的接口可以query到,然后一步一步创建就ok了,
看msdn吧!:)