edisdk_tlb.pas

East make Tray Icon in delphi

    property Data: WideString dispid 205;
    property DataLength: Integer readonly dispid 204;
    property Delimiters: IEDICOMDelimiters readonly dispid 206;
  end;

// *********************************************************************//
// Interface: IEDICOMFunctionalGroup
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {C2FDB4EF-6252-4E67-BAD4-E7200B9CEA31}
// *********************************************************************//
  IEDICOMFunctionalGroup = interface(IEDICOMDataObjectGroup)
    ['{C2FDB4EF-6252-4E67-BAD4-E7200B9CEA31}']
    function  Get_SegmentGS: IEDICOMSegment; safecall;
    function  Get_SegmentGE: IEDICOMSegment; safecall;
    function  Get_TransactionSet(Index: Integer): IEDICOMTransactionSet; safecall;
    function  AddTransactionSet: Integer; safecall;
    function  InsertTransactionSet(InsertIndex: Integer): Integer; safecall;
    procedure DeleteTransactionSet(Index: Integer); safecall;
    function  AddTransactionSets(Count: Integer): Integer; safecall;
    function  InsertTransactionSets(InsertIndex: Integer; Count: Integer): Integer; safecall;
    procedure DeleteTransactionSets; safecall;
    function  Get_TransactionSetCount: Integer; safecall;
    property SegmentGS: IEDICOMSegment read Get_SegmentGS;
    property SegmentGE: IEDICOMSegment read Get_SegmentGE;
    property TransactionSet[Index: Integer]: IEDICOMTransactionSet read Get_TransactionSet;
    property TransactionSetCount: Integer read Get_TransactionSetCount;
  end;

// *********************************************************************//
// DispIntf:  IEDICOMFunctionalGroupDisp
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {C2FDB4EF-6252-4E67-BAD4-E7200B9CEA31}
// *********************************************************************//
  IEDICOMFunctionalGroupDisp = dispinterface
    ['{C2FDB4EF-6252-4E67-BAD4-E7200B9CEA31}']
    property SegmentGS: IEDICOMSegment readonly dispid 401;
    property SegmentGE: IEDICOMSegment readonly dispid 402;
    property TransactionSet[Index: Integer]: IEDICOMTransactionSet readonly dispid 403;
    function  AddTransactionSet: Integer; dispid 404;
    function  InsertTransactionSet(InsertIndex: Integer): Integer; dispid 405;
    procedure DeleteTransactionSet(Index: Integer); dispid 406;
    function  AddTransactionSets(Count: Integer): Integer; dispid 407;
    function  InsertTransactionSets(InsertIndex: Integer; Count: Integer): Integer; dispid 408;
    procedure DeleteTransactionSets; dispid 409;
    property TransactionSetCount: Integer readonly dispid 410;
    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: IEDICOMInterchangeControl
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {B7FF3E84-8D1E-44F5-BC6A-578881CF7B5A}
// *********************************************************************//
  IEDICOMInterchangeControl = interface(IEDICOMDataObjectGroup)
    ['{B7FF3E84-8D1E-44F5-BC6A-578881CF7B5A}']
    function  Get_SegmentISA: IEDICOMSegment; safecall;
    function  Get_SegmentIEA: IEDICOMSegment; safecall;
    function  Get_FunctionalGroup(Index: Integer): IEDICOMFunctionalGroup; safecall;
    function  AddFunctionalGroup: Integer; safecall;
    function  InsertFunctionalGroup(InsertIndex: Integer): Integer; safecall;
    procedure DeleteFunctionalGroup(Index: Integer); safecall;
    function  AddFunctionalGroups(InsertIndex: Integer): Integer; safecall;
    function  InsertFunctionalGroups(InsertIndex: Integer; Count: Integer): Integer; safecall;
    procedure DeleteFunctionalGroups; safecall;
    procedure SetDelimiters(const SD: WideString; const ED: WideString; const SS: WideString); safecall;
    function  Get_FunctionalGroupCount: Integer; safecall;
    property SegmentISA: IEDICOMSegment read Get_SegmentISA;
    property SegmentIEA: IEDICOMSegment read Get_SegmentIEA;
    property FunctionalGroup[Index: Integer]: IEDICOMFunctionalGroup read Get_FunctionalGroup;
    property FunctionalGroupCount: Integer read Get_FunctionalGroupCount;
  end;

