edisdk_tlb.pas

East make Tray Icon in delphi

unit EDISDK_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 : $Revision: 1.1 $
// File generated on 17.7.2004 03:10:43 from Type Library described below.

// *************************************************************************//
// 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.                                                          
// ************************************************************************ //
// Type Lib: I:\Quellen\jedi\jcl\examples\vcl\edisdk\comserver\EDISDK.dll (1)
// IID\LCID: {AF3BB992-62DF-41B7-92C7-FA41BDBB427E}\0
// Helpfile: 
// DepndLst: 
//   (1) v2.0 stdole, (F:\WINNT\system32\STDOLE2.TLB)
//   (2) v4.0 StdVCL, (F:\WINNT\system32\STDVCL40.DLL)
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
interface

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

// *********************************************************************//
// 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
  EDISDKMajorVersion = 1;
  EDISDKMinorVersion = 0;

  LIBID_EDISDK: TGUID = '{AF3BB992-62DF-41B7-92C7-FA41BDBB427E}';

  IID_IEDICOMDelimiters: TGUID = '{A0181BBD-2F88-4FDC-9752-8303519D2D62}';
  CLASS_EDICOMDelimiters: TGUID = '{30B8A020-5D35-4ED8-B889-C13F309AE308}';
  IID_IEDICOMDataObject: TGUID = '{C7037767-05C8-4C6F-8201-655A6B5A4CF4}';
  IID_IEDICOMDataObjectGroup: TGUID = '{AEADBE04-6D1C-493E-BE6B-51E96BAD3680}';
  IID_IEDICOMElement: TGUID = '{E4ED3376-38AA-423C-9160-AAD190ACCB35}';
  CLASS_EDICOMElement: TGUID = '{4EFCADAA-60D0-4D61-875C-A27D6BCE932B}';
  IID_IEDICOMSegment: TGUID = '{467C692E-C22F-44B5-ACDB-C7A337B68675}';
  CLASS_EDICOMSegment: TGUID = '{63946EB6-DBDF-44FB-AAA4-123E7C2275B6}';
  IID_IEDICOMTransactionSet: TGUID = '{B2300104-4FF0-40A3-ABED-29E2A36C1844}';
  CLASS_EDICOMTransactionSet: TGUID = '{B540FDFC-B0D0-4E74-A7F4-B09DC260E656}';
  IID_IEDICOMFunctionalGroup: TGUID = '{C2FDB4EF-6252-4E67-BAD4-E7200B9CEA31}';
  CLASS_EDICOMFunctionalGroup: TGUID = '{C69EA833-88BF-4D55-AFC0-264F1B7ED54C}';
  IID_IEDICOMInterchangeControl: TGUID = '{B7FF3E84-8D1E-44F5-BC6A-578881CF7B5A}';
  CLASS_EDICOMInterchangeControl: TGUID = '{EF07065C-6E35-41B6-9564-D2D5714600A8}';
  IID_IEDICOMFile: TGUID = '{DEA6D2C3-98EE-4276-AA08-0AB4F1AEAC0F}';
  CLASS_EDICOMFile: TGUID = '{E8400822-5701-4226-8F78-A784B3777CB9}';

// *********************************************************************//
// Declaration of Enumerations defined in Type Library                    
// *********************************************************************//
// Constants for enum EDICOMDataObjectDataState
type
  EDICOMDataObjectDataState = TOleEnum;
const
  ediCreated = $00000000;
  ediAssembled = $00000001;
  ediDisassembled = $00000002;

// Constants for enum EDIFileOptions
type
  EDIFileOptions = TOleEnum;
const
  foNone = $00000000;
  foVariableDelimiterDetection = $00000001;
  foUseAltDelimiterDetection = $00000002;
  foRemoveCrLf = $00000004;
  foRemoveCr = $00000008;
  foRemoveLf = $00000010;
  foIgnoreGarbageAtEndOfFile = $00000020;

type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
  IEDICOMDelimiters = interface;
  IEDICOMDelimitersDisp = dispinterface;
  IEDICOMDataObject = interface;
  IEDICOMDataObjectDisp = dispinterface;
  IEDICOMDataObjectGroup = interface;
  IEDICOMDataObjectGroupDisp = dispinterface;
  IEDICOMElement = interface;
  IEDICOMElementDisp = dispinterface;
  IEDICOMSegment = interface;
  IEDICOMSegmentDisp = dispinterface;
  IEDICOMTransactionSet = interface;
  IEDICOMTransactionSetDisp = dispinterface;
  IEDICOMFunctionalGroup = interface;
  IEDICOMFunctionalGroupDisp = dispinterface;
  IEDICOMInterchangeControl = interface;
  IEDICOMInterchangeControlDisp = dispinterface;
  IEDICOMFile = interface;
  IEDICOMFileDisp = dispinterface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library                       
// (NOTE: Here we map each CoClass to its Default Interface)              
// *********************************************************************//
  EDICOMDelimiters = IEDICOMDelimiters;
  EDICOMElement = IEDICOMElement;
  EDICOMSegment = IEDICOMSegment;
  EDICOMTransactionSet = IEDICOMTransactionSet;
  EDICOMFunctionalGroup = IEDICOMFunctionalGroup;
  EDICOMInterchangeControl = IEDICOMInterchangeControl;
  EDICOMFile = IEDICOMFile;


