How to use DllCall with an OLESTR ?

[wslh]

Hi,

I want to check if Outlook is present, as part of the process I use:

$clsid = DllCall ("Ole32.dll","ULONG_PTR", "CLSIDFromProgID", "wstr", "Outlook.Application")

but I need to pass an OLESTR instead of an wstr, how can I accomplish that?

Also, how do I check if $clsid is null? I use IsPtr function to do that. Is this correct?

Thanks,

wslh

[trancexx]

No, you need to pass LPCOLESTR.

That's the same as "wstr".

Btw, you are calling it wrong.

[water]

The Outlook UDF uses ObjCreate to connect to Outlook. So you could write:

Local $oOutlook = ObjCreate("Outlook.Application")
If @error Or Not IsObj($oOutlook) Then MsgBox(0,"","Error opening Outlook")

[wslh]

No, you need to pass LPCOLESTR.

That's the same as "wstr".

Btw, you are calling it wrong.

But how I can do that? there is not LPCOLESTR in the help's parameter list.

Can you drop the line?

Thanks,

wslh

[wslh]

Thanks water but I don't want to create an Outlook instance.

[trancexx]

But how I can do that? there is not LPCOLESTR in the help's parameter list.

Can you drop the line?

Thanks,

wslh

Func _WinAPI_CLSIDFromProgID($sProgID)
    Local $tGUID = DllStructCreate($tagGUID)
    Local $aCall = DllCall("ole32.dll", "long", "CLSIDFromProgID", "wstr", $sProgID, "ptr", DllStructGetPtr($tGUID))
    If @error Or $aCall[0] Then Return SetError(1, 0, 0)
    Return $tGUID
EndFunc

Just check if 0 is returned or not.

edit: actually don't check 0 (there is a bug in AutoIt with dllstruct type). Check it like this:

If IsDllStruct(_WinAPI_CLSIDFromProgID("Outlook.Application")) Then...

Edited November 16, 2010 by trancexx

[water]

Using the information from MSDN and the AutoIT tool "h2au3" (it converts C-headers to Autoit) I get the following:

Func CLSIDFromProgID ($lpszProgID, $lpclsid)

    Local $aRes = DllCall ($ole32dll, "LONG", "CLSIDFromProgID", _
                                "PTR", $lpszProgID, _
                                "PTR", $lpclsid)
    Return $aRes[0]

EndFunc

[wslh]

Sorry trancexx, It doesn't work for me.

$tagGUID must be created before the DLLStructCreate?

Thanks,

wslh

Func _WinAPI_CLSIDFromProgID($sProgID)
    Local $tGUID = DllStructCreate($tagGUID)
    Local $aCall = DllCall("ole32.dll", "long", "CLSIDFromProgID", "wstr", $sProgID, "ptr", DllStructGetPtr($tGUID))
    If @error Or $aCall[0] Then Return SetError(1, 0, 0)
    Return $tGUID
EndFunc

Just check if 0 is returned or not.

edit: actually don't check 0 (there is a bug in AutoIt with dllstruct type). Check it like this:

If IsDllStruct(_WinAPI_CLSIDFromProgID("Outlook.Application")) Then...

[trancexx]

Open freaking help file and type $tagGUID.

If for example you would #include <WinApi.au3> (as the name of the function suggest) there would be no issues.

Use imagination, not to say head.

[wslh]

Open freaking help file and type $tagGUID.

If for example you would #include <WinApi.au3> (as the name of the function suggest) there would be no issues.

Use imagination, not to say head.

Sorry trancexx, I know that it sounds lazy, but because I am an AutoIt newbie $tagGUID seemed like a local variable to me and I didn't realize it was a global definition.

Thank You,

wslh