// *********************************************************************//
// DispIntf:  IEDICOMInterchangeControlDisp
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {B7FF3E84-8D1E-44F5-BC6A-578881CF7B5A}
// *********************************************************************//
  IEDICOMInterchangeControlDisp = dispinterface
    ['{B7FF3E84-8D1E-44F5-BC6A-578881CF7B5A}']
    property SegmentISA: IEDICOMSegment readonly dispid 401;
    property SegmentIEA: IEDICOMSegment readonly dispid 402;
    property FunctionalGroup[Index: Integer]: IEDICOMFunctionalGroup readonly dispid 403;
    function  AddFunctionalGroup: Integer; dispid 404;
    function  InsertFunctionalGroup(InsertIndex: Integer): Integer; dispid 405;
    procedure DeleteFunctionalGroup(Index: Integer); dispid 406;
    function  AddFunctionalGroups(InsertIndex: Integer): Integer; dispid 407;
    function  InsertFunctionalGroups(InsertIndex: Integer; Count: Integer): Integer; dispid 408;
    procedure DeleteFunctionalGroups; dispid 409;
    procedure SetDelimiters(const SD: WideString; const ED: WideString; const SS: WideString); dispid 410;
    property FunctionalGroupCount: Integer readonly dispid 411;
    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: IEDICOMFile
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {DEA6D2C3-98EE-4276-AA08-0AB4F1AEAC0F}
// *********************************************************************//
  IEDICOMFile = interface(IEDICOMDataObjectGroup)
    ['{DEA6D2C3-98EE-4276-AA08-0AB4F1AEAC0F}']
    procedure LoadFromFile(const FileName: WideString); safecall;
    procedure ReLoadFromFile; safecall;
    procedure SaveToFile; safecall;
    procedure SaveAsToFile(const FileName: WideString); safecall;
    function  Get_FileName: WideString; safecall;
    procedure Set_FileName(const Value: WideString); safecall;
    function  Get_Interchange(Index: Integer): IEDICOMInterchangeControl; safecall;
    function  Get_Options: Byte; safecall;
    procedure Set_Options(Value: Byte); safecall;
    function  AddInterchange: Integer; safecall;
    function  InsertInterchange(InsertIndex: Integer): Integer; safecall;
    procedure DeleteInterchange(Index: Integer); safecall;
    function  AddInterchanges(Count: Integer): Integer; safecall;
    function  InsertInterchanges(InsertIndex: Integer; Count: Integer): Integer; safecall;
    procedure DeleteInterchanges; safecall;
    function  Get_InterchangeCount: Integer; safecall;
    property FileName: WideString read Get_FileName write Set_FileName;
    property Interchange[Index: Integer]: IEDICOMInterchangeControl read Get_Interchange;
    property Options: Byte read Get_Options write Set_Options;
    property InterchangeCount: Integer read Get_InterchangeCount;
  end;

