jcledicom_ansix12.pas

East make Tray Icon in delphi

  FFunctionalGroup.Data := Value;
end;

{ TEDICOMInterchangeControl }

function TEDICOMInterchangeControl.Assemble: WideString;
begin
  Result := FInterchangeControl.Assemble;
end;

destructor TEDICOMInterchangeControl.Destroy;
begin
  FFunctionalGroupIntf.ObjRelease;
  FFunctionalGroupIntf := nil;
  FSegmentIntf.ObjRelease;
  FSegmentIntf := nil;
  FDelimitersIntf.ObjRelease;
  FDelimitersIntf := nil;
  FInterchangeControl := nil;
  inherited;
end;

procedure TEDICOMInterchangeControl.Disassemble;
begin
  FInterchangeControl.Disassemble;
end;

function TEDICOMInterchangeControl.Get_Data: WideString;
begin
  Result := FInterchangeControl.Data;
end;

function TEDICOMInterchangeControl.Get_DataLength: Integer;
begin
  Result := FInterchangeControl.DataLength;
end;

function TEDICOMInterchangeControl.Get_FunctionalGroup(Index: Integer): IEDICOMFunctionalGroup;
begin
  FFunctionalGroupIntf.SetInternalEDIObjectRef(FInterchangeControl[Index]);
  Result := FFunctionalGroupIntf;
end;

function TEDICOMInterchangeControl.Get_SegmentIEA: IEDICOMSegment;
begin
  FSegmentIntf.SetInternalEDIObjectRef(FInterchangeControl.SegmentIEA);
  Result := FSegmentIntf;
end;

function TEDICOMInterchangeControl.Get_SegmentISA: IEDICOMSegment;
begin
  FSegmentIntf.SetInternalEDIObjectRef(FInterchangeControl.SegmentISA);
  Result := FSegmentIntf;
end;

function TEDICOMInterchangeControl.Get_State: Integer;
begin
  Result := Integer(FInterchangeControl.State);
end;

procedure TEDICOMInterchangeControl.Initialize;
begin
  inherited;
  FDelimitersIntf := TEDICOMDelimiters.Create;
  FDelimitersIntf.ObjAddRef;  
  FSegmentIntf := TEDICOMSegment.Create;
  FSegmentIntf.ObjAddRef;
  FFunctionalGroupIntf := TEDICOMFunctionalGroup.Create;
  FFunctionalGroupIntf.ObjAddRef;
  FInterchangeControl := nil;
end;

procedure TEDICOMInterchangeControl.Set_Data(const Value: WideString);
begin
  FInterchangeControl.Data := Value;
end;

procedure TEDICOMInterchangeControl.SetInternalEDIObjectRef(EDIObject: TEDIObject);
begin
  FInterchangeControl := TEDIInterchangeControl(EDIObject);
end;

function TEDICOMInterchangeControl.AddFunctionalGroup: Integer;
begin
  Result := FInterchangeControl.AddFunctionalGroup;
end;

function TEDICOMInterchangeControl.AddFunctionalGroups(InsertIndex: Integer): Integer;
begin
  Result := FInterchangeControl.InsertFunctionalGroup(InsertIndex);
end;

procedure TEDICOMInterchangeControl.DeleteFunctionalGroup(Index: Integer);
begin
  FInterchangeControl.DeleteFunctionalGroup(Index);
end;

procedure TEDICOMInterchangeControl.DeleteFunctionalGroups;
begin
  FInterchangeControl.DeleteFunctionalGroups;
end;

function TEDICOMInterchangeControl.InsertFunctionalGroup(InsertIndex: Integer): Integer;
begin
  Result := FInterchangeControl.InsertFunctionalGroup(InsertIndex);
end;

function TEDICOMInterchangeControl.InsertFunctionalGroups(InsertIndex, Count: Integer): Integer;
begin
  Result := FInterchangeControl.InsertFunctionalGroups(InsertIndex, Count);
end;

function TEDICOMInterchangeControl.Get_Delimiters: IEDICOMDelimiters;
begin
  FDelimitersIntf.SetInternalEDIObjectRef(FInterchangeControl.Delimiters);
  Result := FDelimitersIntf;
end;

procedure TEDICOMInterchangeControl.SetDelimiters(const SD, ED, SS: WideString);
begin
  FInterchangeControl.Delimiters := TEDIDelimiters.Create(SD, ED, SS);
end;

function TEDICOMInterchangeControl.Get_FunctionalGroupCount: Integer;
begin
  Result := FInterchangeControl.FunctionalGroupCount;
end;

{ TEDICOMFile }

function TEDICOMFile.AddInterchange: Integer;
begin
  Result := FEDIFile.AddInterchange;
end;

function TEDICOMFile.AddInterchanges(Count: Integer): Integer;
begin
  Result := FEDIFile.AddInterchanges(Count);
end;

function TEDICOMFile.Assemble: WideString;
begin
  Result := FEDIFile.Assemble;
end;

procedure TEDICOMFile.DeleteInterchange(Index: Integer);
begin
  FEDIFile.DeleteInterchange(Index);
end;

procedure TEDICOMFile.DeleteInterchanges;
begin
  FEDIFile.DeleteInterchanges;
end;

destructor TEDICOMFile.Destroy;
begin
  FInterchangeControlIntf.ObjRelease;
  FInterchangeControlIntf := nil;
  FDelimitersIntf.ObjRelease;
  FDelimitersIntf := nil;
  FEDIFile.Free;
  FEDIFile := nil;
  inherited;
end;

procedure TEDICOMFile.Disassemble;
begin
  FEDIFile.Disassemble;
