Windows Server 2003 SP2, Syspro, COM Object,Delphi 7 Server as thrown an exception

can you post piece of code that generates this error in your app?

also it's good idea to go to madshi.net and download madExcept package it will help you to track where did error came from

ziolko.

//The folllwing code works as a VBS file yo return a string store in uid
Dim uid, Encore
Set Encore = createobject("Encore.Utilities")
uid = Encore.logon("COWNER", "1054", "A","", "05", 0, 0,"");

// the foillwing is the only line i use in delphi to retrun a string
uid := u.logon('COWNER','1054','A',' ', 5, 0, 0,'');

Do you need to see the whole type library source code file

ZIOLKO: wow good idead about MadExcept: here;s the output..can you help interpret?
date/time         : 2008-08-12, 06:03:11, 421ms
computer name     : PESRV
wts client name   : AMD64
user name         : administrator
operating system  : Windows 2003 Service Pack 2 build 3790
system language   : English
system up time    : 16 hours 47 minutes
program up time   : 2 seconds
processors        : 4x Intel(R) Xeon(R) CPU           E5440  @ 2.83GHz
physical memory   : 3297/4091 MB (free/total)
free disk space   : (C:) 13.19 GB
display mode      : 1280x1024, 16 bit
process id        : $f94
allocated memory  : 4.00 MB
executable        : et.exe
exec. date/time   : 2008-08-12 06:02
madExcept version : 2.7k
exception class   : EAccessViolation
exception message : Access violation at address 0012F518. Write of address 0012F518.

main thread ($b74):
0012f518 +000 ???                          
00479caf +04f et.exe     Encore_TLB        TUtilities.Logon
00479ef4 +03c et.exe     enetu      41 +11 TForm1.Button1Click
00458b7c +064 et.exe     Controls          TControl.Click
00451404 +01c et.exe     StdCtrls          TButton.Click
004514f8 +00c et.exe     StdCtrls          TButton.CNCommand
004589e4 +188 et.exe     Controls          TControl.WndProc
0045b8ef +157 et.exe     Controls          TWinControl.WndProc
004512c8 +06c et.exe     StdCtrls          TButtonControl.WndProc
004587b4 +024 et.exe     Controls          TControl.Perform
0045ba27 +023 et.exe     Controls          DoControlMsg
0045c07f +00b et.exe     Controls          TWinControl.WMCommand
00472528 +02c et.exe     Forms             TCustomForm.WMCommand
004589e4 +188 et.exe     Controls          TControl.WndProc
0045b8ef +157 et.exe     Controls          TWinControl.WndProc
00470581 +421 et.exe     Forms             TCustomForm.WndProc
00444920 +014 et.exe     Classes           StdWndProc
0045b56c +02c et.exe     Controls          TWinControl.MainWndProc
00444920 +014 et.exe     Classes           StdWndProc
7739c332 +044 user32.dll                   SendMessageW
773b045e +016 user32.dll                   CallWindowProcA
0045b9d3 +0d7 et.exe     Controls          TWinControl.DefaultHandler
00458f84 +010 et.exe     Controls          TControl.WMLButtonUp
004589e4 +188 et.exe     Controls          TControl.WndProc
0045b8ef +157 et.exe     Controls          TWinControl.WndProc
004512c8 +06c et.exe     StdCtrls          TButtonControl.WndProc
0045b56c +02c et.exe     Controls          TWinControl.MainWndProc
00444920 +014 et.exe     Classes           StdWndProc
773a16e0 +00a user32.dll                   DispatchMessageA
00476897 +083 et.exe     Forms             TApplication.ProcessMessage
004768b6 +00a et.exe     Forms             TApplication.HandleMessage
00476ad6 +096 et.exe     Forms             TApplication.Run
0047a24b +03b et.exe     et         14  +3 initialization

thread $b78:
7c8285ec +0 ntdll.dll  KiFastSystemCallRet
7c827cf9 +a ntdll.dll  NtWaitForMultipleObjects

modules:
00400000 et.exe                         C:
00db0000 MFOM.DLL     4.3.3.0           d:\SYSPRO60\base
00dc0000 class.dll    1.0.0.0           D:\SYSPRO60\BASE
00dd0000 classm.dll   1.0.0.0           D:\SYSPRO60\BASE
00f80000 MFOLEM.DLL   4.4.1.0           d:\SYSPRO60\base
00fa0000 oleclasm.dll 1.0.0.0           D:\SYSPRO60\BASE
01d00000 AdmState.dll 6.0.9.0           d:\SYSPRO60\base
10000000 OOPSM.dll    5.0.1.0           d:\SYSPRO60\base
600a0000 CBLRTSM.DLL  8.181.5.151       d:\SYSPRO60\base
60150000 cblintm.dll  8.181.5.151       d:\SYSPRO60\base
60170000 COB32API.dll 8.181.5.151       d:\SYSPRO60\base
61000000 ENCORE.DLL   6.0.9.0           d:\SYSPRO60\base
71b70000 uxtheme.dll  6.0.3790.3959     C:\WINDOWS\system32
71bb0000 wsock32.dll  5.2.3790.0        C:\WINDOWS\system32
71bf0000 WS2HELP.dll  5.2.3790.3959     C:\WINDOWS\system32
71c00000 WS2_32.dll   5.2.3790.3959     C:\WINDOWS\system32
71c40000 NETAPI32.dll 5.2.3790.3959     C:\WINDOWS\system32
75da0000 SXS.DLL      5.2.3790.3959     C:\WINDOWS\system32
762b0000 comdlg32.dll 6.0.3790.3959     C:\WINDOWS\system32
76f00000 wtsapi32.dll 5.2.3790.3959     C:\WINDOWS\system32
76f50000 Secur32.dll  5.2.3790.3959     C:\WINDOWS\system32
77010000 COMRes.dll   2001.12.4720.3959 C:\WINDOWS\system32
771f0000 WINSTA.dll   5.2.3790.3959     C:\WINDOWS\system32
77380000 user32.dll   5.2.3790.3959     C:\WINDOWS\system32
77420000 comctl32.dll 6.0.3790.3959     C:\WINDOWS\WinSxS\x86_Microsoft.Windows.Common-Controls_6595b64144ccf1df_6.0.3790.3959_x-ww_D8713E55
77530000 comctl32.dll 5.82.3790.3959    C:\WINDOWS\WinSxS\x86_Microsoft.Windows.Common-Controls_6595b64144ccf1df_5.82.3790.3959_x-ww_78FCF8D0
77670000 ole32.dll    5.2.3790.3959     C:\WINDOWS\system32
777b0000 CLBCatQ.DLL  2001.12.4720.3959 C:\WINDOWS\system32
77b90000 version.dll  5.2.3790.3959     C:\WINDOWS\system32
77ba0000 msvcrt.dll   7.0.3790.3959     C:\WINDOWS\system32
77c00000 GDI32.dll    5.2.3790.3959     C:\WINDOWS\system32
77c50000 RPCRT4.dll   5.2.3790.3959     C:\WINDOWS\system32
77d00000 oleaut32.dll 5.2.3790.3959     C:\WINDOWS\system32
77da0000 SHLWAPI.dll  6.0.3790.3959     C:\WINDOWS\system32
77e40000 kernel32.dll 5.2.3790.3959     C:\WINDOWS\system32
77f50000 ADVAPI32.dll 5.2.3790.3959     C:\WINDOWS\system32
7c800000 ntdll.dll    5.2.3790.3959     C:\WINDOWS\system32
7c8d0000 SHELL32.dll  6.0.3790.3959     C:\WINDOWS\system32

hardware:
+ Computer
  - ACPI Multiprocessor PC
+ Disk drives
  - DELL PERC 6/i SCSI Disk Device
+ Display adapters
  - ATI ES1000                    (driver 8.24.3.0)
+ DVD/CD-ROM drives
  - HL-DT-ST CDRW/DVD GCCH30N
+ Floppy disk controllers
  - Standard floppy disk controller
+ Floppy disk drives
  - Floppy disk drive
+ Human Interface Devices
  - USB Human Interface Device
  - USB Human Interface Device
  - USB Human Interface Device
  - USB Human Interface Device
+ IDE ATA/ATAPI controllers
  - Intel(R) 631xESB/6321ESB Serial ATA Storage Controller - 2680 (driver 7.3.0.1010)
  - Primary IDE Channel
  - Secondary IDE Channel
+ Keyboards
  - HID Keyboard Device
  - HID Keyboard Device
+ Mice and other pointing devices
  - HID-compliant mouse
  - HID-compliant mouse
+ Monitors
  - Default Monitor
+ Network adapters
  - Broadcom BCM5708C NetXtreme II GigE (NDIS VBD Client) (driver 4.2.2.0)
  - Broadcom BCM5708C NetXtreme II GigE (NDIS VBD Client) #2 (driver 4.2.2.0)
+ Ports (COM & LPT)
  - Communications Port (COM1)
  - Communications Port (COM2)
+ Processors
  - Intel(R) Xeon(R) CPU           E5440  @ 2.83GHz
  - Intel(R) Xeon(R) CPU           E5440  @ 2.83GHz
  - Intel(R) Xeon(R) CPU           E5440  @ 2.83GHz
  - Intel(R) Xeon(R) CPU           E5440  @ 2.83GHz
+ SCSI and RAID controllers
  - DELL PERC 6/i Integrated RAID Controller (driver 2.14.0.32)
+ Sound, video and game controllers
  - Audio Codecs
  - Legacy Audio Drivers
  - Legacy Video Capture Devices
  - Media Control Devices
  - Video Codecs
+ System devices
  - ACPI Fixed Feature Button
  - Broadcom BCM5708C NetXtreme II GigE (driver 4.1.5.0)
  - Broadcom BCM5708C NetXtreme II GigE #2 (driver 4.1.5.0)
  - DELL PERC RAID Virtual Device (driver 2.14.0.32)
  - Direct memory access controller
  - High Precision Event Timer (driver 7.0.0.1011)
  - Intel(R) 5000 Series Chipset Error Reporting Registers - 25F0 (driver 7.3.0.1010)
  - Intel(R) 5000 Series Chipset Error Reporting Registers - 25F0 (driver 7.3.0.1010)
  - Intel(R) 5000 Series Chipset Error Reporting Registers - 25F0 (driver 7.3.0.1010)
  - Intel(R) 5000 Series Chipset FBD Registers - 25F5 (driver 7.3.0.1010)
  - Intel(R) 5000 Series Chipset FBD Registers - 25F6 (driver 7.3.0.1010)
  - Intel(R) 5000 Series Chipset PCI Express x4 Port 2 - 25E2 (driver 7.3.0.1010)
  - Intel(R) 5000 Series Chipset PCI Express x4 Port 3 - 25E3 (driver 7.3.0.1010)
  - Intel(R) 5000 Series Chipset PCI Express x4 Port 4 - 25E4 (driver 7.3.0.1010)
  - Intel(R) 5000 Series Chipset PCI Express x4 Port 5 - 25E5 (driver 7.3.0.1010)
  - Intel(R) 5000 Series Chipset PCI Express x4 Port 7 - 25E7 (driver 7.3.0.1010)
  - Intel(R) 5000 Series Chipset PCI Express x8 Port 6-7 - 25F9 (driver 7.3.0.1010)
  - Intel(R) 5000 Series Chipset Reserved Registers - 25F1 (driver 7.3.0.1010)
  - Intel(R) 5000 Series Chipset Reserved Registers - 25F3 (driver 7.3.0.1010)
  - Intel(R) 5000X Chipset Memory Controller Hub - 25C0 (driver 7.3.0.1010)
  - Intel(R) 6311ESB/6321ESB PCI Express Downstream Port E1 - 3510 (driver 7.3.0.1010)
  - Intel(R) 6311ESB/6321ESB PCI Express Downstream Port E2 - 3514 (driver 7.3.0.1010)
  - Intel(R) 6311ESB/6321ESB PCI Express to PCI-X Bridge - 350C (driver 7.3.0.1010)
  - Intel(R) 6311ESB/6321ESB PCI Express Upstream Port - 3500 (driver 7.3.0.1010)
  - Intel(R) 631xESB/6321ESB LPC Interface Controller - 2670 (driver 7.3.0.1010)
  - Intel(R) 631xESB/6321ESB PCI Express Root Port 1 - 2690 (driver 7.3.0.1010)
  - Intel(R) 82801 PCI Bridge - 244E (driver 7.0.0.1011)
  - ISAPNP Read Data Port
  - Logical Disk Manager
  - Microcode Update Device
  - Microsoft ACPI-Compliant System
  - Microsoft System Management BIOS Driver
  - Motherboard resources
  - Numeric data processor
  - PCI bus
  - PCI standard PCI-to-PCI bridge
  - PCI standard PCI-to-PCI bridge
  - Plug and Play Software Device Enumerator
  - Programmable interrupt controller
  - System board
  - System board
  - System board
  - System board
  - System CMOS/real time clock
  - System Management Device (driver 5.8.0.4952)
  - System timer
  - Terminal Server Device Redirector
  - Terminal Server Keyboard Driver
  - Terminal Server Mouse Driver
  - Volume Manager
+ Universal Serial Bus controllers
  - Generic USB Hub
  - Generic USB Hub
  - Intel(R) 631xESB/6321ESB USB Universal Host Controller - 2688 (driver 7.3.0.1010)
  - Intel(R) 631xESB/6321ESB USB Universal Host Controller - 2689 (driver 7.3.0.1010)
  - Intel(R) 631xESB/6321ESB USB Universal Host Controller - 268A (driver 7.3.0.1010)
  - Intel(R) 631xESB/6321ESB USB Universal Host Controller - 268B (driver 7.3.0.1010)
  - Intel(R) 631xESB/6321ESB USB2 Enhanced Host Controller - 268C (driver 7.3.0.1010)
  - USB Composite Device
  - USB Root Hub
  - USB Root Hub
  - USB Root Hub
  - USB Root Hub
  - USB Root Hub

as I can see variable: "u" is of type TUtilities how/when you create/destroy this object.
first try this:
if Assigned(u) then
  uid := u.logon('COWNER','1054','A',' ', 5, 0, 0,'')
else
  ShowMessage('not created');

and see what happens:)

ziolko.

I've found out that I may be running into Microsoft DEP "Data Execution Protection"
I changed the setting on the Dell Poweredge Server [Performance->advanced->data execution]
to only monitor essential windows services. Now I can run the app on the server,
but I cannot connect from clients. Still Receive ":The server has thrown an exception"
message at the client.
Any thoughts on this would be appreciated.

and there's no indication what was exception?
are you trying to connect to it remotelly using DCOM? if yes it maybe DCOM securty settings

ziolko.

Dcom works remotely with the VBScript program as I stated above
My Application , on the client still generates The Server Thre An Exception message.

and what if you turn DEP completely?

ziolko.

if it helped on local machine look at DEP settings of client's machine

ziolko.

I'm trying to find out from Dell, as we speak,how to do that on our Poweredge Server, unless you know of Registry fix or something

this is strange VBScript should use same DLLs and same interfaces so errors should be in both cases... but anyway try switching off DEP on client machine

ziolko.

I changed the DEP software setting on the client to ignore this particular application.
Also tried DEP settings that protected only 'essential operating system programs' on the client as well.

is it possible that you debbug your app on machine that fails? or at least change code of TUtilities to dump some log data so you can make sure that DefaultInterface is properly created

ziolko.

I do not have a development environment installed on that machine
I could send you the Delphi Type library siurce file
or the type library itself

you can alter type library so it dumps log info to text file then build it on your machine and deploy compiled app on client machine

ziolko.

I don't have any idea how to do that!

ok post here Encore_TLB.pas file

ziolko.

unit Encore_TLB;

// ************************************************************************ //
// WARNING                                                                    
// -------                                                                    
// The types declared in this file were generated from data read from a      
// Type Library. If this type library is explicitly or indirectly (via        
// another type library referring to this type library) re-imported, or the  
// 'Refresh' command of the Type Library Editor activated while editing the  
// Type Library, the contents of this file will be regenerated and all        
// manual modifications will be lost.                                        
// ************************************************************************ //

// PASTLWTR : 1.2
// File generated on 5/2/2008 5:28:01 AM from Type Library described below.

// ************************************************************************  //
// Type Lib: C:\Program Files\SYSPRO60\base\ENCORE.TLB (1)
// LIBID: {8C5EFC94-03E1-4129-B705-973023DB849E}
// LCID: 0
// Helpfile: C:\Program Files\SYSPRO60\base\SDK.CHM
// HelpString: SYSPRO e.net solutions Type Library
// DepndLst:
//   (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
// Errors:
//   Error creating palette bitmap of (TUtilities) : Access violation at address 00A15353 in module 'tlib70.bpl'. Read of address 00000000
//   Error creating palette bitmap of (TeQuery) : Access violation at address 00A15353 in module 'tlib70.bpl'. Read of address 00000000
//   Error creating palette bitmap of (TSetup) : Access violation at address 00A15353 in module 'tlib70.bpl'. Read of address 00000000
//   Error creating palette bitmap of (TTransaction) : Access violation at address 00A15353 in module 'tlib70.bpl'. Read of address 00000000
// ************************************************************************ //
// *************************************************************************//
// NOTE:                                                                      
// Items guarded by $IFDEF_LIVE_SERVER_AT_DESIGN_TIME are used by properties  
// which return objects that may need to be explicitly created via a function
// call prior to any access via the property. These items have been disabled  
// in order to prevent accidental use from within the object inspector. You  
// may enable them by defining LIVE_SERVER_AT_DESIGN_TIME or by selectively  
// removing them from the $IFDEF blocks. However, such items must still be    
// programmatically created via a method of the appropriate CoClass before    
// they can be used.                                                          
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface

uses Windows, ActiveX, Classes, Graphics, OleServer, StdVCL, Variants;
 

// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:        
//   Type Libraries     : LIBID_xxxx                                      
//   CoClasses          : CLASS_xxxx                                      
//   DISPInterfaces     : DIID_xxxx                                      
//   Non-DISP interfaces: IID_xxxx                                        
// *********************************************************************//
const
  // TypeLibrary Major and minor versions
  EncoreMajorVersion = 1;
  EncoreMinorVersion = 0;

  LIBID_Encore: TGUID = '{8C5EFC94-03E1-4129-B705-973023DB849E}';

  IID_IUtilities: TGUID = '{DE5E3827-E894-4D29-8791-3AB12021B9B9}';
  CLASS_Utilities: TGUID = '{FE41B1AD-0F2B-459C-9668-5FC6BBF093EE}';
  IID_IQuery: TGUID = '{9EE97AFC-5678-4248-ACEC-3555AE4CA703}';
  CLASS_Query: TGUID = '{60AFCED0-DF97-435B-BE5B-1691B727444E}';
  IID_ISetup: TGUID = '{B2272F56-2FC5-441A-96AE-594150F632A1}';
  CLASS_Setup: TGUID = '{C846F049-F07B-4D28-B2B2-3F6B904E9032}';
  IID_ITransaction: TGUID = '{1B1A7332-53BC-46A4-AC26-02F8C703A42B}';
  CLASS_Transaction: TGUID = '{073C394C-95B8-4973-83E9-4B2620BD32A5}';

// *********************************************************************//
// Declaration of Enumerations defined in Type Library                    
// *********************************************************************//
// Constants for enum Language
type
  Language = TOleEnum;
const
  AUTO = $00000000;
  ENGLISH_US = $00000001;
  FRENCH_CANADIAN = $00000002;
  DANISH = $00000003;
  DUTCH = $00000004;
  ENGLISH = $00000005;
  FINNISH = $00000006;
  FRENCH = $00000007;
  GERMAN = $00000008;
  ITALIAN = $00000009;
  NORWEGIAN = $0000000A;
  PORTUGUESE = $0000000B;
  SPANISH = $0000000C;
  SWEDISH = $0000000D;

// Constants for enum LogDetail
type
  LogDetail = TOleEnum;
const
  ldNoDebug = $00000000;
  ldDebug = $00000001;

// Constants for enum Instance
type
  Instance = TOleEnum;
const
  EncoreInstance_0 = $00000000;
  EncoreInstance_1 = $00000001;
  EncoreInstance_2 = $00000002;
  EncoreInstance_3 = $00000003;
  EncoreInstance_4 = $00000004;
  EncoreInstance_5 = $00000005;
  EncoreInstance_6 = $00000006;
  EncoreInstance_7 = $00000007;
  EncoreInstance_8 = $00000008;
  EncoreInstance_9 = $00000009;

type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
  IUtilities = interface;
  IUtilitiesDisp = dispinterface;
  IQuery = interface;
  IQueryDisp = dispinterface;
  ISetup = interface;
  ISetupDisp = dispinterface;
  ITransaction = interface;
  ITransactionDisp = dispinterface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library                      
// (NOTE: Here we map each CoClass to its Default Interface)              
// *********************************************************************//
  Utilities = IUtilities;
  Query = IQuery;
  Setup = ISetup;
  Transaction = ITransaction;


// *********************************************************************//
// Interface: IUtilities
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {DE5E3827-E894-4D29-8791-3AB12021B9B9}
// *********************************************************************//
  IUtilities = interface(IDispatch)
    ['{DE5E3827-E894-4D29-8791-3AB12021B9B9}']
    function Logon(const Operator: WideString; const OperatorPassword: WideString;
                   const CompanyId: WideString; const CompanyPassword: WideString;
                   LanguageCode: Language; LogLevel: LogDetail; EncoreInstance: Instance;
                   const XMLIn: WideString): WideString; safecall;
    function GetLogonProfile(const UserId: WideString): WideString; safecall;
    function Logoff(const UserId: WideString): Integer; safecall;
    function Run(const UserId: WideString; const BusinessObject: WideString;
                 const Parameter: WideString): WideString; safecall;
  end;

// *********************************************************************//
// DispIntf:  IUtilitiesDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {DE5E3827-E894-4D29-8791-3AB12021B9B9}
// *********************************************************************//
  IUtilitiesDisp = dispinterface
    ['{DE5E3827-E894-4D29-8791-3AB12021B9B9}']
    function Logon(const Operator: WideString; const OperatorPassword: WideString;
                   const CompanyId: WideString; const CompanyPassword: WideString;
                   LanguageCode: Language; LogLevel: LogDetail; EncoreInstance: Instance;
                   const XMLIn: WideString): WideString; dispid 0;
    function GetLogonProfile(const UserId: WideString): WideString; dispid 1;
    function Logoff(const UserId: WideString): Integer; dispid 2;
    function Run(const UserId: WideString; const BusinessObject: WideString;
                 const Parameter: WideString): WideString; dispid 3;
  end;

// *********************************************************************//
// Interface: IQuery
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {9EE97AFC-5678-4248-ACEC-3555AE4CA703}
// *********************************************************************//
  IQuery = interface(IDispatch)
    ['{9EE97AFC-5678-4248-ACEC-3555AE4CA703}']
    function Browse(const UserId: WideString; const XMLIn: WideString): WideString; safecall;
    function Fetch(const UserId: WideString; const XMLIn: WideString): WideString; safecall;
    function Query(const UserId: WideString; const BusinessObject: WideString;
                   const XMLIn: WideString): WideString; safecall;
    function NextKey(const UserId: WideString; const XMLIn: WideString): WideString; safecall;
    function PreviousKey(const UserId: WideString; const XMLIn: WideString): WideString; safecall;
  end;

// *********************************************************************//
// DispIntf:  IQueryDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {9EE97AFC-5678-4248-ACEC-3555AE4CA703}
// *********************************************************************//
  IQueryDisp = dispinterface
    ['{9EE97AFC-5678-4248-ACEC-3555AE4CA703}']
    function Browse(const UserId: WideString; const XMLIn: WideString): WideString; dispid 0;
    function Fetch(const UserId: WideString; const XMLIn: WideString): WideString; dispid 1;
    function Query(const UserId: WideString; const BusinessObject: WideString;
                   const XMLIn: WideString): WideString; dispid 2;
    function NextKey(const UserId: WideString; const XMLIn: WideString): WideString; dispid 3;
    function PreviousKey(const UserId: WideString; const XMLIn: WideString): WideString; dispid 4;
  end;

// *********************************************************************//
// Interface: ISetup
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {B2272F56-2FC5-441A-96AE-594150F632A1}
// *********************************************************************//
  ISetup = interface(IDispatch)
    ['{B2272F56-2FC5-441A-96AE-594150F632A1}']
    function Add(const UserId: WideString; const BusinessObject: WideString;
                 const XMLParameters: WideString; const XMLIn: WideString): WideString; safecall;
    function Update(const UserId: WideString; const BusinessObject: WideString;
                    const XMLParameters: WideString; const XMLIn: WideString): WideString; safecall;
    function Delete(const UserId: WideString; const BusinessObject: WideString;
                    const XMLParameters: WideString; const XMLIn: WideString): WideString; safecall;
  end;

// *********************************************************************//
// DispIntf:  ISetupDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {B2272F56-2FC5-441A-96AE-594150F632A1}
// *********************************************************************//
  ISetupDisp = dispinterface
    ['{B2272F56-2FC5-441A-96AE-594150F632A1}']
    function Add(const UserId: WideString; const BusinessObject: WideString;
                 const XMLParameters: WideString; const XMLIn: WideString): WideString; dispid 0;
    function Update(const UserId: WideString; const BusinessObject: WideString;
                    const XMLParameters: WideString; const XMLIn: WideString): WideString; dispid 1;
    function Delete(const UserId: WideString; const BusinessObject: WideString;
                    const XMLParameters: WideString; const XMLIn: WideString): WideString; dispid 2;
  end;

// *********************************************************************//
// Interface: ITransaction
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {1B1A7332-53BC-46A4-AC26-02F8C703A42B}
// *********************************************************************//
  ITransaction = interface(IDispatch)
    ['{1B1A7332-53BC-46A4-AC26-02F8C703A42B}']
    function Post(const UserId: WideString; const BusinessObject: WideString;
                  const XMLParameters: WideString; const XMLIn: WideString): WideString; safecall;
    function Build(const UserId: WideString; const BusinessObject: WideString;
                   const XMLIn: WideString): WideString; safecall;
  end;

// *********************************************************************//
// DispIntf:  ITransactionDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {1B1A7332-53BC-46A4-AC26-02F8C703A42B}
// *********************************************************************//
  ITransactionDisp = dispinterface
    ['{1B1A7332-53BC-46A4-AC26-02F8C703A42B}']
    function Post(const UserId: WideString; const BusinessObject: WideString;
                  const XMLParameters: WideString; const XMLIn: WideString): WideString; dispid 0;
    function Build(const UserId: WideString; const BusinessObject: WideString;
                   const XMLIn: WideString): WideString; dispid 1;
  end;

