DLL/COM/OLE Problemer

Jeg havde postet dette sps før, men det er åbenbart forsvundet !!


Jeg har aldrig rodet med DLL før, men har nu fået en aktuelt problem.
Jeg har fået en excel fil, som bruger den DLL, jeg også har importeret
i D7.
I Excel ser koden ud som følgende:

Public Sub StartComm()
 
  On Error Resume Next
 
  ' Zuweisung der einzelnen Objekte
  Set oTask = New RainbowState
  Set oSapro = New RainbowSrv
  Set oLoad = New RainbowLoader
  Set oOBJH = New RainbowObjHandler
  'Set oServerIP = New RAINBOWIPLib.RainbowSrv
 
  Dim InterfaceTyp As Variant
 
  InterfaceTyp = Interface
  'Definierung der Schnittstelle
  'oSapro.Conf.SetInterfaceType InterfaceTyp  ' Interface
  If InterfaceTyp = "RainbowSerSrv.CommModule01" Or InterfaceTyp =
"RainbowSerSrv.CommModule02" Then
      oSapro.Conf.SetInterfaceType InterfaceTyp
      oSapro.Conf.SetInterfacePar "57600,8,2,N,1" 'Physikalische
eigenschaften
      oSapro.Conf.SetTargetType ControllerType
      oTask.SetInterface oSapro
      oLoad.SetInterface oSapro
      oOBJH.SetInterface oSapro
      'oServerIP.SetInterface oSapro
  End If
----------------------------------------

Det er RainbowSrv jeg skal have fat i, og starte med at sætte
kommunikationen op.
Linien se sådan ud i excel :

oSapro.Conf.SetInterfaceType InterfaceTyp

I delphi placerer jeg den "komponent" jeg har importeret, og skriver

RainbowSrv1.conf. Efter dette kan jeg ikke få "SetInterface" funktionen frem, og når jeg
skriver det manuelt giver Delphi fejl ved compilering.

Når jeg åbner den TLB fil, jeg har fået lavet efter import, ser jeg
bla.
følgende :

// *********************************************************************//
// Interface: ISaproSerSrv
// Flags:    (4416) Dual OleAutomation Dispatchable
// GUID:      {EA302EDD-8768-11D2-8E33-006008727C0A}
// *********************************************************************//
ISaproSerSrv = interface(IDispatch)
  ['{EA302EDD-8768-11D2-8E33-006008727C0A}']
  procedure GetVersion(var Version: OleVariant); safecall;
  procedure GetMajorVersion(var Number: OleVariant); safecall;
  procedure GetMinorVersion(var Number: OleVariant); safecall;
  function Get_Conf: IDispatch; safecall;
  property Conf: IDispatch read Get_Conf; end;

~En masse andet kode~

// *********************************************************************//
// Interface: ISaproConf // Flags:    (4416) Dual OleAutomation Dispatchable
// GUID:      {3155D9F0-8463-11D2-83A2-00600872723B}
// *********************************************************************//
ISaproConf = interface(IDispatch)
  ['{3155D9F0-8463-11D2-83A2-00600872723B}']
  procedure SetInterfaceType(const InterfaceType: WideString);
safecall;
  procedure SetInterfacePar(const InterfacePar: WideString);
safecall;
  procedure GetInterfaceType(var Value: OleVariant); safecall;
  procedure GetInterfacePar(var Value: OleVariant); safecall;
  procedure SetTargetType(Value: Integer); safecall;
  procedure GetTargetType(var Value: OleVariant); safecall;
end;

// *********************************************************************//
// DispIntf: ISaproConfDisp
// Flags:    (4416) Dual OleAutomation Dispatchable
// GUID:      {3155D9F0-8463-11D2-83A2-00600872723B}
// *********************************************************************//
ISaproConfDisp = dispinterface
  ['{3155D9F0-8463-11D2-83A2-00600872723B}']
  procedure SetInterfaceType(const InterfaceType: WideString);
dispid 1;
  procedure SetInterfacePar(const InterfacePar: WideString); dispid
2;
  procedure GetInterfaceType(var Value: OleVariant); dispid 3;
  procedure GetInterfacePar(var Value: OleVariant); dispid 4;
  procedure SetTargetType(Value: Integer); dispid 5;
  procedure GetTargetType(var Value: OleVariant); dispid 6;
end;

Nogen genier der kan gennemskue hvor jeg går galt i byen ?

Jeg tror det er noget med at access'e ISaproConf = interface(IDispatch)

Med venlig hilsen

Ulrik