Array oluşturma

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Cevapla
Kullanıcı avatarı
kimene
Üye
Mesajlar: 78
Kayıt: 28 Haz 2003 02:39
Konum: İstanbul

Array oluşturma

Mesaj gönderen kimene »

Merhaba arkadaşlar.

Aşağıdaki kodlarda button a bastığım da access violation hatası veriyor.
Muhtemelen array leri düzgün oluşturamadığımdan.
Yardımcı olursanız sevinirim.
Şimdiden teşekkür ederim.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,OdemeBilgisiIslemleri1;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
OdemeSorguGirisBilgileri:OdemeSorguGirisDVO;
giris:OdemeSorguGirisDVO;
sonuc:OdemeSorguCevapDVO;
tani_elemanlari:TaniBilgisiDVO;
ftanilar:array of TaniBilgisiDVO;
i,dongusayisi:integer;
begin
giris:=OdemeSorguGirisDVO.Create;
sonuc:=OdemeSorguCevapDVO.Create;
dongusayisi:=5;

SetLength(ftanilar,dongusayisi);
for i:=0 to dongusayisi-1 do
begin
tani_elemanlari:=TaniBilgisiDVO.Create;
tani_elemanlari.birincilTani :='E';
tani_elemanlari.taniKodu:='A00.1';
tani_elemanlari.hizmetSunucuRefNo:='3';
tani_elemanlari.taniTipi:='1';
ftanilar[0]:=tani_elemanlari;
end;
OdemeSorguGirisBilgileri:=OdemeSorguGirisDVO.Create;

OdemeSorguGirisBilgileri.tanilar[0]:=ftanilar[0];
end;

end.






// ************************************************************************ //
// The types declared in this file were generated from data read from the
// WSDL File described below:
// WSDL : http://saglik.sgk.gov.tr/saglikws/servi ... mleri.wsdl
// Encoding : UTF-8
// Version : 1.0
// (27.02.2007 14:46:02 - 1.33.2.5)
// ************************************************************************ //

unit OdemeBilgisiIslemleri1;

interface

uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;

type

// ************************************************************************ //
// The following types, referred to in the WSDL document are not being represented
// in this file. They are either aliases[@] of other types represented or were referred
// to but never[!] declared in the document. The types from the latter category
// typically map to predefined/known XML or Borland types; however, they could also
// indicate incorrect WSDL documents that failed to declare or import a schema type.
// ************************************************************************ //
// !:string - "http://www.w3.org/2001/XMLSchema"
// !:int - "http://www.w3.org/2001/XMLSchema"
// !:double - "http://www.w3.org/2001/XMLSchema"

MuayeneBilgisiDVO = class; { "http://dvo.gss.sgk.gov.tr" }
DigerIslemBilgisiDVO = class; { "http://dvo.gss.sgk.gov.tr" }
DisBilgisiDVO = class; { "http://dvo.gss.sgk.gov.tr" }
HastaYatisBilgisiDVO = class; { "http://dvo.gss.sgk.gov.tr" }
IlacBilgisiDVO = class; { "http://dvo.gss.sgk.gov.tr" }
KonsultasyonBilgisiDVO = class; { "http://dvo.gss.sgk.gov.tr" }
MalzemeBilgisiDVO = class; { "http://dvo.gss.sgk.gov.tr" }
AmeliyatveGirisimBilgisiDVO = class; { "http://dvo.gss.sgk.gov.tr" }
TetkikveRadyolojiBilgisiDVO = class; { "http://dvo.gss.sgk.gov.tr" }
RaporBilgisiDVO = class; { "http://dvo.gss.sgk.gov.tr" }
TahlilBilgisiDVO = class; { "http://dvo.gss.sgk.gov.tr" }
TaniBilgisiDVO = class; { "http://dvo.gss.sgk.gov.tr" }
OdemeSorguGirisDVO = class; { "http://dvo.gss.sgk.gov.tr" }
IslemFiyatBilgisiDVO = class; { "http://dvo.gss.sgk.gov.tr" }
OdemeSorguHataBilgisiDVO = class; { "http://dvo.gss.sgk.gov.tr" }
OdemeSorguCevapDVO = class; { "http://dvo.gss.sgk.gov.tr" }
OdemeSorguOkuGirisDVO = class; { "http://dvo.gss.sgk.gov.tr" }
HastaBilgileriDVO = class; { "http://dvo.gss.sgk.gov.tr" }
OdemeSorguOkuCevapDVO = class; { "http://dvo.gss.sgk.gov.tr" }



// ************************************************************************ //
// Namespace : http://dvo.gss.sgk.gov.tr
// ************************************************************************ //
MuayeneBilgisiDVO = class(TRemotable)
private
FbutKodu: WideString;
FdrTescilNo: WideString;
FhizmetSunucuRefNo: WideString;
FmuayeneTarihi: WideString;
published
property butKodu: WideString read FbutKodu write FbutKodu;
property drTescilNo: WideString read FdrTescilNo write FdrTescilNo;
property hizmetSunucuRefNo: WideString read FhizmetSunucuRefNo write FhizmetSunucuRefNo;
property muayeneTarihi: WideString read FmuayeneTarihi write FmuayeneTarihi;
end;



