Kimlik Paylaşım Sistemi

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Cevapla
Kullanıcı avatarı
trcop
Üye
Mesajlar: 9
Kayıt: 20 Nis 2006 09:39
Konum: İSTANBUL

Mesaj gönderen trcop »

...
En son trcop tarafından 02 Oca 2009 01:47 tarihinde düzenlendi, toplamda 1 kere düzenlendi.
Yalnız kendini düşünerek dost arayan hizmetçi arıyor demektir.
Başa dön
Kullanıcı avatarı
aslangeri
Moderator
Mesajlar: 4322
Kayıt: 26 Ara 2003 04:19
Konum: Ankara
İletişim:
İletişim aslangeri

Re: Kimlik Paylaşım Sistemi

Mesaj gönderen aslangeri »

s.a.
daha önce web servislerini kullandıysan bundan sonrası basit.
normal web servislerini kullanır gibi kullanacaksın.
yalnız UserNameToken istiyeceği için "WSSE.pas" (ismini yanlış yazmış olabilirim) dosyasını bulup header kısmına username token (mernisten aldığınız kullanıcı adı ve şifresini) bilgisini eklemeniz lazım. headera eklemek için örnek pas dosyasını alacağın yerde vardır.
kolay gelsin.
Duyduğun Şeylerin Söylediklerim Olduğuna Eminim Ama
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
Başa dön
Kullanıcı avatarı
trcop
Üye
Mesajlar: 9
Kayıt: 20 Nis 2006 09:39
Konum: İSTANBUL

Mesaj gönderen trcop »

..
En son trcop tarafından 02 Oca 2009 11:55 tarihinde düzenlendi, toplamda 1 kere düzenlendi.
Yalnız kendini düşünerek dost arayan hizmetçi arıyor demektir.
Başa dön
Kullanıcı avatarı
trcop
Üye
Mesajlar: 9
Kayıt: 20 Nis 2006 09:39
Konum: İSTANBUL

Kimlik Paylaşım Sistemi

Mesaj gönderen trcop »

tüm form kullanıcılarına ve tüm insanlığa 2009 yılının hayırlı olması dileğiyle...

mernis projesi ile ilgili olarak karınca boyu kadar ilerleme katettiğimi sanıyorum.
delphi 7 ile yaptığım programı kaymakamlık vasıtasıyla denedim ve
received content of invalid content-type setting: text/html - soap expects "text/xml"
şeklinde bir hata raporu ile karşılaştım.
örnek program :
TCKimlik_Mernis.rar
(11.72 KiB) 794 kere indirildi
kaymakamlık vs. yerlerde deneyebilen arkadaş varsa bir denesin. eksiklik nerede bilen varsa yazsın.

wsse.pas
içindeki fonksiyonları bilen varsa bilgisini paylaşmımını bekler saygılar sunarım.
En son trcop tarafından 02 Oca 2009 01:34 tarihinde düzenlendi, toplamda 2 kere düzenlendi.
Yalnız kendini düşünerek dost arayan hizmetçi arıyor demektir.
Başa dön
Kullanıcı avatarı
aslangeri
Moderator
Mesajlar: 4322
Kayıt: 26 Ara 2003 04:19
Konum: Ankara
İletişim:
İletişim aslangeri

Re: Kimlik Paylaşım Sistemi

Mesaj gönderen aslangeri »

s.a.
lütfen mesajınızın düzeltip küçük harfe çeviriniz.
Duyduğun Şeylerin Söylediklerim Olduğuna Eminim Ama
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
Başa dön
eubakay
Üye
Mesajlar: 2
Kayıt: 07 Oca 2009 02:31

Re: Kimlik Paylaşım Sistemi

Mesaj gönderen eubakay »

Merhaba Arkadaşlar bende aynı hata ile karşılaştım herhangi bi çözüm yokmu acaba.

Hata :
received content of invalid content-type setting: text/html - soap expects "text/xml"

İyi Çalışmalr.
Başa dön
Kullanıcı avatarı
trcop
Üye
Mesajlar: 9
Kayıt: 20 Nis 2006 09:39
Konum: İSTANBUL