// *********************************************************************//
// The Class CoUtilities provides a Create and CreateRemote method to          
// create instances of the default interface IUtilities exposed by              
// the CoClass Utilities. The functions are intended to be used by            
// clients wishing to automate the CoClass objects exposed by the        
// server of this typelibrary.                                            
// *********************************************************************//
  CoUtilities = class
    class function Create: IUtilities;
    class function CreateRemote(const MachineName: string): IUtilities;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TUtilities
// Help String      : SYSPRO e.net solutions utilities class
// Default Interface: IUtilities
// Def. Intf. DISP? : No
// Event   Interface:
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TUtilitiesProperties= class;
{$ENDIF}
  TUtilities = class(TOleServer)
  private
    FIntf:        IUtilities;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TUtilitiesProperties;
    function      GetServerProperties: TUtilitiesProperties;
{$ENDIF}
    function      GetDefaultInterface: IUtilities;
  protected
    procedure InitServerData; override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: IUtilities);
    procedure Disconnect; override;
    function Logon(const Operator: WideString; const OperatorPassword: WideString;
                   const CompanyId: WideString; const CompanyPassword: WideString;
                   LanguageCode: Language; LogLevel: LogDetail; EncoreInstance: Instance;
                   const XMLIn: WideString): WideString;
    function GetLogonProfile(const UserId: WideString): WideString;
    function Logoff(const UserId: WideString): Integer;
    function Run(const UserId: WideString; const BusinessObject: WideString;
                 const Parameter: WideString): WideString;
    property DefaultInterface: IUtilities read GetDefaultInterface;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TUtilitiesProperties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TUtilities
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TUtilitiesProperties = class(TPersistent)
  private
    FServer:    TUtilities;
    function    GetDefaultInterface: IUtilities;
    constructor Create(AServer: TUtilities);
  protected
  public
    property DefaultInterface: IUtilities read GetDefaultInterface;
  published
  end;
{$ENDIF}


// *********************************************************************//
// The Class CoQuery provides a Create and CreateRemote method to          
// create instances of the default interface IQuery exposed by              
// the CoClass Query. The functions are intended to be used by            
// clients wishing to automate the CoClass objects exposed by the        
// server of this typelibrary.                                            
// *********************************************************************//
  CoQuery = class
    class function Create: IQuery;
    class function CreateRemote(const MachineName: string): IQuery;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TeQuery
// Help String      : SYSPRO e.net solutions query class
// Default Interface: IQuery
// Def. Intf. DISP? : No
// Event   Interface:
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TeQueryProperties= class;
{$ENDIF}
  TeQuery = class(TOleServer)
  private
    FIntf:        IQuery;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TeQueryProperties;
    function      GetServerProperties: TeQueryProperties;
{$ENDIF}
    function      GetDefaultInterface: IQuery;
  protected
    procedure InitServerData; override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: IQuery);
    procedure Disconnect; override;
    function Browse(const UserId: WideString; const XMLIn: WideString): WideString;
    function Fetch(const UserId: WideString; const XMLIn: WideString): WideString;
    function Query(const UserId: WideString; const BusinessObject: WideString;
                   const XMLIn: WideString): WideString;
    function NextKey(const UserId: WideString; const XMLIn: WideString): WideString;
    function PreviousKey(const UserId: WideString; const XMLIn: WideString): WideString;
    property DefaultInterface: IQuery read GetDefaultInterface;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TeQueryProperties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TeQuery
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TeQueryProperties = class(TPersistent)
  private
    FServer:    TeQuery;
    function    GetDefaultInterface: IQuery;
    constructor Create(AServer: TeQuery);
  protected
  public
    property DefaultInterface: IQuery read GetDefaultInterface;
  published
  end;
{$ENDIF}


// *********************************************************************//
// The Class CoSetup provides a Create and CreateRemote method to          
// create instances of the default interface ISetup exposed by              
// the CoClass Setup. The functions are intended to be used by            
// clients wishing to automate the CoClass objects exposed by the        
// server of this typelibrary.                                            
// *********************************************************************//
  CoSetup = class
    class function Create: ISetup;
    class function CreateRemote(const MachineName: string): ISetup;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TSetup
// Help String      : SYSPRO e.set solutions setup class
// Default Interface: ISetup
// Def. Intf. DISP? : No
// Event   Interface:
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TSetupProperties= class;
{$ENDIF}
  TSetup = class(TOleServer)
  private
    FIntf:        ISetup;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TSetupProperties;
    function      GetServerProperties: TSetupProperties;
{$ENDIF}
    function      GetDefaultInterface: ISetup;
  protected
    procedure InitServerData; override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: ISetup);
    procedure Disconnect; override;
    function Add(const UserId: WideString; const BusinessObject: WideString;
                 const XMLParameters: WideString; const XMLIn: WideString): WideString;
    function Update(const UserId: WideString; const BusinessObject: WideString;
                    const XMLParameters: WideString; const XMLIn: WideString): WideString;
    function Delete(const UserId: WideString; const BusinessObject: WideString;
                    const XMLParameters: WideString; const XMLIn: WideString): WideString;
    property DefaultInterface: ISetup read GetDefaultInterface;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TSetupProperties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TSetup
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TSetupProperties = class(TPersistent)
  private
    FServer:    TSetup;
    function    GetDefaultInterface: ISetup;
    constructor Create(AServer: TSetup);
  protected
  public
    property DefaultInterface: ISetup read GetDefaultInterface;
  published
  end;
{$ENDIF}


// *********************************************************************//
// The Class CoTransaction provides a Create and CreateRemote method to          
// create instances of the default interface ITransaction exposed by              
// the CoClass Transaction. The functions are intended to be used by            
// clients wishing to automate the CoClass objects exposed by the        
// server of this typelibrary.                                            
// *********************************************************************//
  CoTransaction = class
    class function Create: ITransaction;
    class function CreateRemote(const MachineName: string): ITransaction;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TTransaction
// Help String      : SYSPRO e.net solutions transaction class
// Default Interface: ITransaction
// Def. Intf. DISP? : No
// Event   Interface:
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TTransactionProperties= class;
{$ENDIF}
  TTransaction = class(TOleServer)
  private
    FIntf:        ITransaction;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TTransactionProperties;
    function      GetServerProperties: TTransactionProperties;
{$ENDIF}
    function      GetDefaultInterface: ITransaction;
  protected
    procedure InitServerData; override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: ITransaction);
    procedure Disconnect; override;
    function Post(const UserId: WideString; const BusinessObject: WideString;
                  const XMLParameters: WideString; const XMLIn: WideString): WideString;
    function Build(const UserId: WideString; const BusinessObject: WideString;
                   const XMLIn: WideString): WideString;
    property DefaultInterface: ITransaction read GetDefaultInterface;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TTransactionProperties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TTransaction
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TTransactionProperties = class(TPersistent)
  private
    FServer:    TTransaction;
    function    GetDefaultInterface: ITransaction;
    constructor Create(AServer: TTransaction);
  protected
  public
    property DefaultInterface: ITransaction read GetDefaultInterface;
  published
  end;
{$ENDIF}


procedure Register;

resourcestring
  dtlServerPage = 'ActiveX';

  dtlOcxPage = 'ActiveX';

implementation

uses ComObj;

class function CoUtilities.Create: IUtilities;
begin
  Result := CreateComObject(CLASS_Utilities) as IUtilities;
end;

class function CoUtilities.CreateRemote(const MachineName: string): IUtilities;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_Utilities) as IUtilities;
end;

procedure TUtilities.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{FE41B1AD-0F2B-459C-9668-5FC6BBF093EE}';
    IntfIID:   '{DE5E3827-E894-4D29-8791-3AB12021B9B9}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TUtilities.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as IUtilities;
  end;
end;

procedure TUtilities.ConnectTo(svrIntf: IUtilities);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TUtilities.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TUtilities.GetDefaultInterface: IUtilities;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TUtilities.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TUtilitiesProperties.Create(Self);
{$ENDIF}
end;

destructor TUtilities.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TUtilities.GetServerProperties: TUtilitiesProperties;
begin
  Result := FProps;
end;
{$ENDIF}

function TUtilities.Logon(const Operator: WideString; const OperatorPassword: WideString;
                          const CompanyId: WideString; const CompanyPassword: WideString;
                          LanguageCode: Language; LogLevel: LogDetail; EncoreInstance: Instance;
                          const XMLIn: WideString): WideString;
begin
  Result := DefaultInterface.Logon(Operator, OperatorPassword, CompanyId, CompanyPassword,
                                   LanguageCode, LogLevel, EncoreInstance, XMLIn);
end;

function TUtilities.GetLogonProfile(const UserId: WideString): WideString;
begin
  Result := DefaultInterface.GetLogonProfile(UserId);
end;

function TUtilities.Logoff(const UserId: WideString): Integer;
begin
  Result := DefaultInterface.Logoff(UserId);
end;

function TUtilities.Run(const UserId: WideString; const BusinessObject: WideString;
                        const Parameter: WideString): WideString;
begin
  Result := DefaultInterface.Run(UserId, BusinessObject, Parameter);
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TUtilitiesProperties.Create(AServer: TUtilities);
begin
  inherited Create;
  FServer := AServer;
