Kimlik Paylaşım Sistemi

fesiharslan · Mesaj gönderen **fesiharslan** » 15 Nis 2010 03:33

Bende bu konuda çok araştırma yaptım. Fakat bir çözüme ulaşamadım. Hayırsever bir uzman delphi yazılımcısı çıkıp ta bu konuda bize yardımcı olursa sevimirim.

meron06 · Mesaj gönderen **meron06** » 21 Nis 2010 01:21

sorun hala çözülmediyse bana mail atın kodlarını yollayım

Lost Soul · Mesaj gönderen **Lost Soul** » 21 Nis 2010 01:25

direk burada ya da makale ve ipucu bölümünde yayımlayıp forumda katkıda bulunsanız.

meron06 · Mesaj gönderen **meron06** » 22 Nis 2010 10:48

"direk burada ya da makale ve ipucu bölümünde yayımlayıp forumda katkıda bulunsanız.".çok isterim ama yoğun bir çalışma temposu içindeyim musait bi zamanımda yayınlayacağım

fesiharslan · Mesaj gönderen **fesiharslan** » 24 Nis 2010 10:52

meron06
Mailini göremedim. Mail adresini yayınlayabilirsen çok sevinirim. Çünkü bu konuda çok acil yardıma ihtiyacım var.

meron06 · Mesaj gönderen **meron06** » 24 Nis 2010 04:03

arkadaşlar "trcop" isimli üyeye kodu gönderdim çok yoğun çalışıyorum arkadaştan talep ederseniz yayınlayacaktır.yayınlamazsa önümüzdeki hafta içi musait bi zamanımda burda yayınlarım .

trcop · Mesaj gönderen **trcop** » 25 Nis 2010 11:05

Sevgili Arkadaşlar

Evet Meron06 arkadaşıma teşekkür ediyorum. Kimlik Paylaşımı ile ilgili bir çalışmasını göndermiş.

Ancak şuan kullanıcı adı ve şifrem olmadığından deneyemidim. Kodu (Ekte) burdan paylaşacağım sizlerle

Sanırım http://www.nvi.gov.tr (Mernis) adresinden çözüm değil gibi.

Bu Kod ile Sağlık bakanlığı üzerindeki sevrverden yanıt alınabilir sanırım.

Umarım işimize yarar.

Kodu deneyip sonuç alan arkadaşlardan düzeltilmiş halini yayımlamaları ümidiyle...

fesiharslan · Mesaj gönderen **fesiharslan** » 26 Nis 2010 09:01

Nufus ve Vatandaşlık Web Servisi Ws Security Digest authentication ile çalışıyor. Göndermiş olduğunuz demo ise basic authentication methoduna bir örnektir.
Bu kadar zamandır bu konuya bir çözüm bulunamaması, ya bizim bu konuda çok bilgisiz olduğumuzu yada bu işi gerçekten bilen arkadaşların bize yardım etmekten çekinmesi manasına geliyor.
İnşallah hayırsever bir delphi uzmanı arkadaş bu konuya çözüm bulur ve bizi sevindirir. Böylece bu emektar başlık da yıllar sonra bir daha gündeme çözümsüzlüklerle gelmez. Herkesin faydalanabileceği bir başlık olur.

fesiharslan · Mesaj gönderen **fesiharslan** » 26 Nis 2010 09:12

trcop 'un 2009 yılında gönderdiği kod:

Hdr.MustUnderstand := False;
Hdr.Timestamp := TimeStamp.Create;
Hdr.Timestamp.Id := 'Timestamp-27789929'; // Burdaki sayılar böyle mi kalacak ??
Hdr.Timestamp.Created := Created.Create;
Hdr.Timestamp.Created.AsDateTime := Now; //burda utc zaman dilimi kullanılacak diyor. (now diyoruz. acaba bu UTC standardını veriyor mu?)
Hdr.Timestamp.Expires := Expires.Create;
Hdr.Timestamp.Expires.AsDateTime := Now;
Hdr.UsernameToken := UsernameToken.Create;
Hdr.UsernameToken.Id := 'UsernameToken-32278793'; // Burdaki sayılar böyle mi kalacak ??
Hdr.UsernameToken.Username := Edit1.Text;
Hdr.UsernameToken.Password := Password.Create;
Hdr.UsernameToken.Password.Type_ :='http://docs.oasis-open.org/wss/2004/01/ ... token-prof';
Hdr.UsernameToken.Password.Text := Edit2.Text;
Hdr.UsernameToken.Nonce := '/qmJdpfcepocmQ19ntGmVw=='; // Burdaki KAREKTERLER böyle mi kalacak ??
Hdr.UsernameToken.Created := Created.Create;
Hdr.UsernameToken.Created.XSToNative('2008-02-06T14:04:08Z'); //????
Headers := GetKPSSOAP(True, '', HTTPRIO1) as ISOAPHeaders;
Headers.OwnsSentHeaders:=true;
Headers.Send(hdr);
HTTPRIO1.SOAPHeaders.SetOwnsSentHeaders(true);

Burada özellikle aşağıdaki 3 değer alınarak bir hash değeri üretilir ve bu değer web servise oluşan bu yeni değer criptolu olarak gönderilir. (Hdr.UsernameToken.Password.Text := Hash(aaaa);)
Hdr.UsernameToken.Id := 'UsernameToken-32278793';
Hdr.UsernameToken.Nonce := '/qmJdpfcepocmQ19ntGmVw==';
Password := Edit2.Text;

Ayrıca Password tipi de
Hdr.UsernameToken.Password.Type_ ...#PasswordDigest
olmalıdır.

Kısaca Ws Security digest authentication bu mekanizma ile çalışıyor. fakat benim delphi bilgimin yetersizliğinden bu konuya bir çözüm bulamadım. Bu konu üzerinde çözüme ulaşan veya ulaşabilecek arkadaşlar yardımcı olursa sevinirim.
Şimdiden teşekkür eder iyi çalışmalar dilerim.

deltas · Mesaj gönderen **deltas** » 26 Nis 2010 06:08

S.a
Arkadaşlar aslında ben programlamayı bıraktım. Ama bırakmadan önceki son projem wse securty ile web servislere bağlanmaktı. Belki kullananlarınız vardır. Şu Sağlık bakanlığının sistemi. O sistem ile mernis birbirine benzer sistemler. sonuçta ona bağlantı yaparkende hdr.. 'lı kodların olduğu pas dosyasını kullanmıştım. Kullanırken bazı prblemler vardı. Nasıl çözdüğümü anlatayım belki sizlere yardımcı olur.
Bu konudada örnek olarak verilen pas dosyası ile oluşturulan *.xml verisi ile örnek veri arasında fark oluşuyordu. Bu farklardan dolayı "received content of invalid content-type setting: text/html - soap expects "text/xml"" şeklinde bi hata ile karşılaşıyordum. bende gönderdiğim xml dosyasını kaydettim. Sonra bu dosya ile örnek dosya arasındaki farkları belirleyip bu farkları httprio.beforeexcute işleminden önce değiştirdim (replace). bu işlem çok hızlı bi şekilde yaptığı için performansta bi sıkıntıda olmadı. Sonuçta giden verideki uyumsuzluğu ortadan kaldırmıştım. Belkide before işleminden önce benim yaptığım işlemi pas dosyasından gerekli değişikliği yapabilirirsıniz. örnek bi program hazırlarsanız ben üzerinde değişiklik yapmaya çalışırım. Ancak bunu deneyecek şifresi olan biriside lazım.

Mesaj gönderen **vkamadan** » 27 Nis 2010 04:52

Merhabalar ,
Benim kullanıcı adım ve şifrem var deneyebilirim ,
Fakat elimdeki kullanıcı adı alfanumerik, fakat WSDL de Integer olarak kabul ediyor orayıda anlamış değilim açıkçası.

deltas · Mesaj gönderen **deltas** » 27 Nis 2010 07:49

merniste kullanıcı adı alfanumeriktir. Sağlık Bkanalığında integer'dır. meron hocamın gönderdiği örnek sağlık bakanlığı içindir.

Lost Soul · Mesaj gönderen **Lost Soul** » 13 Eyl 2011 03:52

S.A.
Bu kimlik paylaşım meselesine ben de bulaştım. Ancak 01.06.2011 sistem değişti. https ile ssl korumalı olarak kimlik palaşımına geçildi
kodlardan bi frankenstein yaptık ama nihai olarak pek bi yol katemededik neticede de elde var zero.

Değişiklikten sonra çalışma yapan var lüften paylaşabilir mi?

Bu bizim frankenstein. Düzeltilecek gibi değil ama belki fikir verir.

Kod: Tümünü seç

var
  a: KPSTestServices;
  b: KPSServisSonucuKisiTemelBilgisi;
  RIO: THTTPRIO;
  Hdr: Security;
  Headers: ISOAPHeaders;
begin
  try
    RIO := THTTPRIO.Create(nil);
    Rio.HTTPWebNode.UserName := 'xxxxxx';
    Rio.HTTPWebNode.Password := 'xxxxxxx';
    Rio.Service := 'KPSTestServices';

    RIO.HTTPWebNode.InvokeOptions := [soIgnoreInvalidCerts,
      soNoSOAPActionHeader, soAutoCheckAccessPointViaUDDI];
    Rio.Converter.Options := Rio.Converter.Options + [soUTF8InHeader, soSOAP12
    { ,soDocument } ];
    Rio.HTTPWebNode.UseUTF8InHeader := True;
    Rio.OnBeforeExecute := RBeforeExecute;
    Rio.OnAfterExecute := RBeforeExecute;

    Hdr := Security.Create;

    Hdr.MustUnderstand := false;
    Hdr.Timestamp := Timestamp.Create;
    Hdr.Timestamp.Id := 'Timestamp-27789929';
    Hdr.Timestamp.Created := Created.Create;
    Hdr.Timestamp.Created.AsDateTime := Now;
    Hdr.Timestamp.Expires := Expires.Create;
    Hdr.Timestamp.Expires.AsDateTime := Now;
    Hdr.UsernameToken := UsernameToken.Create;
    Hdr.UsernameToken.Id := 'UsernameToken-32278793';
    Hdr.UsernameToken.UserName := 'xxxxxx';
    Hdr.UsernameToken.Password := Password.Create;
    Hdr.UsernameToken.Password.Type_ :=
      'http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-username-token-prof';
     
    Hdr.UsernameToken.Password.Text := 'xxxxxxxxxx';
    Hdr.UsernameToken.Nonce := '/qmJdpfcepocmQ19ntGmVw==';
    Hdr.UsernameToken.Created := Created.Create;
    Hdr.UsernameToken.Created.XSToNative('2008-02-06T14:04:08Z');

    Headers := GetKPSTestServices(false,
      'https://kps.saglik.gov.tr/Services/KPSTestServices.svc', Rio)
      as ISOAPHeaders;
    Headers.OwnsSentHeaders := True;
    Headers.Send(Hdr);
    Rio.SOAPHeaders.SetOwnsSentHeaders(True);

    a := GetKPSTestServices(false,
      'https://kps.saglik.gov.tr/Services/KPSTestServices.svc', Rio);

    b := a.TcKimlikNoIleKisiSorgula(StrToInt64(Edit1.Text));

    Showmessage(Format('%s %s', [b.Sonuc.Ad, b.Sonuc.Soyad]));
    FreeAndNil(a);
    Rio.Destroy;
  except
    on e: exception do
      Showmessage(e.Message);

  end;