// ************************************************************************ //
// Namespace : http://dvo.gss.sgk.gov.tr
// ************************************************************************ //
DigerIslemBilgisiDVO = class(TRemotable)
private
FacilDurum: WideString;
Fadet: Integer;
FbransKodu: WideString;
FbutKodu: WideString;
FdrTescilNo: WideString;
FhizmetSunucuRefNo: WideString;
FislemTarihi: WideString;
published
property acilDurum: WideString read FacilDurum write FacilDurum;
property adet: Integer read Fadet write Fadet;
property bransKodu: WideString read FbransKodu write FbransKodu;
property butKodu: WideString read FbutKodu write FbutKodu;
property drTescilNo: WideString read FdrTescilNo write FdrTescilNo;
property hizmetSunucuRefNo: WideString read FhizmetSunucuRefNo write FhizmetSunucuRefNo;
property islemTarihi: WideString read FislemTarihi write FislemTarihi;
end;

ArrayOf_tns2_nillable_DigerIslemBilgisiDVO = array of DigerIslemBilgisiDVO; { "http://servisler.ws.gss.sgk.gov.tr" }


// ************************************************************************ //
// Namespace : http://dvo.gss.sgk.gov.tr
// ************************************************************************ //
DisBilgisiDVO = class(TRemotable)
private
FacilDurum: WideString;
Fadet: Integer;
FbutKodu: WideString;
FhizmetSunucuRefNo: WideString;
FislemTarihi: WideString;
FsagAltCene: WideString;
FsagUstCene: WideString;
FsolAltCene: WideString;
FsolUstCene: WideString;
published
property acilDurum: WideString read FacilDurum write FacilDurum;
property adet: Integer read Fadet write Fadet;
property butKodu: WideString read FbutKodu write FbutKodu;
property hizmetSunucuRefNo: WideString read FhizmetSunucuRefNo write FhizmetSunucuRefNo;
property islemTarihi: WideString read FislemTarihi write FislemTarihi;
property sagAltCene: WideString read FsagAltCene write FsagAltCene;
property sagUstCene: WideString read FsagUstCene write FsagUstCene;
property solAltCene: WideString read FsolAltCene write FsolAltCene;
property solUstCene: WideString read FsolUstCene write FsolUstCene;
end;

ArrayOf_tns2_nillable_DisBilgisiDVO = array of DisBilgisiDVO; { "http://servisler.ws.gss.sgk.gov.tr" }


// ************************************************************************ //
// Namespace : http://dvo.gss.sgk.gov.tr
// ************************************************************************ //
HastaYatisBilgisiDVO = class(TRemotable)
private
FbransKodu: WideString;
FbutKodu: WideString;
FdrTescilNo: WideString;
FhizmetSunucuRefNo: WideString;
FrefakatciGunSayisi: WideString;
FyatisBaslangicTarihi: WideString;
FyatisBitisTarihi: WideString;
published
property bransKodu: WideString read FbransKodu write FbransKodu;
property butKodu: WideString read FbutKodu write FbutKodu;
property drTescilNo: WideString read FdrTescilNo write FdrTescilNo;
property hizmetSunucuRefNo: WideString read FhizmetSunucuRefNo write FhizmetSunucuRefNo;
property refakatciGunSayisi: WideString read FrefakatciGunSayisi write FrefakatciGunSayisi;
property yatisBaslangicTarihi: WideString read FyatisBaslangicTarihi write FyatisBaslangicTarihi;
property yatisBitisTarihi: WideString read FyatisBitisTarihi write FyatisBitisTarihi;
end;

ArrayOf_tns2_nillable_HastaYatisBilgisiDVO = array of HastaYatisBilgisiDVO; { "http://servisler.ws.gss.sgk.gov.tr" }


// ************************************************************************ //
// Namespace : http://dvo.gss.sgk.gov.tr
// ************************************************************************ //
IlacBilgisiDVO = class(TRemotable)
private
Faciklama: WideString;
Fadet: Double;
Fbarkod: WideString;
FhizmetSunucuRefNo: WideString;
FilacTuru: WideString;
FislemTarihi: WideString;
Ftutar: Double;
published
property aciklama: WideString read Faciklama write Faciklama;
property adet: Double read Fadet write Fadet;
property barkod: WideString read Fbarkod write Fbarkod;
property hizmetSunucuRefNo: WideString read FhizmetSunucuRefNo write FhizmetSunucuRefNo;
property ilacTuru: WideString read FilacTuru write FilacTuru;
property islemTarihi: WideString read FislemTarihi write FislemTarihi;
property tutar: Double read Ftutar write Ftutar;
end;

ArrayOf_tns2_nillable_IlacBilgisiDVO = array of IlacBilgisiDVO; { "http://servisler.ws.gss.sgk.gov.tr" }


// ************************************************************************ //
// Namespace : http://dvo.gss.sgk.gov.tr
// ************************************************************************ //
KonsultasyonBilgisiDVO = class(TRemotable)
private
FbransKodu: WideString;
FbutKodu: WideString;
FdrTescilNo: WideString;
FhizmetSunucuRefNo: WideString;
FislemTarihi: WideString;
published
property bransKodu: WideString read FbransKodu write FbransKodu;
property butKodu: WideString read FbutKodu write FbutKodu;
property drTescilNo: WideString read FdrTescilNo write FdrTescilNo;
property hizmetSunucuRefNo: WideString read FhizmetSunucuRefNo write FhizmetSunucuRefNo;
property islemTarihi: WideString read FislemTarihi write FislemTarihi;
end;

ArrayOf_tns2_nillable_KonsultasyonBilgisiDVO = array of KonsultasyonBilgisiDVO; { "http://servisler.ws.gss.sgk.gov.tr" }


