edisdk_tlb.pas

全世界知名的Open Source Delphi开发组织JCL的作品。JCL包含了很多Delphi和C++Builder中的可重用单元

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: 1658 $
// File generated on 17.7.2004 03:06:57 from Type Library described below.

// ************************************************************************ //
// Type Lib: I:\Quellen\jedi\jcl\examples\vcl\edisdk\comserver\EDISDK.tlb (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;