客户端网络服务

Question

我是一个delphi新手，试图访问Web服务，并且无法设置仪器和仪器阵列以添加到请求中。我附上了代码，下面的服务的定义，任何帮助将是一个很大的优势。

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; 

仪器= A类（TRemotable） 私人 Fid的：字符串; Fellowkey：MarketSector; Fyellowkey_Specified：boolean; Ftype_：InstrumentType; Ftype__Specified：boolean; Foverrides：覆盖; Foverrides_Specified：boolean;程序Setyellowkey（Index：Integer; const AMarketSector：MarketSector）; function yellowkey_Specified（Index：Integer）：boolean; 程序Settype_（Index：Integer; const AInstrumentType：InstrumentType）; 函数类型__指定（索引：整数）：布尔型;程序Setoverrides（Index：Integer; const AOverrides：Overrides）; 函数overrides_Specified（Index：Integer）：boolean; public 析构函数Destroy;覆盖; 已发布 属性ID：字符串读取Fid写入Fid; property yellowkey：MarketSector
Index（IS_OPTN）read Fyellowkey write Setyellowkey stored yellowkey_Specified; 属性type_：InstrumentType
索引（IS_OPTN）读取Ftype_写入Settype_存储类型___指定; 属性覆盖：覆盖
索引（IS_OPTN）读取Foverrides写入Setoverrides存储的覆盖_指定; 结束;

Answer 1

仪器是如何定义的？