Web servis Array alanlarına nasıl kayıt eklenir?

[m_ekici]

s.a.

Daha önce burada GSS ile ilgili provizyon örneği verilmişti. GSS web servisinde Ödeme sorgusu girişinde Array olan bölümler var. Bu Array olan kısımlara birden çok kaydı nasıl ekleyeceğim?

Kod: Tümünü seç

  OdemeSorguGirisDVO = class(TRemotable)
  private
    Faciklama: WideString;
    FbransKodu: WideString;
    FdigerIslemBilgileri: ArrayOf_tns2_nillable_DigerIslemBilgisiDVO;
    FdisBilgileri: ArrayOf_tns2_nillable_DisBilgisiDVO;
    FhastaCikisTarihi: WideString;
    FhastaYatisBilgileri: ArrayOf_tns2_nillable_HastaYatisBilgisiDVO;
    FilacBilgileri: ArrayOf_tns2_nillable_IlacBilgisiDVO;
    FistisnaiDurum: WideString;
    FkonsultasyonBilgileri: ArrayOf_tns2_nillable_KonsultasyonBilgisiDVO;
    FmalzemeBilgileri: ArrayOf_tns2_nillable_MalzemeBilgisiDVO;
    FmuayeneBilgisi: MuayeneBilgisiDVO;
    FameliyatveGirisimBilgileri: ArrayOf_tns2_nillable_AmeliyatveGirisimBilgisiDVO;
    FprotokolNo: WideString;
    FtetkikveRadyolojiBilgileri: ArrayOf_tns2_nillable_TetkikveRadyolojiBilgisiDVO;
    FraporBilgileri: ArrayOf_tns2_nillable_RaporBilgisiDVO;
    FsaglikTesisKodu: Integer;
    FsorguTuru: WideString;
    FtaburcuKodu: WideString;
    FtahlilBilgileri: ArrayOf_tns2_nillable_TahlilBilgisiDVO;
    FtakipNo: WideString;
    Ftanilar: ArrayOf_tns2_nillable_TaniBilgisiDVO;
    FtedaviTuru: WideString;

iyi çalışmalar

[vkamadan]

Merhaba,
Örn,Ftanilar: ArrayOf_tns2_nillable_TaniBilgisiDVO; ye bilgi gireceksiniz, Muhtemelen TTani adında bir tip vardır yada başka bir isimde FTanilar dizisi elemanı tipi tanımlaması olmalıdır, Dinamik dizilerde en önemli olay dizinizin boyutunu bilip SetLength ile dizi boyu atamasını yapıp sonra kullanmaktır,
örn:

Kod: Tümünü seç

SetLength(FTanilar,10);
 for i:=0 to 9 do
 begin
   FTanilar[i].TaniADi:='sdfdf';
   FTanilar[i].TaniNo:='sdfdf';
 end;

gibi, kolay gelsin.