bu frankenstain'a sonradan eklenenen bir unit.

Kod: Tümünü seç

unit WSSE;

interface

uses SysUtils, InvokeRegistry, SOAPHTTPClient, Types,IsapiApp,IsapiThreadPool,  XSBuiltIns;

const
  IS_OPTN=$0001;
  IS_ATTR=$0010;
  IS_TEXT=$0020;
  IS_REF =$0080;

type
  tTimestampFault=(wsu_MessageExpired);

  Id = type WideString;
  Nonce = type WideString;

  Created=class(TXSDateTime)
  end;

  Expires=class(TXSDateTime)
  end;

  Timestamp=class(TRemotable)
  private
    FCreated:Created;
    FExpires:Expires;
    FId: Id;
  public
    destructor Destroy; override;
  published
    property Created:Created Index (IS_OPTN) read FCreated write FCreated;
    property Expires:Expires Index (IS_OPTN) read FExpires write FExpires;
    property Id:Id Index (IS_ATTR) read FId write FId;
  end;

  AttributedString=class(TRemotable)
  private
    FText:WideString;
    FId:Id;
    FId_Specified:boolean;
    procedure SetId(Index:Integer; const AId:Id);
    function Id_Specified(Index:Integer):boolean;
  published
    property Text:WideString Index (IS_TEXT) read FText write FText;
    property Id:Id Index (IS_ATTR or IS_OPTN) read FId write SetId stored
Id_Specified;
  end;

  Password=class(AttributedString)
  private
    FType_:WideString;
    FType__Specified:boolean;
    procedure SetType_(Index:Integer; const AWideString:WideString);
    function Type__Specified(Index:Integer):boolean;
  published
    property Type_:WideString Index (IS_ATTR or IS_OPTN) read FType_ write
SetType_ stored Type__Specified;
  end;

  UsernameToken=class(TRemotable)
  private
    FUserName:string;
    FCreated:Created;
    FPassword:Password;
    FNonce: Nonce;
    FId: Id;
  public
    destructor Destroy; override;
  published
    property Username:String read FUsername write FUsername;
    property Password:Password read FPassword write FPassword;
    property Nonce: Nonce read FNonce write FNonce;
    property Created:Created index (IS_REF) read FCreated write FCreated;
    property Id:Id Index (IS_ATTR) read FId write FId;
  end;

  Security=class(TSOAPHeader)
  private
    FTimestamp:Timestamp;
    FUserNameToken:UserNameToken;
  public
    destructor Destroy; override;
  published
    property Timestamp:TimeStamp index (IS_REF) read FTimestamp write
FTimestamp;
    property UsernameToken:UsernameToken index (IS_REF) read FUserNameToken
write FUserNameToken;
  end;

implementation

destructor Timestamp.Destroy;
begin
  FreeAndNIL(FCreated);
  FreeAndNIL(FExpires);
  inherited Destroy;
end;

destructor UsernameToken.Destroy;
begin
  FreeAndNil(FPassword);
  inherited Destroy;
end;

procedure AttributedString.SetId(Index:Integer; const AId:Id);
begin
  FId:=AId;
  FId_Specified:=True;
end;

function AttributedString.Id_Specified(Index:Integer):boolean;
begin
  Result:=FId_Specified;
end;

procedure Password.SetType_(Index:Integer; const AWideString:WideString);
begin
  FType_:=AWideString;
  FType__Specified:=True;
end;

function Password.Type__Specified(Index:Integer):boolean;
begin
  Result:=FType__Specified;
end;

destructor Security.Destroy;
begin
  FreeAndNIL(FTimestamp);
  FreeAndNIL(FUserNameToken);
  inherited Destroy;
end;

const NS_SECEXT='http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd';
NS_UTILITY='http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd';

initialization
  RemClassRegistry.RegisterXSClass(Security, NS_SECEXT, 'Security');
  RemClassRegistry.RegisterXSClass(Timestamp, NS_UTILITY, 'Timestamp');
  RemClassRegistry.RegisterXSClass(Created, NS_UTILITY, 'Created');
  RemClassRegistry.RegisterXSClass(Expires, NS_UTILITY, 'Expires');
  RemClassRegistry.RegisterXSClass(UsernameToken, NS_SECEXT,
'UsernameToken');
  RemClassRegistry.RegisterXSClass(Password, NS_SECEXT, 'Password');
  RemClassRegistry.RegisterXSInfo(TypeInfo(Nonce), NS_SECEXT, 'Nonce');

  RemClassRegistry.RegisterXSInfo(TypeInfo(tTimestampFault), NS_UTILITY,
'tTimestampFault');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(tTimestampFault),
'wsu_MessageExpired', 'wsu:MessageExpired');
  RemClassRegistry.RegisterXSInfo(TypeInfo(Id), NS_UTILITY, 'Id');
  RemClassRegistry.RegisterXSClass(AttributedString, NS_SECEXT,
'AttributedString');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(Password), 'Type_',
'Type');
end.

Lost Soul · Mesaj gönderen **Lost Soul** » 13 Eyl 2011 03:53

Bu import edilen unit

Kod: Tümünü seç

// ************************************************************************ //
// The types declared in this file were generated from data read from the
// WSDL File described below:
// WSDL     : C:\Users\Lost Soul\Desktop\KPSTestServices.svc.xml
//  >Import : https://kps.saglik.gov.tr/Services/KPSTestServices.svc?wsdl=wsdl0
//  >Import : https://kps.saglik.gov.tr/Services/KPSTestServices.svc?wsdl=wsdl0>0
//  >Import : https://kps.saglik.gov.tr/Services/KPSTestServices.svc?xsd=xsd0
//  >Import : https://kps.saglik.gov.tr/Services/KPSTestServices.svc?xsd=xsd2
//  >Import : https://kps.saglik.gov.tr/Services/KPSTestServices.svc?xsd=xsd1
// Encoding : UTF-8
// Version  : 1.0
// (12.09.2011 16:14:40 - - $Rev: 24171 $)
// ************************************************************************ //

unit KPSTestServices1;

interface

uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;