Re: Kimlik Paylaşım Sistemi

Mesaj gönderen trcop »

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);
----------------------------------------------------------------------------------------------------
Arkadaşlar benim tahminim yukarıdaki kod ile oluşturulan (time, username, password vs.) xml/text cümleciği KPS serveri tarafından tanınmıyor.
yani serverin istediği formatı oluşturamıyoruz.
Bu kod Delphi 7 ile hazırlanmıştır. Belkide ilerleyen yazılarda denildiği gibi Delphi 7 yeterli gelmiyor. Eğer Delphi 7'nin suçu yok diyen arkadaş varsa lütfen bilgi paylaşımında bulunsun.
Yalnız kendini düşünerek dost arayan hizmetçi arıyor demektir.
Başa dön
Kullanıcı avatarı
trcop
Üye
Mesajlar: 9
Kayıt: 20 Nis 2006 09:39
Konum: İSTANBUL

Re: Kimlik Paylaşım Sistemi

Mesaj gönderen trcop »

s.a. arkadaşlar

nvi.gov.tr de verilen örnek xml kodu

<?xml version="1.0" encoding="utf-8"?>
<soapenv:Envelope xmlns:soapenv="http://www.w3.org/2003/05/soap-envelope">
<soapenv:Header>
<wsse:Security xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/ ... xt-1.0.xsd" soapenv:mustUnderstand="true">
<wsu:Timestamp xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/ ... ty-1.0.xsd" wsu:Id="Timestamp-27789929">
<wsu:Created>2008-02-06T14:04:08Z</wsu:Created>
<wsu:Expires>2008-02-06T14:09:08Z</wsu:Expires>
</wsu:Timestamp>
<wsse:UsernameToken xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/ ... ty-1.0.xsd" wsu:Id="UsernameToken-32278793">
<wsse:Username>Selcuk</wsse:Username>
<wsse:Password Type="http://docs.oasis-open.org/wss/2004/01/ ... e:Password>
<wsse:Nonce>/qmJdpfcepocmQ19ntGmVw==</wsse:Nonce>
<wsu:Created>2008-02-06T14:04:08Z</wsu:Created>
</wsse:UsernameToken>
</wsse:Security>
</soapenv:Header>
<soapenv:Body>
<ns1:IlListesiGetir xmlns:ns1="http://kps.nvi.gov.tr/WS" />
</soapenv:Body>
</soapenv:Envelope>

**************************************************

benim projenin oluşturduğu xml kodu
<?xml version="1.0" ?>
<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<SOAP-ENV:Header>
<wsse:Security xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/ ... xt-1.0.xsd" SOAP-ENV:mustUnderstand="True">
<wsu:Timestamp xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/ ... ty-1.0.xsd" wsu:Id="Timestamp-27789929">
<wsu:Created>2009-02-09T04:08:14.000Z</wsu:Created>
<wsu:Expires>2009-02-09T04:08:14.000Z</wsu:Expires>
</wsu:Timestamp>
<wsse:UserNameToken xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/ ... ty-1.0.xsd" wsse:Id="UsernameToken-32278793" xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/ ... ty-1.0.xsd">
<wsse:UserName>xxxxxxxxxx</wsse:UserName>
<wsse:Password Type="http://docs.oasis-open.org/wss/2004/01/ ... e:Password>
<wsse:Nonce>/qmJdpfcepocmQ19ntGmVw==</wsse:Nonce>
<wsse:Created>2009-02-09T04:08:14.000Z</wsse:Created>
</wsse:UserNameToken>
</wsse:Security>
</SOAP-ENV:Header>
<SOAP-ENV:Body>
<TCKimlikNodanKisiBilgisiSorgula xmlns="http://kps.nvi.gov.tr/WS">
<list>
<TCKimlikNoG>
<TCKimlikNo>12345678901</TCKimlikNo>
</TCKimlikNoG>
</list>
</TCKimlikNodanKisiBilgisiSorgula>
</SOAP-ENV:Body>
</SOAP-ENV:Envelope>