// ************************************************************************ //
// Namespace : http://dvo.gss.sgk.gov.tr
// ************************************************************************ //
MalzemeBilgisiDVO = class(TRemotable)
private
Fadet: Integer;
FhizmetSunucuRefNo: WideString;
FislemTarihi: WideString;
FkodsuzMalzemeAdi: WideString;
FkodsuzMalzemeFiyati: Double;
FmalzemeKodu: WideString;
FmalzemeTuru: WideString;
published
property adet: Integer read Fadet write Fadet;
property hizmetSunucuRefNo: WideString read FhizmetSunucuRefNo write FhizmetSunucuRefNo;
property islemTarihi: WideString read FislemTarihi write FislemTarihi;
property kodsuzMalzemeAdi: WideString read FkodsuzMalzemeAdi write FkodsuzMalzemeAdi;
property kodsuzMalzemeFiyati: Double read FkodsuzMalzemeFiyati write FkodsuzMalzemeFiyati;
property malzemeKodu: WideString read FmalzemeKodu write FmalzemeKodu;
property malzemeTuru: WideString read FmalzemeTuru write FmalzemeTuru;
end;

ArrayOf_tns2_nillable_MalzemeBilgisiDVO = array of MalzemeBilgisiDVO; { "http://servisler.ws.gss.sgk.gov.tr" }


// ************************************************************************ //
// Namespace : http://dvo.gss.sgk.gov.tr
// ************************************************************************ //
AmeliyatveGirisimBilgisiDVO = class(TRemotable)
private
Faciklama: WideString;
FacilDurum: WideString;
Fadet: Integer;
FayniFarkliKesi: WideString;
FbransKodu: WideString;
FbutKodu: WideString;
FdrTescilNo: WideString;
FhizmetSunucuRefNo: WideString;
FislemTarihi: WideString;
FsagSol: WideString;
published
property aciklama: WideString read Faciklama write Faciklama;
property acilDurum: WideString read FacilDurum write FacilDurum;
property adet: Integer read Fadet write Fadet;
property ayniFarkliKesi: WideString read FayniFarkliKesi write FayniFarkliKesi;
property bransKodu: WideString read FbransKodu write FbransKodu;
property butKodu: WideString read FbutKodu write FbutKodu;
property drTescilNo: WideString read FdrTescilNo write FdrTescilNo;
property hizmetSunucuRefNo: WideString read FhizmetSunucuRefNo write FhizmetSunucuRefNo;
property islemTarihi: WideString read FislemTarihi write FislemTarihi;
property sagSol: WideString read FsagSol write FsagSol;
end;

ArrayOf_tns2_nillable_AmeliyatveGirisimBilgisiDVO = array of AmeliyatveGirisimBilgisiDVO; { "http://servisler.ws.gss.sgk.gov.tr" }


// ************************************************************************ //
// Namespace : http://dvo.gss.sgk.gov.tr
// ************************************************************************ //
TetkikveRadyolojiBilgisiDVO = class(TRemotable)
private
Fadet: Integer;
FbransKodu: WideString;
FbutKodu: WideString;
FdrTescilNo: WideString;
FhizmetSunucuRefNo: WideString;
FislemTarihi: WideString;
published
property adet: Integer read Fadet write Fadet;
property bransKodu: WideString read FbransKodu write FbransKodu;
property butKodu: WideString read FbutKodu write FbutKodu;
property drTescilNo: WideString read FdrTescilNo write FdrTescilNo;
property hizmetSunucuRefNo: WideString read FhizmetSunucuRefNo write FhizmetSunucuRefNo;
property islemTarihi: WideString read FislemTarihi write FislemTarihi;
end;

ArrayOf_tns2_nillable_TetkikveRadyolojiBilgisiDVO = array of TetkikveRadyolojiBilgisiDVO; { "http://servisler.ws.gss.sgk.gov.tr" }


// ************************************************************************ //
// Namespace : http://dvo.gss.sgk.gov.tr
// ************************************************************************ //
RaporBilgisiDVO = class(TRemotable)
private
FhizmetSunucuRefNo: WideString;
FraporNo: WideString;
FraporVerenTesisKodu: Integer;
FraporVerilisTarihi: WideString;
published
property hizmetSunucuRefNo: WideString read FhizmetSunucuRefNo write FhizmetSunucuRefNo;
property raporNo: WideString read FraporNo write FraporNo;
property raporVerenTesisKodu: Integer read FraporVerenTesisKodu write FraporVerenTesisKodu;
property raporVerilisTarihi: WideString read FraporVerilisTarihi write FraporVerilisTarihi;
end;

ArrayOf_tns2_nillable_RaporBilgisiDVO = array of RaporBilgisiDVO; { "http://servisler.ws.gss.sgk.gov.tr" }


// ************************************************************************ //
// Namespace : http://dvo.gss.sgk.gov.tr
// ************************************************************************ //
TahlilBilgisiDVO = class(TRemotable)
private
Fadet: Integer;
FbransKodu: WideString;
FbutKodu: WideString;
FdrTescilNo: WideString;
FhizmetSunucuRefNo: WideString;
FislemTarihi: WideString;
published
property adet: Integer read Fadet write Fadet;
property bransKodu: WideString read FbransKodu write FbransKodu;
property butKodu: WideString read FbutKodu write FbutKodu;
property drTescilNo: WideString read FdrTescilNo write FdrTescilNo;
property hizmetSunucuRefNo: WideString read FhizmetSunucuRefNo write FhizmetSunucuRefNo;
property islemTarihi: WideString read FislemTarihi write FislemTarihi;
end;

ArrayOf_tns2_nillable_TahlilBilgisiDVO = array of TahlilBilgisiDVO; { "http://servisler.ws.gss.sgk.gov.tr" }


