如何在进行声音会议的同时又能进行录音？(200分)

各位大侠、大师们：
小生现在有一事相求，话说小生现在正在开发一个声音会议系统，
开发平台是基于Microsoft的Exchange Server 2000中的Conferencing Server ,
小生想在进行会议的同时又能够将参加会议的人的声音录下来。
但现在看来，如果直接用启动conferencing server ，进入会议，
再启动Windows 自己的录音程序，则系统提示不能录音，可能是有冲突，或者是先打开
录音功能,再进入会议系统,则自已说的话不能被别人听见,可能是声音已被录音程序截获,
不能发送到会议系统中.
如何解决，急盼援助.
请大侠们不吝赐救，小生勇敢大德。

张兄:
实求瞒相我连如何自动检测exchange2000server接收到新邮件的
事件都没完成.好象是"OnArrival"可我怎么弄它都不反应,张兄能否
帮小弟指点一下,如何?
以下是OnArrival例子:
' Reference to Microsoft ActiveX Data Objects 2.5 Library
' Reference to Microsoft CDO for Windows 2000 Library
Implements CDO.ISMTPOnArrival
Implements IEventIsCacheable
Private Sub IEventIsCacheable_IsCacheable()
' just returns S_OK
End Sub
Private Sub ISMTPOnArrival_OnArrival(ByVal Msg As CDO.Message, EventStatus As CDO.CdoEventStatus)
Dim Flds as ADODB.Fields
Dim RecipList as String
Set Flds = iMsg.EnvelopeFields
' Read Recipient List
RecipList = _
Flds("http://schemas.microsoft.com/cdo/smtpenvelope/recipientlist")
' Add Administrator to the list
RecipList = RecipList &
"SMTP:administrator@server.microsoft.com;"
' Update the envelope field with the augmented list
Flds("http://schemas.microsoft.com/cdo/smtpenvelope/recipientlist") = RecipList
Flds.Update

' Add disclaimer to textbody
' (Should check for HTMLBody, but this is omitted for brevity)
iMsg.TextBody = iMsg.TextBody &
_
vbCrLf &
_
"-- This message has been forwarded to the administrator" &
_
vbCrLf
' Commit the content changes to the transport ADO Stream object
iMsg.DataSource.Save
EventStatus = cdoRunNextSink
End Sub

liangguowei:
你的问题我还没接触过，但我用Exchange发过邮件，我想可能是因为你使用了SMTP来接受
邮件，可能需要用Exchange来接收，应该是使用“http://schemas.microsoft.com/cdo/
configuration/ Namespace”中的字段，记得要设置“sendusing”为cdoSendUsingExchange

张兄:
你好,先祝您新年快乐!
我贴出的是ms自己的exchange 2000latform sdk 里的例子.发邮件是可以被
exchange2000收到的.但不知你所说的是不是在发的时候要作一些设置.
还有,你知道它们里面的那些:adodb,ExOLEDB.DataSourc等等都有什么关系吗?
我觉得好象里面关系挺复杂的,一时还弄不清它们的相互之间的层次关系.
还有不知我这里的exchange 2000latform sdk帮助对你是否有帮助,若要可以发给你

我现在也正在搞Exchange Server &
Exchange Conferencing Server，我们可以多多
交流。

liangguowei:
新年快乐.
我自己有一个EXCHANGE完整的开发文档,刚从微软下的,不知道你的是否是新的,
如需要可Mail给你.adodb,ExOLEDB.DataSourc我也没有很清楚的概念,可能是用来
从EXCHANGE的数据库中读取数据的对象,既然有实例,照抄就行.我将自己做的用Exchange
发邮件的程序给你一份.希望对你能有帮助.
procedure TForm1.Button1Click(Sender: TObject);
var
iAppt : IAppointment ;
Config : IConfiguration;
iCalMsg: ICalendarMessage;
iAttn : IAttendee;
iMsg : IMessage;
iMbx : IMailbox;
Person : IPerson;
strURL : string;
Conn: _Connection;
begin
iAppt:=CoAppointment.Create;
Conn:=CoConnection.Create;
Conn.Provider:='ExOLEDB.DataSource';
Conn.Open('Http://adc/exchange/administrator','','',-1);//adc是有EXCHANGE的SERVER
//Set the configuration fields
Config:=CoConfiguration.Create;
Config.Fields.Item['http://schemas.microsoft.com/cdo/configuration/sendusing'].value := cdoSendUsingExchange;
// CdoSendExchange enum value = 3
Config.Fields.Item['http://schemas.microsoft.com/cdo/configuration/sendpassword'].value := '';
Config.Fields.Item['http://schemas.microsoft.com/cdo/configuration/sendusername'].value := 'mailto:administrator@ceal2000.com';
Config.Fields.Item['http://schemas.microsoft.com/cdo/configuration/sendemailaddress'].value := '"administrator"<administrator@ceal2000.com>';
Config.Fields.Item['http://schemas.microsoft.com/cdo/configuration/senduserreplyemailaddress'].value := '"administrator"<administrator@ceal2000.com>';
Config.Fields.Item['http://schemas.microsoft.com/cdo/configuration/mailboxurl'].value := 'http://adc/exchange/administrator';
Config.Fields.Item['http://schemas.microsoft.com/cdo/configuration/activeconnection'].value:= conn;
Config.Fields.Update ;
With iApptdo
begin
Configuration := Config;
//Set the appointment properties
AllDayEvent:=true;
StartTime := strToDateTime('2001-1-2 00:00:00');
EndTime :=strToDateTime('2001-1-2 23:00:00');
Subject := 'Department meeting';
Resources:='room11@ceal2000.com';//Exchange conference server设的mail resource
//Add a required attendee
iAttn:=Attendees.Add('mailto:administrator@ceal2000.com');
iAttn.Role := cdoRequiredParticipant ;
iAttn.Type_ :='Individual';
iAttn:=Attendees.Add('mailto:room11@ceal2000.com');
iAttn.Role := cdoRequiredParticipant ;
iAttn.Type_:='Room';
end;

//Create the calendar message and send it
iCalMsg := iAppt.CreateRequest;
iMsg := iCalMsg.Message ;
iMsg.Send;
end;

这个要看你的声卡是不是全双工的,若不是的话不能同时录音和放音
另外最好有WDM驱动程序

zhangtianhong 上次进入: 01-1-10 13:20:38 结束问题了