const
  IS_OPTN = $0001;
  IS_UNBD = $0002;
  IS_NLBL = $0004;
  IS_REF  = $0080;


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 Embarcadero 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"[Gbl]
  // !:int             - "http://www.w3.org/2001/XMLSchema"[Gbl]
  // !:dateTime        - "http://www.w3.org/2001/XMLSchema"[Gbl]
  // !:long            - "http://www.w3.org/2001/XMLSchema"[Gbl]

  KPSServisSonucuArrayOfIlIlce = class;         { "http://www.saglik.gov.tr/KPS/2011"[GblCplx] }
  IlIlce               = class;                 { "http://www.saglik.gov.tr/KPS/2011"[GblCplx] }
  KPSServisSonucuKisiTemelBilgisi = class;      { "http://www.saglik.gov.tr/KPS/2011"[GblCplx] }
  KisiTemelBilgisi     = class;                 { "http://www.saglik.gov.tr/KPS/2011"[GblCplx] }
  KPSServisSonucuArrayOfKisiTemelBilgisi = class;   { "http://www.saglik.gov.tr/KPS/2011"[GblCplx] }
  KPSServisSonucuKisiCuzdanBilgisi = class;     { "http://www.saglik.gov.tr/KPS/2011"[GblCplx] }
  KisiCuzdanBilgisi    = class;                 { "http://www.saglik.gov.tr/KPS/2011"[GblCplx] }
  KPSServisSonucuYabanciKisiBilgisi = class;    { "http://www.saglik.gov.tr/KPS/2011"[GblCplx] }
  YabanciKisiBilgisi   = class;                 { "http://www.saglik.gov.tr/KPS/2011"[GblCplx] }
  KPSServisSonucuKisiAdresBilgisi = class;      { "http://www.saglik.gov.tr/KPS/2011"[GblCplx] }
  KisiAdresBilgisi     = class;                 { "http://www.saglik.gov.tr/KPS/2011"[GblCplx] }
  KPSServisSonucuAdresTipi = class;             { "http://www.saglik.gov.tr/KPS/2011"[GblCplx] }
  KPSServisSonucuArrayOfIlIlce2 = class;        { "http://www.saglik.gov.tr/KPS/2011"[GblElm] }
  IlIlce2              = class;                 { "http://www.saglik.gov.tr/KPS/2011"[GblElm] }
  KPSServisSonucuKisiTemelBilgisi2 = class;     { "http://www.saglik.gov.tr/KPS/2011"[GblElm] }
  KisiTemelBilgisi2    = class;                 { "http://www.saglik.gov.tr/KPS/2011"[GblElm] }
  KPSServisSonucuArrayOfKisiTemelBilgisi2 = class;   { "http://www.saglik.gov.tr/KPS/2011"[GblElm] }
  KPSServisSonucuKisiCuzdanBilgisi2 = class;    { "http://www.saglik.gov.tr/KPS/2011"[GblElm] }
  KisiCuzdanBilgisi2   = class;                 { "http://www.saglik.gov.tr/KPS/2011"[GblElm] }
  KPSServisSonucuYabanciKisiBilgisi2 = class;   { "http://www.saglik.gov.tr/KPS/2011"[GblElm] }
  YabanciKisiBilgisi2  = class;                 { "http://www.saglik.gov.tr/KPS/2011"[GblElm] }
  KPSServisSonucuKisiAdresBilgisi2 = class;     { "http://www.saglik.gov.tr/KPS/2011"[GblElm] }
  KisiAdresBilgisi2    = class;                 { "http://www.saglik.gov.tr/KPS/2011"[GblElm] }
  KPSServisSonucuAdresTipi2 = class;            { "http://www.saglik.gov.tr/KPS/2011"[GblElm] }

  {$SCOPEDENUMS ON}
  { "http://www.saglik.gov.tr/KPS/2011"[GblSmpl] }
  AdresTipi = (Tanimsiz, Koy, Belde, IlceMerkezi);

  {$SCOPEDENUMS OFF}

  ArrayOfstring = array of string;              { "http://schemas.microsoft.com/2003/10/Serialization/Arrays"[GblCplx] }
  ArrayOfIlIlce = array of IlIlce;              { "http://www.saglik.gov.tr/KPS/2011"[GblCplx] }


  // ************************************************************************ //
  // XML       : KPSServisSonucuArrayOfIlIlce, global, <complexType>
  // Namespace : http://www.saglik.gov.tr/KPS/2011
  // ************************************************************************ //
  KPSServisSonucuArrayOfIlIlce = class(TRemotable)
  private
    FHata: string;
    FHata_Specified: boolean;
    FSonuc: ArrayOfIlIlce;
    FSonuc_Specified: boolean;
    procedure SetHata(Index: Integer; const Astring: string);
    function  Hata_Specified(Index: Integer): boolean;
    procedure SetSonuc(Index: Integer; const AArrayOfIlIlce: ArrayOfIlIlce);
    function  Sonuc_Specified(Index: Integer): boolean;
  public
    destructor Destroy; override;
  published
    property Hata:  string         Index (IS_OPTN or IS_NLBL) read FHata write SetHata stored Hata_Specified;
    property Sonuc: ArrayOfIlIlce  Index (IS_OPTN or IS_NLBL) read FSonuc write SetSonuc stored Sonuc_Specified;
  end;



  // ************************************************************************ //
  // XML       : IlIlce, global, <complexType>
  // Namespace : http://www.saglik.gov.tr/KPS/2011
  // ************************************************************************ //
  IlIlce = class(TRemotable)
  private
    FIlAd: string;
    FIlAd_Specified: boolean;
    FIlKod: string;
    FIlKod_Specified: boolean;
    FIlceAd: string;
    FIlceAd_Specified: boolean;
    FIlceKod: string;
    FIlceKod_Specified: boolean;
    procedure SetIlAd(Index: Integer; const Astring: string);
    function  IlAd_Specified(Index: Integer): boolean;
    procedure SetIlKod(Index: Integer; const Astring: string);
    function  IlKod_Specified(Index: Integer): boolean;
    procedure SetIlceAd(Index: Integer; const Astring: string);
    function  IlceAd_Specified(Index: Integer): boolean;
    procedure SetIlceKod(Index: Integer; const Astring: string);
    function  IlceKod_Specified(Index: Integer): boolean;
  published
    property IlAd:    string  Index (IS_OPTN or IS_NLBL) read FIlAd write SetIlAd stored IlAd_Specified;
    property IlKod:   string  Index (IS_OPTN or IS_NLBL) read FIlKod write SetIlKod stored IlKod_Specified;
    property IlceAd:  string  Index (IS_OPTN or IS_NLBL) read FIlceAd write SetIlceAd stored IlceAd_Specified;
    property IlceKod: string  Index (IS_OPTN or IS_NLBL) read FIlceKod write SetIlceKod stored IlceKod_Specified;
  end;



  // ************************************************************************ //
  // XML       : KPSServisSonucuKisiTemelBilgisi, global, <complexType>
  // Namespace : http://www.saglik.gov.tr/KPS/2011
  // ************************************************************************ //
  KPSServisSonucuKisiTemelBilgisi = class(TRemotable)
  private
    FHata: string;
    FHata_Specified: boolean;
    FSonuc: KisiTemelBilgisi;
    FSonuc_Specified: boolean;
    procedure SetHata(Index: Integer; const Astring: string);
    function  Hata_Specified(Index: Integer): boolean;
    procedure SetSonuc(Index: Integer; const AKisiTemelBilgisi: KisiTemelBilgisi);
    function  Sonuc_Specified(Index: Integer): boolean;
  public
    destructor Destroy; override;
  published
    property Hata:  string            Index (IS_OPTN or IS_NLBL) read FHata write SetHata stored Hata_Specified;
    property Sonuc: KisiTemelBilgisi  Index (IS_OPTN or IS_NLBL) read FSonuc write SetSonuc stored Sonuc_Specified;
  end;



  // ************************************************************************ //
  // XML       : KisiTemelBilgisi, global, <complexType>
  // Namespace : http://www.saglik.gov.tr/KPS/2011
  // ************************************************************************ //
  KisiTemelBilgisi = class(TRemotable)
  private
    FAd: string;
    FAd_Specified: boolean;
    FAileSiraNo: string;
    FAileSiraNo_Specified: boolean;
    FAnaAd: string;
    FAnaAd_Specified: boolean;
    FBabaAd: string;
    FBabaAd_Specified: boolean;
    FBireySiraNo: string;
    FBireySiraNo_Specified: boolean;
    FCiltAd: string;
    FCiltAd_Specified: boolean;
    FCiltKod: string;
    FCiltKod_Specified: boolean;
    FCinsiyet: string;
    FCinsiyet_Specified: boolean;
    FDin: string;
    FDin_Specified: boolean;
    FDogumTarihi: string;
    FDogumTarihi_Specified: boolean;
    FDogumYer: string;
    FDogumYer_Specified: boolean;
    FDurum: string;
    FDurum_Specified: boolean;
    FHata: string;
    FHata_Specified: boolean;
    FIlAd: string;
    FIlAd_Specified: boolean;
    FIlKod: string;
    FIlKod_Specified: boolean;
    FIlceAd: string;
    FIlceAd_Specified: boolean;
    FIlceKod: string;
    FIlceKod_Specified: boolean;
    FMedeniHal: string;
    FMedeniHal_Specified: boolean;
    FOlumTarih: string;
    FOlumTarih_Specified: boolean;
    FSoyad: string;
    FSoyad_Specified: boolean;
    FTCKimlikNo: string;
    FTCKimlikNo_Specified: boolean;
    FYakinlik: string;
    FYakinlik_Specified: boolean;
    procedure SetAd(Index: Integer; const Astring: string);
    function  Ad_Specified(Index: Integer): boolean;
    procedure SetAileSiraNo(Index: Integer; const Astring: string);
    function  AileSiraNo_Specified(Index: Integer): boolean;
    procedure SetAnaAd(Index: Integer; const Astring: string);
    function  AnaAd_Specified(Index: Integer): boolean;
    procedure SetBabaAd(Index: Integer; const Astring: string);
    function  BabaAd_Specified(Index: Integer): boolean;
    procedure SetBireySiraNo(Index: Integer; const Astring: string);
    function  BireySiraNo_Specified(Index: Integer): boolean;
    procedure SetCiltAd(Index: Integer; const Astring: string);
    function  CiltAd_Specified(Index: Integer): boolean;
    procedure SetCiltKod(Index: Integer; const Astring: string);
    function  CiltKod_Specified(Index: Integer): boolean;
    procedure SetCinsiyet(Index: Integer; const Astring: string);
    function  Cinsiyet_Specified(Index: Integer): boolean;
    procedure SetDin(Index: Integer; const Astring: string);
    function  Din_Specified(Index: Integer): boolean;
    procedure SetDogumTarihi(Index: Integer; const Astring: string);
    function  DogumTarihi_Specified(Index: Integer): boolean;
    procedure SetDogumYer(Index: Integer; const Astring: string);
    function  DogumYer_Specified(Index: Integer): boolean;
    procedure SetDurum(Index: Integer; const Astring: string);
    function  Durum_Specified(Index: Integer): boolean;
    procedure SetHata(Index: Integer; const Astring: string);
    function  Hata_Specified(Index: Integer): boolean;
    procedure SetIlAd(Index: Integer; const Astring: string);
    function  IlAd_Specified(Index: Integer): boolean;
    procedure SetIlKod(Index: Integer; const Astring: string);
    function  IlKod_Specified(Index: Integer): boolean;
    procedure SetIlceAd(Index: Integer; const Astring: string);
    function  IlceAd_Specified(Index: Integer): boolean;
    procedure SetIlceKod(Index: Integer; const Astring: string);
    function  IlceKod_Specified(Index: Integer): boolean;
    procedure SetMedeniHal(Index: Integer; const Astring: string);
    function  MedeniHal_Specified(Index: Integer): boolean;
    procedure SetOlumTarih(Index: Integer; const Astring: string);
    function  OlumTarih_Specified(Index: Integer): boolean;
    procedure SetSoyad(Index: Integer; const Astring: string);
    function  Soyad_Specified(Index: Integer): boolean;
    procedure SetTCKimlikNo(Index: Integer; const Astring: string);
    function  TCKimlikNo_Specified(Index: Integer): boolean;
    procedure SetYakinlik(Index: Integer; const Astring: string);
    function  Yakinlik_Specified(Index: Integer): boolean;
  published
    property Ad:          string  Index (IS_OPTN or IS_NLBL) read FAd write SetAd stored Ad_Specified;
    property AileSiraNo:  string  Index (IS_OPTN or IS_NLBL) read FAileSiraNo write SetAileSiraNo stored AileSiraNo_Specified;
    property AnaAd:       string  Index (IS_OPTN or IS_NLBL) read FAnaAd write SetAnaAd stored AnaAd_Specified;
    property BabaAd:      string  Index (IS_OPTN or IS_NLBL) read FBabaAd write SetBabaAd stored BabaAd_Specified;
    property BireySiraNo: string  Index (IS_OPTN or IS_NLBL) read FBireySiraNo write SetBireySiraNo stored BireySiraNo_Specified;
    property CiltAd:      string  Index (IS_OPTN or IS_NLBL) read FCiltAd write SetCiltAd stored CiltAd_Specified;
    property CiltKod:     string  Index (IS_OPTN or IS_NLBL) read FCiltKod write SetCiltKod stored CiltKod_Specified;
    property Cinsiyet:    string  Index (IS_OPTN or IS_NLBL) read FCinsiyet write SetCinsiyet stored Cinsiyet_Specified;
    property Din:         string  Index (IS_OPTN or IS_NLBL) read FDin write SetDin stored Din_Specified;
    property DogumTarihi: string  Index (IS_OPTN or IS_NLBL) read FDogumTarihi write SetDogumTarihi stored DogumTarihi_Specified;
    property DogumYer:    string  Index (IS_OPTN or IS_NLBL) read FDogumYer write SetDogumYer stored DogumYer_Specified;
    property Durum:       string  Index (IS_OPTN or IS_NLBL) read FDurum write SetDurum stored Durum_Specified;
    property Hata:        string  Index (IS_OPTN or IS_NLBL) read FHata write SetHata stored Hata_Specified;
    property IlAd:        string  Index (IS_OPTN or IS_NLBL) read FIlAd write SetIlAd stored IlAd_Specified;
    property IlKod:       string  Index (IS_OPTN or IS_NLBL) read FIlKod write SetIlKod stored IlKod_Specified;
    property IlceAd:      string  Index (IS_OPTN or IS_NLBL) read FIlceAd write SetIlceAd stored IlceAd_Specified;
    property IlceKod:     string  Index (IS_OPTN or IS_NLBL) read FIlceKod write SetIlceKod stored IlceKod_Specified;
    property MedeniHal:   string  Index (IS_OPTN or IS_NLBL) read FMedeniHal write SetMedeniHal stored MedeniHal_Specified;
    property OlumTarih:   string  Index (IS_OPTN or IS_NLBL) read FOlumTarih write SetOlumTarih stored OlumTarih_Specified;
    property Soyad:       string  Index (IS_OPTN or IS_NLBL) read FSoyad write SetSoyad stored Soyad_Specified;
    property TCKimlikNo:  string  Index (IS_OPTN or IS_NLBL) read FTCKimlikNo write SetTCKimlikNo stored TCKimlikNo_Specified;
    property Yakinlik:    string  Index (IS_OPTN or IS_NLBL) read FYakinlik write SetYakinlik stored Yakinlik_Specified;
  end;

  ArrayOfKisiTemelBilgisi = array of KisiTemelBilgisi;   { "http://www.saglik.gov.tr/KPS/2011"[GblCplx] }

Lost Soul · Mesaj gönderen **Lost Soul** » 13 Eyl 2011 03:54

unitin devamı

aklımı seveyim dosya olarak ekleseydim ya neyse iki mesaj yazdım yarım kalmasın. buyrun

