веб-сервис на стороне клиента

Question

Я новичок в Delphi и пытаюсь получить доступ к веб-службе, но у меня возникают проблемы с настройкой инструментов и массива инструментов для добавления в запрос.Я приложил код, определение сервиса ниже, любая помощь будет большим преимуществом.

Var 
abc:submitGetDataRequest;
cc:array_of_instrument;
bb:Instrument;

begin
abc:=submitGetDataRequest.Create;
setlength(cc,2);
bb.id:='ABC';
cc[0]:=bb;
bb.id:='DEF';
cc[1]:=bb;

//abc.instruments:=cc;

Когда я включаю набор abc.instruments: = CC, это дает ошибку компиляции, чтобы сказать несовместимые типыИнструменты и array_of_instrument ???Я думал, что они были одинаковыми ??

Большое спасибо

SubmitGetDataRequest = class(TRemotable)
  private
    Fheaders: GetDataHeaders;
    Ffieldsets: BvalFieldSets;
    Ffieldsets_Specified: boolean;
    Ffields: Fields;
    Ffields_Specified: boolean;
    Finstruments: Instruments;
    procedure Setfieldsets(Index: Integer; const ABvalFieldSets: BvalFieldSets);
    function  fieldsets_Specified(Index: Integer): boolean;
    procedure Setfields(Index: Integer; const AFields: Fields);
    function  fields_Specified(Index: Integer): boolean;
  public
    constructor Create; override;
    destructor Destroy; override;
  published
    property headers:     GetDataHeaders  read Fheaders write Fheaders;
    property fieldsets:   BvalFieldSets   Index (IS_OPTN) read Ffieldsets 
                              write Setfieldsets stored fieldsets_Specified;
    property fields:      Fields          Index (IS_OPTN) read Ffields 
                              write Setfields stored fields_Specified;
    property instruments: Instruments     read Finstruments write Finstruments;
  end;

  Array_Of_Instrument = array of Instrument;  
  Array_Of_Macro = array of Macro;            


  Instruments = class(TRemotable)
  private
    Finstrument: Array_Of_Instrument;
    Finstrument_Specified: boolean;
    Fmacro: Array_Of_Macro;
    Fmacro_Specified: boolean;
    procedure Setinstrument(Index: Integer; 
                    const AArray_Of_Instrument: Array_Of_Instrument);
    function  instrument_Specified(Index: Integer): boolean;
    procedure Setmacro(Index: Integer; const AArray_Of_Macro: Array_Of_Macro);
    function  macro_Specified(Index: Integer): boolean;
  public
    destructor Destroy; override;
  published
    property instrument: Array_Of_Instrument  Index (IS_OPTN or IS_UNBD) 
                          read Finstrument write Setinstrument stored instrument_Specified;
    property macro:      Array_Of_Macro       Index (IS_OPTN or IS_UNBD) 
                          read Fmacro write Setmacro stored macro_Specified;
  end;

 Macro = class(TRemotable)
  private
    FprimaryQualifier: PrimaryQualifier;
    FsecondaryQualifier: Array_Of_SecondaryQualifier;
    FsecondaryQualifier_Specified: boolean;
    Foverrides: Overrides;
    Foverrides_Specified: boolean;
    procedure SetsecondaryQualifier(Index: Integer; 
                      const AArray_Of_SecondaryQualifier: Array_Of_SecondaryQualifier);
    function  secondaryQualifier_Specified(Index: Integer): boolean;
    procedure Setoverrides(Index: Integer; const AOverrides: Overrides);
    function  overrides_Specified(Index: Integer): boolean;
  public
    destructor Destroy; override;
  published
    property primaryQualifier:   PrimaryQualifier             
                     read FprimaryQualifier write FprimaryQualifier;
    property secondaryQualifier: Array_Of_SecondaryQualifier  
                     Index (IS_OPTN or IS_UNBD) read FsecondaryQualifier 
                     write SetsecondaryQualifier stored secondaryQualifier_Specified;
    property overrides:          Overrides                    
                     Index (IS_OPTN) read Foverrides 
                     write Setoverrides stored overrides_Specified;
  end;

Инструмент = класс (TRemotable) private Fid: string;Fyellowkey: MarketSector;Fyellowkey_Specified: логическое значение;Ftype_: InstrumentType;Ftype__Specified: логическое значение;Foverrides: переопределяет;Foverrides_Specified: логическое значение;процедура Setyellowkey (индекс: целое число; const AMarketSector: MarketSector);function yellowkey_Specified (Index: Integer): логическое значение;процедура Settype_ (Index: Integer; const AInstrumentType: InstrumentType);тип функции __Specified (индекс: целое число): логическое значение;процедура Setoverrides (индекс: целое число; const AOverrides: переопределение);function overrides_Specified (Index: Integer): логический;общественный деструктор Destroy;переопределить;опубликованное свойство id: строка read Fid write Fid;свойство yellowkey: MarketSector
Индекс (IS_OPTN) для чтения Fyellowkey, запись Setyellowkey сохранен yellowkey_Specified;свойство type_: InstrumentType
Индекс (IS_OPTN), чтение Ftype_, запись Settype_, сохраненный тип__Specified;Переопределения свойств: Переопределения
Индекс (IS_OPTN), чтение Foverrides, запись Setoverrides сохраненный overrides_Specified;конец;

Answer 1

Как определяется инструмент ??