📄 edisdk_tlb.pas
字号:
// *********************************************************************//
// 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;
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -