Announcement

**Andreas Kosch** · 02.12.2003, 08:50

Hallo,

>Jedoch bekomme ich den Zugriff f�r VBS nicht hin.

das ist normal - denn bei der sp�ten Bindung �ber IDispatch kann es nur ein einziges Interface geben. Wenn eine Scriptsprache einen Interface-Zeiger anfordert, kann der Interface-Typ nicht definiert werden, so dass dieser Script-Client immer nur die IDispatch-Implementierung des Default-Interfaces nutzen kann.

Immer dann, wenn zwischen dem Client und der Objektinstanz eine Apartment- oder Prozess-Grenze liegt, richtet der Marshaler f�r jedes Interface ein Proxy-/Stub-Objekt dazwischen ein. Allerdings ben�tigt der Client in dem o.g. Fall beim Zugriff �ber die sp�te Bindung gleich zwei verschiedene Implementierungen des IDispatch-Interfaces - einmal f�r das Default-Interface und einmal f�r das zweite Interface. Aus Performancegr�nden richtet der Marshaler jedoch das Proxy-/Stub-Paar immer nur einmal je Interface ein, so dass jeder Aufruf �ber immer �ber das gleiche Proxy-/Stub-Paar l�uft. Der WSH liefert daher beim Aufruf nur einen Fehlercode (wie 800A000D) zur�ck, da der Aufruf ins Leere greift.

F�r die Zugriffe �ber die sp�te Bindung muss das COM-Objekt daher ein Wrapper-Interface bereitstellen, dass alle separaten Interfaces an einer Stelle neu verpackt. Das k�nnte zum Beispiel so aussehen:
<pre>
unit MultiInterfaceSrvWrapperObj_Impl;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
ComObj, ActiveX, MultiInterfaceSrv_TLB, StdVcl;

type
TMultiInterfaceSrvWrapperObj = class(TAutoObject, IMultiInterfaceSrvWrapperObj)
private
FSrv : IMultiInterfaceServer;
protected
function DoWork1(vText: OleVariant): OleVariant; safecall;
function Get_GetInfo: OleVariant; safecall;
{ Protected-Deklarationen }
public
procedure Initialize; override;
destructor Destroy; override;
end;

implementation

uses ComServ;

{-----------------------------------------------------------------------}
{ Client erzeugt Instanz des Wrapper-Objekts: Original-Instanz erzeugen }
{-----------------------------------------------------------------------}

procedure TMultiInterfaceSrvWrapperObj.Initialize;
begin
inherited;
FSrv := CoMultiInterfaceServer.Create;
end;

destructor TMultiInterfaceSrvWrapperObj.Destroy;
begin
FSrv := nil;
inherited;
end;

{-----------------------------------------------------------------------}
{ Interface-Methoden des Wrapper-Objekts rufen das Original-Objekt auf }
{-----------------------------------------------------------------------}

function TMultiInterfaceSrvWrapperObj.DoWork1(vText: OleVariant): OleVariant;
var
swMsg : WideString;
begin
FSrv.DoWork1(vText, swMsg);
Result := swMsg;
end;

function TMultiInterfaceSrvWrapperObj.Get_GetInfo: OleVariant;
begin
Result := FSrv.InfoObject.GetInfo;
end;

initialization
TAutoObjectFactory.Create(ComServer, TMultiInterfaceSrvWrapperObj, Class_MultiInterfaceSrvWrapperObj,
ciMultiInstance, tmApartment);
end.
</pre>
Der Aufruf aus dem VBScript f�r den WSH heraus ist dann erfolgreich:
<pre>
Dim Obj, sInput, sOutput
Set Obj = CreateObject("MultiInterfaceSrv.MultiInterfaceSrvW rapperObj")
MsgBox Obj.GetInfo
sInput = "Daten aus dem VBS"
MsgBox Obj.DoWork1(sInput)
Set Obj = Nothing
MsgBox "Das WSH-Script wurde vollst�ndig abgearbeitet"
</pre&gt

**Bernhard Geyer** · 02.12.2003, 18:28

Hallo Andreas,

eigentlich wollte ich nicht alle Funktionen in einem Interface zusammenfassen. Die Gr�nde daf�r liegen in der �bersichtlichkeit und Beschreibung der Schnittstelle.

In der Version 1.0 gibt es nur die Funktionen welche in der Schnittstelle IMyInterface definiert sind.