// ************************************************************************ //
// Namespace : http://dvo.gss.sgk.gov.tr
// ************************************************************************ //
TaniBilgisiDVO = class(TRemotable)
private
FhizmetSunucuRefNo: WideString;
FbirincilTani: WideString;
FtaniKodu: WideString;
FtaniTipi: WideString;
published
property hizmetSunucuRefNo: WideString read FhizmetSunucuRefNo write FhizmetSunucuRefNo;
property birincilTani: WideString read FbirincilTani write FbirincilTani;
property taniKodu: WideString read FtaniKodu write FtaniKodu;
property taniTipi: WideString read FtaniTipi write FtaniTipi;
end;

ArrayOf_tns2_nillable_TaniBilgisiDVO = array of TaniBilgisiDVO; { "http://servisler.ws.gss.sgk.gov.tr" }


// ************************************************************************ //
// Namespace : http://dvo.gss.sgk.gov.tr
// ************************************************************************ //
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;
public
destructor Destroy; override;
published
property aciklama: WideString read Faciklama write Faciklama;
property bransKodu: WideString read FbransKodu write FbransKodu;
property digerIslemBilgileri: ArrayOf_tns2_nillable_DigerIslemBilgisiDVO read FdigerIslemBilgileri write FdigerIslemBilgileri;
property disBilgileri: ArrayOf_tns2_nillable_DisBilgisiDVO read FdisBilgileri write FdisBilgileri;
property hastaCikisTarihi: WideString read FhastaCikisTarihi write FhastaCikisTarihi;
property hastaYatisBilgileri: ArrayOf_tns2_nillable_HastaYatisBilgisiDVO read FhastaYatisBilgileri write FhastaYatisBilgileri;
property ilacBilgileri: ArrayOf_tns2_nillable_IlacBilgisiDVO read FilacBilgileri write FilacBilgileri;
property istisnaiDurum: WideString read FistisnaiDurum write FistisnaiDurum;
property konsultasyonBilgileri: ArrayOf_tns2_nillable_KonsultasyonBilgisiDVO read FkonsultasyonBilgileri write FkonsultasyonBilgileri;
property malzemeBilgileri: ArrayOf_tns2_nillable_MalzemeBilgisiDVO read FmalzemeBilgileri write FmalzemeBilgileri;
property muayeneBilgisi: MuayeneBilgisiDVO read FmuayeneBilgisi write FmuayeneBilgisi;
property ameliyatveGirisimBilgileri: ArrayOf_tns2_nillable_AmeliyatveGirisimBilgisiDVO read FameliyatveGirisimBilgileri write FameliyatveGirisimBilgileri;
property protokolNo: WideString read FprotokolNo write FprotokolNo;
property tetkikveRadyolojiBilgileri: ArrayOf_tns2_nillable_TetkikveRadyolojiBilgisiDVO read FtetkikveRadyolojiBilgileri write FtetkikveRadyolojiBilgileri;
property raporBilgileri: ArrayOf_tns2_nillable_RaporBilgisiDVO read FraporBilgileri write FraporBilgileri;
property saglikTesisKodu: Integer read FsaglikTesisKodu write FsaglikTesisKodu;
property sorguTuru: WideString read FsorguTuru write FsorguTuru;
property taburcuKodu: WideString read FtaburcuKodu write FtaburcuKodu;
property tahlilBilgileri: ArrayOf_tns2_nillable_TahlilBilgisiDVO read FtahlilBilgileri write FtahlilBilgileri;
property takipNo: WideString read FtakipNo write FtakipNo;
property tanilar: ArrayOf_tns2_nillable_TaniBilgisiDVO read Ftanilar write Ftanilar;
property tedaviTuru: WideString read FtedaviTuru write FtedaviTuru;
end;



// ************************************************************************ //
// Namespace : http://dvo.gss.sgk.gov.tr
// ************************************************************************ //
IslemFiyatBilgisiDVO = class(TRemotable)
private
FislemButKodu: WideString;
FhizmetSunucuRefNo: WideString;
FislemSiraNo: WideString;
Ftutar: Double;
published
property islemButKodu: WideString read FislemButKodu write FislemButKodu;
property hizmetSunucuRefNo: WideString read FhizmetSunucuRefNo write FhizmetSunucuRefNo;
property islemSiraNo: WideString read FislemSiraNo write FislemSiraNo;
property tutar: Double read Ftutar write Ftutar;
end;

ArrayOf_tns2_nillable_IslemFiyatBilgisiDVO = array of IslemFiyatBilgisiDVO; { "http://servisler.ws.gss.sgk.gov.tr" }


// ************************************************************************ //
// Namespace : http://dvo.gss.sgk.gov.tr
// ************************************************************************ //
OdemeSorguHataBilgisiDVO = class(TRemotable)
private
FislemButKodu: WideString;
FhataKodu: WideString;
FhataMesaji: WideString;
FhizmetSunucuRefNo: WideString;
FislemSiraNo: WideString;
published
property islemButKodu: WideString read FislemButKodu write FislemButKodu;
property hataKodu: WideString read FhataKodu write FhataKodu;
property hataMesaji: WideString read FhataMesaji write FhataMesaji;
property hizmetSunucuRefNo: WideString read FhizmetSunucuRefNo write FhizmetSunucuRefNo;
property islemSiraNo: WideString read FislemSiraNo write FislemSiraNo;
end;

ArrayOf_tns2_nillable_OdemeSorguHataBilgisiDVO = array of OdemeSorguHataBilgisiDVO; { "http://servisler.ws.gss.sgk.gov.tr" }