Kod: Tümünü seç

  // ************************************************************************ //
  // XML       : KPSServisSonucuArrayOfKisiTemelBilgisi, global, <complexType>
  // Namespace : http://www.saglik.gov.tr/KPS/2011
  // ************************************************************************ //
  KPSServisSonucuArrayOfKisiTemelBilgisi = class(TRemotable)
  private
    FHata: string;
    FHata_Specified: boolean;
    FSonuc: ArrayOfKisiTemelBilgisi;
    FSonuc_Specified: boolean;
    procedure SetHata(Index: Integer; const Astring: string);
    function  Hata_Specified(Index: Integer): boolean;
    procedure SetSonuc(Index: Integer; const AArrayOfKisiTemelBilgisi: ArrayOfKisiTemelBilgisi);
    function  Sonuc_Specified(Index: Integer): boolean;
  public
    destructor Destroy; override;
  published
    property Hata:  string                   Index (IS_OPTN or IS_NLBL) read FHata write SetHata stored Hata_Specified;
    property Sonuc: ArrayOfKisiTemelBilgisi  Index (IS_OPTN or IS_NLBL) read FSonuc write SetSonuc stored Sonuc_Specified;
  end;



  // ************************************************************************ //
  // XML       : KPSServisSonucuKisiCuzdanBilgisi, global, <complexType>
  // Namespace : http://www.saglik.gov.tr/KPS/2011
  // ************************************************************************ //
  KPSServisSonucuKisiCuzdanBilgisi = class(TRemotable)
  private
    FHata: string;
    FHata_Specified: boolean;
    FSonuc: KisiCuzdanBilgisi;
    FSonuc_Specified: boolean;
    procedure SetHata(Index: Integer; const Astring: string);
    function  Hata_Specified(Index: Integer): boolean;
    procedure SetSonuc(Index: Integer; const AKisiCuzdanBilgisi: KisiCuzdanBilgisi);
    function  Sonuc_Specified(Index: Integer): boolean;
  public
    destructor Destroy; override;
  published
    property Hata:  string             Index (IS_OPTN or IS_NLBL) read FHata write SetHata stored Hata_Specified;
    property Sonuc: KisiCuzdanBilgisi  Index (IS_OPTN or IS_NLBL) read FSonuc write SetSonuc stored Sonuc_Specified;
  end;



  // ************************************************************************ //
  // XML       : KisiCuzdanBilgisi, global, <complexType>
  // Namespace : http://www.saglik.gov.tr/KPS/2011
  // ************************************************************************ //
  KisiCuzdanBilgisi = class(KisiTemelBilgisi)
  private
    FCuzdanNo: string;
    FCuzdanNo_Specified: boolean;
    FVerildigiIlceAd: string;
    FVerildigiIlceAd_Specified: boolean;
    FVerildigiIlceKod: string;
    FVerildigiIlceKod_Specified: boolean;
    FVerilmeNeden: string;
    FVerilmeNeden_Specified: boolean;
    FVerilmeTarih: string;
    FVerilmeTarih_Specified: boolean;
    procedure SetCuzdanNo(Index: Integer; const Astring: string);
    function  CuzdanNo_Specified(Index: Integer): boolean;
    procedure SetVerildigiIlceAd(Index: Integer; const Astring: string);
    function  VerildigiIlceAd_Specified(Index: Integer): boolean;
    procedure SetVerildigiIlceKod(Index: Integer; const Astring: string);
    function  VerildigiIlceKod_Specified(Index: Integer): boolean;
    procedure SetVerilmeNeden(Index: Integer; const Astring: string);
    function  VerilmeNeden_Specified(Index: Integer): boolean;
    procedure SetVerilmeTarih(Index: Integer; const Astring: string);
    function  VerilmeTarih_Specified(Index: Integer): boolean;
  published
    property CuzdanNo:         string  Index (IS_OPTN or IS_NLBL) read FCuzdanNo write SetCuzdanNo stored CuzdanNo_Specified;
    property VerildigiIlceAd:  string  Index (IS_OPTN or IS_NLBL) read FVerildigiIlceAd write SetVerildigiIlceAd stored VerildigiIlceAd_Specified;
    property VerildigiIlceKod: string  Index (IS_OPTN or IS_NLBL) read FVerildigiIlceKod write SetVerildigiIlceKod stored VerildigiIlceKod_Specified;
    property VerilmeNeden:     string  Index (IS_OPTN or IS_NLBL) read FVerilmeNeden write SetVerilmeNeden stored VerilmeNeden_Specified;
    property VerilmeTarih:     string  Index (IS_OPTN or IS_NLBL) read FVerilmeTarih write SetVerilmeTarih stored VerilmeTarih_Specified;
  end;



  // ************************************************************************ //
  // XML       : KPSServisSonucuYabanciKisiBilgisi, global, <complexType>
  // Namespace : http://www.saglik.gov.tr/KPS/2011
  // ************************************************************************ //
  KPSServisSonucuYabanciKisiBilgisi = class(TRemotable)
  private
    FHata: string;
    FHata_Specified: boolean;
    FSonuc: YabanciKisiBilgisi;
    FSonuc_Specified: boolean;
    procedure SetHata(Index: Integer; const Astring: string);
    function  Hata_Specified(Index: Integer): boolean;
    procedure SetSonuc(Index: Integer; const AYabanciKisiBilgisi: YabanciKisiBilgisi);
    function  Sonuc_Specified(Index: Integer): boolean;
  public
    destructor Destroy; override;
  published
    property Hata:  string              Index (IS_OPTN or IS_NLBL) read FHata write SetHata stored Hata_Specified;
    property Sonuc: YabanciKisiBilgisi  Index (IS_OPTN or IS_NLBL) read FSonuc write SetSonuc stored Sonuc_Specified;
  end;



  // ************************************************************************ //
  // XML       : YabanciKisiBilgisi, global, <complexType>
  // Namespace : http://www.saglik.gov.tr/KPS/2011
  // ************************************************************************ //
  YabanciKisiBilgisi = class(TRemotable)
  private
    FAd: string;
    FAd_Specified: boolean;
    FCinsiyet: string;
    FCinsiyet_Specified: boolean;
    FDogumTarihi: string;
    FDogumTarihi_Specified: boolean;
    FHata: string;
    FHata_Specified: boolean;
    FKimlikNo: string;
    FKimlikNo_Specified: boolean;
    FSoyad: string;
    FSoyad_Specified: boolean;
    FUyrukAd: string;
    FUyrukAd_Specified: boolean;
    FUyrukKod: string;
    FUyrukKod_Specified: boolean;
    procedure SetAd(Index: Integer; const Astring: string);
    function  Ad_Specified(Index: Integer): boolean;
    procedure SetCinsiyet(Index: Integer; const Astring: string);
    function  Cinsiyet_Specified(Index: Integer): boolean;
    procedure SetDogumTarihi(Index: Integer; const Astring: string);
    function  DogumTarihi_Specified(Index: Integer): boolean;
    procedure SetHata(Index: Integer; const Astring: string);
    function  Hata_Specified(Index: Integer): boolean;
    procedure SetKimlikNo(Index: Integer; const Astring: string);
    function  KimlikNo_Specified(Index: Integer): boolean;
    procedure SetSoyad(Index: Integer; const Astring: string);
    function  Soyad_Specified(Index: Integer): boolean;
    procedure SetUyrukAd(Index: Integer; const Astring: string);
    function  UyrukAd_Specified(Index: Integer): boolean;
    procedure SetUyrukKod(Index: Integer; const Astring: string);
    function  UyrukKod_Specified(Index: Integer): boolean;
  published
    property Ad:          string  Index (IS_OPTN or IS_NLBL) read FAd write SetAd stored Ad_Specified;
    property Cinsiyet:    string  Index (IS_OPTN or IS_NLBL) read FCinsiyet write SetCinsiyet stored Cinsiyet_Specified;
    property DogumTarihi: string  Index (IS_OPTN or IS_NLBL) read FDogumTarihi write SetDogumTarihi stored DogumTarihi_Specified;
    property Hata:        string  Index (IS_OPTN or IS_NLBL) read FHata write SetHata stored Hata_Specified;
    property KimlikNo:    string  Index (IS_OPTN or IS_NLBL) read FKimlikNo write SetKimlikNo stored KimlikNo_Specified;
    property Soyad:       string  Index (IS_OPTN or IS_NLBL) read FSoyad write SetSoyad stored Soyad_Specified;
    property UyrukAd:     string  Index (IS_OPTN or IS_NLBL) read FUyrukAd write SetUyrukAd stored UyrukAd_Specified;
    property UyrukKod:    string  Index (IS_OPTN or IS_NLBL) read FUyrukKod write SetUyrukKod stored UyrukKod_Specified;
  end;



  // ************************************************************************ //
  // XML       : KPSServisSonucuKisiAdresBilgisi, global, <complexType>
  // Namespace : http://www.saglik.gov.tr/KPS/2011
  // ************************************************************************ //
  KPSServisSonucuKisiAdresBilgisi = class(TRemotable)
  private
    FHata: string;
    FHata_Specified: boolean;
    FSonuc: KisiAdresBilgisi;
    FSonuc_Specified: boolean;
    procedure SetHata(Index: Integer; const Astring: string);
    function  Hata_Specified(Index: Integer): boolean;
    procedure SetSonuc(Index: Integer; const AKisiAdresBilgisi: KisiAdresBilgisi);
    function  Sonuc_Specified(Index: Integer): boolean;
  public
    destructor Destroy; override;
  published
    property Hata:  string            Index (IS_OPTN or IS_NLBL) read FHata write SetHata stored Hata_Specified;
    property Sonuc: KisiAdresBilgisi  Index (IS_OPTN or IS_NLBL) read FSonuc write SetSonuc stored Sonuc_Specified;
  end;



  // ************************************************************************ //
  // XML       : KisiAdresBilgisi, global, <complexType>
  // Namespace : http://www.saglik.gov.tr/KPS/2011
  // ************************************************************************ //
  KisiAdresBilgisi = class(TRemotable)
  private
    FAdresNo: string;
    FAdresNo_Specified: boolean;
    FAdresTipi: AdresTipi;
    FAdresTipi_Specified: boolean;
    FBucak: string;
    FBucak_Specified: boolean;
    FBucakKodu: string;
    FBucakKodu_Specified: boolean;
    FCsbm: string;
    FCsbm_Specified: boolean;
    FCsbmKodu: string;
    FCsbmKodu_Specified: boolean;
    FDisKapiNo: string;
    FDisKapiNo_Specified: boolean;
    FHata: string;
    FHata_Specified: boolean;
    FIcKapiNo: string;
    FIcKapiNo_Specified: boolean;
    FIl: string;
    FIl_Specified: boolean;
    FIlKodu: string;
    FIlKodu_Specified: boolean;
    FIlce: string;
    FIlce_Specified: boolean;
    FIlceKodu: string;
    FIlceKodu_Specified: boolean;
    FKoy: string;
    FKoy_Specified: boolean;
    FKoyKayitNo: string;
    FKoyKayitNo_Specified: boolean;
    FKoyKodu: string;
    FKoyKodu_Specified: boolean;
    FMahalle: string;
    FMahalle_Specified: boolean;
    FMahalleKodu: string;
    FMahalleKodu_Specified: boolean;
    procedure SetAdresNo(Index: Integer; const Astring: string);
    function  AdresNo_Specified(Index: Integer): boolean;
    procedure SetAdresTipi(Index: Integer; const AAdresTipi: AdresTipi);
    function  AdresTipi_Specified(Index: Integer): boolean;
    procedure SetBucak(Index: Integer; const Astring: string);
    function  Bucak_Specified(Index: Integer): boolean;
    procedure SetBucakKodu(Index: Integer; const Astring: string);
    function  BucakKodu_Specified(Index: Integer): boolean;
    procedure SetCsbm(Index: Integer; const Astring: string);
    function  Csbm_Specified(Index: Integer): boolean;
    procedure SetCsbmKodu(Index: Integer; const Astring: string);
    function  CsbmKodu_Specified(Index: Integer): boolean;
    procedure SetDisKapiNo(Index: Integer; const Astring: string);
    function  DisKapiNo_Specified(Index: Integer): boolean;
    procedure SetHata(Index: Integer; const Astring: string);
    function  Hata_Specified(Index: Integer): boolean;
    procedure SetIcKapiNo(Index: Integer; const Astring: string);
    function  IcKapiNo_Specified(Index: Integer): boolean;
    procedure SetIl(Index: Integer; const Astring: string);
    function  Il_Specified(Index: Integer): boolean;
    procedure SetIlKodu(Index: Integer; const Astring: string);
    function  IlKodu_Specified(Index: Integer): boolean;
    procedure SetIlce(Index: Integer; const Astring: string);
    function  Ilce_Specified(Index: Integer): boolean;
    procedure SetIlceKodu(Index: Integer; const Astring: string);
    function  IlceKodu_Specified(Index: Integer): boolean;
    procedure SetKoy(Index: Integer; const Astring: string);
    function  Koy_Specified(Index: Integer): boolean;
    procedure SetKoyKayitNo(Index: Integer; const Astring: string);
    function  KoyKayitNo_Specified(Index: Integer): boolean;
    procedure SetKoyKodu(Index: Integer; const Astring: string);
    function  KoyKodu_Specified(Index: Integer): boolean;
    procedure SetMahalle(Index: Integer; const Astring: string);
    function  Mahalle_Specified(Index: Integer): boolean;
    procedure SetMahalleKodu(Index: Integer; const Astring: string);
    function  MahalleKodu_Specified(Index: Integer): boolean;
  published
    property AdresNo:     string     Index (IS_OPTN or IS_NLBL) read FAdresNo write SetAdresNo stored AdresNo_Specified;
    property AdresTipi:   AdresTipi  Index (IS_OPTN) read FAdresTipi write SetAdresTipi stored AdresTipi_Specified;
    property Bucak:       string     Index (IS_OPTN or IS_NLBL) read FBucak write SetBucak stored Bucak_Specified;
    property BucakKodu:   string     Index (IS_OPTN or IS_NLBL) read FBucakKodu write SetBucakKodu stored BucakKodu_Specified;
    property Csbm:        string     Index (IS_OPTN or IS_NLBL) read FCsbm write SetCsbm stored Csbm_Specified;
    property CsbmKodu:    string     Index (IS_OPTN or IS_NLBL) read FCsbmKodu write SetCsbmKodu stored CsbmKodu_Specified;
    property DisKapiNo:   string     Index (IS_OPTN or IS_NLBL) read FDisKapiNo write SetDisKapiNo stored DisKapiNo_Specified;
    property Hata:        string     Index (IS_OPTN or IS_NLBL) read FHata write SetHata stored Hata_Specified;
    property IcKapiNo:    string     Index (IS_OPTN or IS_NLBL) read FIcKapiNo write SetIcKapiNo stored IcKapiNo_Specified;
    property Il:          string     Index (IS_OPTN or IS_NLBL) read FIl write SetIl stored Il_Specified;
    property IlKodu:      string     Index (IS_OPTN or IS_NLBL) read FIlKodu write SetIlKodu stored IlKodu_Specified;
    property Ilce:        string     Index (IS_OPTN or IS_NLBL) read FIlce write SetIlce stored Ilce_Specified;
    property IlceKodu:    string     Index (IS_OPTN or IS_NLBL) read FIlceKodu write SetIlceKodu stored IlceKodu_Specified;
    property Koy:         string     Index (IS_OPTN or IS_NLBL) read FKoy write SetKoy stored Koy_Specified;
    property KoyKayitNo:  string     Index (IS_OPTN or IS_NLBL) read FKoyKayitNo write SetKoyKayitNo stored KoyKayitNo_Specified;
    property KoyKodu:     string     Index (IS_OPTN or IS_NLBL) read FKoyKodu write SetKoyKodu stored KoyKodu_Specified;
    property Mahalle:     string     Index (IS_OPTN or IS_NLBL) read FMahalle write SetMahalle stored Mahalle_Specified;
    property MahalleKodu: string     Index (IS_OPTN or IS_NLBL) read FMahalleKodu write SetMahalleKodu stored MahalleKodu_Specified;
  end;



  // ************************************************************************ //
  // XML       : KPSServisSonucuAdresTipi, global, <complexType>
  // Namespace : http://www.saglik.gov.tr/KPS/2011
  // ************************************************************************ //
  KPSServisSonucuAdresTipi = class(TRemotable)
  private
    FHata: string;
    FHata_Specified: boolean;
    FSonuc: AdresTipi;
    FSonuc_Specified: boolean;
    procedure SetHata(Index: Integer; const Astring: string);
    function  Hata_Specified(Index: Integer): boolean;
    procedure SetSonuc(Index: Integer; const AAdresTipi: AdresTipi);
    function  Sonuc_Specified(Index: Integer): boolean;
  published
    property Hata:  string     Index (IS_OPTN or IS_NLBL) read FHata write SetHata stored Hata_Specified;
    property Sonuc: AdresTipi  Index (IS_OPTN) read FSonuc write SetSonuc stored Sonuc_Specified;
  end;



  // ************************************************************************ //
  // XML       : KPSServisSonucuArrayOfIlIlce, global, <element>
  // Namespace : http://www.saglik.gov.tr/KPS/2011
  // ************************************************************************ //
  KPSServisSonucuArrayOfIlIlce2 = class(KPSServisSonucuArrayOfIlIlce)
  private
  published
  end;



  // ************************************************************************ //
  // XML       : IlIlce, global, <element>
  // Namespace : http://www.saglik.gov.tr/KPS/2011
  // ************************************************************************ //
  IlIlce2 = class(IlIlce)
  private
  published
  end;



  // ************************************************************************ //
  // XML       : KPSServisSonucuKisiTemelBilgisi, global, <element>
  // Namespace : http://www.saglik.gov.tr/KPS/2011
  // ************************************************************************ //
  KPSServisSonucuKisiTemelBilgisi2 = class(KPSServisSonucuKisiTemelBilgisi)
  private
  published
  end;



  // ************************************************************************ //
  // XML       : KisiTemelBilgisi, global, <element>
  // Namespace : http://www.saglik.gov.tr/KPS/2011
  // ************************************************************************ //
  KisiTemelBilgisi2 = class(KisiTemelBilgisi)
  private
  published
  end;



  // ************************************************************************ //
  // XML       : KPSServisSonucuArrayOfKisiTemelBilgisi, global, <element>
  // Namespace : http://www.saglik.gov.tr/KPS/2011
  // ************************************************************************ //
  KPSServisSonucuArrayOfKisiTemelBilgisi2 = class(KPSServisSonucuArrayOfKisiTemelBilgisi)
  private
  published
  end;



  // ************************************************************************ //
  // XML       : KPSServisSonucuKisiCuzdanBilgisi, global, <element>
  // Namespace : http://www.saglik.gov.tr/KPS/2011
  // ************************************************************************ //
  KPSServisSonucuKisiCuzdanBilgisi2 = class(KPSServisSonucuKisiCuzdanBilgisi)
  private
  published
  end;



  // ************************************************************************ //
  // XML       : KisiCuzdanBilgisi, global, <element>
  // Namespace : http://www.saglik.gov.tr/KPS/2011
  // ************************************************************************ //
  KisiCuzdanBilgisi2 = class(KisiCuzdanBilgisi)
  private
  published
  end;



  // ************************************************************************ //
  // XML       : KPSServisSonucuYabanciKisiBilgisi, global, <element>
  // Namespace : http://www.saglik.gov.tr/KPS/2011
  // ************************************************************************ //
  KPSServisSonucuYabanciKisiBilgisi2 = class(KPSServisSonucuYabanciKisiBilgisi)
  private
  published
  end;



  // ************************************************************************ //
  // XML       : YabanciKisiBilgisi, global, <element>
  // Namespace : http://www.saglik.gov.tr/KPS/2011
  // ************************************************************************ //
  YabanciKisiBilgisi2 = class(YabanciKisiBilgisi)
  private
  published
  end;



  // ************************************************************************ //
  // XML       : KPSServisSonucuKisiAdresBilgisi, global, <element>
  // Namespace : http://www.saglik.gov.tr/KPS/2011
  // ************************************************************************ //
  KPSServisSonucuKisiAdresBilgisi2 = class(KPSServisSonucuKisiAdresBilgisi)
  private
  published
  end;



  // ************************************************************************ //
  // XML       : KisiAdresBilgisi, global, <element>
  // Namespace : http://www.saglik.gov.tr/KPS/2011
  // ************************************************************************ //
  KisiAdresBilgisi2 = class(KisiAdresBilgisi)
  private
  published
  end;



  // ************************************************************************ //
  // XML       : KPSServisSonucuAdresTipi, global, <element>
  // Namespace : http://www.saglik.gov.tr/KPS/2011
  // ************************************************************************ //
  KPSServisSonucuAdresTipi2 = class(KPSServisSonucuAdresTipi)
  private
  published
  end;


  // ************************************************************************ //
  // Namespace : http://www.saglik.gov.tr/KPS/2011
  // soapAction: http://www.saglik.gov.tr/KPS/2011/KPSServices/%operationName%
  // transport : http://schemas.xmlsoap.org/soap/http
  // style     : document
  // binding   : KPSTest_Endpoint1
  // service   : KPSTestServices
  // port      : KPSTest_Endpoint1
  // URL       : https://kps.saglik.gov.tr/Services/KPSTestServices.svc
  // ************************************************************************ //
  KPSTestServices = interface(IInvokable)
  ['{23283784-83C3-8E8A-9906-CA5F3071A6BE}']
    function  ServisUTCZamani: TXSDateTime; stdcall;
    function  IstekIpAdres: string; stdcall;
    function  KullanilabilirMetodListesi: ArrayOfstring; stdcall;
    function  IlListesi: KPSServisSonucuArrayOfIlIlce; stdcall;
    function  IleAitIlceistesi(const ilKod: Integer): KPSServisSonucuArrayOfIlIlce; stdcall;
    function  TcKimlikNoIleKisiSorgula(const tcNo: Int64): KPSServisSonucuKisiTemelBilgisi; stdcall;
    function  TcKimlikNoSorgula(const ad: string; const soyad: string; const babaAdi: string; const anaAdi: string; const dogumYeri: string; const dogumTarihi: string; 
                                const cinsiyet: string): KPSServisSonucuArrayOfKisiTemelBilgisi; stdcall;
    function  TcKimlikNoIleNufusCuzdanBilgisiSorgula(const tcNo: Int64): KPSServisSonucuKisiCuzdanBilgisi; stdcall;
    function  YabanciTcKimlikNoIleKisiSorgula(const yabaciKimlikNo: Int64): KPSServisSonucuYabanciKisiBilgisi; stdcall;
    function  TcKimlikNoIleNufusKayitOrnegiSorgula(const tcNo: Int64): KPSServisSonucuArrayOfKisiTemelBilgisi; stdcall;
    function  TcKimlikNoIleAdresBilgisiSorgula(const tcNo: Int64): KPSServisSonucuKisiAdresBilgisi; stdcall;
    function  TcKimlikNoIleKoyAdresBilgisiSorgula(const tcNo: Int64): KPSServisSonucuKisiAdresBilgisi; stdcall;
    function  TcKimlikNoIleBeldeAdresBilgisiSorgula(const tcNo: Int64): KPSServisSonucuKisiAdresBilgisi; stdcall;
    function  TcKimlikNoIleIlceMerkeziAdresBilgisiSorgula(const tcNo: Int64): KPSServisSonucuKisiAdresBilgisi; stdcall;
    function  TcKimlikNoAdresTipiSorgula(const tcNo: Int64): KPSServisSonucuAdresTipi; stdcall;
  end;

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


