Initialize COM object / Translate VB code to C++

Question

Can anybody translate the following code to C++? Is this possible at all or are there vital information missing?

Dim Laser As Object
Sub EnableLaser
    ‘ Create a laser object if it hasn’t been done yet
    If Laser Is Nothing Then
       Set Laser = CreateObject("NWLaserXControl.NWLaserX")
    End If
    If Laser.Initialize Then
       Laser.RepRate = 10 ‘ set the rep rate to 10Hz
       Laser.LaserEnabled = True ‘ turn on laser power supply, get it ready
    End If
End Sub

Vinay · Accepted Answer · 2009-03-10 00:43:06Z

1

// if (CoInitialize(0) == S_OK)
{
    CComPtr<INWLaserX> pMyPtr = NULL;

    CLSID clsid = IID_NULL;
    CLSIDFromProgID("NWLaserXControl.NWLaserX");

    if (pMyPtr.CoCreateInstance(clsid) == S_OK)
    {
         pMyPtr->put_RepRate(10);
         pMyPtr->put_LaserEnabled(TRUE);
    }

   // CoUnInitialize();
}

edited Mar 10, 2009 at 0:43

answered Mar 9, 2009 at 16:04

Vinay

4,8037 gold badges36 silver badges45 bronze badges

Sign up to request clarification or add additional context in comments.

3 Comments

casperOne Over a year ago

@Vinay: +1, but it should be mentioned that you probably don't need to call CoInitialize every time. Once on app startup, and once on teardown (if you have one apartment) is fine.

Ismael Over a year ago

You can get the CLSID using CLSIDFromProgId.

sharptooth Over a year ago

It'll be cleaner to replace "TRUE" with "VARIANT_TRUE".

Collectives™ on Stack Overflow

Initialize COM object / Translate VB code to C++

1 Answer 1

3 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

3 Comments

Your Answer

Sign up or log in

Post as a guest

Related