// *********************************************************************//
// Interface: IEDICOMDelimiters
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {A0181BBD-2F88-4FDC-9752-8303519D2D62}
// *********************************************************************//
  IEDICOMDelimiters = interface(IDispatch)
    ['{A0181BBD-2F88-4FDC-9752-8303519D2D62}']
    function  Get_SD: WideString; safecall;
    procedure Set_SD(const Value: WideString); safecall;
    function  Get_ED: WideString; safecall;
    procedure Set_ED(const Value: WideString); safecall;
    function  Get_SS: WideString; safecall;
    procedure Set_SS(const Value: WideString); safecall;
    function  Get_SDLen: Integer; safecall;
    function  Get_EDLen: Integer; safecall;
    function  Get_SSLen: Integer; safecall;
    property SD: WideString read Get_SD write Set_SD;
    property ED: WideString read Get_ED write Set_ED;
    property SS: WideString read Get_SS write Set_SS;
    property SDLen: Integer read Get_SDLen;
    property EDLen: Integer read Get_EDLen;
    property SSLen: Integer read Get_SSLen;
  end;

// *********************************************************************//
// DispIntf:  IEDICOMDelimitersDisp
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {A0181BBD-2F88-4FDC-9752-8303519D2D62}
// *********************************************************************//
  IEDICOMDelimitersDisp = dispinterface
    ['{A0181BBD-2F88-4FDC-9752-8303519D2D62}']
    property SD: WideString dispid 201;
    property ED: WideString dispid 202;
    property SS: WideString dispid 203;
    property SDLen: Integer readonly dispid 204;
    property EDLen: Integer readonly dispid 205;
    property SSLen: Integer readonly dispid 206;
  end;

// *********************************************************************//
// Interface: IEDICOMDataObject
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {C7037767-05C8-4C6F-8201-655A6B5A4CF4}
// *********************************************************************//
  IEDICOMDataObject = interface(IDispatch)
    ['{C7037767-05C8-4C6F-8201-655A6B5A4CF4}']
    function  Assemble: WideString; safecall;
    procedure Disassemble; safecall;
    function  Get_State: Integer; safecall;
    function  Get_Data: WideString; safecall;
    procedure Set_Data(const Value: WideString); safecall;
    function  Get_DataLength: Integer; safecall;
    function  Get_Delimiters: IEDICOMDelimiters; safecall;
    property State: Integer read Get_State;
    property Data: WideString read Get_Data write Set_Data;
    property DataLength: Integer read Get_DataLength;
    property Delimiters: IEDICOMDelimiters read Get_Delimiters;
  end;

// *********************************************************************//
// DispIntf:  IEDICOMDataObjectDisp
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {C7037767-05C8-4C6F-8201-655A6B5A4CF4}
// *********************************************************************//
  IEDICOMDataObjectDisp = dispinterface
    ['{C7037767-05C8-4C6F-8201-655A6B5A4CF4}']
    function  Assemble: WideString; dispid 201;
    procedure Disassemble; dispid 202;
    property State: Integer readonly dispid 203;
    property Data: WideString dispid 205;
    property DataLength: Integer readonly dispid 204;
    property Delimiters: IEDICOMDelimiters readonly dispid 206;
  end;

// *********************************************************************//
// Interface: IEDICOMDataObjectGroup
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {AEADBE04-6D1C-493E-BE6B-51E96BAD3680}
// *********************************************************************//
  IEDICOMDataObjectGroup = interface(IEDICOMDataObject)
    ['{AEADBE04-6D1C-493E-BE6B-51E96BAD3680}']
  end;

// *********************************************************************//
// DispIntf:  IEDICOMDataObjectGroupDisp
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {AEADBE04-6D1C-493E-BE6B-51E96BAD3680}
// *********************************************************************//
  IEDICOMDataObjectGroupDisp = dispinterface
    ['{AEADBE04-6D1C-493E-BE6B-51E96BAD3680}']
    function  Assemble: WideString; dispid 201;
    procedure Disassemble; dispid 202;
    property State: Integer readonly dispid 203;
    property Data: WideString dispid 205;
    property DataLength: Integer readonly dispid 204;
    property Delimiters: IEDICOMDelimiters readonly dispid 206;
  end;

// *********************************************************************//
// Interface: IEDICOMElement
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {E4ED3376-38AA-423C-9160-AAD190ACCB35}
// *********************************************************************//
  IEDICOMElement = interface(IEDICOMDataObject)
    ['{E4ED3376-38AA-423C-9160-AAD190ACCB35}']
  end;