In der neuen Version 2.0 sollen alle neu hinzugekommenen Funktionen in die Schnittstelle IMyInterface2 aufgenommen werden.

In einer Version 3.0 wird es dann eine Schnittstelle IMyInterface3 geben.

Damit h�tte ich eine einfach Beschreibung welche Funktionen mit welcher Programmversion verf�gbar w�ren. Dies w�re damit �hnlich der IWebBrowser/2/3...5-Schnittstellen des Internet-Explorers.

Alternativ k�nnte ich die Unterst�tzung von VBS wegfallen lassen, wenn ich w��te welche Schalter in der Typbibliothek gesetzt werden m�ssen, damit unter Access-2000 die fr�he Typbindung verf�gbar w�re. Bisher bekomme ich unter Access 2000 nur den VBS-Web �ber sp�te Bindung hin. Unter VB.NET/C# ist die fr�he Bindung keine Problem

**Andreas Kosch** · 03.12.2003, 07:53

Hallo,

>..damit unter Access-2000 die fr�he Typbindung verf�gbar w�re.

ich bin mir nicht sicher, ob das dort tats�chlich geht. Microsoft spricht auch gern in diesem Umfeld bereits dann von der "fr�hen" Bindung, wenn die DISPIDs der �ber IDispatch ausgef�hrten Methoden aus der TLB ausgelesen werden. Somit erspart sich ACCESS2000 den vorherigen Aufruf von IDispatch.GetIDsOfNames, aber die Methoden werden dann trotzdem �ber Invoke aufgerufen. Im Borland-Umfeld wird dies als ID-Bindung bezeichnet (d.h. in Delphi stehen gleich 3 Alternativen zur Verf�ung: 1. Sp�te Bindung; 2. ID-Bindung; 3. Fr�he Bindung).

>..welche Schalter in der Typbibliothek gesetzt werden m�ssen.

Delphi kennzeichnet die TLB automatisch als duales Interface:
<pre>
typelib Project1
[ uuid '{E80EB406-31DB-4119-A63E-3DFD968AD73D}',
version 1.0,
helpstring 'Project1 Bibliothek' ];

uses stdole2.tlb, STDVCL40.DLL;

IDelphiDualInterface = interface(IDispatch)
[ uuid '{3F09D715-D6BB-4CFB-8C89-F3BE7043640D}',
version 1.0,
helpstring 'Dispatch-Schnittstelle f�r DelphiDualInterface-Objekt',
dual,
oleautomation ]
end;

DelphiDualInterface = coclass(IDelphiDualInterface [default] )
[ uuid '{41D01464-8A8E-4A2B-86A6-794A5DFF9666}',
version 1.0,
helpstring 'DelphiDualInterface Objekt' ];

end.
</pre&gt

**Bernhard Geyer** · 03.12.2003, 11:53

Hallo Andreas,

die Schalter dual und oleautomation sind in der TLB f�r das Interface gesetzt, jedoch bekomme ich in Access mein Object nicht in die Liste der ActivX-Steuerelement (oder etwas �hnliches was ich nocht nicht gefunden habe). 
Wahrscheinlich h�tte ich die Schnittstelle als ActiveX-Element und nicht als Automatisierungsobject anlegen m�ssen damit Access es in seine Liste aufnimmt. Aber es ist nun mal mehr als ein ActiveX-Element

**Andreas Kosch** · 04.12.2003, 08:48

Hallo,

im Microsoft Visual Basic-Fenster von ACCESS muss der Men�punkt Extras | Verweise verwendet werden, um eine TLB einzubinden. Bei mir werden dort alle TLBs angezeigt - sogar die TLBs meiner C# .NET Enterprise Services Objekte (alias COM+).

**Bernhard Geyer** · 05.12.2003, 13:45

Hallo Andreas,

Ich glaube dieser "Wink mit dem Zaumpfahl" kann mein Problem l�sen. Mu� noch Abkl�ren ob man die VBS-Untert�tzung wegfallen lassen kann. Mu� dann jedoch ein Access-Basic oder C#/VB.NET-Beispiel in der Dokumentation aufnehmen.

Danke f�r deine (wie immer) sehr kompetente Unterst�tzung

Announcement

Mehrere Interfaces in COM-Schnittstelle und Zugriff VBS

Mehrere Interfaces in COM-Schnittstelle und Zugriff VBS

Comment

Comment

Comment

Comment

Comment

Comment