Announcement

**Andreas Kosch** · 12.05.2003, 06:57

Hallo,

wie sieht ein kleines Minimal-Beispiel für den COM-Server und den Client aus, mit dem sich dieser Effekt jederzeit reproduzieren lässt

**André Mellenthin** · 12.05.2003, 07:39

Hallo, 
 
also, der Server wird wie folgt erzeugt: 
 
Datei -> Neu -> Anwendung 
Anwendung speichern 
Datei -> Neu -> Weitere -> ComObject (Register ActiveX) 
Deklaration der Methode GetWideString 
Implementierung des COM-Objektes wie folgt: 
 

unit COMTest_Impl; 
 
{$WARN SYMBOL_PLATFORM OFF} 
 
interface 
 
uses 
Windows, ActiveX, Classes, ComObj, COMTest_TLB, StdVcl; 
 
type 
TCOMTestSvr = class(TTypedComObject, ICOMTestSvr) 
protected 
function GetWidestring: WideString; stdcall; 
{ICOMTestSvr-Methoden hier deklarieren} 
end; 
 
implementation 
 
uses ComServ; 
 
function TCOMTestSvr.GetWidestring: WideString; 
begin 
// Hier kommt er erst gar nicht hin... 
result := 'Widestring'; 
end; 
 
initialization 
TTypedComObjectFactory.Create(ComServer, TCOMTestSvr, Class_COMTestSvr, 
ciMultiInstance, tmApartment); 
end. 

 
 
Der Client sieht wie folgt aus: 
 
Datei -> Neu -> Anwendung 
TButton auf Formular ziehen 
Anwendung speichern 
Projekt -> Typbibliothek importieren und entsprechende wählen 
Uses-Block erweitern 
Button1 implementieren 
 
 
procedure TForm1.Button1Click(Sender: TObject); 
var 
objComTest : ICOMTestSvr; 
begin 
CoInitialize(nil); 
try 
objComtest := CoCOMTestSvr.Create; 
try 
objComTest.GetWidestring; 
finally 
objComTest := nil; 
end; 
finally 
CoUninitialize; 
end; 
end; 

 
Den Client habe ich auch schon mit C# im Visual Studio .NET erstellt, dann erhalte ich ebenfalls ann besagter Stelle eine Exception des Typs "System.NullReferenceException". 
 
Kann es eventuell etwas mit dem .NET Framework zu tun haben? 
 
Schönen Gruß, 
André Mellenthin 
<br&gt

**Andreas Kosch** · 14.05.2003, 06:19

Hallo,

sowohl Server als auch Client liegen als separater Prozess vor, somit macht es keinen Sinn, auf TTypedComObject zurückzugreifen. Statt dessen ist TAutoObject (Automations-Objekt) die richtige Wahl, da hier der Standard-Marshaler hinter den Kulissen automatisch für die notwendigen Anpassungsarbeiten (Überwindung der Prozessgrenze, Transport der Parameter und Rückgabewert in den anderen Adressraum) sorgt.

>Kann es eventuell etwas mit dem .NET Framework zu tun haben?

Nein - die CLR hat beim Aufruf von Automation-Objekten von Delphi keine Probleme, alle Automation-kompatiblen Datentypen werden voll unterstützt

**André Mellenthin** · 14.05.2003, 07:58

Hallo, 
 
vielen Dank schonmal. Der Rumpf war der, den mir der Delphi-Experte für COM-Objekte erzeugt hat. 
 
Heißt das, dass TTypedComObject ausschließlich bei In-Process- Servern verwendet werden kann oder sogar darf? 
 
Schönen Gruß, 
André Mellenthin<br&gt

**Andreas Kosch** · 15.05.2003, 13:54

Hallo,

>..ausschließlich bei In-Process-
Servern verwendet werden kann ..

wenn man eigene Proxy-/Stub-DLLs für den Marshaler schreibt, kann man beliebige COM-Objekte mit beliebigen Datenstrukturen in den Parametern über Prozessgrenzen aufrufen. Dies würde aber mit dem Delphi-Prinzip (RAD = Rapid Application Development) kollidieren - derartige Proxy-/Stub-DLLs sind nur bei C++ üblich :-)

Damit es für uns im Alltag einfacher geht, stellt Borland TAutoObject zur Verfügung. Alle damit erstellten COM-Objekte nutzen als "Trittbrettfahrer" die Abkürzung, die Microsoft damals für Visual Basic 3 ins Betriebssystem eingebaut hat. In diesem Fall kümmert sich der Standard-Marshaler (alias Typbibliotheks-Marshaler) automatisch darum, wenn er in der Registry als Zuständig gekennzeichnet wird. Die Class Factory von TAutoObject macht dies automatisch im Hintergrund, so dass es beim Prozessübergreifenden Zugriff mit TAutoObject keine Probleme gibt

**André Mellenthin** · 15.05.2003, 15:47

Hallo, 
 
vielen Dank für diese ausführlichen Informationen. 
 
Wie ich bereits im Inhaltsverzeichnis Ihres Buches COM/DCOM/COM+ gesehen habe, ist dies Thema eines der späteren Kapitel. 
 
Dort bin ich noch nicht angekommen... :-) 
 
Schönen Gruß, 
André<br&gt

Announcement

Schutzverletzung nur bei WideString als Rückgabewert

Schutzverletzung nur bei WideString als Rückgabewert

Comment

Comment

Comment

Comment

Comment

Comment