Announcement

**Andreas Kosch** · 27.01.2004, 09:35

Hallo,

das folgende Beispiel demonstriert die Implementierung eines .NET Enterprise Service (COM+) mit Delphi 8. Diese Aufgabe kann man auf mindestens drei unterschiedlichen Wegen umsetzen, ich habe mich f�r die aus der Sicht von COM+ "eleganteste" L�sung entschieden: 
- Auskommentierte Units SysUtils und Classes: Die Assembly-DLL ist nur noch 93 kByte (anstelle 1,9 MByte) gro� 
- Bindet Verweis auf System.EnterpriseServices ein 
- Bindet Borland.Delphi ein, die Eigenschaft Link Units wird auf False gesetzt 
- Eigenes Interface wird von der Klasse implementiert 
- ClassInterface(ClassInterfaceType.None)
<pre>
library Delphi8FixInterface;
 
{%DelphiDotNetAssemblyCompiler 'c:\programme\gemeinsame dateien\borland shared\bds\shared assemblies\2.0\Borland.Delphi.dll'}
{%DelphiDotNetAssemblyCompiler '$(SystemRoot)\microsoft.net\framework\v1.1.4322\S ystem.EnterpriseServices.dll'}
 
uses
System.Reflection,
System.EnterpriseServices,
System.Runtime.InteropServices;
 
[assembly: ApplicationName('Delphi8ESFixInterfaceDemo')]
[assembly: ApplicationActivation(ActivationOption.Server)]
[assembly: ApplicationAccessControl(Value=True,
Authentication=AuthenticationOption.Connect,
ImpersonationLevel=ImpersonationLevelOption.Identi fy,
AccessChecksLevel=AccessChecksLevelOption.Applicat ionComponent)]
[assembly: DescriptionAttribute('Delphi 8 Interface .NET Enterprise Services-Objekt')]
[assembly: SecurityRole('Benutzer', SetEveryoneAccess = True)]
 
// STRG+UMSCHALT+G legt neue GUID f�r die Assembly fest
[assembly: Guid('854A605E-3F7E-4625-A79B-DA6E074269BA')]
 
[assembly: AssemblyTitle('Delphi8ESFix')]
[assembly: AssemblyDescription('Delphi 8 FixInterface .NET Enterprise Service')]
[assembly: AssemblyVersion('1.1.0.0')]
[assembly: AssemblyDelaySign(False)]
[assembly: AssemblyKeyFile('ES.snk')]
[assembly: AssemblyKeyName('')]
 
type
IOSDelphi8ESObj = interface
function DoWork(sInput: String): String;
end;
 
[TransactionAttribute(TransactionOption.NotSupporte d),
ConstructionEnabled(Default='Delphi 8 FixInterface'),
JustInTimeActivation(True),
EventTrackingEnabled(True),
DescriptionAttribute('Delphi 8 FixInterface .NET Enterprise Services-Objekt'),
Guid('356C3A64-88B3-4AA6-B644-D89D103B2F41'),
ObjectPooling(MinPoolSize=2, MaxPoolSize=5),
ClassInterface(ClassInterfaceType.None)]
TOSDelphi8ESObj = class(ServicedComponent, IOSDelphi8ESObj)
private
FConstructString: String;
protected
procedure Construct(constructString: String); override;
public
function DoWork(sInput: String): String;
end;
 
{ TOSDelphi8ESObj }
 
procedure TOSDelphi8ESObj.Construct(constructString: String);
begin
inherited;
FConstructString := constructString;
end;
 
function TOSDelphi8ESObj.DoWork(sInput: String): String;
begin
Result := sInput + ': ' + FConstructString;
ContextUtil.SetComplete;
end;
 
begin
end.
</pre>
Die Installation �ber regsvcs l�uft ohne eine einzige Warnung erfolgreich durch.
 
Was das zweite Problem angeht, w�rde ich die COM+ Anwendung komplett l�schen und von regsvcs neu anlegen lassen (die Attribute der COM+ Anwendung werden ja direkt �ber die Attribute innerhalb des Sourcecodes gesetzt):
<pre>
...
[assembly: ApplicationName('Delphi8ESFixInterfaceDemo')]
[assembly: ApplicationActivation(ActivationOption.Server)]
[assembly: ApplicationAccessControl(Value=True,
Authentication=AuthenticationOption.Connect,
ImpersonationLevel=ImpersonationLevelOption.Identi fy,
AccessChecksLevel=AccessChecksLevelOption.Applicat ionComponent)]
[assembly: DescriptionAttribute('Delphi 8 Interface .NET Enterprise Services-Objekt')]
[assembly: SecurityRole('Benutzer', SetEveryoneAccess = True)]
...
</pre>
Au�erdem w�rde ich pr�fen, ob auf diesem Rechner eventuell die DCOM-Standard-Rechte "zu tief" geh�ngt werden. Neuere Windows-Versionen reagieren auf ein derart offenes System mit einem Abschalten der WMI-Funktionen, von denen auch die Installation von COM+ betroffen ist

