Intel® Fortran Compiler 17.0 Developer Guide and Reference
This topic only applies to Windows* operating systems.
This section provides information that should be considered when designing a Fortran COM server. It contains the following topics:
COM places some restrictions on the data types used in COM methods and properties. The reason for the restrictions is that COM can pass arguments between threads, processes and machines. This raises issues that are not present in older technologies, such as DLLs, that always run in the same address space as the caller.
COM defines set of data types called Automation-compatible data types. These are the only data types that can be used in Automation and Dual interfaces. There are two advantages to restricting your COM interface to these data types:
Your server will be usable from clients written in the largest set of languages, including Intel® Fortran, Visual Basic, and Visual C++.
COM will automatically handle the passing of arguments between threads, processes and machines. This is called Type Library Marshalling. For more information, see Marshalling, Proxies and Stubs in Advanced COM Server Topics.
To restrict your server to Automation-compatible data types:
Select Use only Automation data types on the Interface property page. When defining a dual interface, this is automatically set.
Use only the following combinations of Fortran data type and Interface data type on the Argument property page.
Note that Intel Fortran does not support the Currency, Decimal, or User Defined Type, Automation-compatible data types.
Fortran Date Type |
Interface Data Type |
---|---|
INTEGER(1) |
unsigned char |
INTEGER(2) |
short |
INTEGER(4) |
long SCODE Int |
INTEGER(INT_PTR_KIND()) |
IUnknown* IDispatch* |
REAL(4) |
float |
REAL(8) |
double DATE |
LOGICAL(2) |
VARIANT_BOOL |
LOGICAL(4) |
long |
CHARACTER(1) |
unsigned char |
CHARACTER(*) |
BSTR |
BYTE |
unsigned char |
TYPE(VARIANT) |
VARIANT (containing one of the above types or SafeArray) |
If you decide not to restrict your interface to Automation-compatible data types, the next approach is to restrict your interface to data types that can be described in the Interface Description Language (IDL).
The Fortran COM Server Application Wizard automatically generates the IDL file from the description of your server. The MIDL compiler compiles the IDL file into a type library. MIDL can also automatically generate the code needed handle the passing of arguments between threads, processes and machines. Note, however, that a C compiler is required to use this option. For more information, see Discussion of Wizard Code Generation in Advanced COM Server Topics.
If you decide not to restrict your interface to IDL data types, your only remaining options are:
Implement Custom Marshalling - For more information, see Marshalling, Proxies and Stubs in Advanced COM Server Topics.
Decide that you will never use your server across apartment, thread, or process boundaries. The server will not be usable in this manner because there is no way to pass the arguments across these boundaries.
Each function returns a 32-bit COM status code called an HRESULT. An HRESULT is divided into fields:
The top bit (31) indicates whether the function succeeded or failed. The bit is set if the function failed. In Fortran, you can compare the HRESULT to < 0 as a test to see if a function failed.
Bits 16 to 27 contain a facility code to indicate the facility that issued the HRESULT. Microsoft pre-defines a number of facility codes for its own use. If you create your own status codes, use FACILITY_ITF. All other facility codes are reserved by Microsoft.
The first 16 bits, or low word, contain the error code specific to the error that occurred.
A typical HRESULT error value could be a value such as 0x80070057. The first hex digit, 8, indicates that bit 31 is set and that this is an error value. Bits 16 to 27 contain the value 7. This indicates the facility FACILITY_WIN32. The low word contains the value 0057. This is the specific code that identifies the error as E_INVALIDARG.
To view the text description that corresponds to a system HRESULT value, use the Error Lookup tool in the Intel® Fortran program folder. For example, entering the value 0x80070057 retrieves the text message "The parameter is incorrect ", as shown below:
You can also search for HRESULT values in the WINERROR.H file in the \VC\INCLUDE directory.
To use an object from Visual Basic, you must add a "reference" to the object to the Visual Basic project. Use the References item in the Project menu to display a list of the registered objects. Select the object in the list to inform Visual Basic that you will be using the object.
Here are some points to be aware of when writing a server that can be used with Visual Basic clients:
Use only the Automation-compatible data types (see Method and Property Data Types).
Arguments to a method can be passed ByVal, ByRef, or they can be the function return value.
An argument to be passed ByVal, must be defined with Intent set to In.
An argument to be passed ByRef, must be defined with Intent set to InOut.
A function return value must be defined with Intent set to Out. It must have the Return Value field checked. The argument must be the final argument of the method.
An array is always passed as a SafeArray ByRef. Therefore it must be defined with Intent set to InOut.
To use an argument of the Visual Basic Boolean data type, set the Fortran data type to LOGICAL(2) and set the Interface data type to VARIANT_BOOL.
To use an object from C++, use the #import directive. The syntax of the #import directive is:
#import "filename" [attributes] #import <filename> [attributes]
The filename is the name of the file containing the type library information. The directive makes the information in the type library available to your source file as a set of C++ classes.