How can I call ActiveX functions in Delphi, which I've imported by a
TLB-interface?

The TLB file is:
type
  uctSeriell = _uctSeriell;

  _uctSeriell = interface(IDispatch)
    ['{2371119C-A58A-4123-A801-F0A69CEE5983}']
    function  Get_CommPort: Smallint; safecall;
    procedure Set_CommPort(Param1: Smallint); safecall;
    procedure Clear; safecall;
  end;

In my program-file I use:
uses
  XXXX_TLB;

var
  COMActiveX : uctSeriell;

procedure Init
var
  portno : integer;
begin
  portno := strtoint(ParamStr(1));   // Port Nr is a command line
parameter
  @COMActiveX :=    // ---? How can I get the address
  COMActiveX.Set_CommPort(StrToInt(ParamStr(2)));
end;

At the beginning of the program, the address of 'COMActiveX' is NULL.
How can I get the address if the interface functions, that I can call
the function Set_CommPort?

Thank you
Thomas

--
Posted via Mailgate.ORG Server - http://www.Mailgate.ORG