implementation
  uses SysUtils;

function GetKPSTestServices(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): KPSTestServices;
const
  defWSDL = 'C:\Users\Lost Soul\Desktop\KPSTestServices.svc.xml';
  defURL  = 'https://kps.saglik.gov.tr/Services/KPSTestServices.svc';
  defSvc  = 'KPSTestServices';
  defPrt  = 'KPSTest_Endpoint1';
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 KPSTestServices);
    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 KPSServisSonucuArrayOfIlIlce.Destroy;
var
  I: Integer;
begin
  for I := 0 to System.Length(FSonuc)-1 do
    SysUtils.FreeAndNil(FSonuc[I]);
  System.SetLength(FSonuc, 0);
  inherited Destroy;
end;

procedure KPSServisSonucuArrayOfIlIlce.SetHata(Index: Integer; const Astring: string);
begin
  FHata := Astring;
  FHata_Specified := True;
end;

function KPSServisSonucuArrayOfIlIlce.Hata_Specified(Index: Integer): boolean;
begin
  Result := FHata_Specified;
end;

procedure KPSServisSonucuArrayOfIlIlce.SetSonuc(Index: Integer; const AArrayOfIlIlce: ArrayOfIlIlce);
begin
  FSonuc := AArrayOfIlIlce;
  FSonuc_Specified := True;