end;

function TEDICOMFile.Get_Data: WideString;
begin
  Result := FEDIFile.Data;
end;

function TEDICOMFile.Get_DataLength: Integer;
begin
  Result := FEDIFile.DataLength;
end;

function TEDICOMFile.Get_Delimiters: IEDICOMDelimiters;
begin
  FDelimitersIntf.SetInternalEDIObjectRef(FEDIFile.Delimiters);
  Result := FDelimitersIntf;
end;

function TEDICOMFile.Get_FileName: WideString;
begin
  Result := FEDIFile.FileName;
end;

function TEDICOMFile.Get_Interchange(Index: Integer): IEDICOMInterchangeControl;
begin
  FInterchangeControlIntf.SetInternalEDIObjectRef(FEDIFile[Index]);
  Result := FInterchangeControlIntf;
end;

function TEDICOMFile.Get_InterchangeCount: Integer;
begin
  Result := FEDIFile.InterchangeControlCount;
end;

function TEDICOMFile.Get_Options: Byte;
begin
  Result := Byte(FEDIFIle.Options);
end;

function TEDICOMFile.Get_State: Integer;
begin
  Result := Integer(FEDIFile.State);
end;

procedure TEDICOMFile.Initialize;
begin
  inherited;
  FDelimitersIntf := TEDICOMDelimiters.Create;
  FDelimitersIntf.ObjAddRef;  
  FInterchangeControlIntf := TEDICOMInterchangeControl.Create;
  FInterchangeControlIntf.ObjAddRef;
  FEDIFile := TEDIFile.Create(nil);
end;

function TEDICOMFile.InsertInterchange(InsertIndex: Integer): Integer;
begin
  Result := FEDIFile.InsertInterchange(InsertIndex);
end;

function TEDICOMFile.InsertInterchanges(InsertIndex, Count: Integer): Integer;
begin
  Result := FEDIFile.InsertInterchanges(InsertIndex, Count);
end;

procedure TEDICOMFile.LoadFromFile(const FileName: WideString);
begin
  FEDIFile.LoadFromFile(FileName);
end;

procedure TEDICOMFile.ReLoadFromFile;
begin
  FEDIFile.ReLoadFromFile;
end;

procedure TEDICOMFile.SaveAsToFile(const FileName: WideString);
begin
  FEDIFile.SaveAsToFile(FileName);
end;

procedure TEDICOMFile.SaveToFile;
begin
  FEDIFile.SaveToFile;
end;

procedure TEDICOMFile.Set_Data(const Value: WideString);
begin
  FEDIFile.Data := Value;
end;

procedure TEDICOMFile.Set_FileName(const Value: WideString);
begin
  FEDIFile.FileName := Value;
end;

procedure TEDICOMFile.Set_Options(Value: Byte);
begin
  FEDIFile.Options := TEDIFileOptions(Value);
end;

{ TEDICOMDelimiters }

destructor TEDICOMDelimiters.Destroy;
begin
  FDelimiters := nil;
  inherited;
end;

function TEDICOMDelimiters.Get_ED: WideString;
begin
  Result := FDelimiters.ED;
end;

function TEDICOMDelimiters.Get_EDLen: Integer;
begin
  Result := FDelimiters.EDLen;
end;

function TEDICOMDelimiters.Get_SD: WideString;
begin
  Result := FDelimiters.SD;
end;

function TEDICOMDelimiters.Get_SDLen: Integer;
begin
  Result := FDelimiters.SDLen;
end;

function TEDICOMDelimiters.Get_SS: WideString;
begin
  Result := FDelimiters.SS;
end;

function TEDICOMDelimiters.Get_SSLen: Integer;
begin
  Result := FDelimiters.SSLen;
end;

procedure TEDICOMDelimiters.Initialize;
begin
  inherited;
  FDelimiters := nil;
end;

procedure TEDICOMDelimiters.Set_ED(const Value: WideString);
begin
  FDelimiters.ED := Value;
end;

procedure TEDICOMDelimiters.Set_SD(const Value: WideString);
begin
  FDelimiters.SD := Value;
end;

procedure TEDICOMDelimiters.Set_SS(const Value: WideString);
begin
  FDelimiters.SS := Value;
end;

procedure TEDICOMDelimiters.SetInternalEDIObjectRef(EDIObject: TEDIObject);
begin
  FDelimiters := TEDIDelimiters(EDIObject);
end;

initialization
  TAutoObjectFactory.Create(ComServer, TEDICOMDelimiters, CLASS_EDICOMDelimiters,
    ciMultiInstance, tmApartment);
  TAutoObjectFactory.Create(ComServer, TEDICOMElement, Class_EDICOMElement,
    ciMultiInstance, tmApartment);
  TAutoObjectFactory.Create(ComServer, TEDICOMSegment, Class_EDICOMSegment,
    ciMultiInstance, tmApartment);
  TAutoObjectFactory.Create(ComServer, TEDICOMTransactionSet, Class_EDICOMTransactionSet,
    ciMultiInstance, tmApartment);
  TAutoObjectFactory.Create(ComServer, TEDICOMFunctionalGroup, Class_EDICOMFunctionalGroup,
    ciMultiInstance, tmApartment);
  TAutoObjectFactory.Create(ComServer, TEDICOMInterchangeControl, Class_EDICOMInterchangeControl,
    ciMultiInstance, tmApartment);
  TAutoObjectFactory.Create(ComServer, TEDICOMFile, Class_EDICOMFile,
    ciMultiInstance, tmApartment);

// History

// rrossmair 2004-07-17:
// - removed unit Dialogs usage

end.