hemen hemen aynı kod ama yinede hata veriyor.
Yalnız kendini düşünerek dost arayan hizmetçi arıyor demektir.
Başa dön
Kullanıcı avatarı
vampir261
Üye
Mesajlar: 298
Kayıt: 23 Kas 2004 03:22
Konum: Denizli

Re: Kimlik Paylaşım Sistemi

Mesaj gönderen vampir261 »

Sayın trcop yaptığınız yazılım ile ilgili sonuç elde edebildiniz mi :?: Bende bir belediye çalışanı olarak bu konuda bir yazılım yapmaya çalışıyorum ama sonuç alamadım. :(
Anlatırsanız unuturum,
Gösterirseniz hatırlarım,
Yaptırırsanız anlarım.
Başa dön
Kullanıcı avatarı
trcop
Üye
Mesajlar: 9
Kayıt: 20 Nis 2006 09:39
Konum: İSTANBUL

Re: Kimlik Paylaşım Sistemi

Mesaj gönderen trcop »

Maalesef kardeş bir ilerleme yapamadım.

PAYLAŞIM ALIŞKANLIĞIMIZIN OLMADIĞINA ÜZÜLÜYORUM.


Yabancılara hayranım bu konuda. insanlar uğraşlarını birileriyle paylaşmak için adeta yarışıyorlar. bizler bu konuda cimriyiz.

Paylaşanları tenzih ediyorum.
Yalnız kendini düşünerek dost arayan hizmetçi arıyor demektir.
Başa dön
yusuf
Üye
Mesajlar: 139
Kayıt: 20 Tem 2005 11:05
Konum: İSTANBUL

Re: Kimlik Paylaşım Sistemi

Mesaj gönderen yusuf »

bu konuyu burada ilk açıtığımda bazı arkadaşlar bilmiş yazılardan dolayı canımı smıştı bende .net sorunumu çözmüştüm. kırıldıgım içinde bu konuya bakmamıştım görüyorumki hala kimse yardımcı olmamış görünen çok kişi çözümü bekliyor. eubakay hocam servisin sonuna

Kod: Tümünü seç

InvRegistry.RegisterInvokeOptions(TypeInfo(ServiceSoap), ioDocument);
ekleyerek denermisin daha sonra burada örneği yayınlarmısın herkes çözsün sorununu inşallah hepinize başarılar. :bravo:
Başa dön
yusuf
Üye
Mesajlar: 139
Kayıt: 20 Tem 2005 11:05
Konum: İSTANBUL

Re: Kimlik Paylaşım Sistemi

Mesaj gönderen yusuf »

servisin en alt kısmı bu şekilde olacak.

Kod: Tümünü seç

initialization
  InvRegistry.RegisterInterface(TypeInfo(KPSSoap), 'http://kps.nvi.gov.tr/WS', 'UTF-8');
  InvRegistry.RegisterDefaultSOAPAction(TypeInfo(KPSSoap), 'http://kps.nvi.gov.tr/WS/%operationName%');
  RemClassRegistry.RegisterXSInfo(TypeInfo(KisiDurumTipi), 'http://kps.nvi.gov.tr/WS', 'KisiDurumTipi');
  RemClassRegistry.RegisterXSInfo(TypeInfo(MedeniHalTipi), 'http://kps.nvi.gov.tr/WS', 'MedeniHalTipi');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(MedeniHalTipi), 'Bilinmeyen2', 'Bilinmeyen');
  RemClassRegistry.RegisterXSInfo(TypeInfo(DinTipi), 'http://kps.nvi.gov.tr/WS', 'DinTipi');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(DinTipi), 'Bilinmeyen3', 'Bilinmeyen');
  RemClassRegistry.RegisterXSInfo(TypeInfo(CinsiyetTipi), 'http://kps.nvi.gov.tr/WS', 'CinsiyetTipi');
  RemClassRegistry.RegisterXSInfo(TypeInfo(NufusOlayTipi), 'http://kps.nvi.gov.tr/WS', 'NufusOlayTipi');
  RemClassRegistry.RegisterXSInfo(TypeInfo(NufusKayitOrnegiTipi), 'http://kps.nvi.gov.tr/WS', 'NufusKayitOrnegiTipi');
  RemClassRegistry.RegisterXSInfo(TypeInfo(YakinlikTipi), 'http://kps.nvi.gov.tr/WS', 'YakinlikTipi');
  RemClassRegistry.RegisterXSInfo(TypeInfo(NKOOlayTipi), 'http://kps.nvi.gov.tr/WS', 'NKOOlayTipi');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(NKOOlayTipi), 'Bilinmeyen4', 'Bilinmeyen');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(NKOOlayTipi), 'SoybagiDuzeltme2', 'SoybagiDuzeltme');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(NKOOlayTipi), 'SoyBagininReddi2', 'SoyBagininReddi');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(NKOOlayTipi), 'EvlatEdinme2', 'EvlatEdinme');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(NKOOlayTipi), 'EvlatliginReddi2', 'EvlatliginReddi');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(NKOOlayTipi), 'Bosanma2', 'Bosanma');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(NKOOlayTipi), 'BosanmaIptali2', 'BosanmaIptali');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(NKOOlayTipi), 'KayitDuzeltme2', 'KayitDuzeltme');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(NKOOlayTipi), 'Evlenme2', 'Evlenme');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(NKOOlayTipi), 'EvlenmeninFeshiIptali2', 'EvlenmeninFeshiIptali');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(NKOOlayTipi), 'Gaiplik2', 'Gaiplik');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(NKOOlayTipi), 'IdareceKayitDuzeltme2', 'IdareceKayitDuzeltme');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(NKOOlayTipi), 'KayitSilme2', 'KayitSilme');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(NKOOlayTipi), 'KayitTasima2', 'KayitTasima');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(NKOOlayTipi), 'MukerrerKayitSilme2', 'MukerrerKayitSilme');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(NKOOlayTipi), 'Nakil2', 'Nakil');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(NKOOlayTipi), 'SosyalGuvenlik2', 'SosyalGuvenlik');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(NKOOlayTipi), 'Tanima2', 'Tanima');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(NKOOlayTipi), 'Vasiyet2', 'Vasiyet');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(NKOOlayTipi), 'Velayet2', 'Velayet');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(NKOOlayTipi), 'Dogum2', 'Dogum');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(NKOOlayTipi), 'YesilKart2', 'YesilKart');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(NKOOlayTipi), 'Olum2', 'Olum');
  RemClassRegistry.RegisterXSInfo(TypeInfo(CuzdanVerilmeNedenTipi), 'http://kps.nvi.gov.tr/WS', 'CuzdanVerilmeNedenTipi');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(CuzdanVerilmeNedenTipi), 'Dogum3', 'Dogum');
  RemClassRegistry.RegisterXSInfo(TypeInfo(KimlikBilgisiSorguTipi), 'http://kps.nvi.gov.tr/WS', 'KimlikBilgisiSorguTipi');
  RemClassRegistry.RegisterXSInfo(TypeInfo(CuzdanKayipTipi), 'http://kps.nvi.gov.tr/WS', 'CuzdanKayipTipi');
  RemClassRegistry.RegisterXSInfo(TypeInfo(AileListesiTipi), 'http://kps.nvi.gov.tr/WS', 'AileListesiTipi');
  RemClassRegistry.RegisterXSInfo(TypeInfo(AdresTipi), 'http://kps.nvi.gov.tr/WS', 'AdresTipi');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(AdresTipi), 'Bilinmiyor2', 'Bilinmiyor');
  RemClassRegistry.RegisterXSClass(TarihBilgisi, 'http://kps.nvi.gov.tr/WS', 'TarihBilgisi');
  RemClassRegistry.RegisterXSClass(CustomBE, 'http://kps.nvi.gov.tr/WS', 'CustomBE');
  RemClassRegistry.RegisterXSClass(KPSSorguSonucu, 'http://kps.nvi.gov.tr/WS', 'KPSSorguSonucu');
  RemClassRegistry.RegisterXSClass(KisiKayitYeriBilgisi, 'http://kps.nvi.gov.tr/WS', 'KisiKayitYeriBilgisi');
  RemClassRegistry.RegisterXSClass(KisiDurumBilgisi, 'http://kps.nvi.gov.tr/WS', 'KisiDurumBilgisi');
  RemClassRegistry.RegisterXSClass(KisiTemelBilgisi, 'http://kps.nvi.gov.tr/WS', 'KisiTemelBilgisi');
  RemClassRegistry.RegisterXSClass(KisiBilgisiC, 'http://kps.nvi.gov.tr/WS', 'KisiBilgisiC');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfKisiBilgisiC), 'http://kps.nvi.gov.tr/WS', 'ArrayOfKisiBilgisiC');
  RemClassRegistry.RegisterXSClass(SayfaIstekKomutu, 'http://kps.nvi.gov.tr/WS', 'SayfaIstekKomutu');
  RemClassRegistry.RegisterXSClass(OlayBilgisiC, 'http://kps.nvi.gov.tr/WS', 'OlayBilgisiC');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfOlayBilgisiC), 'http://kps.nvi.gov.tr/WS', 'ArrayOfOlayBilgisiC');
  RemClassRegistry.RegisterXSClass(CiltKoduC, 'http://kps.nvi.gov.tr/WS', 'CiltKoduC');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfCiltKoduC), 'http://kps.nvi.gov.tr/WS', 'ArrayOfCiltKoduC');
  RemClassRegistry.RegisterXSClass(CiltAdiC, 'http://kps.nvi.gov.tr/WS', 'CiltAdiC');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfCiltAdiC), 'http://kps.nvi.gov.tr/WS', 'ArrayOfCiltAdiC');
  RemClassRegistry.RegisterXSClass(IlBilgisi, 'http://kps.nvi.gov.tr/WS', 'IlBilgisi');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfIlBilgisi), 'http://kps.nvi.gov.tr/WS', 'ArrayOfIlBilgisi');
  RemClassRegistry.RegisterXSClass(IlceBilgisi, 'http://kps.nvi.gov.tr/WS', 'IlceBilgisi');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfIlceBilgisi), 'http://kps.nvi.gov.tr/WS', 'ArrayOfIlceBilgisi');
  RemClassRegistry.RegisterXSClass(KisiKayitYeriKodBilgisi, 'http://kps.nvi.gov.tr/WS', 'KisiKayitYeriKodBilgisi');
  RemClassRegistry.RegisterXSClass(KisiOlayTarihBilgisi, 'http://kps.nvi.gov.tr/WS', 'KisiOlayTarihBilgisi');
  RemClassRegistry.RegisterXSClass(NKOKisiBilgisi, 'http://kps.nvi.gov.tr/WS', 'NKOKisiBilgisi');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfNKOKisiBilgisi), 'http://kps.nvi.gov.tr/WS', 'ArrayOfNKOKisiBilgisi');
  RemClassRegistry.RegisterXSClass(NKOOlayBilgisi, 'http://kps.nvi.gov.tr/WS', 'NKOOlayBilgisi');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfNKOOlayBilgisi), 'http://kps.nvi.gov.tr/WS', 'ArrayOfNKOOlayBilgisi');
  RemClassRegistry.RegisterXSClass(NufusKayitOrnegiC, 'http://kps.nvi.gov.tr/WS', 'NufusKayitOrnegiC');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfNufusKayitOrnegiC), 'http://kps.nvi.gov.tr/WS', 'ArrayOfNufusKayitOrnegiC');
  RemClassRegistry.RegisterXSClass(NufusCuzdanC, 'http://kps.nvi.gov.tr/WS', 'NufusCuzdanC');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfNufusCuzdanC), 'http://kps.nvi.gov.tr/WS', 'ArrayOfNufusCuzdanC');
  RemClassRegistry.RegisterXSClass(SearchInfoBE, 'http://kps.nvi.gov.tr/WS', 'SearchInfoBE');
  RemClassRegistry.RegisterXSClass(NufusCuzdanSatisYerG, 'http://kps.nvi.gov.tr/WS', 'NufusCuzdanSatisYerG');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfNufusCuzdanSatisYerG), 'http://kps.nvi.gov.tr/WS', 'ArrayOfNufusCuzdanSatisYerG');
  RemClassRegistry.RegisterXSClass(KPSSorgusu, 'http://kps.nvi.gov.tr/WS', 'KPSSorgusu');
  RemClassRegistry.RegisterXSClass(KayitYerindenKimlikBilgisiG, 'http://kps.nvi.gov.tr/WS', 'KayitYerindenKimlikBilgisiG');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfKayitYerindenKimlikBilgisiG), 'http://kps.nvi.gov.tr/WS', 'ArrayOfKayitYerindenKimlikBilgisiG');
  RemClassRegistry.RegisterXSClass(NKOKayitYeriG, 'http://kps.nvi.gov.tr/WS', 'NKOKayitYeriG');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfNKOKayitYeriG), 'http://kps.nvi.gov.tr/WS', 'ArrayOfNKOKayitYeriG');
  RemClassRegistry.RegisterXSClass(TCKimlikNoG, 'http://kps.nvi.gov.tr/WS', 'TCKimlikNoG');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfTCKimlikNoG), 'http://kps.nvi.gov.tr/WS', 'ArrayOfTCKimlikNoG');
  RemClassRegistry.RegisterXSClass(NufusCuzdanSatisYerC, 'http://kps.nvi.gov.tr/WS', 'NufusCuzdanSatisYerC');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfNufusCuzdanSatisYerC), 'http://kps.nvi.gov.tr/WS', 'ArrayOfNufusCuzdanSatisYerC');
  RemClassRegistry.RegisterXSClass(KimlikBilgisiDegisenlerC, 'http://kps.nvi.gov.tr/WS', 'KimlikBilgisiDegisenlerC');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfKimlikBilgisiDegisenlerC), 'http://kps.nvi.gov.tr/WS', 'ArrayOfKimlikBilgisiDegisenlerC');
  RemClassRegistry.RegisterXSClass(DogumIstatistigiC, 'http://kps.nvi.gov.tr/WS', 'DogumIstatistigiC');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfDogumIstatistigiC), 'http://kps.nvi.gov.tr/WS', 'ArrayOfDogumIstatistigiC');
  RemClassRegistry.RegisterXSClass(OlumIstatistigiC, 'http://kps.nvi.gov.tr/WS', 'OlumIstatistigiC');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfOlumIstatistigiC), 'http://kps.nvi.gov.tr/WS', 'ArrayOfOlumIstatistigiC');
  RemClassRegistry.RegisterXSClass(EvlenmeIstatistigiC, 'http://kps.nvi.gov.tr/WS', 'EvlenmeIstatistigiC');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfEvlenmeIstatistigiC), 'http://kps.nvi.gov.tr/WS', 'ArrayOfEvlenmeIstatistigiC');
  RemClassRegistry.RegisterXSClass(BosanmaIstatistigiC, 'http://kps.nvi.gov.tr/WS', 'BosanmaIstatistigiC');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfBosanmaIstatistigiC), 'http://kps.nvi.gov.tr/WS', 'ArrayOfBosanmaIstatistigiC');
  RemClassRegistry.RegisterXSClass(KimlikBilgisiG, 'http://kps.nvi.gov.tr/WS', 'KimlikBilgisiG');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfKimlikBilgisiG), 'http://kps.nvi.gov.tr/WS', 'ArrayOfKimlikBilgisiG');
  RemClassRegistry.RegisterXSClass(NKOTCKimlikNoG, 'http://kps.nvi.gov.tr/WS', 'NKOTCKimlikNoG');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfNKOTCKimlikNoG), 'http://kps.nvi.gov.tr/WS', 'ArrayOfNKOTCKimlikNoG');
  RemClassRegistry.RegisterXSClass(EvlenmeG, 'http://kps.nvi.gov.tr/WS', 'EvlenmeG');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfEvlenmeG), 'http://kps.nvi.gov.tr/WS', 'ArrayOfEvlenmeG');
  RemClassRegistry.RegisterXSClass(EvlenmeBilgisi, 'http://kps.nvi.gov.tr/WS', 'EvlenmeBilgisi');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfEvlenmeBilgisi), 'http://kps.nvi.gov.tr/WS', 'ArrayOfEvlenmeBilgisi');
  RemClassRegistry.RegisterXSClass(EvlenmeC, 'http://kps.nvi.gov.tr/WS', 'EvlenmeC');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfEvlenmeC), 'http://kps.nvi.gov.tr/WS', 'ArrayOfEvlenmeC');
  RemClassRegistry.RegisterXSClass(KayipCuzdanC, 'http://kps.nvi.gov.tr/WS', 'KayipCuzdanC');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfKayipCuzdanC), 'http://kps.nvi.gov.tr/WS', 'ArrayOfKayipCuzdanC');
  RemClassRegistry.RegisterXSClass(KayipCuzdanEskiC, 'http://kps.nvi.gov.tr/WS', 'KayipCuzdanEskiC');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfKayipCuzdanEskiC), 'http://kps.nvi.gov.tr/WS', 'ArrayOfKayipCuzdanEskiC');
  RemClassRegistry.RegisterXSClass(AileListesiTCKimlikNoG, 'http://kps.nvi.gov.tr/WS', 'AileListesiTCKimlikNoG');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfAileListesiTCKimlikNoG), 'http://kps.nvi.gov.tr/WS', 'ArrayOfAileListesiTCKimlikNoG');
  RemClassRegistry.RegisterXSClass(AileBilgisi, 'http://kps.nvi.gov.tr/WS', 'AileBilgisi');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfAileBilgisi), 'http://kps.nvi.gov.tr/WS', 'ArrayOfAileBilgisi');
  RemClassRegistry.RegisterXSClass(AileListesiC, 'http://kps.nvi.gov.tr/WS', 'AileListesiC');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfAileListesiC), 'http://kps.nvi.gov.tr/WS', 'ArrayOfAileListesiC');
  RemClassRegistry.RegisterXSClass(YabanciKisiBilgisiC, 'http://kps.nvi.gov.tr/WS', 'YabanciKisiBilgisiC');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfYabanciKisiBilgisiC), 'http://kps.nvi.gov.tr/WS', 'ArrayOfYabanciKisiBilgisiC');
  RemClassRegistry.RegisterXSClass(IlIlceMerkeziAdresBilgisi, 'http://kps.nvi.gov.tr/WS', 'IlIlceMerkeziAdresBilgisi');
  RemClassRegistry.RegisterXSClass(BeldeAdresBilgisi, 'http://kps.nvi.gov.tr/WS', 'BeldeAdresBilgisi');
  RemClassRegistry.RegisterXSClass(KoyAdresBilgisi, 'http://kps.nvi.gov.tr/WS', 'KoyAdresBilgisi');
  RemClassRegistry.RegisterXSClass(YurtDisiAdresBilgisi, 'http://kps.nvi.gov.tr/WS', 'YurtDisiAdresBilgisi');
  RemClassRegistry.RegisterXSClass(AdresBilgisi, 'http://kps.nvi.gov.tr/WS', 'AdresBilgisi');
  RemClassRegistry.RegisterXSClass(KisiAdresBilgisiC, 'http://kps.nvi.gov.tr/WS', 'KisiAdresBilgisiC');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfKisiAdresBilgisiC), 'http://kps.nvi.gov.tr/WS', 'ArrayOfKisiAdresBilgisiC');
  RemClassRegistry.RegisterXSClass(AdresNoG, 'http://kps.nvi.gov.tr/WS', 'AdresNoG');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfAdresNoG), 'http://kps.nvi.gov.tr/WS', 'ArrayOfAdresNoG');
  RemClassRegistry.RegisterXSClass(TCKimlikNoC, 'http://kps.nvi.gov.tr/WS', 'TCKimlikNoC');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfTCKimlikNoC), 'http://kps.nvi.gov.tr/WS', 'ArrayOfTCKimlikNoC');
  RemClassRegistry.RegisterXSClass(YerlesimYerindeOturanlarC, 'http://kps.nvi.gov.tr/WS', 'YerlesimYerindeOturanlarC');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfYerlesimYerindeOturanlarC), 'http://kps.nvi.gov.tr/WS', 'ArrayOfYerlesimYerindeOturanlarC');
  RemClassRegistry.RegisterXSClass(SayfalamaBilgisi, 'http://kps.nvi.gov.tr/WS', 'SayfalamaBilgisi');
  RemClassRegistry.RegisterXSClass(KPSVeriTablosu, 'http://kps.nvi.gov.tr/WS', 'KPSVeriTablosu');
  RemClassRegistry.RegisterXSClass(KisiBilgisiCT, 'http://kps.nvi.gov.tr/WS', 'KisiBilgisiCT');
  RemClassRegistry.RegisterXSClass(OlayBilgisiCT, 'http://kps.nvi.gov.tr/WS', 'OlayBilgisiCT');
  RemClassRegistry.RegisterXSClass(KimlikBilgisiDegisenlerCT, 'http://kps.nvi.gov.tr/WS', 'KimlikBilgisiDegisenlerCT');
  RemClassRegistry.RegisterXSClass(KayipCuzdanCT, 'http://kps.nvi.gov.tr/WS', 'KayipCuzdanCT');
  [b]InvRegistry.RegisterInvokeOptions(TypeInfo(kpsSoap), ioDocument);[/b]