// *********************************************************************//
// DispIntf:  IEDICOMFileDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {DEA6D2C3-98EE-4276-AA08-0AB4F1AEAC0F}
// *********************************************************************//
  IEDICOMFileDisp = dispinterface
    ['{DEA6D2C3-98EE-4276-AA08-0AB4F1AEAC0F}']
    procedure LoadFromFile(const FileName: WideString); dispid 401;
    procedure ReLoadFromFile; dispid 402;
    procedure SaveToFile; dispid 403;
    procedure SaveAsToFile(const FileName: WideString); dispid 404;
    property FileName: WideString dispid 405;
    property Interchange[Index: Integer]: IEDICOMInterchangeControl readonly dispid 406;
    property Options: Byte dispid 407;
    function  AddInterchange: Integer; dispid 408;
    function  InsertInterchange(InsertIndex: Integer): Integer; dispid 409;
    procedure DeleteInterchange(Index: Integer); dispid 410;
    function  AddInterchanges(Count: Integer): Integer; dispid 411;
    function  InsertInterchanges(InsertIndex: Integer; Count: Integer): Integer; dispid 412;
    procedure DeleteInterchanges; dispid 413;
    property InterchangeCount: Integer readonly dispid 414;
    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;

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

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

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

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

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

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

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


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TEDICOMFile
// Help String      : 
// Default Interface: IEDICOMFile
// Def. Intf. DISP? : No
// Event   Interface: 
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TEDICOMFileProperties= class;
{$ENDIF}
  TEDICOMFile = class(TOleServer)
  private
    FIntf:        IEDICOMFile;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TEDICOMFileProperties;
    function      GetServerProperties: TEDICOMFileProperties;
{$ENDIF}
    function      GetDefaultInterface: IEDICOMFile;
  protected
    procedure InitServerData; override;
    function  Get_State: Integer;
    function  Get_Data: WideString;
    procedure Set_Data(const Value: WideString);
    function  Get_DataLength: Integer;
    function  Get_Delimiters: IEDICOMDelimiters;
    function  Get_FileName: WideString;
    procedure Set_FileName(const Value: WideString);
    function  Get_Interchange(Index: Integer): IEDICOMInterchangeControl;
    function  Get_Options: Byte;
    procedure Set_Options(Value: Byte);
    function  Get_InterchangeCount: Integer;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: IEDICOMFile);
    procedure Disconnect; override;
    function  Assemble: WideString;
    procedure Disassemble;
    procedure LoadFromFile(const FileName: WideString);
    procedure ReLoadFromFile;
    procedure SaveToFile;
    procedure SaveAsToFile(const FileName: WideString);
    function  AddInterchange: Integer;
    function  InsertInterchange(InsertIndex: Integer): Integer;
    procedure DeleteInterchange(Index: Integer);
    function  AddInterchanges(Count: Integer): Integer;
    function  InsertInterchanges(InsertIndex: Integer; Count: Integer): Integer;
    procedure DeleteInterchanges;
    property  DefaultInterface: IEDICOMFile read GetDefaultInterface;
    property State: Integer read Get_State;
    property DataLength: Integer read Get_DataLength;
    property Delimiters: IEDICOMDelimiters read Get_Delimiters;
    property Interchange[Index: Integer]: IEDICOMInterchangeControl read Get_Interchange;
    property InterchangeCount: Integer read Get_InterchangeCount;
    property Data: WideString read Get_Data write Set_Data;
    property FileName: WideString read Get_FileName write Set_FileName;
    property Options: Byte read Get_Options write Set_Options;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TEDICOMFileProperties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TEDICOMFile
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TEDICOMFileProperties = class(TPersistent)
  private
    FServer:    TEDICOMFile;
    function    GetDefaultInterface: IEDICOMFile;
    constructor Create(AServer: TEDICOMFile);
  protected
    function  Get_State: Integer;
    function  Get_Data: WideString;
    procedure Set_Data(const Value: WideString);
    function  Get_DataLength: Integer;
    function  Get_Delimiters: IEDICOMDelimiters;
    function  Get_FileName: WideString;
    procedure Set_FileName(const Value: WideString);
    function  Get_Interchange(Index: Integer): IEDICOMInterchangeControl;
    function  Get_Options: Byte;
    procedure Set_Options(Value: Byte);
    function  Get_InterchangeCount: Integer;
  public
    property DefaultInterface: IEDICOMFile read GetDefaultInterface;
  published
    property Data: WideString read Get_Data write Set_Data;
    property FileName: WideString read Get_FileName write Set_FileName;