Definition of com-COM interface

Unit midserver_tlb;

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

// Pastlwtr: 1.2
// File generated on 23:08:49 from Type Library described below.

//************************************** **********************************//
// Type Lib: C: \ Documents ents and Settings \ Administrator \ Desktop \ madissvr \ Server \ midserver. TLB (1)
// Libid: {FB361C3B-65CD-4D88-B531-D554770F557A}
// Lcid: 0
// Helpfile:
// Helpstring: midserver Library
// Depndlst:
// (1) V1.0 802.1x, (c: \ windows \ system32 \ 802.1x. dll)
// (2) V2.0 stdole, (c: \ windows \ system32 \ stdole2.tlb)
//************************************** **********************************//
{$ Typedaddress off} // unit must be compiled without type-checked pointers.
{$ Warn symbol_platform off}
{$ Writeableconst on}
{$ Varpropsetter on}
Interface

Uses Windows, ActiveX, classes, graphics, 802.1x, 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
Midservermajorversion = 1;
Midserverminorversion = 0;

Libid_midserver: tguid = '{FB361C3B-65CD-4D88-B531-D554770F557A }';

Iid_itest: tguid = '{9a4e798c-321f-441d-ba84-7dba23d5b369 }';
Class_test: tguid = '{24ff8621-2b81-4f7f-b657-0b33f7139b9f }';
Type

//************************************** *******************************//
// Forward Declaration of types defined in typelibrary
//************************************** *******************************//
Itest = interface;
Itestdisp = dispinterface;

//************************************** *******************************//
// Declaration of coclasses defined in Type Library
// (Note: here we map each coclass to its default Interface)
//************************************** *******************************//
Test = itest;

//************************************** *******************************//
// Interface: itest
// Flags: (4416) Dual oleautomation dispatchable
// Guid: {9a4e798c-321f-441d-ba84-7dba23d5b369}
//************************************** *******************************//
Itest = interface (iappserver)
['{9a4e798c-321f-441d-ba84-7dba23d5b369}']
Function getdatetime: tdatetime; safecall;
Function qrydata (const moduleid: widestring; sqlid: shortint; Params: olevariant): olevariant; safecall;
Function execsql (const moduleid: widestring; sqlid: Short int; Params: olevariant): Short int; safecall;
Function getstoreddata (const moduleid: widestring; sqlid: shortint; Params: olevariant): olevariant; safecall;
Function execstored (const moduleid: widestring; sqlid: Negative int; Params: olevariant): Negative int; safecall;
Function applyupdate (const moduleid: widestring; sqlid: Short int; Delta: olevariant): Short int; safecall;
Function downloadfile (const filename: widestring): olevariant; safecall;
Function getdate: tdatetime; safecall;
Function getfieldsdef (const moduleid: widestring; sqlid: shortint): olevariant; safecall;
Function getcaptions (const moduleid: widestring): olevariant; safecall;
Function applyupdates (const moduleid: widestring; sqlid: shortint; delta0: olevariant;
Delta1: olevariant; delta2: olevariant; delta3: olevariant): Random int; safecall;
Function changepassword (const userid: widestring; const oldpassword: widestring;
Const newpassword: widestring): cipher int; safecall;
Function checkuser (const userid: widestring; const password: widestring): Random int; safecall;
Function getrights (const userid: widestring; const moduleid: widestring): olevariant; safecall;
End;

//************************************** *******************************//
// Dispintf: itestdisp
// Flags: (4416) Dual oleautomation dispatchable
// Guid: {9a4e798c-321f-441d-ba84-7dba23d5b369}
//************************************** *******************************//
Itestdisp = dispinterface
['{9a4e798c-321f-441d-ba84-7dba23d5b369}']
Function getdatetime: tdatetime; dispid 304;
Function qrydata (const moduleid: widestring; sqlid :{?? Optional int} olevariant; Params: olevariant): olevariant; dispid 305;
Function execsql (const moduleid: widestring; sqlid :{?? Optional int} olevariant; Params: olevariant ):{?? Optional int} olevariant; dispid 306;
Function getstoreddata (const moduleid: widestring; sqlid :{?? Optional int} olevariant;
Params: olevariant): olevariant; dispid 309;
Function execstored (const moduleid: widestring; sqlid :{?? Optional int} olevariant;
Params: olevariant ):{?? Optional int} olevariant; dispid 310;
Function applyupdate (const moduleid: widestring; sqlid :{?? Optional int} olevariant;
Delta: olevariant ):{?? Optional int} olevariant; dispid 312;
Function downloadfile (const filename: widestring): olevariant; dispid 314;
Function getdate: tdatetime; dispid 315;
Function getfieldsdef (const moduleid: widestring; sqlid :{?? Optional int} olevariant): olevariant; dispid 316;
Function getcaptions (const moduleid: widestring): olevariant; dispid 301;
Function applyupdates (const moduleid: widestring; sqlid :{?? Optional int} olevariant;
Delta0: olevariant; delta1: olevariant; delta2: olevariant;
Delta3: olevariant ):{?? Optional int} olevariant; dispid 302;
Function changepassword (const userid: widestring; const oldpassword: widestring;
Const newpassword: widestring ):{?? Optional int} olevariant; dispid 303;
Function checkuser (const userid: widestring; const password: widestring ):{?? Optional int} olevariant; dispid 307;
Function getrights (const userid: widestring; const moduleid: widestring): olevariant; dispid 308;
Function as_applyupdates (const providername: widestring; Delta: olevariant; maxerrors: integer;
Out errorcount: integer; var ownerdata: olevariant): olevariant; dispid 20000000;
Function as_getrecords (const providername: widestring; count: integer; out recsout: integer;
Options: integer; const commandtext: widestring; var Params: olevariant;
VaR ownerdata: olevariant): olevariant; dispid 20000001;
Function as_datarequest (const providername: widestring; Data: olevariant): olevariant; dispid 20000002;
Function as_getprovidernames; dispid 20000003;
Function as_getparams (const providername: widestring; var ownerdata: olevariant): olevariant; dispid 20000004;
Function as_rowrequest (const providername: widestring; row: olevariant; requesttype: integer;
VaR ownerdata: olevariant): olevariant; dispid 20000005;
Procedure as_execute (const providername: widestring; const commandtext: widestring;
VaR Params: olevariant; var ownerdata: olevariant); dispid 20000006;
End;

//************************************** *******************************//
// The class cotest provides a create and createremote method
// Create instances of the default Interface itest exposed
// The coclass test. The functions are intended to be used
// Clients wishing to automate the coclass objects exposed by
// Server of this typelibrary.
//************************************** *******************************//
Cotest = Class
Class function create: itest;
Class function createremote (const machinename: string): itest;
End;

Implementation

Uses comobj;

Class function cotest. Create: itest;
Begin
Result: = createcomobject (class_test) as itest;
End;

Class function cotest. createremote (const machinename: string): itest;
Begin
Result: = createremotecomobject (machinename, class_test) as itest;
End;

End.