end.
Başa dön
fcakar
Üye
Mesajlar: 7
Kayıt: 06 Ağu 2003 11:13
Konum: Dicle Üniversitesi

Re: Kimlik Paylaşım Sistemi

Mesaj gönderen fcakar »

Merhaba arkadaşlar,
Üzerinden çok vakit geçmiş, ama, ben hala çözemedim ve hata mesajı hala alıyorum:

received content of invalid content-type setting: text/html - soap expects "text/xml"

Bu kodların sorunsuz şeklini paylaşacak biri yok mu acaba.
Teşekkür ediyorum:

fcakar@msn.com
Başa dön
fduman
Moderator
Mesajlar: 2749
Kayıt: 17 Ara 2004 12:02
Konum: Ankara

Re: Kimlik Paylaşım Sistemi

Mesaj gönderen fduman »

KPS artık Web Service Security kullanmakta. Microsoft, .NET'te web service security'nin kolay kullanılabilmesi için WSE isimli bir bileşen geliştirdi. Ben WSE 3.0 sürümünü kullanarak C#'da yaptım. Delphi 7 için benzer bir bileşen geliştirilmiş midir bilemiyorum. Delphi .NET kullananlar kolayca çevirebilir sanırım. KPS'de önemli bir diğer nokta, bilgisayarınızın saati. İki sistem arasında belirli bir dakikadan fazla fark var ise hata alacaksınız zaten.

