Intel® Fortran Compiler 16.0 User and Reference Guide

Creating the Fortran COM Server (Windows*)

This topic only applies to Windows* operating systems.

This section shows how to create a project, specify the COM server characteristics, generate code for, and implement a sample Fortran COM server project called Adder.

The first step in creating a Fortran COM Server is to create a new project.

Creating a Fortran COM Server Project using the Visual Studio* IDE:

  1. Start the Visual Studio IDE. Choose File > New > Project.

  2. In the New Project dialog box, expand the Intel® Visual Fortran item and click COM Server.



To create the sample project, choose In-process Server (DLL). Now do the following:

  1. Enter Adder as the name of the project.

  2. Accept or modify the project folder location.

  3. Click OK.

You can use the project AppWizard once per project to create the project files and skeleton template. The Fortran COM Server AppWizard displays default text for the interface name and class derived type name.



Now do the following:

1. Enter class name AddingMachine.

2. Shorten the default interface name to IAdd.

3. Accept the default class derived type name.

4. Click Finish. (If you click Cancel, project creation is terminated.)

The project is created and the COM Server Hierarchy file (adder.hie) is opened in the COM Hierarchy Editor.

Using the COM Hierarchy Editor to Define your COM Server

The COM Hierarchy Editor lets you interactively define the attributes (for example, classes, interfaces, and methods) for your COM server. The user interface contains two panes:

You can use "right-click" context menus to insert, delete, and modify items in the hierarchy. Context menus also let you change item properties. For example, you can right-click the IAdd element and select Properties to see the IAdd interface properties. You could then change the Is Dual property value to False; this indicates that the Adder example only supports a COM server interface.

An explanation of the hierarchy follows:

To add a class, interface, method, property, or argument:

  1. Select the parent item, right-click and select the appropriate Add... item.

To delete an item:

  1. Select the item to be deleted, right-click and select Delete.

  2. Click the Delete button.

Continuing with the Adder COM server example, add methods to the IAdd interface:

  1. Right-click the IAdd interface and select Add Method.

  2. Enter Clear as the name of the method.

  3. Repeat steps 1 and 2, this time entering the name of Add.

The Add method requires an argument. To add the Operand argument named Operand:

  1. Right-click on the Add method and select Add Argument.

  2. Enter the argument name, Operand.

The default data type of an argument is INTEGER(4).

Proceeding with this example, use the Properties Window to change the Fortran Type property value to REAL(4):



To add a third (and in this example, the last) method:

  1. Right-click on the IAdd interface and select Add Method.

  2. Enter GetValue as the name for the method.

The GetValue method requires an argument, CurrentValue. To add the CurrentValue argument:

  1. Right-click on the GetValue method and select Add Argument.

  2. Enter CurrentValue as the name of the argument.

For the CurrentValue argument:

  1. Set Fortran Type property value to REAL(4).

  2. Set Intent property values to [out,retval].

The screen appears as follows:



The server definition is now complete for this example. When you save the file using File > Save adder.hie, the Fortran sources will be regenerated.

For detailed information about the property pages (right pane) for the server, class, interface, method, argument, or instance properties, see Description of Property Pages.

To change the definition of your server, open adder.hie in the Editor.

Working with the Hierarchy Pane

As you have seen in the AddingMachine example, the hierarchy pane represents the definition of your server; that is, the classes, interfaces, methods, and so on. The hierarchy pane's user interface supports the following functionality:

Expand/contract an area

Click the plus sign (+) next to an item to display its children and the - to hide the children.

Add a new entry

Select the entry that will precede the new entry in the hierarchy, right-click and select one of the New... menu options.

Delete an entry

Select the item to be deleted, right-click and select Delete. All of an item's children are deleted when the item is deleted.

Rename a member

Select the item to be renamed, right-click and select Rename.

Change the order of items

The hierarchy pane supports drag-and-drop to allow you to change the order of items.

The order of some of the entries in the hierarchy is very important. In particular:

  • The order of the methods in an interface defines the order of the methods in the class' VTBL. Changing the order of the methods will break an existing client.

  • The order of the arguments in a method define the order of the arguments in the method's interface. Changing the order of the arguments will break an existing client.

Description of Property Pages

Property pages appear in the Properties Window. Property pages are available for the following:

Server Properties:

Type Library GUID

The unique identifier of the server's type library. There is usually no reason to change this from the default value generated by the Fortran COM Server Wizard.

Type Library Version

The current version of the Type Library.

HelpString

A string used to set the library's help string attribute in the IDL file.

Class Properties:

ProgID

The version independent program ID (or text alias) for the class. The ProgID can be used in calls such as COMCreateObjectByProgID.

Version

The current version of the class. It is appended to the ProgID to define the version-specific ProgID.

