Sub RtdDotNetStyle(ByVal rtdProgId As String, ByVal rtdEventProgId As String)
'try
'{
Try
' // Create the RTD server.
' Type rtd;
' Object rtdServer = null;
' rtd = Type.GetTypeFromProgID(rtdID);
' rtdServer = Activator.CreateInstance(rtd);
' Console.WriteLine("rtdServer = {0}", rtdServer.ToString());
Dim rtd As Type = Type.GetTypeFromProgID(rtdProgId)
Dim rtdServer As Object = Activator.CreateInstance(rtd)
Console.WriteLine("rtdServer = {0}", rtdServer.ToString())
' // Create a callback event.
' Type update;
' Object updateEvent = null;
' update = Type.GetTypeFromProgID(eventID);
' updateEvent = Activator.CreateInstance(update);
' Console.WriteLine("updateEvent = {0}", updateEvent.ToString());
Dim update As Type = Type.GetTypeFromProgID(rtdEventProgId)
Dim updateEvent As Object = Activator.CreateInstance(update)
Console.WriteLine("updateEvent = {0}", updateEvent.ToString())
' // Start the RTD server passing in the callback
' // object.
' Object[] param = new Object[1];
' param[0] = updateEvent;
' MethodInfo method = rtd.GetMethod("ServerStart");
' Object ret; // Return value.
' ret = method.Invoke(rtdServer, param);
' Console.WriteLine("ret for 'ServerStart()' = {0}", ret.ToString());
Dim param() As Object
param = New Object() {updateEvent}
Dim ret As Object = rtd.InvokeMember("ServerStart", BindingFlags.InvokeMethod, Type.DefaultBinder, rtdServer, param)
Console.WriteLine("ret for 'ServerStart()' = {0}", ret.ToString())
' // Request data from the RTD server.
' Object[] topics = new Object[1];
' topics[0] = topic;
' Boolean newData = true; // Request new data, not cached data.
' param = new Object[3];
' param[0] = topicID;
' param[1] = topics;
' param[2] = newData;
' method = rtd.GetMethod("ConnectData");
' ret = method.Invoke(rtdServer, param);
' Console.WriteLine("ret for 'ConnectData()' = {0}", ret.ToString());
Dim newData As Boolean = True
Dim topics(0) As Object
topics(0) = topic
param = New Object() {topicID, topics, newData}
ret = rtd.InvokeMember("ConnectData", BindingFlags.InvokeMethod, Type.DefaultBinder, rtdServer, param)
Console.WriteLine("ret for 'ConnectData()' = {0}", ret.ToString())
' // Loop and wait for RTD to notify (via callback) that
' // data is available.
' int count = 0;
Dim count As Integer
'Do
' {
Do
' count++;
count += 1
' // Check that the RTD server is still alive.
' Object status;
' param = null;
' method = rtd.GetMethod("Heartbeat");
' status = method.Invoke(rtdServer, param);
' Console.WriteLine("status for 'Heartbeat()' = {0}",
' status.ToString());
Dim status As Object = rtd.InvokeMember("Heartbeat", BindingFlags.InvokeMethod, Type.DefaultBinder, rtdServer, Nothing)
Console.WriteLine("status for 'Heartbeat()' = {0}", status.ToString())
' // Get data from the RTD server.
' int topicCount = 0;
' param = new Object[1];
' param[0] = topicCount;
' method = rtd.GetMethod("RefreshData");
' Object[,] retval = new Object[2, 1];
' retval = (Object[,])method.Invoke(rtdServer, param);
' Console.WriteLine("retval for 'RefreshData()' = {0}",
' retval[1,0].ToString());
Dim topicCount As Integer = 0
param = New Object() {topicCount}
Dim retVal(1, 0) As Object
retVal = CType(rtd.InvokeMember("RefreshData", BindingFlags.InvokeMethod, Type.DefaultBinder, rtdServer, param), Object(,))
Console.WriteLine("retval for 'RefreshData()' = {0}", retVal(1, 0).ToString())
' // Wait for 2 seconds before getting
' // more data from the RTD server. This
' // it the default update period for Excel.
' // This client can requested data at a
' // much higher frequency if wanted.
' Thread.Sleep(2000);
Thread.Sleep(2000)
' } while (count < 5); // Loop 5 times for test.
Loop While count < 5
' // Disconnect from data topic.
' param = new Object[1];
' param[0] = topicID;
' method = rtd.GetMethod("DisconnectData");
' method.Invoke(rtdServer, param);
param = New Object() {topicID}
rtd.InvokeMember("DisconnectData", BindingFlags.InvokeMethod, Type.DefaultBinder, rtdServer, param)
' // Shutdown the RTD server.
' param = null;
' method = rtd.GetMethod("ServerTerminate");
' method.Invoke(rtdServer, param);
rtd.InvokeMember("ServerTerminate", BindingFlags.InvokeMethod, Type.DefaultBinder, rtdServer, Nothing)
' }
' catch (Exception e)
' {
Catch ex As Exception
' Console.WriteLine("Error: {0} ", e.Message);
Console.WriteLine("Error: {0} ", e.Message)
' }
End Try
End Sub
