fgrubler Absent Member.
Absent Member.
2212 views

Error registration Delphi_New sample

Hello,

I have compiled the Delphi_New sample form
novell-gwc3po-devel-2006.09.28-1windows with Delphi 2007 and Delphi 2005 but
if I register it with regsvr32 testDelphiPlus.dll I get this error:

Exception EOleSysError in Modul testDelphiPlus.dll bei 00015AA5.
Fehler beim Laden der Typbibliothek/DLL.
(Error Loading Typbibliothek/DLL)

The original testDelphiPlus.dll works.

OS: Windows XP sp2
GroupWise 7.0.2

What could be wrong?

Kind regards
Florian

Labels (1)
0 Likes
2 Replies
Anonymous_User Absent Member.
Absent Member.

Re: Error registration Delphi_New sample

Well.....the newer version of the SDK that I use, doesn't have a sample named Delphi_New so it's hard to tell

Please download the newest version of the SDK, and also note, that a lot of the samples was made for D2 and D3

The Ole integration with those guys was made with the ole32 unit, but with D6 and above, I beleave they should be
replaced with ComObj unit

Also maybe post the source of the function named DllRegisterServer, found when you right-click in Delphi
on the project, and select view source


--

Tommy
0 Likes
fgrubler Absent Member.
Absent Member.

Antw: Re: Error registration Delphi_New sample

I have newer version of the SDK. The sample is in that directory:

novell-gwc3po-devel-2006.09.28-1windows\gwc3po-FILES\C3POWizard\Samples\Delp
hi_New\testDelphiPlus.dll

function DllRegisterServer: HResult; stdcall;
var
Reg : TRegistry;
sRegKeyName : string [120];
sAppName : string [120];
begin
Result := ComServ.DllRegisterServer;

sAppName := 'testDelphiPlus';
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
sRegKeyName :=
'\SOFTWARE\Novell\GroupWise\5.0\C3PO\DataTypes\GW.CLIENT\testDelphiPlus.Serv
er';
Reg.OpenKey (sRegKeyName, TRUE);
Reg.OpenKey ('Objects', TRUE);
Reg.WriteString ('EventMonitor', '');
Reg.OpenKey (sRegKeyName, TRUE);
Reg.OpenKey ('Events', TRUE);
Reg.WriteString ('OnReady', '');
Reg.WriteString ('OnShutdown', '');
Reg.WriteString ('OnOverflow', '');

sRegKeyName :=
'\SOFTWARE\Novell\GroupWise\5.0\C3PO\DataTypes\GW.MESSAGE.MAIL\testDelphiPlu
s.Server';
Reg.OpenKey (sRegKeyName, TRUE);
Reg.OpenKey ('Objects', TRUE);
Reg.WriteString ('EventMonitor', '');
Reg.OpenKey (sRegKeyName, TRUE);
Reg.OpenKey ('Events', TRUE);
Reg.WriteString ('OnDelivery', '');
sRegKeyName :=
'\SOFTWARE\Novell\GroupWise\5.0\C3PO\DataTypes\GW.MESSAGE.MAIL.test\testDelp
hiPlus.Server';
Reg.OpenKey (sRegKeyName, TRUE);
Reg.OpenKey ('Objects', TRUE);
Reg.WriteString ('EventMonitor', '');
Reg.OpenKey (sRegKeyName, TRUE);
Reg.OpenKey ('Events', TRUE);
Reg.WriteString ('OnDelivery', '');
sRegKeyName :=
'\SOFTWARE\Novell\GroupWise\5.0\C3PO\DataTypes\GW.MESSAGE.MAIL.test\testDelp
hiPlus.Server';
Reg.OpenKey (sRegKeyName, TRUE);
Reg.OpenKey ('Objects', TRUE);
Reg.WriteString ('IconFactory', '');
Reg.OpenKey (sRegKeyName, TRUE);
Reg.OpenKey ('Events', TRUE);

sRegKeyName :=
'\SOFTWARE\Novell\GroupWise\5.0\C3PO\DataTypes\GW.CLIENT\testDelphiPlus.Serv
er';
Reg.OpenKey (sRegKeyName, TRUE);
Reg.OpenKey ('Objects', TRUE);
Reg.WriteString ('CommandFactory', '');
Reg.OpenKey (sRegKeyName, TRUE);
Reg.OpenKey ('Events', TRUE);