// ************************************************************************ //
// Namespace : http://dvo.gss.sgk.gov.tr
// ************************************************************************ //
OdemeSorguCevapDVO = class(TRemotable)
private
FislemBilgileri: ArrayOf_tns2_nillable_IslemFiyatBilgisiDVO;
FtoplamTutar: Double;
Fdurum: WideString;
FhataliKayitlar: ArrayOf_tns2_nillable_OdemeSorguHataBilgisiDVO;
FsonucKodu: WideString;
FsonucMesaji: WideString;
public
destructor Destroy; override;
published
property islemBilgileri: ArrayOf_tns2_nillable_IslemFiyatBilgisiDVO read FislemBilgileri write FislemBilgileri;
property toplamTutar: Double read FtoplamTutar write FtoplamTutar;
property durum: WideString read Fdurum write Fdurum;
property hataliKayitlar: ArrayOf_tns2_nillable_OdemeSorguHataBilgisiDVO read FhataliKayitlar write FhataliKayitlar;
property sonucKodu: WideString read FsonucKodu write FsonucKodu;
property sonucMesaji: WideString read FsonucMesaji write FsonucMesaji;
end;



// ************************************************************************ //
// Namespace : http://dvo.gss.sgk.gov.tr
// ************************************************************************ //
OdemeSorguOkuGirisDVO = class(TRemotable)
private
FsaglikTesisKodu: Integer;
FtakipNo: WideString;
published
property saglikTesisKodu: Integer read FsaglikTesisKodu write FsaglikTesisKodu;
property takipNo: WideString read FtakipNo write FtakipNo;
end;



// ************************************************************************ //
// Namespace : http://dvo.gss.sgk.gov.tr
// ************************************************************************ //
HastaBilgileriDVO = class(TRemotable)
private
Fad: WideString;
Fcinsiyet: WideString;
FdogumTarihi: WideString;
FkarneNo: WideString;
FsosyalGuvenlikNo: WideString;
Fsoyad: WideString;
FtcKimlikNo: WideString;
FyakinlikKodu: WideString;
published
property ad: WideString read Fad write Fad;
property cinsiyet: WideString read Fcinsiyet write Fcinsiyet;
property dogumTarihi: WideString read FdogumTarihi write FdogumTarihi;
property karneNo: WideString read FkarneNo write FkarneNo;
property sosyalGuvenlikNo: WideString read FsosyalGuvenlikNo write FsosyalGuvenlikNo;
property soyad: WideString read Fsoyad write Fsoyad;
property tcKimlikNo: WideString read FtcKimlikNo write FtcKimlikNo;
property yakinlikKodu: WideString read FyakinlikKodu write FyakinlikKodu;
end;



// ************************************************************************ //
// Namespace : http://dvo.gss.sgk.gov.tr
// ************************************************************************ //
OdemeSorguOkuCevapDVO = class(TRemotable)
private
FbransKodu: WideString;
FdigerIslemBilgileri: ArrayOf_tns2_nillable_DigerIslemBilgisiDVO;
FdisBilgileri: ArrayOf_tns2_nillable_DisBilgisiDVO;
FdurumKodu: WideString;
FhastaBilgileri: HastaBilgileriDVO;
FhastaCikisTarihi: WideString;
FhastaYatisBilgileri: ArrayOf_tns2_nillable_HastaYatisBilgisiDVO;
FhizmetAciklama: WideString;
FilacBilgileri: ArrayOf_tns2_nillable_IlacBilgisiDVO;
FistisnaiDurum: WideString;
FkonsultasyonBilgileri: ArrayOf_tns2_nillable_KonsultasyonBilgisiDVO;
FmalzemeBilgileri: ArrayOf_tns2_nillable_MalzemeBilgisiDVO;
FmuayeneBilgisi: MuayeneBilgisiDVO;
FpaketAmeliyatBilgileri: ArrayOf_tns2_nillable_AmeliyatveGirisimBilgisiDVO;
FprotokolNo: WideString;
FradyolojiGoruntuBilgileri: ArrayOf_tns2_nillable_TetkikveRadyolojiBilgisiDVO;
FraporBilgileri: ArrayOf_tns2_nillable_RaporBilgisiDVO;
FsaglikTesisKodu: WideString;
FsonucKodu: WideString;
FsonucMesaji: WideString;
FsorguTuru: WideString;
FtaburcuKodu: WideString;
FtahlilBilgileri: ArrayOf_tns2_nillable_TahlilBilgisiDVO;
FtakipNo: WideString;
Ftanilar: ArrayOf_tns2_nillable_TaniBilgisiDVO;
FtedaviTuru: WideString;
FtoplamTutar: WideString;
public
destructor Destroy; override;
published
property bransKodu: WideString read FbransKodu write FbransKodu;
property digerIslemBilgileri: ArrayOf_tns2_nillable_DigerIslemBilgisiDVO read FdigerIslemBilgileri write FdigerIslemBilgileri;
property disBilgileri: ArrayOf_tns2_nillable_DisBilgisiDVO read FdisBilgileri write FdisBilgileri;
property durumKodu: WideString read FdurumKodu write FdurumKodu;
property hastaBilgileri: HastaBilgileriDVO read FhastaBilgileri write FhastaBilgileri;
property hastaCikisTarihi: WideString read FhastaCikisTarihi write FhastaCikisTarihi;
property hastaYatisBilgileri: ArrayOf_tns2_nillable_HastaYatisBilgisiDVO read FhastaYatisBilgileri write FhastaYatisBilgileri;
property hizmetAciklama: WideString read FhizmetAciklama write FhizmetAciklama;
property ilacBilgileri: ArrayOf_tns2_nillable_IlacBilgisiDVO read FilacBilgileri write FilacBilgileri;
property istisnaiDurum: WideString read FistisnaiDurum write FistisnaiDurum;
property konsultasyonBilgileri: ArrayOf_tns2_nillable_KonsultasyonBilgisiDVO read FkonsultasyonBilgileri write FkonsultasyonBilgileri;
property malzemeBilgileri: ArrayOf_tns2_nillable_MalzemeBilgisiDVO read FmalzemeBilgileri write FmalzemeBilgileri;
property muayeneBilgisi: MuayeneBilgisiDVO read FmuayeneBilgisi write FmuayeneBilgisi;
property paketAmeliyatBilgileri: ArrayOf_tns2_nillable_AmeliyatveGirisimBilgisiDVO read FpaketAmeliyatBilgileri write FpaketAmeliyatBilgileri;
property protokolNo: WideString read FprotokolNo write FprotokolNo;
property radyolojiGoruntuBilgileri: ArrayOf_tns2_nillable_TetkikveRadyolojiBilgisiDVO read FradyolojiGoruntuBilgileri write FradyolojiGoruntuBilgileri;
property raporBilgileri: ArrayOf_tns2_nillable_RaporBilgisiDVO read FraporBilgileri write FraporBilgileri;
property saglikTesisKodu: WideString read FsaglikTesisKodu write FsaglikTesisKodu;
property sonucKodu: WideString read FsonucKodu write FsonucKodu;
property sonucMesaji: WideString read FsonucMesaji write FsonucMesaji;
property sorguTuru: WideString read FsorguTuru write FsorguTuru;
property taburcuKodu: WideString read FtaburcuKodu write FtaburcuKodu;
property tahlilBilgileri: ArrayOf_tns2_nillable_TahlilBilgisiDVO read FtahlilBilgileri write FtahlilBilgileri;
property takipNo: WideString read FtakipNo write FtakipNo;
property tanilar: ArrayOf_tns2_nillable_TaniBilgisiDVO read Ftanilar write Ftanilar;
property tedaviTuru: WideString read FtedaviTuru write FtedaviTuru;
property toplamTutar: WideString read FtoplamTutar write FtoplamTutar;
end;


