<?xml version="1.0" encoding="utf-8" ?> <TTTTModel> <TTTTClass> <TTTTType>Deployment</TTTTType> <TTTTDate>2009-09-30T00:00:00-07:00</TTTTDate> </TTTTClass> <TTTTClass> <TTTTType>Deployment</TTTTType> <TTTTDate>2009-09-20T00:00:00-07:00</TTTTDate> </TTTTClass> <TTTTClass> <TTTTType>Copy</TTTTType> <TTTTDate>2009-02-23T00:00:00-07:00</TTTTDate> </TTTTClass> </TTTTModel>

---

[Serializable]
    public class ActionClass
    {
        [XmlElement(Form=XmlSchemaForm.Unqualified)]
        public string ActionType { get; set; }
        [XmlElement(Form = XmlSchemaForm.Unqualified)]
        public DateTime ActionDate { get; set; }
    }




    public class ActionModel : List<ActionClass>
    {
        public ActionModel()
        {
            XmlSerializer xs = new XmlSerializer(typeof(ActionModel), "");

            using (Stream ms = new FileStream("Demo.xml", FileMode.Open, FileAccess.Read))
            {
                object inp = xs.Deserialize(ms);
                this.AddRange((ActionModel)inp);
            }
        }
    }

---

<ActionModel xmlns=''> was not expected.

---

    startTime = DateTime.Now
    Dim h = AxTestControl1.TestCall()
    endTime = DateTime.Now
    Dim ms As integer = endTime.Subtract(startTime).TotalMilliseconds

---

---

Dim h = AxTestControl1.Height

---

---

Dim h = AxTestControl1.ToString()

---

---

Do
    TimingTest()
Loop

---

---

Imports System.Threading

Public Class Form1
    Inherits System.Windows.Forms.Form
    #Region " Windows Form Designer generated code "
    Private fMyThread As Thread

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' to see the hiccup on the main UI thread, put the Do/TestTiming()/Loop here
        fMyThread = New Thread(AddressOf ThreadTask)
        fMyThread.Start()
    End Sub

    Private Sub ThreadTask()
        Do
            TestTiming()
        Loop
    End Sub

    Private Sub TestTiming()
        Dim startTime, endTime As System.DateTime

        startTime = DateTime.Now
        Dim h = AxTestControl1.TestCall() ' user defined control methods do cause frequent hiccups of 15.625ms
        'Dim h = AxTestControl1.ToString() ' standard control properties and method never cause a hiccup
        endTime = DateTime.Now

        Dim ms As Double = endTime.Subtract(startTime).TotalMilliseconds

        If (ms > 0) Then
            Console.WriteLine(ms & " ms")
        Else
            Static n As Integer = 0
            n += 1
            If (n Mod 80 = 0) Then Console.WriteLine("")
            Console.Write(".")
        End If
    End Sub
End Class

---

---

....unmodified boilerplate code here

// Dispatch map
BEGIN_DISPATCH_MAP(CTestControlCtrl, COleControl)
    DISP_FUNCTION_ID(CTestControlCtrl, "AboutBox", DISPID_ABOUTBOX, AboutBox, VT_EMPTY, VTS_NONE)
    DISP_FUNCTION(CTestControlCtrl, "TestCall", TestCall, VT_I2, VTS_NONE)
END_DISPATCH_MAP()

....unmodified boilerplate code here

// CTestControlCtrl message handlers

short CTestControlCtrl::TestCall( void )
{
    return 0; // do nothing
}

---

---

#include <olectl.h>
#include <idispids.h>

[ uuid(6E23484D-00D2-4500-A149-BF20F088CE00), version(1.0),
  helpfile("TestControl.hlp"),
  helpstring("TestControl ActiveX Control module"),
  control ]
library TestControlLib
{
    importlib(STDOLE_TLB);

    //  Primary dispatch interface for CTestControlCtrl

    [ uuid(E8A6BFC3-87DB-48DF-812A-2E79604C1AA3),
      helpstring("Dispatch interface for TestControl Control")]
    dispinterface _DTestControl
    {
        properties:
        methods:

            [id(DISPID_ABOUTBOX)] void AboutBox();
            [id(2)] int TestCall( void ); // I added this for my test
    };
...etc. (rest unchanged)

---

Attached Files

TestingCode.zip (28.9 KB)

---

Set WshShell = WScript.CreateObject("WScript.Shell")

---

---

datasetname.ReadXml("xmlfile.xml")

---

---

            Dim tDESKey As New TripleDESCryptoServiceProvider()
            Dim Key() As Byte = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24}
            Dim Vector() As Byte = {1, 2, 3, 4, 5, 6, 7, 8}

            Dim encryptedDoc As New XmlDocument()
            encryptedDoc.Load("xmlfile.xml")

            Dim encryptedElement As XmlElement = CType(encryptedDoc.GetElementsByTagName("EncryptedData")(0), XmlElement)
            Dim ed As New EncryptedData()
            ed.LoadXml(encryptedElementClient)
            Dim exmlClient As New EncryptedXml()
            Dim decryptedDoc As Byte() = exml.DecryptData(ed, tDESKey)

            exml.ReplaceData(encryptedElement, decryptedDoc)

            datasetname.Clear()
            datasetname.ReadXml(decryptedDoc.ToString)

---