sRegKeyName :=
'\SOFTWARE\Novell\GroupWise\5.0\C3PO\DataTypes\GW.MESSAGE.MAIL\testDelphiPlu
s.Server';
Reg.OpenKey (sRegKeyName, TRUE);
Reg.OpenKey ('Objects', TRUE);
Reg.WriteString ('CommandFactory', '');
Reg.OpenKey (sRegKeyName, TRUE);
Reg.OpenKey ('Events', TRUE);

sRegKeyName :=
'\SOFTWARE\Novell\GroupWise\5.0\C3PO\DataTypes\GW.MESSAGE.MAIL\testDelphiPlu
s.Server';
Reg.OpenKey (sRegKeyName, TRUE);
Reg.OpenKey ('Objects', TRUE);
Reg.WriteString ('CommandFactory', '');
Reg.OpenKey (sRegKeyName, TRUE);
Reg.OpenKey ('Events', TRUE);

sRegKeyName :=
'\SOFTWARE\Novell\GroupWise\5.0\C3PO\DataTypes\GW.CLIENT.WINDOW.BROWSER\test
DelphiPlus.Server';
Reg.OpenKey (sRegKeyName, TRUE);
Reg.OpenKey ('Objects', TRUE);
Reg.WriteString ('CommandFactory', '');
Reg.OpenKey (sRegKeyName, TRUE);
Reg.OpenKey ('Events', TRUE);

sRegKeyName :=
'\SOFTWARE\Novell\GroupWise\5.0\C3PO\DataTypes\GW.MESSAGE.MAIL\testDelphiPlu
s.Server';
Reg.OpenKey (sRegKeyName, TRUE);
Reg.OpenKey ('Objects', TRUE);
Reg.WriteString ('CommandFactory', '');
Reg.OpenKey (sRegKeyName, TRUE);
Reg.OpenKey ('Events', TRUE);

sRegKeyName :=
'\SOFTWARE\Novell\GroupWise\5.0\C3PO\DataTypes\GW.MESSAGE.MAIL\testDelphiPlu
s.Server';
Reg.OpenKey (sRegKeyName, TRUE);
Reg.OpenKey ('Objects', TRUE);
Reg.WriteString ('CommandFactory', '');
Reg.OpenKey (sRegKeyName, TRUE);
Reg.OpenKey ('Events', TRUE);

Reg.WriteString (eGW_CMDID_OPEN, '');
Reg.WriteString (eGW_CMDID_SEND, '');

sRegKeyName :=
'\SOFTWARE\Novell\GroupWise\5.0\C3PO\DataTypes\GW.CLIENT.WINDOW.BROWSER\test
DelphiPlus.Server';
Reg.OpenKey (sRegKeyName, TRUE);
Reg.OpenKey ('Objects', TRUE);
Reg.WriteString ('CommandFactory', '');
Reg.OpenKey (sRegKeyName, TRUE);
Reg.OpenKey ('Events', TRUE);

Reg.WriteString (eGW_CMDID_OPEN, '');

sRegKeyName :=
'\SOFTWARE\Novell\GroupWise\5.0\C3PO\DataTypes\GW.MESSAGE.MAIL.test\testDelp
hiPlus.Server';
Reg.OpenKey (sRegKeyName, TRUE);
Reg.OpenKey ('Objects', TRUE);
Reg.WriteString ('CommandFactory', '');
Reg.OpenKey (sRegKeyName, TRUE);
Reg.OpenKey ('Events', TRUE);

Reg.WriteString (eGW_CMDID_COMPOSE, '');
Reg.WriteString (eGW_CMDID_DELETE, '');


end;

Kind regards
Florian

0 Likes
The opinions expressed above are the personal opinions of the authors, not of Micro Focus. By using this site, you accept the Terms of Use and Rules of Participation. Certain versions of content ("Material") accessible here may contain branding from Hewlett-Packard Company (now HP Inc.) and Hewlett Packard Enterprise Company. As of September 1, 2017, the Material is now offered by Micro Focus, a separately owned and operated company. Any reference to the HP and Hewlett Packard Enterprise/HPE marks is historical in nature, and the HP and Hewlett Packard Enterprise/HPE marks are the property of their respective owners.