Navigation:  thinBasic Modules > COM >

COM_CreateObject

Previous pageReturn to chapter overviewNext page

 

Description

 

Creates a reference to a COM Server application.

 

Syntax

 

pIDispatch = COM_CreateObject(sServerName [, ErrorVar])

 

Returns

 

A DWord pointer to IDispatch

 

Parameters

 

Name

Type

Optional

Meaning

sServerName

String

No

Name of the COM server to create

ErrorVar

Variable

Yes

Must be a LONG variables passed by reference. If present it will be filled with an error code if an error occurs

 

Remarks

 

Restrictions

 

See also

 

Examples

 

USES "COM"

 

Dim pXlApp    As DWORD

Dim RetVal    As LONG

 

'---Try to create an Excel application reference

pXlApp = COM_CreateObject("Excel.Application", RetVal)

 

'---Do something ...

 

'--- Time to release the allocated interface objects

If ISFALSE(COM_Succeeded(COM_Release(pXlSheet))) Then

  MSGBOX 0, "ActiveSheet release fails"

End If