end;

function KPSServisSonucuArrayOfIlIlce.Sonuc_Specified(Index: Integer): boolean;
begin
  Result := FSonuc_Specified;
end;

procedure IlIlce.SetIlAd(Index: Integer; const Astring: string);
begin
  FIlAd := Astring;
  FIlAd_Specified := True;
end;

function IlIlce.IlAd_Specified(Index: Integer): boolean;
begin
  Result := FIlAd_Specified;
end;

procedure IlIlce.SetIlKod(Index: Integer; const Astring: string);
begin
  FIlKod := Astring;
  FIlKod_Specified := True;
end;

function IlIlce.IlKod_Specified(Index: Integer): boolean;
begin
  Result := FIlKod_Specified;
end;

procedure IlIlce.SetIlceAd(Index: Integer; const Astring: string);
begin
  FIlceAd := Astring;
  FIlceAd_Specified := True;
end;

function IlIlce.IlceAd_Specified(Index: Integer): boolean;
begin
  Result := FIlceAd_Specified;
end;

procedure IlIlce.SetIlceKod(Index: Integer; const Astring: string);
begin
  FIlceKod := Astring;
  FIlceKod_Specified := True;
end;

function IlIlce.IlceKod_Specified(Index: Integer): boolean;
begin
  Result := FIlceKod_Specified;
end;

destructor KPSServisSonucuKisiTemelBilgisi.Destroy;
begin
  SysUtils.FreeAndNil(FSonuc);
  inherited Destroy;
end;

procedure KPSServisSonucuKisiTemelBilgisi.SetHata(Index: Integer; const Astring: string);
begin
  FHata := Astring;
  FHata_Specified := True;
end;

function KPSServisSonucuKisiTemelBilgisi.Hata_Specified(Index: Integer): boolean;
begin
  Result := FHata_Specified;
end;

procedure KPSServisSonucuKisiTemelBilgisi.SetSonuc(Index: Integer; const AKisiTemelBilgisi: KisiTemelBilgisi);
begin
  FSonuc := AKisiTemelBilgisi;
  FSonuc_Specified := True;
end;

function KPSServisSonucuKisiTemelBilgisi.Sonuc_Specified(Index: Integer): boolean;
begin
  Result := FSonuc_Specified;
end;

procedure KisiTemelBilgisi.SetAd(Index: Integer; const Astring: string);
begin
  FAd := Astring;
  FAd_Specified := True;
end;

function KisiTemelBilgisi.Ad_Specified(Index: Integer): boolean;
begin
  Result := FAd_Specified;
end;

procedure KisiTemelBilgisi.SetAileSiraNo(Index: Integer; const Astring: string);
begin
  FAileSiraNo := Astring;
  FAileSiraNo_Specified := True;
end;

function KisiTemelBilgisi.AileSiraNo_Specified(Index: Integer): boolean;
begin
  Result := FAileSiraNo_Specified;
end;

procedure KisiTemelBilgisi.SetAnaAd(Index: Integer; const Astring: string);
begin
  FAnaAd := Astring;
  FAnaAd_Specified := True;
end;

function KisiTemelBilgisi.AnaAd_Specified(Index: Integer): boolean;
begin
  Result := FAnaAd_Specified;
end;

procedure KisiTemelBilgisi.SetBabaAd(Index: Integer; const Astring: string);
begin
  FBabaAd := Astring;
  FBabaAd_Specified := True;
end;

function KisiTemelBilgisi.BabaAd_Specified(Index: Integer): boolean;
begin
  Result := FBabaAd_Specified;
end;

procedure KisiTemelBilgisi.SetBireySiraNo(Index: Integer; const Astring: string);
begin
  FBireySiraNo := Astring;
  FBireySiraNo_Specified := True;
end;

function KisiTemelBilgisi.BireySiraNo_Specified(Index: Integer): boolean;
begin
  Result := FBireySiraNo_Specified;
end;

procedure KisiTemelBilgisi.SetCiltAd(Index: Integer; const Astring: string);
begin
  FCiltAd := Astring;
  FCiltAd_Specified := True;
end;

function KisiTemelBilgisi.CiltAd_Specified(Index: Integer): boolean;
begin
  Result := FCiltAd_Specified;
end;

procedure KisiTemelBilgisi.SetCiltKod(Index: Integer; const Astring: string);
begin
  FCiltKod := Astring;
  FCiltKod_Specified := True;
end;

function KisiTemelBilgisi.CiltKod_Specified(Index: Integer): boolean;
begin
  Result := FCiltKod_Specified;
end;

procedure KisiTemelBilgisi.SetCinsiyet(Index: Integer; const Astring: string);
begin
  FCinsiyet := Astring;
  FCinsiyet_Specified := True;
end;

function KisiTemelBilgisi.Cinsiyet_Specified(Index: Integer): boolean;
begin
  Result := FCinsiyet_Specified;
end;

procedure KisiTemelBilgisi.SetDin(Index: Integer; const Astring: string);
begin
  FDin := Astring;
  FDin_Specified := True;
end;

function KisiTemelBilgisi.Din_Specified(Index: Integer): boolean;
begin
  Result := FDin_Specified;
end;

procedure KisiTemelBilgisi.SetDogumTarihi(Index: Integer; const Astring: string);
begin
  FDogumTarihi := Astring;
  FDogumTarihi_Specified := True;
end;

function KisiTemelBilgisi.DogumTarihi_Specified(Index: Integer): boolean;
begin
  Result := FDogumTarihi_Specified;
end;

procedure KisiTemelBilgisi.SetDogumYer(Index: Integer; const Astring: string);
begin
  FDogumYer := Astring;
  FDogumYer_Specified := True;
end;

function KisiTemelBilgisi.DogumYer_Specified(Index: Integer): boolean;
begin
  Result := FDogumYer_Specified;
end;

procedure KisiTemelBilgisi.SetDurum(Index: Integer; const Astring: string);
begin
  FDurum := Astring;
  FDurum_Specified := True;
end;

function KisiTemelBilgisi.Durum_Specified(Index: Integer): boolean;
begin
  Result := FDurum_Specified;
end;

procedure KisiTemelBilgisi.SetHata(Index: Integer; const Astring: string);
begin
  FHata := Astring;
  FHata_Specified := True;
end;

function KisiTemelBilgisi.Hata_Specified(Index: Integer): boolean;
begin
  Result := FHata_Specified;
end;

procedure KisiTemelBilgisi.SetIlAd(Index: Integer; const Astring: string);
begin
  FIlAd := Astring;
  FIlAd_Specified := True;
end;

function KisiTemelBilgisi.IlAd_Specified(Index: Integer): boolean;
begin
  Result := FIlAd_Specified;
end;

procedure KisiTemelBilgisi.SetIlKod(Index: Integer; const Astring: string);
begin
  FIlKod := Astring;
  FIlKod_Specified := True;
end;

function KisiTemelBilgisi.IlKod_Specified(Index: Integer): boolean;
begin
  Result := FIlKod_Specified;
end;

procedure KisiTemelBilgisi.SetIlceAd(Index: Integer; const Astring: string);
begin
  FIlceAd := Astring;
  FIlceAd_Specified := True;
end;

function KisiTemelBilgisi.IlceAd_Specified(Index: Integer): boolean;
begin
  Result := FIlceAd_Specified;
end;

procedure KisiTemelBilgisi.SetIlceKod(Index: Integer; const Astring: string);
begin
  FIlceKod := Astring;
  FIlceKod_Specified := True;
end;

function KisiTemelBilgisi.IlceKod_Specified(Index: Integer): boolean;
begin
  Result := FIlceKod_Specified;
end;

procedure KisiTemelBilgisi.SetMedeniHal(Index: Integer; const Astring: string);
begin
  FMedeniHal := Astring;
  FMedeniHal_Specified := True;
end;

function KisiTemelBilgisi.MedeniHal_Specified(Index: Integer): boolean;
begin
  Result := FMedeniHal_Specified;
end;

procedure KisiTemelBilgisi.SetOlumTarih(Index: Integer; const Astring: string);
begin
  FOlumTarih := Astring;
  FOlumTarih_Specified := True;
end;

function KisiTemelBilgisi.OlumTarih_Specified(Index: Integer): boolean;
begin
  Result := FOlumTarih_Specified;
end;

procedure KisiTemelBilgisi.SetSoyad(Index: Integer; const Astring: string);
begin
  FSoyad := Astring;
  FSoyad_Specified := True;
end;

function KisiTemelBilgisi.Soyad_Specified(Index: Integer): boolean;
begin
  Result := FSoyad_Specified;
end;

procedure KisiTemelBilgisi.SetTCKimlikNo(Index: Integer; const Astring: string);
begin
  FTCKimlikNo := Astring;
  FTCKimlikNo_Specified := True;
end;

function KisiTemelBilgisi.TCKimlikNo_Specified(Index: Integer): boolean;
begin
  Result := FTCKimlikNo_Specified;