// ************************************************************************ //
// Namespace : http://servisler.ws.gss.sgk.gov.tr
// transport : http://schemas.xmlsoap.org/soap/http
// style : document
// binding : OdemeBilgisiIslemleriSoapBinding
// service : OdemeBilgisiIslemleriService
// port : OdemeBilgisiIslemleri
// URL : http://saglik.sgk.gov.tr:80/saglikws/se ... iIslemleri
// ************************************************************************ //
OdemeBilgisiIslemleri = interface(IInvokable)
['{ADD4A895-8E0C-102C-9C91-2B604A7BAD9D}']
function odemeBilgisiKaydet(const odemeSorguGiris: OdemeSorguGirisDVO): OdemeSorguCevapDVO; stdcall;
function odemeBilgisiOku(const odemeSorguOkuGiris: OdemeSorguOkuGirisDVO): OdemeSorguOkuCevapDVO; stdcall;
end;

function GetOdemeBilgisiIslemleri(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): OdemeBilgisiIslemleri;


implementation

function GetOdemeBilgisiIslemleri(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): OdemeBilgisiIslemleri;
const
defWSDL = 'http://saglik.sgk.gov.tr/saglikws/servi ... mleri.wsdl';
defURL = 'http://saglik.sgk.gov.tr:80/saglikws/se ... iIslemleri';
defSvc = 'OdemeBilgisiIslemleriService';
defPrt = 'OdemeBilgisiIslemleri';
var
RIO: THTTPRIO;
begin
Result := nil;
if (Addr = '') then
begin
if UseWSDL then
Addr := defWSDL
else
Addr := defURL;
end;
if HTTPRIO = nil then
RIO := THTTPRIO.Create(nil)
else
RIO := HTTPRIO;
try
Result := (RIO as OdemeBilgisiIslemleri);
if UseWSDL then
begin
RIO.WSDLLocation := Addr;
RIO.Service := defSvc;
RIO.Port := defPrt;
end else
RIO.URL := Addr;
finally
if (Result = nil) and (HTTPRIO = nil) then
RIO.Free;
end;
end;


destructor OdemeSorguGirisDVO.Destroy;
var
I: Integer;
begin
for I := 0 to Length(FdigerIslemBilgileri)-1 do
if Assigned(FdigerIslemBilgileri) then
FdigerIslemBilgileri.Free;
SetLength(FdigerIslemBilgileri, 0);
for I := 0 to Length(FdisBilgileri)-1 do
if Assigned(FdisBilgileri) then
FdisBilgileri.Free;
SetLength(FdisBilgileri, 0);
for I := 0 to Length(FhastaYatisBilgileri)-1 do
if Assigned(FhastaYatisBilgileri) then
FhastaYatisBilgileri.Free;
SetLength(FhastaYatisBilgileri, 0);
for I := 0 to Length(FilacBilgileri)-1 do
if Assigned(FilacBilgileri) then
FilacBilgileri.Free;
SetLength(FilacBilgileri, 0);
for I := 0 to Length(FkonsultasyonBilgileri)-1 do
if Assigned(FkonsultasyonBilgileri) then
FkonsultasyonBilgileri.Free;
SetLength(FkonsultasyonBilgileri, 0);
for I := 0 to Length(FmalzemeBilgileri)-1 do
if Assigned(FmalzemeBilgileri[I]) then
FmalzemeBilgileri[I].Free;
SetLength(FmalzemeBilgileri, 0);
for I := 0 to Length(FameliyatveGirisimBilgileri)-1 do
if Assigned(FameliyatveGirisimBilgileri[I]) then
FameliyatveGirisimBilgileri[I].Free;
SetLength(FameliyatveGirisimBilgileri, 0);
for I := 0 to Length(FtetkikveRadyolojiBilgileri)-1 do
if Assigned(FtetkikveRadyolojiBilgileri[I]) then
FtetkikveRadyolojiBilgileri[I].Free;
SetLength(FtetkikveRadyolojiBilgileri, 0);
for I := 0 to Length(FraporBilgileri)-1 do
if Assigned(FraporBilgileri[I]) then
FraporBilgileri[I].Free;
SetLength(FraporBilgileri, 0);
for I := 0 to Length(FtahlilBilgileri)-1 do
if Assigned(FtahlilBilgileri[I]) then
FtahlilBilgileri[I].Free;
SetLength(FtahlilBilgileri, 0);
for I := 0 to Length(Ftanilar)-1 do
if Assigned(Ftanilar[I]) then
Ftanilar[I].Free;
SetLength(Ftanilar, 0);
if Assigned(FmuayeneBilgisi) then
FmuayeneBilgisi.Free;
inherited Destroy;
end;