**U. Wagner** · 09.02.2004, 12:29

Hallo Herr Kosch,
habe ein paar weitere Fragen zu D8 und EnterpriseServices. Im Gegensatz zu C# funktioniert das Compilieren eines .NET WinForm Clients nicht, da er nach Einf�gen der Enterprise.dll als Referenz, anmahnt, dass die Assembly nicht importiert werden kann, "weil Sie den Namespace Borland.Delphi.System enth�lt". Ich habe diesen aber nicht eingebunden! Beim Blick auf die Referenz.dll sehe ich im clr auch die Borland.Delphi.System eingebunden, aber wie kommt diese da hinein?
Der selbe Quelltext in C# funktioniert.
Vielleicht hat es mit dieser Vorgehensweise zu tun: - Bindet Borland.Delphi ein, die Eigenschaft Link Units wird auf False gesetzt 
Wo finde ich die Link Units Eigenschaft?

Ebenso vielleicht mal einen Dreizeiler wie in Delphi ein .NET Clientaufruf �ber DCOM zu erreichen ist.
Zu DCOM noch eine Frage. Wie m�ssen die Clients zu einem DCOM-Server stehen. M�ssen Sie Mitglied der Domain werden? Wie konfiguriert man z.B. SinglePC Clients die �ber ISDN Einwahlverbindungen Zugriff auf einen DCOM-Server haben wollen? Welche Betriebssysteme sollten es sein (W2k,XP?)

Einen kurzen Tip mal bitte.

**U. Wagner** · 09.02.2004, 16:26

Hallo Herr Kosch,
die Eigenschaft "Link units" habe ich gefunden �ber ihren Link bei der Beantwortung der selben Frage im Forum Delphi8. Habe es befolgt und die DLL hat jetzt im ILDASM keinen Borland.Delphi.Systems Eintrag mehr, aber trotzdem, auch nach mehrmaligen Versuchen kommt die selbe Fehlermeldung im Client, dass ein Namespace von Borland.Delphi.System nicht zu .NET WINForms passt!?

Die Frage im zweiten Teil vom 26.01.04 ist auch noch nicht gel�st. Es hat nichts mit einem speziellen COM+ Object zu tun, der Fehler taucht auch schon auf wenn ich eine leere Anwendung als H�lle eintrage. Er erstellt zwar nach einer Fehlermeldung den Eintrag XYZ aber selbst beim L�schen erscheint die selbe noch mal . "Sie haben keine Erlaubnis ..." wie oben zu lesen. Ich habe mit dcomcfg schon mal ein paar Rechte versucht aufzumachen - ohne Erfolg. Wo sollte ich event. nachsehen?
Besten Dank schon mal im vorraus..

**Andreas Kosch** · 16.02.2004, 14:41

Hallo,

>..kommt die selbe Fehlermeldung im Client,..

was passiert, wenn alle *.dcpil-Dateien und *.pdb-Dateien im Projektverzeichnis gel�scht werden, bevor die Zuordnung der Assembly erneut erfolgt? Der Client muss ebenfalls die Delphi 8-RTL (Borland.Delphi.dll) nur als Verweis einbinden, die Eigenschaft Link Units wird auch beim Client auf False gesetzt!

>Wo sollte ich event. nachsehen?

Bei der DCOM-Standardsicherheit. Wird diese zu weit heruntergeh�ngt, verriegelt Windows seit einiger Zeit (ServicePacks) aus Sicherheitsgr�nden das System, so dass kein Zugriff �ber WMI erlaubt ist. Aber an WMI h�ngt so ziemlich alles...

Wenn das nicht der Grund ist, was passiert, wenn der Registrierungsaufruf vom "echten" Administrator des Rechners gestartet wird?

&#10

Announcement

Delphi8 und EnterpriseServices COM+

Delphi8 und EnterpriseServices COM+

Comment

Comment

Comment

Comment