end;

function TUtilitiesProperties.GetDefaultInterface: IUtilities;
begin
  Result := FServer.DefaultInterface;
end;

{$ENDIF}

class function CoQuery.Create: IQuery;
begin
  Result := CreateComObject(CLASS_Query) as IQuery;
end;

class function CoQuery.CreateRemote(const MachineName: string): IQuery;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_Query) as IQuery;
end;

procedure TeQuery.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{60AFCED0-DF97-435B-BE5B-1691B727444E}';
    IntfIID:   '{9EE97AFC-5678-4248-ACEC-3555AE4CA703}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TeQuery.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as IQuery;
  end;
end;

procedure TeQuery.ConnectTo(svrIntf: IQuery);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TeQuery.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TeQuery.GetDefaultInterface: IQuery;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TeQuery.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TeQueryProperties.Create(Self);
{$ENDIF}
end;

destructor TeQuery.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TeQuery.GetServerProperties: TeQueryProperties;
begin
  Result := FProps;
end;
{$ENDIF}

function TeQuery.Browse(const UserId: WideString; const XMLIn: WideString): WideString;
begin
  Result := DefaultInterface.Browse(UserId, XMLIn);
end;

function TeQuery.Fetch(const UserId: WideString; const XMLIn: WideString): WideString;
begin
  Result := DefaultInterface.Fetch(UserId, XMLIn);
end;

function TeQuery.Query(const UserId: WideString; const BusinessObject: WideString;
                       const XMLIn: WideString): WideString;
begin
  Result := DefaultInterface.Query(UserId, BusinessObject, XMLIn);
end;

function TeQuery.NextKey(const UserId: WideString; const XMLIn: WideString): WideString;
begin
  Result := DefaultInterface.NextKey(UserId, XMLIn);
end;

function TeQuery.PreviousKey(const UserId: WideString; const XMLIn: WideString): WideString;
begin
  Result := DefaultInterface.PreviousKey(UserId, XMLIn);
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TeQueryProperties.Create(AServer: TeQuery);
begin
  inherited Create;
  FServer := AServer;
end;

function TeQueryProperties.GetDefaultInterface: IQuery;
begin
  Result := FServer.DefaultInterface;
end;

{$ENDIF}

class function CoSetup.Create: ISetup;
begin
  Result := CreateComObject(CLASS_Setup) as ISetup;
end;

class function CoSetup.CreateRemote(const MachineName: string): ISetup;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_Setup) as ISetup;
end;

procedure TSetup.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{C846F049-F07B-4D28-B2B2-3F6B904E9032}';
    IntfIID:   '{B2272F56-2FC5-441A-96AE-594150F632A1}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TSetup.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as ISetup;
  end;
end;

procedure TSetup.ConnectTo(svrIntf: ISetup);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TSetup.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TSetup.GetDefaultInterface: ISetup;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TSetup.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TSetupProperties.Create(Self);
{$ENDIF}
end;

destructor TSetup.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TSetup.GetServerProperties: TSetupProperties;
begin
  Result := FProps;
end;
{$ENDIF}

function TSetup.Add(const UserId: WideString; const BusinessObject: WideString;
                    const XMLParameters: WideString; const XMLIn: WideString): WideString;
begin
  Result := DefaultInterface.Add(UserId, BusinessObject, XMLParameters, XMLIn);
end;

function TSetup.Update(const UserId: WideString; const BusinessObject: WideString;
                       const XMLParameters: WideString; const XMLIn: WideString): WideString;
begin
  Result := DefaultInterface.Update(UserId, BusinessObject, XMLParameters, XMLIn);
end;

function TSetup.Delete(const UserId: WideString; const BusinessObject: WideString;
                       const XMLParameters: WideString; const XMLIn: WideString): WideString;
begin
  Result := DefaultInterface.Delete(UserId, BusinessObject, XMLParameters, XMLIn);
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TSetupProperties.Create(AServer: TSetup);
begin
  inherited Create;
  FServer := AServer;
end;

function TSetupProperties.GetDefaultInterface: ISetup;
begin
  Result := FServer.DefaultInterface;
end;

{$ENDIF}

class function CoTransaction.Create: ITransaction;
begin
  Result := CreateComObject(CLASS_Transaction) as ITransaction;
end;

class function CoTransaction.CreateRemote(const MachineName: string): ITransaction;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_Transaction) as ITransaction;
end;

procedure TTransaction.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{073C394C-95B8-4973-83E9-4B2620BD32A5}';
    IntfIID:   '{1B1A7332-53BC-46A4-AC26-02F8C703A42B}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TTransaction.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as ITransaction;
  end;
end;

procedure TTransaction.ConnectTo(svrIntf: ITransaction);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TTransaction.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TTransaction.GetDefaultInterface: ITransaction;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TTransaction.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TTransactionProperties.Create(Self);
{$ENDIF}
end;

destructor TTransaction.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TTransaction.GetServerProperties: TTransactionProperties;
begin
  Result := FProps;
end;
{$ENDIF}

function TTransaction.Post(const UserId: WideString; const BusinessObject: WideString;
                           const XMLParameters: WideString; const XMLIn: WideString): WideString;
begin
  Result := DefaultInterface.Post(UserId, BusinessObject, XMLParameters, XMLIn);
end;

function TTransaction.Build(const UserId: WideString; const BusinessObject: WideString;
                            const XMLIn: WideString): WideString;
begin
  Result := DefaultInterface.Build(UserId, BusinessObject, XMLIn);
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TTransactionProperties.Create(AServer: TTransaction);
begin
  inherited Create;
  FServer := AServer;
end;

function TTransactionProperties.GetDefaultInterface: ITransaction;
begin
  Result := FServer.DefaultInterface;
end;

{$ENDIF}

procedure Register;
begin
  RegisterComponents(dtlServerPage, [TUtilities, TeQuery, TSetup, TTransaction]);
end;

end.

ok, I'll take a look at it this evening and post here version for test

ziolko.

first thing is that Logon method has parameter LogDetail set it to "ldDebug"
u.Logon('','','','',LANG_NEUTRAL, ldDebug, EncoreInstance_0, '');
and check documentation where you can read logs

but any way here's modified version of TUtilites which will dump some info to text file (c:\utilities.log) when u will be destroyed, so make sure that it is properly destroyed:) for instance like this:

procedure TForm1.Button1Click(Sender: TObject);
var u: TUtilities;
begin
  u := TUtilities.Create(nil);
  try
    u.Logon('','','','',LANG_NEUTRAL, ldDebug, EncoreInstance_0, '');
  except
    u.Free;
  end;
end;

here's modified unit:

unit Encore_TLB;

// ************************************************************************ //
// WARNING                                                                    
// -------                                                                    
// The types declared in this file were generated from data read from a      
// Type Library. If this type library is explicitly or indirectly (via        
// another type library referring to this type library) re-imported, or the
// 'Refresh' command of the Type Library Editor activated while editing the  
// Type Library, the contents of this file will be regenerated and all        
// manual modifications will be lost.                                        
// ************************************************************************ //

// PASTLWTR : 1.2
// File generated on 5/2/2008 5:28:01 AM from Type Library described below.

// ************************************************************************  //
// Type Lib: C:\Program Files\SYSPRO60\base\ENCORE.TLB (1)
// LIBID: {8C5EFC94-03E1-4129-B705-973023DB849E}
// LCID: 0
// Helpfile: C:\Program Files\SYSPRO60\base\SDK.CHM
// HelpString: SYSPRO e.net solutions Type Library
// DepndLst:
//   (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
// Errors:
//   Error creating palette bitmap of (TUtilities) : Access violation at address 00A15353 in module 'tlib70.bpl'. Read of address 00000000
//   Error creating palette bitmap of (TeQuery) : Access violation at address 00A15353 in module 'tlib70.bpl'. Read of address 00000000
//   Error creating palette bitmap of (TSetup) : Access violation at address 00A15353 in module 'tlib70.bpl'. Read of address 00000000
//   Error creating palette bitmap of (TTransaction) : Access violation at address 00A15353 in module 'tlib70.bpl'. Read of address 00000000
// ************************************************************************ //
// *************************************************************************//
// NOTE:
// Items guarded by $IFDEF_LIVE_SERVER_AT_DESIGN_TIME are used by properties
// which return objects that may need to be explicitly created via a function
// call prior to any access via the property. These items have been disabled
// in order to prevent accidental use from within the object inspector. You
// may enable them by defining LIVE_SERVER_AT_DESIGN_TIME or by selectively
// removing them from the $IFDEF blocks. However, such items must still be
// programmatically created via a method of the appropriate CoClass before
// they can be used.
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface

uses Windows, ActiveX, Classes, Graphics, OleServer, StdVCL, Variants;
 

// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:        
//   Type Libraries     : LIBID_xxxx                                      
//   CoClasses          : CLASS_xxxx                                      
//   DISPInterfaces     : DIID_xxxx                                      
//   Non-DISP interfaces: IID_xxxx                                        
// *********************************************************************//
const
  // TypeLibrary Major and minor versions
  EncoreMajorVersion = 1;
  EncoreMinorVersion = 0;

  LIBID_Encore: TGUID = '{8C5EFC94-03E1-4129-B705-973023DB849E}';

  IID_IUtilities: TGUID = '{DE5E3827-E894-4D29-8791-3AB12021B9B9}';
  CLASS_Utilities: TGUID = '{FE41B1AD-0F2B-459C-9668-5FC6BBF093EE}';
  IID_IQuery: TGUID = '{9EE97AFC-5678-4248-ACEC-3555AE4CA703}';
  CLASS_Query: TGUID = '{60AFCED0-DF97-435B-BE5B-1691B727444E}';
  IID_ISetup: TGUID = '{B2272F56-2FC5-441A-96AE-594150F632A1}';
  CLASS_Setup: TGUID = '{C846F049-F07B-4D28-B2B2-3F6B904E9032}';
  IID_ITransaction: TGUID = '{1B1A7332-53BC-46A4-AC26-02F8C703A42B}';
  CLASS_Transaction: TGUID = '{073C394C-95B8-4973-83E9-4B2620BD32A5}';

// *********************************************************************//
// Declaration of Enumerations defined in Type Library                    
// *********************************************************************//
// Constants for enum Language
type
  Language = TOleEnum;
const
  AUTO = $00000000;
  ENGLISH_US = $00000001;
  FRENCH_CANADIAN = $00000002;
  DANISH = $00000003;
  DUTCH = $00000004;
  ENGLISH = $00000005;
  FINNISH = $00000006;
  FRENCH = $00000007;
  GERMAN = $00000008;
  ITALIAN = $00000009;
  NORWEGIAN = $0000000A;
  PORTUGUESE = $0000000B;
  SPANISH = $0000000C;
  SWEDISH = $0000000D;

// Constants for enum LogDetail
type
  LogDetail = TOleEnum;
const
  ldNoDebug = $00000000;
  ldDebug = $00000001;

// Constants for enum Instance
type
  Instance = TOleEnum;
const
  EncoreInstance_0 = $00000000;
  EncoreInstance_1 = $00000001;
  EncoreInstance_2 = $00000002;
  EncoreInstance_3 = $00000003;
  EncoreInstance_4 = $00000004;
  EncoreInstance_5 = $00000005;
  EncoreInstance_6 = $00000006;
  EncoreInstance_7 = $00000007;
  EncoreInstance_8 = $00000008;
  EncoreInstance_9 = $00000009;

type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
  IUtilities = interface;
  IUtilitiesDisp = dispinterface;
  IQuery = interface;
  IQueryDisp = dispinterface;
  ISetup = interface;
  ISetupDisp = dispinterface;
  ITransaction = interface;
  ITransactionDisp = dispinterface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library                      
// (NOTE: Here we map each CoClass to its Default Interface)              
// *********************************************************************//
  Utilities = IUtilities;
  Query = IQuery;
  Setup = ISetup;
  Transaction = ITransaction;


// *********************************************************************//
// Interface: IUtilities
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {DE5E3827-E894-4D29-8791-3AB12021B9B9}
// *********************************************************************//
  IUtilities = interface(IDispatch)
    ['{DE5E3827-E894-4D29-8791-3AB12021B9B9}']
    function Logon(const Operator: WideString; const OperatorPassword: WideString;
                   const CompanyId: WideString; const CompanyPassword: WideString;
                   LanguageCode: Language; LogLevel: LogDetail; EncoreInstance: Instance;
                   const XMLIn: WideString): WideString; safecall;
    function GetLogonProfile(const UserId: WideString): WideString; safecall;
    function Logoff(const UserId: WideString): Integer; safecall;
    function Run(const UserId: WideString; const BusinessObject: WideString;
                 const Parameter: WideString): WideString; safecall;
  end;

// *********************************************************************//
// DispIntf:  IUtilitiesDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {DE5E3827-E894-4D29-8791-3AB12021B9B9}
// *********************************************************************//
  IUtilitiesDisp = dispinterface
    ['{DE5E3827-E894-4D29-8791-3AB12021B9B9}']
    function Logon(const Operator: WideString; const OperatorPassword: WideString;
                   const CompanyId: WideString; const CompanyPassword: WideString;
                   LanguageCode: Language; LogLevel: LogDetail; EncoreInstance: Instance;
                   const XMLIn: WideString): WideString; dispid 0;
    function GetLogonProfile(const UserId: WideString): WideString; dispid 1;
    function Logoff(const UserId: WideString): Integer; dispid 2;
    function Run(const UserId: WideString; const BusinessObject: WideString;
                 const Parameter: WideString): WideString; dispid 3;
  end;

// *********************************************************************//
// Interface: IQuery
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {9EE97AFC-5678-4248-ACEC-3555AE4CA703}
// *********************************************************************//
  IQuery = interface(IDispatch)
    ['{9EE97AFC-5678-4248-ACEC-3555AE4CA703}']
    function Browse(const UserId: WideString; const XMLIn: WideString): WideString; safecall;
    function Fetch(const UserId: WideString; const XMLIn: WideString): WideString; safecall;
    function Query(const UserId: WideString; const BusinessObject: WideString;
                   const XMLIn: WideString): WideString; safecall;
    function NextKey(const UserId: WideString; const XMLIn: WideString): WideString; safecall;
    function PreviousKey(const UserId: WideString; const XMLIn: WideString): WideString; safecall;
  end;

// *********************************************************************//
// DispIntf:  IQueryDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {9EE97AFC-5678-4248-ACEC-3555AE4CA703}
// *********************************************************************//
  IQueryDisp = dispinterface
    ['{9EE97AFC-5678-4248-ACEC-3555AE4CA703}']
    function Browse(const UserId: WideString; const XMLIn: WideString): WideString; dispid 0;
    function Fetch(const UserId: WideString; const XMLIn: WideString): WideString; dispid 1;
    function Query(const UserId: WideString; const BusinessObject: WideString;
                   const XMLIn: WideString): WideString; dispid 2;
    function NextKey(const UserId: WideString; const XMLIn: WideString): WideString; dispid 3;
    function PreviousKey(const UserId: WideString; const XMLIn: WideString): WideString; dispid 4;
  end;

// *********************************************************************//
// Interface: ISetup
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {B2272F56-2FC5-441A-96AE-594150F632A1}
// *********************************************************************//
  ISetup = interface(IDispatch)
    ['{B2272F56-2FC5-441A-96AE-594150F632A1}']
    function Add(const UserId: WideString; const BusinessObject: WideString;
                 const XMLParameters: WideString; const XMLIn: WideString): WideString; safecall;
    function Update(const UserId: WideString; const BusinessObject: WideString;
                    const XMLParameters: WideString; const XMLIn: WideString): WideString; safecall;
    function Delete(const UserId: WideString; const BusinessObject: WideString;
                    const XMLParameters: WideString; const XMLIn: WideString): WideString; safecall;
  end;

// *********************************************************************//
// DispIntf:  ISetupDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {B2272F56-2FC5-441A-96AE-594150F632A1}
// *********************************************************************//
  ISetupDisp = dispinterface
    ['{B2272F56-2FC5-441A-96AE-594150F632A1}']
    function Add(const UserId: WideString; const BusinessObject: WideString;
                 const XMLParameters: WideString; const XMLIn: WideString): WideString; dispid 0;
    function Update(const UserId: WideString; const BusinessObject: WideString;
                    const XMLParameters: WideString; const XMLIn: WideString): WideString; dispid 1;
    function Delete(const UserId: WideString; const BusinessObject: WideString;
                    const XMLParameters: WideString; const XMLIn: WideString): WideString; dispid 2;
  end;

// *********************************************************************//
// Interface: ITransaction
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {1B1A7332-53BC-46A4-AC26-02F8C703A42B}
// *********************************************************************//
  ITransaction = interface(IDispatch)
    ['{1B1A7332-53BC-46A4-AC26-02F8C703A42B}']
    function Post(const UserId: WideString; const BusinessObject: WideString;
                  const XMLParameters: WideString; const XMLIn: WideString): WideString; safecall;
    function Build(const UserId: WideString; const BusinessObject: WideString;
                   const XMLIn: WideString): WideString; safecall;
  end;

// *********************************************************************//
// DispIntf:  ITransactionDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {1B1A7332-53BC-46A4-AC26-02F8C703A42B}
// *********************************************************************//
  ITransactionDisp = dispinterface
    ['{1B1A7332-53BC-46A4-AC26-02F8C703A42B}']
    function Post(const UserId: WideString; const BusinessObject: WideString;
                  const XMLParameters: WideString; const XMLIn: WideString): WideString; dispid 0;
    function Build(const UserId: WideString; const BusinessObject: WideString;
                   const XMLIn: WideString): WideString; dispid 1;
  end;

// *********************************************************************//
// The Class CoUtilities provides a Create and CreateRemote method to          
// create instances of the default interface IUtilities exposed by              
// the CoClass Utilities. The functions are intended to be used by            
// clients wishing to automate the CoClass objects exposed by the        
// server of this typelibrary.                                            
// *********************************************************************//
  CoUtilities = class
    class function Create: IUtilities;
    class function CreateRemote(const MachineName: string): IUtilities;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TUtilities