Öncelikle KPS'nin wsdl'ını kullanarak import yapın. KPS ile ilgili sınıf oluşacak. Bu sınıf'ın türediği sınıf
Microsoft.Web.Services3.WebServicesClientProtocol olarak değiştirilmeli.

Kod: Tümünü seç

using Microsoft.Web.Services3.Design;
using Microsoft.Web.Services3.Security.Tokens;

KPSv4.KPSv4 kpsService = new KPSv4.KPSv4();
kpsService.SetClientCredential(new UsernameToken(Settings.Default.KPSUsername, Settings.Default.KPSPassword, PasswordOption.SendHashed));
kpsService.SetPolicy(new Policy(new UsernameOverTransportAssertion(), new RequireActionHeaderAssertion()));

KisiBilgisiC[] kisiList = kpsService.TCKimlikNodanKisiBilgisiSorgula(new TCKimlikNoG[] { 
                new TCKimlikNoG { TCKimlikNo = kimlikno } 
            });
Başa dön
Kullanıcı avatarı
vkamadan
Kıdemli Üye
Mesajlar: 1935
Kayıt: 17 Mar 2004 03:52
Konum: Adapazarı
İletişim:
İletişim vkamadan

Re: Kimlik Paylaşım Sistemi

Mesaj gönderen vkamadan »

Ah keşke bir hayır sever .NET te bir COM OBJ yapsada bizde Herhangi bir delphi versiyonundan kullansakta bol bol dua etsek ahh ahh. :)
Volkan KAMADAN
www.polisoft.com.tr
Başa dön
Cevapla

“Programlama” sayfasına dön