jcledicom_ansix12.pas

East make Tray Icon in delphi

  FElement := TEDIElement(EDIObject);
end;

procedure TEDICOMElement.Set_Data(const Value: WideString);
begin
  FElement.Data := Value;
end;

{ TEDICOMSegment }

function TEDICOMSegment.AddElement: Integer;
begin
  Result := FSegment.AddElement;
end;

function TEDICOMSegment.AddElements(Count: Integer): Integer;
begin
  Result := FSegment.AddElements(Count);
end;

function TEDICOMSegment.Assemble: WideString;
begin
  Result := FSegment.Assemble;
end;

procedure TEDICOMSegment.DeleteElement(Index: Integer);
begin
  FSegment.DeleteElement(Index);
end;

procedure TEDICOMSegment.DeleteElements;
begin
  FSegment.DeleteElements;
end;

destructor TEDICOMSegment.Destroy;
begin
  FElementIntf.ObjRelease;
  FElementIntf := nil;
  FDelimitersIntf.ObjRelease;
  FDelimitersIntf := nil;
  FSegment := nil;
  inherited;
end;

procedure TEDICOMSegment.Disassemble;
begin
  FSegment.Disassemble;
end;

function TEDICOMSegment.Get_Data: WideString;
begin
  Result := FSegment.Data;
end;

function TEDICOMSegment.Get_DataLength: Integer;
begin
  Result := FSegment.DataLength;
end;

function TEDICOMSegment.Get_Delimiters: IEDICOMDelimiters;
begin
  FDelimitersIntf.SetInternalEDIObjectRef(FSegment.Delimiters);
  Result := FDelimitersIntf;
end;

function TEDICOMSegment.Get_Element(Index: Integer): IEDICOMElement;
begin
  FElementIntf.SetInternalEDIObjectRef(FSegment[Index]);
  Result := FElementIntf;
end;

function TEDICOMSegment.Get_ElementCount: Integer;
begin
  Result := FSegment.ElementCount;
end;

function TEDICOMSegment.Get_SegmentId: WideString;
begin
  Result := FSegment.SegmentId;
end;

function TEDICOMSegment.Get_State: Integer;
begin
  Result := Integer(FSegment.State);
end;

procedure TEDICOMSegment.Initialize;
begin
  inherited;
  FDelimitersIntf := TEDICOMDelimiters.Create;
  FDelimitersIntf.ObjAddRef;  
  FElementIntf := TEDICOMElement.Create;
  FElementIntf.ObjAddRef;
  FSegment := nil;
end;

function TEDICOMSegment.InsertElement(InsertIndex: Integer): Integer;
begin
  Result := FSegment.InsertElement(InsertIndex);
end;

function TEDICOMSegment.InsertElements(InsertIndex, Count: Integer): Integer;
begin
  Result := FSegment.InsertElements(InsertIndex, Count);
end;

procedure TEDICOMSegment.SetInternalEDIObjectRef(EDIObject: TEDIObject);
begin
  FSegment := TEDISegment(EDIObject);
end;

procedure TEDICOMSegment.Set_Data(const Value: WideString);
begin
  FSegment.Data := Value;
end;

procedure TEDICOMSegment.Set_SegmentId(const Value: WideString);
begin
  FSegment.SegmentId := Value;
end;

{ TEDICOMTransactionSet }

function TEDICOMTransactionSet.AddSegment: Integer;
begin
  Result := FTransactionSet.AddSegment;
end;

function TEDICOMTransactionSet.AddSegments(Count: Integer): Integer;
begin
  Result := FTransactionSet.AddSegments(Count);
end;

function TEDICOMTransactionSet.Assemble: WideString;
begin
  Result := FTransactionSet.Assemble;
end;

procedure TEDICOMTransactionSet.DeleteSegment(Index: Integer);
begin
  FTransactionSet.DeleteSegment(Index);
end;

procedure TEDICOMTransactionSet.DeleteSegments;
begin
  FTransactionSet.DeleteSegments;
end;

destructor TEDICOMTransactionSet.Destroy;
begin
  FSegmentIntf.ObjRelease;
  FSegmentIntf := nil;
  FDelimitersIntf.ObjRelease;
  FDelimitersIntf := nil;
  FTransactionSet := nil;
  inherited;
end;

procedure TEDICOMTransactionSet.Disassemble;
begin
  FTransactionSet.Disassemble;
end;

function TEDICOMTransactionSet.Get_Data: WideString;
begin
  Result := FTransactionSet.Data;
end;

function TEDICOMTransactionSet.Get_DataLength: Integer;
begin
  Result := FTransactionSet.DataLength;
end;

function TEDICOMTransactionSet.Get_Delimiters: IEDICOMDelimiters;
begin
  FDelimitersIntf.SetInternalEDIObjectRef(FTransactionSet.Delimiters);
  Result := FDelimitersIntf;
end;

function TEDICOMTransactionSet.Get_Segment(Index: Integer): IEDICOMSegment;
begin
  FSegmentIntf.SetInternalEDIObjectRef(FTransactionSet[Index]);
  Result := FSegmentIntf;
end;

function TEDICOMTransactionSet.Get_SegmentCount: Integer;
begin
  Result := FTransactionSet.SegmentCount;
end;

function TEDICOMTransactionSet.Get_SegmentSE: IEDICOMSegment;
begin
  FSegmentIntf.SetInternalEDIObjectRef(FTransactionSet.SegmentSE);
  Result := FSegmentIntf;
end;

