edisdk_tlb.pas

East make Tray Icon in delphi

// 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;

implementation

uses ComObj;

class function CoEDICOMDelimiters.Create: IEDICOMDelimiters;
begin
  Result := CreateComObject(CLASS_EDICOMDelimiters) as IEDICOMDelimiters;
end;

class function CoEDICOMDelimiters.CreateRemote(const MachineName: string): IEDICOMDelimiters;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_EDICOMDelimiters) as IEDICOMDelimiters;
end;

class function CoEDICOMElement.Create: IEDICOMElement;
begin
  Result := CreateComObject(CLASS_EDICOMElement) as IEDICOMElement;
end;

class function CoEDICOMElement.CreateRemote(const MachineName: string): IEDICOMElement;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_EDICOMElement) as IEDICOMElement;
end;

class function CoEDICOMSegment.Create: IEDICOMSegment;
begin
  Result := CreateComObject(CLASS_EDICOMSegment) as IEDICOMSegment;
end;

class function CoEDICOMSegment.CreateRemote(const MachineName: string): IEDICOMSegment;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_EDICOMSegment) as IEDICOMSegment;
end;

class function CoEDICOMTransactionSet.Create: IEDICOMTransactionSet;
begin
  Result := CreateComObject(CLASS_EDICOMTransactionSet) as IEDICOMTransactionSet;
end;

class function CoEDICOMTransactionSet.CreateRemote(const MachineName: string): IEDICOMTransactionSet;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_EDICOMTransactionSet) as IEDICOMTransactionSet;
end;

class function CoEDICOMFunctionalGroup.Create: IEDICOMFunctionalGroup;
begin
  Result := CreateComObject(CLASS_EDICOMFunctionalGroup) as IEDICOMFunctionalGroup;
end;

class function CoEDICOMFunctionalGroup.CreateRemote(const MachineName: string): IEDICOMFunctionalGroup;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_EDICOMFunctionalGroup) as IEDICOMFunctionalGroup;
end;

class function CoEDICOMInterchangeControl.Create: IEDICOMInterchangeControl;
begin
  Result := CreateComObject(CLASS_EDICOMInterchangeControl) as IEDICOMInterchangeControl;
end;

class function CoEDICOMInterchangeControl.CreateRemote(const MachineName: string): IEDICOMInterchangeControl;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_EDICOMInterchangeControl) as IEDICOMInterchangeControl;
end;

class function CoEDICOMFile.Create: IEDICOMFile;
begin
  Result := CreateComObject(CLASS_EDICOMFile) as IEDICOMFile;
end;

class function CoEDICOMFile.CreateRemote(const MachineName: string): IEDICOMFile;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_EDICOMFile) as IEDICOMFile;
end;

end.