destructor OdemeSorguCevapDVO.Destroy;
var
I: Integer;
begin
for I := 0 to Length(FislemBilgileri)-1 do
if Assigned(FislemBilgileri[I]) then
FislemBilgileri[I].Free;
SetLength(FislemBilgileri, 0);
for I := 0 to Length(FhataliKayitlar)-1 do
if Assigned(FhataliKayitlar[I]) then
FhataliKayitlar[I].Free;
SetLength(FhataliKayitlar, 0);
inherited Destroy;
end;

destructor OdemeSorguOkuCevapDVO.Destroy;
var
I: Integer;
begin
for I := 0 to Length(FdigerIslemBilgileri)-1 do
if Assigned(FdigerIslemBilgileri[I]) then
FdigerIslemBilgileri[I].Free;
SetLength(FdigerIslemBilgileri, 0);
for I := 0 to Length(FdisBilgileri)-1 do
if Assigned(FdisBilgileri[I]) then
FdisBilgileri[I].Free;
SetLength(FdisBilgileri, 0);
for I := 0 to Length(FhastaYatisBilgileri)-1 do
if Assigned(FhastaYatisBilgileri[I]) then
FhastaYatisBilgileri[I].Free;
SetLength(FhastaYatisBilgileri, 0);
for I := 0 to Length(FilacBilgileri)-1 do
if Assigned(FilacBilgileri[I]) then
FilacBilgileri[I].Free;
SetLength(FilacBilgileri, 0);
for I := 0 to Length(FkonsultasyonBilgileri)-1 do
if Assigned(FkonsultasyonBilgileri[I]) then
FkonsultasyonBilgileri[I].Free;
SetLength(FkonsultasyonBilgileri, 0);
for I := 0 to Length(FmalzemeBilgileri)-1 do
if Assigned(FmalzemeBilgileri[I]) then
FmalzemeBilgileri[I].Free;
SetLength(FmalzemeBilgileri, 0);
for I := 0 to Length(FpaketAmeliyatBilgileri)-1 do
if Assigned(FpaketAmeliyatBilgileri[I]) then
FpaketAmeliyatBilgileri[I].Free;
SetLength(FpaketAmeliyatBilgileri, 0);
for I := 0 to Length(FradyolojiGoruntuBilgileri)-1 do
if Assigned(FradyolojiGoruntuBilgileri[I]) then
FradyolojiGoruntuBilgileri[I].Free;
SetLength(FradyolojiGoruntuBilgileri, 0);
for I := 0 to Length(FraporBilgileri)-1 do
if Assigned(FraporBilgileri[I]) then
FraporBilgileri[I].Free;
SetLength(FraporBilgileri, 0);
for I := 0 to Length(FtahlilBilgileri)-1 do
if Assigned(FtahlilBilgileri[I]) then
FtahlilBilgileri[I].Free;
SetLength(FtahlilBilgileri, 0);
for I := 0 to Length(Ftanilar)-1 do
if Assigned(Ftanilar[I]) then
Ftanilar[I].Free;
SetLength(Ftanilar, 0);
if Assigned(FhastaBilgileri) then
FhastaBilgileri.Free;
if Assigned(FmuayeneBilgisi) then
FmuayeneBilgisi.Free;
inherited Destroy;
end;