Short name

A short name for the class. It is used in some of the generated file names.

Description

A string used as the default value of the class' ProgID keys in the registry. This string is often used by tools, such as the OLE-COM Object Viewer, that display a list of the objects that are registered on the system.

Help String

A string used to set the class' help string attribute in the IDL file.

Threading model

The threading model of the class. The two choices are Apartment and Single. See Threading Models in Advanced COM Server Topics for information about the implications of this choice.

CLSID

The unique identifier of the class. There is usually no reason to change this from the default value generated by the Wizard.

Interface Properties:

Is Dual

If true, then the dual interface attribute is set in the IDL file. A dual interface supports both COM and Automation clients.

Is OleAutomation

If true, then the interface uses only Automation-compatible data types as described in Fortran COM Server Interface Design Considerations.

Is Default

If true, then the default interface attribute is set for this interface in the IDL file. The default attribute represents the default programmability interface of the object, and is intended for use by macro languages.

Help String

A string used to set the interface's help string attribute in the IDL file.

IID

The unique identifier of the interface. There is usually no reason to change this from the default value generated by the Wizard.

Method Properties:

DISPID

The identifier of the method used by Automation clients.

Help string

A string used to set the method's help string attribute in the IDL file.

Property Method

If checked, then the method is the get_ or put_ method of a property.

Argument Properties:

Fortran data type

The Fortran data type of the argument. Select one of the data types from the list, or type in the data type. See Fortran COM Server Interface Design Considerations for a discussion of the implications of your choice.

IDL type

The IDL data type. If you select one of the Fortran data types from the predefined list, then this field defaults to the corresponding IDL data type. Select one of the data types from the list, or type in the data type. See Fortran COM Server Interface Design Considerations for a discussion of the implications of your choice

Intent

The INTENT of the argument, one of the following list:

  • [in] - the argument value is read but not modified by the method

  • [out] - the argument value is not read, but is modified by the method

  • [in, out] - the argument value is both read and modified by the method

  • [out, retval] - the argument represents the return value of the method

By Reference

Indicates that an argument is passed by reference rather than by value. Only valid with Intent In. Intent Out and Intent InOut are automatically passed by reference.

Is Optional

If true, then the argument is optional. Optional arguments are passed using the Variant data type.

Dimensions

Number of array dimensions (0 if the argument is scalar).

Instance Type Properties:

Module name

The name used for the module defined in the UclassnameTY.f90 file.

Constructor

name

The name used for the class constructor defined in the UclassnameTY.f90 file.

Destructor name

The name used for the class destructor defined in the UclassnameTY.f90 file.

Modifying the Generated Code

When you save the hierarchy file, Fortran sources are generated (or regenerated). Source files are stored as follows:

Modify the following files in the Source Files folder:

Initially, the file UAddingMachineTY.f90 contains the following code:



The file contains a module named AddingMachine_USE (in the form classname_USE). There are three places in this module where you may need to add code specific to your class:

Now modify the other source file called UIAdd.f90. The original file UIAdd.f90 contains the following code:



A file by the name Uinterfacename.f90 (for example UIadd.f90) is created for each interface defined by the class. The file contains the methods of the class. Each method is named interfacename_methodname, for example: IAdd_Clear. Each method is a function that is passed to the class derived-type as the first argument. This gives the function access to the per-object data. Each function returns a 32-bit COM status code called an HRESULT. S_OK is a parameter that defines a success status. For additional information on COM status codes, see Fortran COM Server Interface Design Considerations.

Replace the ! TODO: Add implementation line in each method with the code for the method. For the IAdd interface, the implementation of its three methods is as follows:

For IAdd_Clear: ObjectData%CurrentValue = 0

For IAdd_Add: ObjectData%CurrentValue = ObjectData%CurrentValue + Operand

For IAdd_GetValue: CurrentValue = ObjectData%CurrentValue

Save the file and, from the Build menu, click Build Solution to build the server. The COM server is now complete.

COM Server Projects and the MIDL Compiler

During the creation of a COM Server project -- either In-process Server (DLL) or Out-of-process Server (EXE), as described in this section -- the application wizard determines whether Visual C++* is installed. If it is installed, the MIDL compiler uses the Visual C++ C preprocessor. This is both the default and recommended setting. If Visual C++ is not installed, the application wizard specifies that the MIDL compiler use the Fortran preprocessor for preprocessing MIDL source files. It does this by setting the Additional Options property of the MIDL compiler to include the following: /cpp_cmdifort /cpp_opt"/nologo /fpp /P /E /Qoption,fpp,/no-fort-cont".



If, later, you install Visual C++ and want to specify that MIDL use the Visual C++ C preprocessor, remove these options from the MIDL compiler Additional Options property.