end;

procedure KisiTemelBilgisi.SetYakinlik(Index: Integer; const Astring: string);
begin
  FYakinlik := Astring;
  FYakinlik_Specified := True;
end;

function KisiTemelBilgisi.Yakinlik_Specified(Index: Integer): boolean;
begin
  Result := FYakinlik_Specified;
end;

destructor KPSServisSonucuArrayOfKisiTemelBilgisi.Destroy;
var
  I: Integer;
begin
  for I := 0 to System.Length(FSonuc)-1 do
    SysUtils.FreeAndNil(FSonuc[I]);
  System.SetLength(FSonuc, 0);
  inherited Destroy;
end;

procedure KPSServisSonucuArrayOfKisiTemelBilgisi.SetHata(Index: Integer; const Astring: string);
begin
  FHata := Astring;
  FHata_Specified := True;
end;

function KPSServisSonucuArrayOfKisiTemelBilgisi.Hata_Specified(Index: Integer): boolean;
begin
  Result := FHata_Specified;
end;

procedure KPSServisSonucuArrayOfKisiTemelBilgisi.SetSonuc(Index: Integer; const AArrayOfKisiTemelBilgisi: ArrayOfKisiTemelBilgisi);
begin
  FSonuc := AArrayOfKisiTemelBilgisi;
  FSonuc_Specified := True;
end;

function KPSServisSonucuArrayOfKisiTemelBilgisi.Sonuc_Specified(Index: Integer): boolean;
begin
  Result := FSonuc_Specified;
end;

destructor KPSServisSonucuKisiCuzdanBilgisi.Destroy;
begin
  SysUtils.FreeAndNil(FSonuc);
  inherited Destroy;
end;

procedure KPSServisSonucuKisiCuzdanBilgisi.SetHata(Index: Integer; const Astring: string);
begin
  FHata := Astring;
  FHata_Specified := True;
end;

function KPSServisSonucuKisiCuzdanBilgisi.Hata_Specified(Index: Integer): boolean;
begin
  Result := FHata_Specified;
end;

procedure KPSServisSonucuKisiCuzdanBilgisi.SetSonuc(Index: Integer; const AKisiCuzdanBilgisi: KisiCuzdanBilgisi);
begin
  FSonuc := AKisiCuzdanBilgisi;
  FSonuc_Specified := True;
end;

function KPSServisSonucuKisiCuzdanBilgisi.Sonuc_Specified(Index: Integer): boolean;
begin
  Result := FSonuc_Specified;
end;

procedure KisiCuzdanBilgisi.SetCuzdanNo(Index: Integer; const Astring: string);
begin
  FCuzdanNo := Astring;
  FCuzdanNo_Specified := True;
end;

function KisiCuzdanBilgisi.CuzdanNo_Specified(Index: Integer): boolean;
begin
  Result := FCuzdanNo_Specified;
end;

procedure KisiCuzdanBilgisi.SetVerildigiIlceAd(Index: Integer; const Astring: string);
begin
  FVerildigiIlceAd := Astring;
  FVerildigiIlceAd_Specified := True;
end;

function KisiCuzdanBilgisi.VerildigiIlceAd_Specified(Index: Integer): boolean;
begin
  Result := FVerildigiIlceAd_Specified;
end;

procedure KisiCuzdanBilgisi.SetVerildigiIlceKod(Index: Integer; const Astring: string);
begin
  FVerildigiIlceKod := Astring;
  FVerildigiIlceKod_Specified := True;
end;

function KisiCuzdanBilgisi.VerildigiIlceKod_Specified(Index: Integer): boolean;
begin
  Result := FVerildigiIlceKod_Specified;
end;

procedure KisiCuzdanBilgisi.SetVerilmeNeden(Index: Integer; const Astring: string);
begin
  FVerilmeNeden := Astring;
  FVerilmeNeden_Specified := True;
end;

function KisiCuzdanBilgisi.VerilmeNeden_Specified(Index: Integer): boolean;
begin
  Result := FVerilmeNeden_Specified;
end;

procedure KisiCuzdanBilgisi.SetVerilmeTarih(Index: Integer; const Astring: string);
begin
  FVerilmeTarih := Astring;
  FVerilmeTarih_Specified := True;
end;

function KisiCuzdanBilgisi.VerilmeTarih_Specified(Index: Integer): boolean;
begin
  Result := FVerilmeTarih_Specified;
end;

destructor KPSServisSonucuYabanciKisiBilgisi.Destroy;
begin
  SysUtils.FreeAndNil(FSonuc);
  inherited Destroy;
end;

procedure KPSServisSonucuYabanciKisiBilgisi.SetHata(Index: Integer; const Astring: string);
begin
  FHata := Astring;
  FHata_Specified := True;
end;

function KPSServisSonucuYabanciKisiBilgisi.Hata_Specified(Index: Integer): boolean;
begin
  Result := FHata_Specified;
end;

procedure KPSServisSonucuYabanciKisiBilgisi.SetSonuc(Index: Integer; const AYabanciKisiBilgisi: YabanciKisiBilgisi);
begin
  FSonuc := AYabanciKisiBilgisi;
  FSonuc_Specified := True;
end;

function KPSServisSonucuYabanciKisiBilgisi.Sonuc_Specified(Index: Integer): boolean;
begin
  Result := FSonuc_Specified;
end;

procedure YabanciKisiBilgisi.SetAd(Index: Integer; const Astring: string);
begin
  FAd := Astring;
  FAd_Specified := True;
end;

function YabanciKisiBilgisi.Ad_Specified(Index: Integer): boolean;
begin
  Result := FAd_Specified;
end;

procedure YabanciKisiBilgisi.SetCinsiyet(Index: Integer; const Astring: string);
begin
  FCinsiyet := Astring;
  FCinsiyet_Specified := True;
end;

function YabanciKisiBilgisi.Cinsiyet_Specified(Index: Integer): boolean;
begin
  Result := FCinsiyet_Specified;
end;

procedure YabanciKisiBilgisi.SetDogumTarihi(Index: Integer; const Astring: string);
begin
  FDogumTarihi := Astring;
  FDogumTarihi_Specified := True;
end;

function YabanciKisiBilgisi.DogumTarihi_Specified(Index: Integer): boolean;
begin
  Result := FDogumTarihi_Specified;
end;

procedure YabanciKisiBilgisi.SetHata(Index: Integer; const Astring: string);
begin
  FHata := Astring;
  FHata_Specified := True;
end;

function YabanciKisiBilgisi.Hata_Specified(Index: Integer): boolean;
begin
  Result := FHata_Specified;
end;

procedure YabanciKisiBilgisi.SetKimlikNo(Index: Integer; const Astring: string);
begin
  FKimlikNo := Astring;
  FKimlikNo_Specified := True;
end;

function YabanciKisiBilgisi.KimlikNo_Specified(Index: Integer): boolean;
begin
  Result := FKimlikNo_Specified;
end;

procedure YabanciKisiBilgisi.SetSoyad(Index: Integer; const Astring: string);
begin
  FSoyad := Astring;
  FSoyad_Specified := True;
end;

function YabanciKisiBilgisi.Soyad_Specified(Index: Integer): boolean;
begin
  Result := FSoyad_Specified;
end;

procedure YabanciKisiBilgisi.SetUyrukAd(Index: Integer; const Astring: string);
begin
  FUyrukAd := Astring;
  FUyrukAd_Specified := True;
end;

function YabanciKisiBilgisi.UyrukAd_Specified(Index: Integer): boolean;
begin
  Result := FUyrukAd_Specified;
end;

procedure YabanciKisiBilgisi.SetUyrukKod(Index: Integer; const Astring: string);
begin
  FUyrukKod := Astring;
  FUyrukKod_Specified := True;
end;

function YabanciKisiBilgisi.UyrukKod_Specified(Index: Integer): boolean;
begin
  Result := FUyrukKod_Specified;
end;

destructor KPSServisSonucuKisiAdresBilgisi.Destroy;
begin
  SysUtils.FreeAndNil(FSonuc);
  inherited Destroy;
end;

procedure KPSServisSonucuKisiAdresBilgisi.SetHata(Index: Integer; const Astring: string);
begin
  FHata := Astring;
  FHata_Specified := True;
end;

function KPSServisSonucuKisiAdresBilgisi.Hata_Specified(Index: Integer): boolean;
begin
  Result := FHata_Specified;
end;

procedure KPSServisSonucuKisiAdresBilgisi.SetSonuc(Index: Integer; const AKisiAdresBilgisi: KisiAdresBilgisi);
begin
  FSonuc := AKisiAdresBilgisi;
  FSonuc_Specified := True;
end;

function KPSServisSonucuKisiAdresBilgisi.Sonuc_Specified(Index: Integer): boolean;
begin
  Result := FSonuc_Specified;
end;

procedure KisiAdresBilgisi.SetAdresNo(Index: Integer; const Astring: string);
begin
  FAdresNo := Astring;
  FAdresNo_Specified := True;
end;

function KisiAdresBilgisi.AdresNo_Specified(Index: Integer): boolean;
begin
  Result := FAdresNo_Specified;
end;

procedure KisiAdresBilgisi.SetAdresTipi(Index: Integer; const AAdresTipi: AdresTipi);
begin
  FAdresTipi := AAdresTipi;
  FAdresTipi_Specified := True;
end;

function KisiAdresBilgisi.AdresTipi_Specified(Index: Integer): boolean;
begin
  Result := FAdresTipi_Specified;
end;

procedure KisiAdresBilgisi.SetBucak(Index: Integer; const Astring: string);
begin
  FBucak := Astring;
  FBucak_Specified := True;
end;

function KisiAdresBilgisi.Bucak_Specified(Index: Integer): boolean;
begin
  Result := FBucak_Specified;
end;

procedure KisiAdresBilgisi.SetBucakKodu(Index: Integer; const Astring: string);
begin
  FBucakKodu := Astring;
  FBucakKodu_Specified := True;
end;

function KisiAdresBilgisi.BucakKodu_Specified(Index: Integer): boolean;
begin
  Result := FBucakKodu_Specified;
end;

procedure KisiAdresBilgisi.SetCsbm(Index: Integer; const Astring: string);
begin
  FCsbm := Astring;
  FCsbm_Specified := True;
end;

function KisiAdresBilgisi.Csbm_Specified(Index: Integer): boolean;
begin
  Result := FCsbm_Specified;
end;

procedure KisiAdresBilgisi.SetCsbmKodu(Index: Integer; const Astring: string);
begin
  FCsbmKodu := Astring;
  FCsbmKodu_Specified := True;
end;

function KisiAdresBilgisi.CsbmKodu_Specified(Index: Integer): boolean;
begin
  Result := FCsbmKodu_Specified;
end;

procedure KisiAdresBilgisi.SetDisKapiNo(Index: Integer; const Astring: string);
begin
  FDisKapiNo := Astring;
  FDisKapiNo_Specified := True;
end;

function KisiAdresBilgisi.DisKapiNo_Specified(Index: Integer): boolean;
begin
  Result := FDisKapiNo_Specified;
end;

procedure KisiAdresBilgisi.SetHata(Index: Integer; const Astring: string);
begin
  FHata := Astring;
  FHata_Specified := True;