// *********************************************************************//
// DispIntf:  IEDICOMElementDisp
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {E4ED3376-38AA-423C-9160-AAD190ACCB35}
// *********************************************************************//
  IEDICOMElementDisp = dispinterface
    ['{E4ED3376-38AA-423C-9160-AAD190ACCB35}']
    function  Assemble: WideString; dispid 201;
    procedure Disassemble; dispid 202;
    property State: Integer readonly dispid 203;
    property Data: WideString dispid 205;
    property DataLength: Integer readonly dispid 204;
    property Delimiters: IEDICOMDelimiters readonly dispid 206;
  end;

// *********************************************************************//
// Interface: IEDICOMSegment
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {467C692E-C22F-44B5-ACDB-C7A337B68675}
// *********************************************************************//
  IEDICOMSegment = interface(IEDICOMDataObjectGroup)
    ['{467C692E-C22F-44B5-ACDB-C7A337B68675}']
    function  Get_Element(Index: Integer): IEDICOMElement; safecall;
    function  Get_SegmentId: WideString; safecall;
    procedure Set_SegmentId(const Value: WideString); safecall;
    function  AddElement: Integer; safecall;
    function  InsertElement(InsertIndex: Integer): Integer; safecall;
    procedure DeleteElement(Index: Integer); safecall;
    function  AddElements(Count: Integer): Integer; safecall;
    function  InsertElements(InsertIndex: Integer; Count: Integer): Integer; safecall;
    procedure DeleteElements; safecall;
    function  Get_ElementCount: Integer; safecall;
    property Element[Index: Integer]: IEDICOMElement read Get_Element;
    property SegmentId: WideString read Get_SegmentId write Set_SegmentId;
    property ElementCount: Integer read Get_ElementCount;
  end;

// *********************************************************************//
// DispIntf:  IEDICOMSegmentDisp
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {467C692E-C22F-44B5-ACDB-C7A337B68675}
// *********************************************************************//
  IEDICOMSegmentDisp = dispinterface
    ['{467C692E-C22F-44B5-ACDB-C7A337B68675}']
    property Element[Index: Integer]: IEDICOMElement readonly dispid 401;
    property SegmentId: WideString dispid 402;
    function  AddElement: Integer; dispid 403;
    function  InsertElement(InsertIndex: Integer): Integer; dispid 404;
    procedure DeleteElement(Index: Integer); dispid 405;
    function  AddElements(Count: Integer): Integer; dispid 406;
    function  InsertElements(InsertIndex: Integer; Count: Integer): Integer; dispid 407;
    procedure DeleteElements; dispid 408;
    property ElementCount: Integer readonly dispid 409;
    function  Assemble: WideString; dispid 201;
    procedure Disassemble; dispid 202;
    property State: Integer readonly dispid 203;
    property Data: WideString dispid 205;
    property DataLength: Integer readonly dispid 204;
    property Delimiters: IEDICOMDelimiters readonly dispid 206;
  end;

// *********************************************************************//
// Interface: IEDICOMTransactionSet
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {B2300104-4FF0-40A3-ABED-29E2A36C1844}
// *********************************************************************//
  IEDICOMTransactionSet = interface(IEDICOMDataObjectGroup)
    ['{B2300104-4FF0-40A3-ABED-29E2A36C1844}']
    function  Get_SegmentST: IEDICOMSegment; safecall;
    function  Get_SegmentSE: IEDICOMSegment; safecall;
    function  Get_Segment(Index: Integer): IEDICOMSegment; safecall;
    function  AddSegment: Integer; safecall;
    function  InsertSegment(InsertIndex: Integer): Integer; safecall;
    procedure DeleteSegment(Index: Integer); safecall;
    function  AddSegments(Count: Integer): Integer; safecall;
    function  InsertSegments(InsertIndex: Integer; Count: Integer): Integer; safecall;
    procedure DeleteSegments; safecall;
    function  Get_SegmentCount: Integer; safecall;
    property SegmentST: IEDICOMSegment read Get_SegmentST;
    property SegmentSE: IEDICOMSegment read Get_SegmentSE;
    property Segment[Index: Integer]: IEDICOMSegment read Get_Segment;
    property SegmentCount: Integer read Get_SegmentCount;
  end;

// *********************************************************************//
// DispIntf:  IEDICOMTransactionSetDisp
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {B2300104-4FF0-40A3-ABED-29E2A36C1844}
// *********************************************************************//
  IEDICOMTransactionSetDisp = dispinterface
    ['{B2300104-4FF0-40A3-ABED-29E2A36C1844}']
    property SegmentST: IEDICOMSegment readonly dispid 401;
    property SegmentSE: IEDICOMSegment readonly dispid 402;
    property Segment[Index: Integer]: IEDICOMSegment readonly dispid 403;
    function  AddSegment: Integer; dispid 404;
    function  InsertSegment(InsertIndex: Integer): Integer; dispid 405;
    procedure DeleteSegment(Index: Integer); dispid 406;
    function  AddSegments(Count: Integer): Integer; dispid 407;
    function  InsertSegments(InsertIndex: Integer; Count: Integer): Integer; dispid 408;
    procedure DeleteSegments; dispid 409;
    property SegmentCount: Integer readonly dispid 410;
    function  Assemble: WideString; dispid 201;
    procedure Disassemble; dispid 202;
    property State: Integer readonly dispid 203;