Dim strCur As String = ""
Dim strParam As String = ""
Dim nIndex As Integer = 0
Dim m_objLive As New MLiveClass()
'Get current video device
m_objMLive.DeviceGet("video", strCur, strParam, nIndex)
'Get current audio device
m_objMLive.DeviceGet("audio", strCur, strParam, nIndex)
string strCur = "";
string strParam = "";
int nIndex = 0;
MLiveClass m_objLive = new MLiveClass();
//Get current video device
m_objMLive.DeviceGet("video", out strCur, out strParam, out nIndex);
//Get current audio device
m_objMLive.DeviceGet("audio", out strCur, out strParam, out nIndex);
var
m_objLive: MLive;
strCur, strParam: string;
nIndex: integer;
begin
m_objLive:= CreateComObject(CLASS_MLive) as MLive;
//Get current video device
m_objMLive.DeviceGet('video', strCur, strParam, nIndex);
//Get current audio device
m_objMLive.DeviceGet('audio', strCur, strParam, nIndex);
end;