Skype4Com in BCB範例 - 將Call In的使用者加入Conference中

　　在Skype中，當使用者目前有一個通話正在進行，而其他使用者想要加入此通話，則變成為三方通話(即Skype中的多方通話功能)，此多方通話稱為一個Conference。使用Skype4Com的功能，只要將新Call In進來的電話，呼叫Join( ConferenceId )的Function，傳入目前正在進行中的Call的ConferenceId，即可達到此功能。

以下有範例程式檔，供參考：
Unit1.h

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "SKYPE4COMLib_OCX.h"
#include <OleCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
     TButton *Button1;
     void __fastcall Button1Click(TObject *Sender);
private:    // User declarations
public:        // User declarations
     long mConferenceId;
     TSkype * mSkype;
 
     __fastcall TForm1(TComponent* Owner);
     void __fastcall OnCallStatus( TObject *Sender, ICall* pCall/*[in]*/, TCallStatus Status/*[in]*/);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

Unit1.cpp

#include <vcl.h>
#include <iostream>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SKYPE4COMLib_OCX"
#pragma resource "*.dfm"
TForm1 *Form1;

using namespace std;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
     : TForm(Owner)
{
     mSkype = new TSkype(Owner);
     mSkype->Attach(5,false);

     // test if Skype is running, if not, start it;
     if( !mSkype->Client->IsRunning )
         mSkype->Client->Start(false,true);
         // 1st parameter - start Skype in minimized state
         // 2nd parameter - show splash screen

     //註冊Skype4Com的CallStatus Event
     mSkype->OnCallStatus = OnCallStatus;
}

// Call 一位使用者
void __fastcall TForm1::Button1Click(TObject *Sender)
{
     ICallPtr call = mSkype->PlaceCall(L"falldog7_test",L"",L"",L"");
}

// 當有使用者Call In進來，則自動接起電話
// 第一位使用者打入，記錄ConferenceId
// 其後打入的使用者，加入此Conference
void __fastcall TForm1::OnCallStatus( TObject *Sender, ICall* _call/*[in]*/, TCallStatus Status/*[in]*/)
{
     if( Status == clsRinging ){
         if( mConferenceId > 0 ){
             _call->Join( mConferenceId );
             _call->Answer();
         }
         else{
             _call->Answer();
             mConferenceId = _call->ConferenceId;
         }
     }
}