// Help String      : SYSPRO e.net solutions utilities class
// Default Interface: IUtilities
// Def. Intf. DISP? : No
// Event   Interface:
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TUtilitiesProperties= class;
{$ENDIF}
  TUtilities = class(TOleServer)
  private
    FLog: TStrings;
    FIntf:        IUtilities;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TUtilitiesProperties;
    function      GetServerProperties: TUtilitiesProperties;
{$ENDIF}
    function      GetDefaultInterface: IUtilities;
    procedure Log(AMessage: string);
  protected
    procedure InitServerData; override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: IUtilities);
    procedure Disconnect; override;
    function Logon(const Operator: WideString; const OperatorPassword: WideString;
                   const CompanyId: WideString; const CompanyPassword: WideString;
                   LanguageCode: Language; LogLevel: LogDetail; EncoreInstance: Instance;
                   const XMLIn: WideString): WideString;
    function GetLogonProfile(const UserId: WideString): WideString;
    function Logoff(const UserId: WideString): Integer;
    function Run(const UserId: WideString; const BusinessObject: WideString;
                 const Parameter: WideString): WideString;
    property DefaultInterface: IUtilities read GetDefaultInterface;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TUtilitiesProperties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TUtilities
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TUtilitiesProperties = class(TPersistent)
  private
    FServer:    TUtilities;
    function    GetDefaultInterface: IUtilities;
    constructor Create(AServer: TUtilities);
  protected
  public
    property DefaultInterface: IUtilities read GetDefaultInterface;
  published
  end;
{$ENDIF}


// *********************************************************************//
// The Class CoQuery provides a Create and CreateRemote method to          
// create instances of the default interface IQuery exposed by              
// the CoClass Query. The functions are intended to be used by            
// clients wishing to automate the CoClass objects exposed by the        
// server of this typelibrary.                                            
// *********************************************************************//
  CoQuery = class
    class function Create: IQuery;
    class function CreateRemote(const MachineName: string): IQuery;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TeQuery
// Help String      : SYSPRO e.net solutions query class
// Default Interface: IQuery
// Def. Intf. DISP? : No
// Event   Interface:
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TeQueryProperties= class;
{$ENDIF}
  TeQuery = class(TOleServer)
  private
    FIntf:        IQuery;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TeQueryProperties;
    function      GetServerProperties: TeQueryProperties;
{$ENDIF}
    function      GetDefaultInterface: IQuery;
  protected
    procedure InitServerData; override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: IQuery);
    procedure Disconnect; override;
    function Browse(const UserId: WideString; const XMLIn: WideString): WideString;
    function Fetch(const UserId: WideString; const XMLIn: WideString): WideString;
    function Query(const UserId: WideString; const BusinessObject: WideString;
                   const XMLIn: WideString): WideString;
    function NextKey(const UserId: WideString; const XMLIn: WideString): WideString;
    function PreviousKey(const UserId: WideString; const XMLIn: WideString): WideString;
    property DefaultInterface: IQuery read GetDefaultInterface;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TeQueryProperties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TeQuery
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TeQueryProperties = class(TPersistent)
  private
    FServer:    TeQuery;
    function    GetDefaultInterface: IQuery;
    constructor Create(AServer: TeQuery);
  protected
  public
    property DefaultInterface: IQuery read GetDefaultInterface;
  published
  end;
{$ENDIF}


// *********************************************************************//
// The Class CoSetup provides a Create and CreateRemote method to          
// create instances of the default interface ISetup exposed by              
// the CoClass Setup. The functions are intended to be used by            
// clients wishing to automate the CoClass objects exposed by the        
// server of this typelibrary.                                            
// *********************************************************************//
  CoSetup = class
    class function Create: ISetup;
    class function CreateRemote(const MachineName: string): ISetup;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TSetup
// Help String      : SYSPRO e.set solutions setup class
// Default Interface: ISetup
// Def. Intf. DISP? : No
// Event   Interface:
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TSetupProperties= class;
{$ENDIF}
  TSetup = class(TOleServer)
  private
    FIntf:        ISetup;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TSetupProperties;
    function      GetServerProperties: TSetupProperties;
{$ENDIF}
    function      GetDefaultInterface: ISetup;
  protected
    procedure InitServerData; override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: ISetup);
    procedure Disconnect; override;
    function Add(const UserId: WideString; const BusinessObject: WideString;
                 const XMLParameters: WideString; const XMLIn: WideString): WideString;
    function Update(const UserId: WideString; const BusinessObject: WideString;
                    const XMLParameters: WideString; const XMLIn: WideString): WideString;
    function Delete(const UserId: WideString; const BusinessObject: WideString;
                    const XMLParameters: WideString; const XMLIn: WideString): WideString;
    property DefaultInterface: ISetup read GetDefaultInterface;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TSetupProperties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TSetup
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TSetupProperties = class(TPersistent)
  private
    FServer:    TSetup;
    function    GetDefaultInterface: ISetup;
    constructor Create(AServer: TSetup);
  protected
  public
    property DefaultInterface: ISetup read GetDefaultInterface;
  published
  end;
{$ENDIF}


// *********************************************************************//
// The Class CoTransaction provides a Create and CreateRemote method to          
// create instances of the default interface ITransaction exposed by              
// the CoClass Transaction. The functions are intended to be used by            
// clients wishing to automate the CoClass objects exposed by the        
// server of this typelibrary.                                            
// *********************************************************************//
  CoTransaction = class
    class function Create: ITransaction;
    class function CreateRemote(const MachineName: string): ITransaction;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TTransaction
// Help String      : SYSPRO e.net solutions transaction class
// Default Interface: ITransaction
// Def. Intf. DISP? : No
// Event   Interface:
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TTransactionProperties= class;
{$ENDIF}
  TTransaction = class(TOleServer)
  private
    FIntf:        ITransaction;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TTransactionProperties;
    function      GetServerProperties: TTransactionProperties;
{$ENDIF}
    function      GetDefaultInterface: ITransaction;
  protected
    procedure InitServerData; override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: ITransaction);
    procedure Disconnect; override;
    function Post(const UserId: WideString; const BusinessObject: WideString;
                  const XMLParameters: WideString; const XMLIn: WideString): WideString;
    function Build(const UserId: WideString; const BusinessObject: WideString;
                   const XMLIn: WideString): WideString;
    property DefaultInterface: ITransaction read GetDefaultInterface;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TTransactionProperties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TTransaction
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TTransactionProperties = class(TPersistent)
  private
    FServer:    TTransaction;
    function    GetDefaultInterface: ITransaction;
    constructor Create(AServer: TTransaction);
  protected
  public
    property DefaultInterface: ITransaction read GetDefaultInterface;
  published
  end;
{$ENDIF}


procedure Register;

resourcestring
  dtlServerPage = 'ActiveX';

  dtlOcxPage = 'ActiveX';

implementation

uses ComObj, SysUtils;

class function CoUtilities.Create: IUtilities;
begin
  Result := CreateComObject(CLASS_Utilities) as IUtilities;
end;

class function CoUtilities.CreateRemote(const MachineName: string): IUtilities;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_Utilities) as IUtilities;
end;

procedure TUtilities.Log(AMessage: string);
begin
  if Assigned(FLog) then
    FLog.Add(AMessage);
end;

procedure TUtilities.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{FE41B1AD-0F2B-459C-9668-5FC6BBF093EE}';
    IntfIID:   '{DE5E3827-E894-4D29-8791-3AB12021B9B9}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TUtilities.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as IUtilities;
  end;
end;

procedure TUtilities.ConnectTo(svrIntf: IUtilities);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TUtilities.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TUtilities.GetDefaultInterface: IUtilities;
begin
  Log('GetDefaultInterface');
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
  Log('Default interface assigned: ' + BoolToStr(Assigned(FIntf), True));
end;

constructor TUtilities.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FLog := TStringList.Create;
  Log('Create');
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TUtilitiesProperties.Create(Self);
{$ENDIF}
end;

destructor TUtilities.Destroy;
begin
  Log('Destroy');
  FLog.SaveToFile('c:\utilities.log');
  FreeAndNil(FLog);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TUtilities.GetServerProperties: TUtilitiesProperties;
begin
  Result := FProps;
end;
{$ENDIF}

function TUtilities.Logon(const Operator: WideString; const OperatorPassword: WideString;
                          const CompanyId: WideString; const CompanyPassword: WideString;
                          LanguageCode: Language; LogLevel: LogDetail; EncoreInstance: Instance;
                          const XMLIn: WideString): WideString;
begin
  Log('Logon');
  try
    Result := DefaultInterface.Logon(Operator, OperatorPassword, CompanyId, CompanyPassword,
                                     LanguageCode, LogLevel, EncoreInstance, XMLIn);
    Log('Logon result: ' + Result);
  except
    on E: Exception do begin
      Log('Logon result: ' + E.Message);
      raise;
    end;
  end;
end;