initialization
InvRegistry.RegisterInterface(TypeInfo(OdemeBilgisiIslemleri), 'http://servisler.ws.gss.sgk.gov.tr', 'UTF-8');
InvRegistry.RegisterDefaultSOAPAction(TypeInfo(OdemeBilgisiIslemleri), '');
InvRegistry.RegisterInvokeOptions(TypeInfo(OdemeBilgisiIslemleri), ioDocument);
RemClassRegistry.RegisterXSClass(MuayeneBilgisiDVO, 'http://dvo.gss.sgk.gov.tr', 'MuayeneBilgisiDVO');
RemClassRegistry.RegisterXSClass(DigerIslemBilgisiDVO, 'http://dvo.gss.sgk.gov.tr', 'DigerIslemBilgisiDVO');
RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOf_tns2_nillable_DigerIslemBilgisiDVO), 'http://servisler.ws.gss.sgk.gov.tr', 'ArrayOf_tns2_nillable_DigerIslemBilgisiDVO');
RemClassRegistry.RegisterXSClass(DisBilgisiDVO, 'http://dvo.gss.sgk.gov.tr', 'DisBilgisiDVO');
RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOf_tns2_nillable_DisBilgisiDVO), 'http://servisler.ws.gss.sgk.gov.tr', 'ArrayOf_tns2_nillable_DisBilgisiDVO');
RemClassRegistry.RegisterXSClass(HastaYatisBilgisiDVO, 'http://dvo.gss.sgk.gov.tr', 'HastaYatisBilgisiDVO');
RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOf_tns2_nillable_HastaYatisBilgisiDVO), 'http://servisler.ws.gss.sgk.gov.tr', 'ArrayOf_tns2_nillable_HastaYatisBilgisiDVO');
RemClassRegistry.RegisterXSClass(IlacBilgisiDVO, 'http://dvo.gss.sgk.gov.tr', 'IlacBilgisiDVO');
RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOf_tns2_nillable_IlacBilgisiDVO), 'http://servisler.ws.gss.sgk.gov.tr', 'ArrayOf_tns2_nillable_IlacBilgisiDVO');
RemClassRegistry.RegisterXSClass(KonsultasyonBilgisiDVO, 'http://dvo.gss.sgk.gov.tr', 'KonsultasyonBilgisiDVO');
RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOf_tns2_nillable_KonsultasyonBilgisiDVO), 'http://servisler.ws.gss.sgk.gov.tr', 'ArrayOf_tns2_nillable_KonsultasyonBilgisiDVO');
RemClassRegistry.RegisterXSClass(MalzemeBilgisiDVO, 'http://dvo.gss.sgk.gov.tr', 'MalzemeBilgisiDVO');
RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOf_tns2_nillable_MalzemeBilgisiDVO), 'http://servisler.ws.gss.sgk.gov.tr', 'ArrayOf_tns2_nillable_MalzemeBilgisiDVO');
RemClassRegistry.RegisterXSClass(AmeliyatveGirisimBilgisiDVO, 'http://dvo.gss.sgk.gov.tr', 'AmeliyatveGirisimBilgisiDVO');
RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOf_tns2_nillable_AmeliyatveGirisimBilgisiDVO), 'http://servisler.ws.gss.sgk.gov.tr', 'ArrayOf_tns2_nillable_AmeliyatveGirisimBilgisiDVO');
RemClassRegistry.RegisterXSClass(TetkikveRadyolojiBilgisiDVO, 'http://dvo.gss.sgk.gov.tr', 'TetkikveRadyolojiBilgisiDVO');
RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOf_tns2_nillable_TetkikveRadyolojiBilgisiDVO), 'http://servisler.ws.gss.sgk.gov.tr', 'ArrayOf_tns2_nillable_TetkikveRadyolojiBilgisiDVO');
RemClassRegistry.RegisterXSClass(RaporBilgisiDVO, 'http://dvo.gss.sgk.gov.tr', 'RaporBilgisiDVO');
RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOf_tns2_nillable_RaporBilgisiDVO), 'http://servisler.ws.gss.sgk.gov.tr', 'ArrayOf_tns2_nillable_RaporBilgisiDVO');
RemClassRegistry.RegisterXSClass(TahlilBilgisiDVO, 'http://dvo.gss.sgk.gov.tr', 'TahlilBilgisiDVO');
RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOf_tns2_nillable_TahlilBilgisiDVO), 'http://servisler.ws.gss.sgk.gov.tr', 'ArrayOf_tns2_nillable_TahlilBilgisiDVO');
RemClassRegistry.RegisterXSClass(TaniBilgisiDVO, 'http://dvo.gss.sgk.gov.tr', 'TaniBilgisiDVO');
RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOf_tns2_nillable_TaniBilgisiDVO), 'http://servisler.ws.gss.sgk.gov.tr', 'ArrayOf_tns2_nillable_TaniBilgisiDVO');
RemClassRegistry.RegisterXSClass(OdemeSorguGirisDVO, 'http://dvo.gss.sgk.gov.tr', 'OdemeSorguGirisDVO');
RemClassRegistry.RegisterXSClass(IslemFiyatBilgisiDVO, 'http://dvo.gss.sgk.gov.tr', 'IslemFiyatBilgisiDVO');
RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOf_tns2_nillable_IslemFiyatBilgisiDVO), 'http://servisler.ws.gss.sgk.gov.tr', 'ArrayOf_tns2_nillable_IslemFiyatBilgisiDVO');
RemClassRegistry.RegisterXSClass(OdemeSorguHataBilgisiDVO, 'http://dvo.gss.sgk.gov.tr', 'OdemeSorguHataBilgisiDVO');
RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOf_tns2_nillable_OdemeSorguHataBilgisiDVO), 'http://servisler.ws.gss.sgk.gov.tr', 'ArrayOf_tns2_nillable_OdemeSorguHataBilgisiDVO');
RemClassRegistry.RegisterXSClass(OdemeSorguCevapDVO, 'http://dvo.gss.sgk.gov.tr', 'OdemeSorguCevapDVO');
RemClassRegistry.RegisterXSClass(OdemeSorguOkuGirisDVO, 'http://dvo.gss.sgk.gov.tr', 'OdemeSorguOkuGirisDVO');
RemClassRegistry.RegisterXSClass(HastaBilgileriDVO, 'http://dvo.gss.sgk.gov.tr', 'HastaBilgileriDVO');
RemClassRegistry.RegisterXSClass(OdemeSorguOkuCevapDVO, 'http://dvo.gss.sgk.gov.tr', 'OdemeSorguOkuCevapDVO');

end.
Başa dön
Cevapla

“Programlama” sayfasına dön