function TEDICOMTransactionSet.Get_SegmentST: IEDICOMSegment;
begin
  FSegmentIntf.SetInternalEDIObjectRef(FTransactionSet.SegmentST);
  Result := FSegmentIntf;
end;

function TEDICOMTransactionSet.Get_State: Integer;
begin
  Result := Integer(FTransactionSet.State);
end;

procedure TEDICOMTransactionSet.Initialize;
begin
  inherited;
  FDelimitersIntf := TEDICOMDelimiters.Create;
  FDelimitersIntf.ObjAddRef;  
  FSegmentIntf := TEDICOMSegment.Create;
  FSegmentIntf.ObjAddRef;  
  FTransactionSet := nil;
end;

function TEDICOMTransactionSet.InsertSegment(InsertIndex: Integer): Integer;
begin
  Result := FTransactionSet.InsertSegment(InsertIndex);
end;

function TEDICOMTransactionSet.InsertSegments(InsertIndex, Count: Integer): Integer;
begin
  Result := FTransactionSet.InsertSegments(InsertIndex, Count);
end;

procedure TEDICOMTransactionSet.SetInternalEDIObjectRef(EDIObject: TEDIObject);
begin
  FTransactionSet := TEDITransactionSet(EDIObject);
end;

procedure TEDICOMTransactionSet.Set_Data(const Value: WideString);
begin
  FTransactionSet.Data := Value;
end;

{ TEDICOMFunctionalGroup }

function TEDICOMFunctionalGroup.AddTransactionSet: Integer;
begin
  Result := FFunctionalGroup.AddTransactionSet;
end;

function TEDICOMFunctionalGroup.AddTransactionSets(Count: Integer): Integer;
begin
  Result := FFunctionalGroup.AddTransactionSets(Count);
end;

function TEDICOMFunctionalGroup.Assemble: WideString;
begin
  Result := FFunctionalGroup.Assemble;
end;

procedure TEDICOMFunctionalGroup.DeleteTransactionSet(Index: Integer);
begin
  FFunctionalGroup.DeleteTransactionSet(Index);
end;

procedure TEDICOMFunctionalGroup.DeleteTransactionSets;
begin
  FFunctionalGroup.DeleteTransactionSets;
end;

destructor TEDICOMFunctionalGroup.Destroy;
begin
  FTransactionSetIntf.ObjRelease;
  FTransactionSetIntf := nil;
  FSegmentIntf.ObjRelease;
  FSegmentIntf := nil;
  FDelimitersIntf.ObjRelease;
  FDelimitersIntf := nil;
  FFunctionalGroup := nil;
  inherited;
end;

procedure TEDICOMFunctionalGroup.Disassemble;
begin
  FFunctionalGroup.Disassemble;
end;

function TEDICOMFunctionalGroup.Get_Data: WideString;
begin
  Result := FFunctionalGroup.Data;
end;

function TEDICOMFunctionalGroup.Get_DataLength: Integer;
begin
  Result := FFunctionalGroup.DataLength;
end;

function TEDICOMFunctionalGroup.Get_Delimiters: IEDICOMDelimiters;
begin
  FDelimitersIntf.SetInternalEDIObjectRef(FFunctionalGroup.Delimiters);
  Result := FDelimitersIntf;
end;

function TEDICOMFunctionalGroup.Get_SegmentGE: IEDICOMSegment;
begin
  FSegmentIntf.SetInternalEDIObjectRef(FFunctionalGroup.SegmentGE);
  Result := FSegmentIntf;
end;

function TEDICOMFunctionalGroup.Get_SegmentGS: IEDICOMSegment;
begin
  FSegmentIntf.SetInternalEDIObjectRef(FFunctionalGroup.SegmentGS);
  Result := FSegmentIntf;
end;

function TEDICOMFunctionalGroup.Get_State: Integer;
begin
  Result := Integer(FFunctionalGroup.State);
end;

function TEDICOMFunctionalGroup.Get_TransactionSet(Index: Integer): IEDICOMTransactionSet;
begin
  FTransactionSetIntf.SetInternalEDIObjectRef(FFunctionalGroup[Index]);
  Result := FTransactionSetIntf;
end;

function TEDICOMFunctionalGroup.Get_TransactionSetCount: Integer;
begin
  Result := FFunctionalGroup.TransactionSetCount;
end;

procedure TEDICOMFunctionalGroup.Initialize;
begin
  inherited;
  FDelimitersIntf := TEDICOMDelimiters.Create;
  FDelimitersIntf.ObjAddRef;  
  FSegmentIntf := TEDICOMSegment.Create;
  FSegmentIntf.ObjAddRef;
  FTransactionSetIntf := TEDICOMTransactionSet.Create;
  FTransactionSetIntf.ObjAddRef;
  FFunctionalGroup := nil;
end;

function TEDICOMFunctionalGroup.InsertTransactionSet(InsertIndex: Integer): Integer;
begin
  Result := FFunctionalGroup.InsertTransactionSet(InsertIndex);
end;

function TEDICOMFunctionalGroup.InsertTransactionSets(InsertIndex, Count: Integer): Integer;
begin
  Result := FFunctionalGroup.InsertTransactionSets(InsertIndex, Count);
end;

procedure TEDICOMFunctionalGroup.SetInternalEDIObjectRef(EDIObject: TEDIObject);
begin
  FFunctionalGroup := TEDIFunctionalGroup(EDIObject);
end;

procedure TEDICOMFunctionalGroup.Set_Data(const Value: WideString);
begin