function TUtilities.GetLogonProfile(const UserId: WideString): WideString;
begin
  Log('GetLogonProfile');
  try
    Result := DefaultInterface.GetLogonProfile(UserId);
    Log('GetLogonProfile result: ' + Result);
  except
    on E: Exception do begin
      Log('GetLogonProfile result: ' + E.Message);
      raise;
    end;
  end;
end;

function TUtilities.Logoff(const UserId: WideString): Integer;
begin
  Log('Logoff');
  try
    Result := DefaultInterface.Logoff(UserId);
    Log('Logoff result: ' + IntToStr(Result));
  except
    on E: Exception do begin
      Log('Logoff result: ' + E.Message);
      raise;
    end;
  end;
end;

function TUtilities.Run(const UserId: WideString; const BusinessObject: WideString;
                        const Parameter: WideString): WideString;
begin
  Log('Logoff');
  try
    Result := DefaultInterface.Run(UserId, BusinessObject, Parameter);
    Log('Run result: ' + Result);
  except
    on E: Exception do begin
      Log('Run result: ' + E.Message);
      raise;
    end;
  end;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TUtilitiesProperties.Create(AServer: TUtilities);
begin
  inherited Create;
  FServer := AServer;
end;

function TUtilitiesProperties.GetDefaultInterface: IUtilities;
begin
  Result := FServer.DefaultInterface;
end;

{$ENDIF}

class function CoQuery.Create: IQuery;
begin
  Result := CreateComObject(CLASS_Query) as IQuery;
end;

class function CoQuery.CreateRemote(const MachineName: string): IQuery;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_Query) as IQuery;
end;

procedure TeQuery.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{60AFCED0-DF97-435B-BE5B-1691B727444E}';
    IntfIID:   '{9EE97AFC-5678-4248-ACEC-3555AE4CA703}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TeQuery.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as IQuery;
  end;
end;

procedure TeQuery.ConnectTo(svrIntf: IQuery);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TeQuery.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TeQuery.GetDefaultInterface: IQuery;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TeQuery.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TeQueryProperties.Create(Self);
{$ENDIF}
end;

destructor TeQuery.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TeQuery.GetServerProperties: TeQueryProperties;
begin
  Result := FProps;
end;
{$ENDIF}

function TeQuery.Browse(const UserId: WideString; const XMLIn: WideString): WideString;
begin
  Result := DefaultInterface.Browse(UserId, XMLIn);
end;

function TeQuery.Fetch(const UserId: WideString; const XMLIn: WideString): WideString;
begin
  Result := DefaultInterface.Fetch(UserId, XMLIn);
end;

function TeQuery.Query(const UserId: WideString; const BusinessObject: WideString;
                       const XMLIn: WideString): WideString;
begin
  Result := DefaultInterface.Query(UserId, BusinessObject, XMLIn);
end;

function TeQuery.NextKey(const UserId: WideString; const XMLIn: WideString): WideString;
begin
  Result := DefaultInterface.NextKey(UserId, XMLIn);
end;

function TeQuery.PreviousKey(const UserId: WideString; const XMLIn: WideString): WideString;
begin
  Result := DefaultInterface.PreviousKey(UserId, XMLIn);
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TeQueryProperties.Create(AServer: TeQuery);
begin
  inherited Create;
  FServer := AServer;
end;

function TeQueryProperties.GetDefaultInterface: IQuery;
begin
  Result := FServer.DefaultInterface;
end;

{$ENDIF}

class function CoSetup.Create: ISetup;
begin
  Result := CreateComObject(CLASS_Setup) as ISetup;
end;

class function CoSetup.CreateRemote(const MachineName: string): ISetup;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_Setup) as ISetup;
end;

procedure TSetup.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{C846F049-F07B-4D28-B2B2-3F6B904E9032}';
    IntfIID:   '{B2272F56-2FC5-441A-96AE-594150F632A1}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TSetup.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as ISetup;
  end;
end;

procedure TSetup.ConnectTo(svrIntf: ISetup);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TSetup.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TSetup.GetDefaultInterface: ISetup;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TSetup.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TSetupProperties.Create(Self);
{$ENDIF}
end;

destructor TSetup.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TSetup.GetServerProperties: TSetupProperties;
begin
  Result := FProps;
end;
{$ENDIF}

function TSetup.Add(const UserId: WideString; const BusinessObject: WideString;
                    const XMLParameters: WideString; const XMLIn: WideString): WideString;
begin
  Result := DefaultInterface.Add(UserId, BusinessObject, XMLParameters, XMLIn);
end;

function TSetup.Update(const UserId: WideString; const BusinessObject: WideString;
                       const XMLParameters: WideString; const XMLIn: WideString): WideString;
begin
  Result := DefaultInterface.Update(UserId, BusinessObject, XMLParameters, XMLIn);
end;

function TSetup.Delete(const UserId: WideString; const BusinessObject: WideString;
                       const XMLParameters: WideString; const XMLIn: WideString): WideString;
begin
  Result := DefaultInterface.Delete(UserId, BusinessObject, XMLParameters, XMLIn);
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TSetupProperties.Create(AServer: TSetup);
begin
  inherited Create;
  FServer := AServer;
end;

function TSetupProperties.GetDefaultInterface: ISetup;
begin
  Result := FServer.DefaultInterface;
end;

{$ENDIF}

class function CoTransaction.Create: ITransaction;
begin
  Result := CreateComObject(CLASS_Transaction) as ITransaction;
end;

class function CoTransaction.CreateRemote(const MachineName: string): ITransaction;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_Transaction) as ITransaction;
end;

procedure TTransaction.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{073C394C-95B8-4973-83E9-4B2620BD32A5}';
    IntfIID:   '{1B1A7332-53BC-46A4-AC26-02F8C703A42B}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TTransaction.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as ITransaction;
  end;
end;

procedure TTransaction.ConnectTo(svrIntf: ITransaction);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TTransaction.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TTransaction.GetDefaultInterface: ITransaction;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TTransaction.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TTransactionProperties.Create(Self);
{$ENDIF}
end;

destructor TTransaction.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TTransaction.GetServerProperties: TTransactionProperties;
begin
  Result := FProps;
end;
{$ENDIF}

function TTransaction.Post(const UserId: WideString; const BusinessObject: WideString;
                           const XMLParameters: WideString; const XMLIn: WideString): WideString;
begin
  Result := DefaultInterface.Post(UserId, BusinessObject, XMLParameters, XMLIn);
end;

function TTransaction.Build(const UserId: WideString; const BusinessObject: WideString;
                            const XMLIn: WideString): WideString;
begin
  Result := DefaultInterface.Build(UserId, BusinessObject, XMLIn);
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TTransactionProperties.Create(AServer: TTransaction);
begin
  inherited Create;
  FServer := AServer;
end;

function TTransactionProperties.GetDefaultInterface: ITransaction;
begin
  Result := FServer.DefaultInterface;
end;

{$ENDIF}

procedure Register;
begin
  RegisterComponents(dtlServerPage, [TUtilities, TeQuery, TSetup, TTransaction]);
end;

end.

ziolko.

Thanks for all your help so far!
I made the changes ..
the Utiites log file contains 2 lines:
Create
Destroy


I've also learned that the business server generates a log when these ENet objects are used
   Date       Time     Method              Object Status    Operator UserID
2008-08-13 12:08:17:23 Logon           S A COMLGN 000000000 BEM      961DBDC23FE23945801F803A15F9C14F0
2008-08-13 13:18:49:42 Logon           S A COMLGN 000000000 BEM      D2E4328B3B7C3F409FCA098D0460C9FA0
2008-08-14 05:45:29:36 Logon             A COMLGN 000100006                                                                                  

It does indicate that my app, as of yesterday is getting to the server and a login is generated , but something gets lost on returning the user ID to my application on the client

I am in Pacific Time Zone and need to leave for work..will be back on this in a few hours

Note:
I've found out that there is a BIOS  processor switch that will turn off hardware data execution protection. known as the XD switch.
Turning this off fixed the problem.
However, I would think that it would be preferable to run the code regardless of the type of processor.
I'd like to see if we can solve this problem..since you've gone so far already.
I am ready to award  a portion 0f the points, however , if you feel you've had enough.

There have been a few quite serious  issues over the recent years that I've been involved with their software. I have passed it on to our Syspro Representative.
Thanks for your effort. You have renewed my faith in this site.

glad I could help at least a little bit:)

ziolko.

From another source I've read:
"The fundamental difference between the VB script (which returns the GUID) and and the  appliccation is that the script uses late binding whereas the others each use early binding"

Can you enlightenme on the difference and how maybe this might affect the code that we experimented with. I have no idea what the practical difference is in terms of Delphi

yeah it's true VBScript always uses late binding but it's not true that every application uses early binding. for example in Delphi you can choose which method you use, in this case we used early binding.

in simplest words late binding uses OleVariant while early binding uses interface types, of course that's not only difference. if you want some indepth info about COM programming I strongly suggest reading book by Eric Harmon: "Delphi COM programming". it's pretty old but if you want understand basic concepts of COM it's a must-read.

ziolko.