end;

function KisiAdresBilgisi.Hata_Specified(Index: Integer): boolean;
begin
  Result := FHata_Specified;
end;

procedure KisiAdresBilgisi.SetIcKapiNo(Index: Integer; const Astring: string);
begin
  FIcKapiNo := Astring;
  FIcKapiNo_Specified := True;
end;

function KisiAdresBilgisi.IcKapiNo_Specified(Index: Integer): boolean;
begin
  Result := FIcKapiNo_Specified;
end;

procedure KisiAdresBilgisi.SetIl(Index: Integer; const Astring: string);
begin
  FIl := Astring;
  FIl_Specified := True;
end;

function KisiAdresBilgisi.Il_Specified(Index: Integer): boolean;
begin
  Result := FIl_Specified;
end;

procedure KisiAdresBilgisi.SetIlKodu(Index: Integer; const Astring: string);
begin
  FIlKodu := Astring;
  FIlKodu_Specified := True;
end;

function KisiAdresBilgisi.IlKodu_Specified(Index: Integer): boolean;
begin
  Result := FIlKodu_Specified;
end;

procedure KisiAdresBilgisi.SetIlce(Index: Integer; const Astring: string);
begin
  FIlce := Astring;
  FIlce_Specified := True;
end;

function KisiAdresBilgisi.Ilce_Specified(Index: Integer): boolean;
begin
  Result := FIlce_Specified;
end;

procedure KisiAdresBilgisi.SetIlceKodu(Index: Integer; const Astring: string);
begin
  FIlceKodu := Astring;
  FIlceKodu_Specified := True;
end;

function KisiAdresBilgisi.IlceKodu_Specified(Index: Integer): boolean;
begin
  Result := FIlceKodu_Specified;
end;

procedure KisiAdresBilgisi.SetKoy(Index: Integer; const Astring: string);
begin
  FKoy := Astring;
  FKoy_Specified := True;
end;

function KisiAdresBilgisi.Koy_Specified(Index: Integer): boolean;
begin
  Result := FKoy_Specified;
end;

procedure KisiAdresBilgisi.SetKoyKayitNo(Index: Integer; const Astring: string);
begin
  FKoyKayitNo := Astring;
  FKoyKayitNo_Specified := True;
end;

function KisiAdresBilgisi.KoyKayitNo_Specified(Index: Integer): boolean;
begin
  Result := FKoyKayitNo_Specified;
end;

procedure KisiAdresBilgisi.SetKoyKodu(Index: Integer; const Astring: string);
begin
  FKoyKodu := Astring;
  FKoyKodu_Specified := True;
end;

function KisiAdresBilgisi.KoyKodu_Specified(Index: Integer): boolean;
begin
  Result := FKoyKodu_Specified;
end;

procedure KisiAdresBilgisi.SetMahalle(Index: Integer; const Astring: string);
begin
  FMahalle := Astring;
  FMahalle_Specified := True;
end;

function KisiAdresBilgisi.Mahalle_Specified(Index: Integer): boolean;
begin
  Result := FMahalle_Specified;
end;

procedure KisiAdresBilgisi.SetMahalleKodu(Index: Integer; const Astring: string);
begin
  FMahalleKodu := Astring;
  FMahalleKodu_Specified := True;
end;

function KisiAdresBilgisi.MahalleKodu_Specified(Index: Integer): boolean;
begin
  Result := FMahalleKodu_Specified;
end;

procedure KPSServisSonucuAdresTipi.SetHata(Index: Integer; const Astring: string);
begin
  FHata := Astring;
  FHata_Specified := True;
end;

function KPSServisSonucuAdresTipi.Hata_Specified(Index: Integer): boolean;
begin
  Result := FHata_Specified;
end;

procedure KPSServisSonucuAdresTipi.SetSonuc(Index: Integer; const AAdresTipi: AdresTipi);
begin
  FSonuc := AAdresTipi;
  FSonuc_Specified := True;
end;

function KPSServisSonucuAdresTipi.Sonuc_Specified(Index: Integer): boolean;
begin
  Result := FSonuc_Specified;
end;

initialization
  InvRegistry.RegisterInterface(TypeInfo(KPSTestServices), 'http://www.saglik.gov.tr/KPS/2011', 'UTF-8');
  InvRegistry.RegisterDefaultSOAPAction(TypeInfo(KPSTestServices), 'http://www.saglik.gov.tr/KPS/2011/KPSServices/%operationName%');
  InvRegistry.RegisterInvokeOptions(TypeInfo(KPSTestServices), ioDocument);
  InvRegistry.RegisterInvokeOptions(TypeInfo(KPSTestServices), ioSOAP12);
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfstring), 'http://schemas.microsoft.com/2003/10/Serialization/Arrays', 'ArrayOfstring');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfIlIlce), 'http://www.saglik.gov.tr/KPS/2011', 'ArrayOfIlIlce');
  RemClassRegistry.RegisterXSClass(KPSServisSonucuArrayOfIlIlce, 'http://www.saglik.gov.tr/KPS/2011', 'KPSServisSonucuArrayOfIlIlce');
  RemClassRegistry.RegisterXSClass(IlIlce, 'http://www.saglik.gov.tr/KPS/2011', 'IlIlce');
  RemClassRegistry.RegisterXSClass(KPSServisSonucuKisiTemelBilgisi, 'http://www.saglik.gov.tr/KPS/2011', 'KPSServisSonucuKisiTemelBilgisi');
  RemClassRegistry.RegisterXSClass(KisiTemelBilgisi, 'http://www.saglik.gov.tr/KPS/2011', 'KisiTemelBilgisi');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfKisiTemelBilgisi), 'http://www.saglik.gov.tr/KPS/2011', 'ArrayOfKisiTemelBilgisi');
  RemClassRegistry.RegisterXSClass(KPSServisSonucuArrayOfKisiTemelBilgisi, 'http://www.saglik.gov.tr/KPS/2011', 'KPSServisSonucuArrayOfKisiTemelBilgisi');
  RemClassRegistry.RegisterXSClass(KPSServisSonucuKisiCuzdanBilgisi, 'http://www.saglik.gov.tr/KPS/2011', 'KPSServisSonucuKisiCuzdanBilgisi');
  RemClassRegistry.RegisterXSClass(KisiCuzdanBilgisi, 'http://www.saglik.gov.tr/KPS/2011', 'KisiCuzdanBilgisi');
  RemClassRegistry.RegisterXSClass(KPSServisSonucuYabanciKisiBilgisi, 'http://www.saglik.gov.tr/KPS/2011', 'KPSServisSonucuYabanciKisiBilgisi');
  RemClassRegistry.RegisterXSClass(YabanciKisiBilgisi, 'http://www.saglik.gov.tr/KPS/2011', 'YabanciKisiBilgisi');
  RemClassRegistry.RegisterXSClass(KPSServisSonucuKisiAdresBilgisi, 'http://www.saglik.gov.tr/KPS/2011', 'KPSServisSonucuKisiAdresBilgisi');
  RemClassRegistry.RegisterXSInfo(TypeInfo(AdresTipi), 'http://www.saglik.gov.tr/KPS/2011', 'AdresTipi');
  RemClassRegistry.RegisterXSClass(KisiAdresBilgisi, 'http://www.saglik.gov.tr/KPS/2011', 'KisiAdresBilgisi');
  RemClassRegistry.RegisterXSClass(KPSServisSonucuAdresTipi, 'http://www.saglik.gov.tr/KPS/2011', 'KPSServisSonucuAdresTipi');
  RemClassRegistry.RegisterXSClass(KPSServisSonucuArrayOfIlIlce2, 'http://www.saglik.gov.tr/KPS/2011', 'KPSServisSonucuArrayOfIlIlce2', 'KPSServisSonucuArrayOfIlIlce');
  RemClassRegistry.RegisterXSClass(IlIlce2, 'http://www.saglik.gov.tr/KPS/2011', 'IlIlce2', 'IlIlce');
  RemClassRegistry.RegisterXSClass(KPSServisSonucuKisiTemelBilgisi2, 'http://www.saglik.gov.tr/KPS/2011', 'KPSServisSonucuKisiTemelBilgisi2', 'KPSServisSonucuKisiTemelBilgisi');
  RemClassRegistry.RegisterXSClass(KisiTemelBilgisi2, 'http://www.saglik.gov.tr/KPS/2011', 'KisiTemelBilgisi2', 'KisiTemelBilgisi');
  RemClassRegistry.RegisterXSClass(KPSServisSonucuArrayOfKisiTemelBilgisi2, 'http://www.saglik.gov.tr/KPS/2011', 'KPSServisSonucuArrayOfKisiTemelBilgisi2', 'KPSServisSonucuArrayOfKisiTemelBilgisi');
  RemClassRegistry.RegisterXSClass(KPSServisSonucuKisiCuzdanBilgisi2, 'http://www.saglik.gov.tr/KPS/2011', 'KPSServisSonucuKisiCuzdanBilgisi2', 'KPSServisSonucuKisiCuzdanBilgisi');
  RemClassRegistry.RegisterXSClass(KisiCuzdanBilgisi2, 'http://www.saglik.gov.tr/KPS/2011', 'KisiCuzdanBilgisi2', 'KisiCuzdanBilgisi');
  RemClassRegistry.RegisterXSClass(KPSServisSonucuYabanciKisiBilgisi2, 'http://www.saglik.gov.tr/KPS/2011', 'KPSServisSonucuYabanciKisiBilgisi2', 'KPSServisSonucuYabanciKisiBilgisi');
  RemClassRegistry.RegisterXSClass(YabanciKisiBilgisi2, 'http://www.saglik.gov.tr/KPS/2011', 'YabanciKisiBilgisi2', 'YabanciKisiBilgisi');
  RemClassRegistry.RegisterXSClass(KPSServisSonucuKisiAdresBilgisi2, 'http://www.saglik.gov.tr/KPS/2011', 'KPSServisSonucuKisiAdresBilgisi2', 'KPSServisSonucuKisiAdresBilgisi');
  RemClassRegistry.RegisterXSClass(KisiAdresBilgisi2, 'http://www.saglik.gov.tr/KPS/2011', 'KisiAdresBilgisi2', 'KisiAdresBilgisi');
  RemClassRegistry.RegisterXSClass(KPSServisSonucuAdresTipi2, 'http://www.saglik.gov.tr/KPS/2011', 'KPSServisSonucuAdresTipi2', 'KPSServisSonucuAdresTipi');

end.

Delphi Forum

Kimlik Paylaşım Sistemi

Re: Kimlik Paylaşım Sistemi

Re: Kimlik Paylaşım Sistemi

Re: Kimlik Paylaşım Sistemi

Re: Kimlik Paylaşım Sistemi

Re: Kimlik Paylaşım Sistemi

Re: Kimlik Paylaşım Sistemi

Kimlik Paylaşım Sistemi

Re: Kimlik Paylaşım Sistemi

Re: Kimlik Paylaşım Sistemi

Re: Kimlik Paylaşım Sistemi

Re: Kimlik Paylaşım Sistemi

Re: Kimlik Paylaşım Sistemi

Re: Kimlik Paylaşım Sistemi

Re: Kimlik Paylaşım Sistemi

Re: Kimlik Paylaşım Sistemi