Web Servis User Kontrolü

[yusuf]

S.A. Arkadaşlar Kimlik bilgisi çekmek için kurumun yapmış olduğu servisi kullanmakta bir sorun yaşıyorum kafayı yiycem lütfen yardımcı olurmusunuz sorunm şöyleki servise username ve pass göndererek kimlik bilgilerni okumak istiyorum C# Örneği şöyle

Kod: Tümünü seç

BimLogin PbLogin = new BimLogin();
PbLogin.KpsUserName = "xxxxxxxxxxxxxxx";
PbLogin.KpsPassword = "xxxxxxxxxxxxxxx";
PbLogin.PrgLoginName = Program.PbKullanici.KullaniciID.ToString();
BimKps PbKps = new BimKps();
KisiBilgisi_Cevap CevapKisiBilgi = PbKps.KimlikBilgisi_Sorgula_TcKimlikNo(PbLogin, long.Parse(txtx_TcKimlikNo.Text));

txtx_Adi.Text = CevapKisiBilgi.TemelBilgisi.Ad;
txtx_Soyadi.Text = CevapKisiBilgi.TemelBilgisi.Soyad;

Benim yapmış olduğum ise servisi projeme import ettikten sonra şöyle

Kod: Tümünü seç

unit Unit1;

interface

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

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

var
  Form1: TForm1;
   lcKisiVeri :  KisiBilgisi_Cevap;
   _prm_Kullanici: BimLogin;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
 var
  _Prm_TcKimlik: Int64;
begin
    _prm_Kullanici := BimLogin.Create;
    _prm_Kullanici.KpsUserName := 'demeo';
    _prm_Kullanici.KpsPassword := 'demo';
    _prm_Kullanici.PrgLoginName := 'demo';

   _Prm_TcKimlik :=  StrToInt64(Edit1.Text);

   lcKisiVeri :=   GetBimKpsSoap().KimlikBilgisi_Sorgula_TcKimlikNo(_prm_Kullanici,_Prm_TcKimlik);

  Label1.Caption := lcKisiVeri.TemelBilgisi.Ad;
  Label2.Caption := lcKisiVeri.TemelBilgisi.Soyad;
end;

end.

import etmiş olduğum servis ise şöyle

Kod: Tümünü seç

// ************************************************************************ //
// The types declared in this file were generated from data read from the
// WSDL File described below:
// WSDL     : http://penbimkpswebsrv/KpsWebSrv.asmx?WSDL
// Encoding : utf-8
// Version  : 1.0
// (8/6/2010 5:20:19 PM - 1.33.2.5)
// ************************************************************************ //

unit KpsWebSrv;

interface

uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;

type

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

  BimLogin          = class;                 { "http://kurum.bel.tr/KpsWebSrv" }
  NufusBilgisi         = class;                 { "http://kurum.bel.tr/KpsWebSrv" }
  AdresBilgisi         = class;                 { "http://kurum.bel.tr/KpsWebSrv" }
  TarihBilgisi         = class;                 { "http://kps.nvi.gov.tr/WS" }
  TemelBilgisi         = class;                 { "http://kurum.bel.tr/KpsWebSrv" }
  CuzdanBilgisi        = class;                 { "http://kurum.bel.tr/KpsWebSrv" }
  DurumBilgisi         = class;                 { "http://kurum.bel.tr/KpsWebSrv" }
  KisiBilgisi_Cevap    = class;                 { "http://kurum.bel.tr/KpsWebSrv" }
  CustomBE             = class;                 { "http://kps.nvi.gov.tr/WS" }
  SearchInfoBE         = class;                 { "http://kps.nvi.gov.tr/WS" }
  KPSSorgusu           = class;                 { "http://kps.nvi.gov.tr/WS" }
  KimlikBilgisiG       = class;                 { "http://kps.nvi.gov.tr/WS" }

  { "http://kps.nvi.gov.tr/WS" }
  CinsiyetTipi = (Bilinmiyor, Erkek, Kadin);

  { "http://kps.nvi.gov.tr/WS" }
  CuzdanVerilmeNedenTipi = (Dogum, Yeniden, Kayip, Yenileme, Degistirme);

  { "http://kps.nvi.gov.tr/WS" }
  KisiDurumTipi = (Bilinmeyen, Acik, Kapali, KapaliOlum, KapaliGaiplik, KapaliVatandasliktanCikma, KapaliKayitSilme, KapaliMukerrerKayitSilme, KapaliDiger, KapaliCiltBolmeBirlestirme);

  { "http://kps.nvi.gov.tr/WS" }
  DinTipi = (Bilinmeyen2, Islam, Hiristiyan, Musevi, Suryani, SuryaniKadim, Budist, Dinsiz, DigerDin, BilinmeyenDin);

  { "http://kps.nvi.gov.tr/WS" }
  MedeniHalTipi = (Bilinmeyen3, Bekar, Evli, Bosanmis, Dul, EvliliginFeshi, EvliliginIptali);

  { "http://kps.nvi.gov.tr/WS" }
  KimlikBilgisiSorguTipi = (TamEsitlik, KelimeIcermesi);



  // ************************************************************************ //
  // Namespace : http://kurum.bel.tr/KpsWebSrv
  // ************************************************************************ //
  BimLogin = class(TRemotable)
  private
    FKpsUserName: WideString;
    FKpsPassword: WideString;
    FPrgLoginName: WideString;
  published
    property KpsUserName: WideString read FKpsUserName write FKpsUserName;
    property KpsPassword: WideString read FKpsPassword write FKpsPassword;
    property PrgLoginName: WideString read FPrgLoginName write FPrgLoginName;
  end;



  // ************************************************************************ //
  // Namespace : http://kurum.bel.tr/KpsWebSrv
  // ************************************************************************ //
  NufusBilgisi = class(TRemotable)
  private
    FAileSiraNo: Integer;
    FBireySiraNo: Integer;
    FCiltAd: WideString;
    FCiltKod: Integer;
    FIlAd: WideString;
    FIlKod: Integer;
    FIlceAd: WideString;
    FIlceKod: Integer;
  published
    property AileSiraNo: Integer read FAileSiraNo write FAileSiraNo;
    property BireySiraNo: Integer read FBireySiraNo write FBireySiraNo;
    property CiltAd: WideString read FCiltAd write FCiltAd;
    property CiltKod: Integer read FCiltKod write FCiltKod;
    property IlAd: WideString read FIlAd write FIlAd;
    property IlKod: Integer read FIlKod write FIlKod;
    property IlceAd: WideString read FIlceAd write FIlceAd;
    property IlceKod: Integer read FIlceKod write FIlceKod;
  end;



  // ************************************************************************ //
  // Namespace : http://kurum.bel.tr/KpsWebSrv
  // ************************************************************************ //
  AdresBilgisi = class(TRemotable)
  private
    FAdresNo: Int64;
    FIlAd: WideString;
    FIlKod: Integer;
    FIlceAd: WideString;
    FIlceKod: Integer;
    FMahalleAd: WideString;
    FMahalleKod: Integer;
    FCsbmAd: WideString;
    FCsbmKod: Integer;
    FDisKapiNo: WideString;
    FIcKapiNo: WideString;
  published
    property AdresNo: Int64 read FAdresNo write FAdresNo;
    property IlAd: WideString read FIlAd write FIlAd;
    property IlKod: Integer read FIlKod write FIlKod;
    property IlceAd: WideString read FIlceAd write FIlceAd;
    property IlceKod: Integer read FIlceKod write FIlceKod;
    property MahalleAd: WideString read FMahalleAd write FMahalleAd;
    property MahalleKod: Integer read FMahalleKod write FMahalleKod;
    property CsbmAd: WideString read FCsbmAd write FCsbmAd;
    property CsbmKod: Integer read FCsbmKod write FCsbmKod;
    property DisKapiNo: WideString read FDisKapiNo write FDisKapiNo;
    property IcKapiNo: WideString read FIcKapiNo write FIcKapiNo;
  end;



  // ************************************************************************ //
  // Namespace : http://kps.nvi.gov.tr/WS
  // ************************************************************************ //
  TarihBilgisi = class(TRemotable)
  private
    FYil: Integer;
    FAy: Integer;
    FGun: Integer;
  published
    property Yil: Integer read FYil write FYil;
    property Ay: Integer read FAy write FAy;
    property Gun: Integer read FGun write FGun;
  end;



  // ************************************************************************ //
  // Namespace : http://kurum.bel.tr/KpsWebSrv
  // ************************************************************************ //
  TemelBilgisi = class(TRemotable)
  private
    FAd: WideString;
    FSoyad: WideString;
    FKizlikSoyad: WideString;
    FCinsiyet: CinsiyetTipi;
    FAnaAd: WideString;
    FAnaSoyad: WideString;
    FBabaAd: WideString;
    FBabaSoyad: WideString;
    FDogumYer: WideString;
    FDogumTarih: TarihBilgisi;
    FOzurOrani: Integer;
  public
    destructor Destroy; override;
  published
    property Ad: WideString read FAd write FAd;
    property Soyad: WideString read FSoyad write FSoyad;
    property KizlikSoyad: WideString read FKizlikSoyad write FKizlikSoyad;
    property Cinsiyet: CinsiyetTipi read FCinsiyet write FCinsiyet;
    property AnaAd: WideString read FAnaAd write FAnaAd;
    property AnaSoyad: WideString read FAnaSoyad write FAnaSoyad;
    property BabaAd: WideString read FBabaAd write FBabaAd;
    property BabaSoyad: WideString read FBabaSoyad write FBabaSoyad;
    property DogumYer: WideString read FDogumYer write FDogumYer;
    property DogumTarih: TarihBilgisi read FDogumTarih write FDogumTarih;
    property OzurOrani: Integer read FOzurOrani write FOzurOrani;
  end;



  // ************************************************************************ //
  // Namespace : http://kurum.bel.tr/KpsWebSrv
  // ************************************************************************ //
  CuzdanBilgisi = class(TRemotable)
  private
    FCuzdanNo: Int64;
    FSeriNo: WideString;
    FKayitNo: Int64;
    FIlceAd: WideString;
    FIlceKod: Integer;
    FVerilisNedeni: CuzdanVerilmeNedenTipi;
    FVerilisTarihi: TarihBilgisi;
  public
    destructor Destroy; override;
  published
    property CuzdanNo: Int64 read FCuzdanNo write FCuzdanNo;
    property SeriNo: WideString read FSeriNo write FSeriNo;
    property KayitNo: Int64 read FKayitNo write FKayitNo;
    property IlceAd: WideString read FIlceAd write FIlceAd;
    property IlceKod: Integer read FIlceKod write FIlceKod;
    property VerilisNedeni: CuzdanVerilmeNedenTipi read FVerilisNedeni write FVerilisNedeni;
    property VerilisTarihi: TarihBilgisi read FVerilisTarihi write FVerilisTarihi;
  end;



  // ************************************************************************ //
  // Namespace : http://kurum.bel.tr/KpsWebSrv
  // ************************************************************************ //
  DurumBilgisi = class(TRemotable)
  private
    FDurum: KisiDurumTipi;
    FDin: DinTipi;
    FMedeniDurum: MedeniHalTipi;
    FOlumTarihi: TarihBilgisi;
    FOlumYeri: WideString;
  public
    destructor Destroy; override;
  published
    property Durum: KisiDurumTipi read FDurum write FDurum;
    property Din: DinTipi read FDin write FDin;
    property MedeniDurum: MedeniHalTipi read FMedeniDurum write FMedeniDurum;
    property OlumTarihi: TarihBilgisi read FOlumTarihi write FOlumTarihi;
    property OlumYeri: WideString read FOlumYeri write FOlumYeri;
  end;



  // ************************************************************************ //
  // Namespace : http://kurum.bel.tr/KpsWebSrv
  // ************************************************************************ //
  KisiBilgisi_Cevap = class(TRemotable)
  private
    FHataKodu: Integer;
    FHataMesaj: WideString;
    FTcKimlik: Int64;
    FTemelBilgisi: TemelBilgisi;
    FNufusBilgisi: NufusBilgisi;
    FCuzdanBilgisi: CuzdanBilgisi;
    FDurumBilgisi: DurumBilgisi;
    FAdresBilgisi: AdresBilgisi;
  public
    destructor Destroy; override;
  published
    property HataKodu: Integer read FHataKodu write FHataKodu;
    property HataMesaj: WideString read FHataMesaj write FHataMesaj;
    property TcKimlik: Int64 read FTcKimlik write FTcKimlik;
    property TemelBilgisi: TemelBilgisi read FTemelBilgisi write FTemelBilgisi;
    property NufusBilgisi: NufusBilgisi read FNufusBilgisi write FNufusBilgisi;
    property CuzdanBilgisi: CuzdanBilgisi read FCuzdanBilgisi write FCuzdanBilgisi;
    property DurumBilgisi: DurumBilgisi read FDurumBilgisi write FDurumBilgisi;
    property AdresBilgisi: AdresBilgisi read FAdresBilgisi write FAdresBilgisi;
  end;



  // ************************************************************************ //
  // Namespace : http://kps.nvi.gov.tr/WS
  // ************************************************************************ //
  CustomBE = class(TRemotable)
  private
  published
  end;



  // ************************************************************************ //
  // Namespace : http://kps.nvi.gov.tr/WS
  // ************************************************************************ //
  SearchInfoBE = class(CustomBE)
  private
  published
  end;



  // ************************************************************************ //
  // Namespace : http://kps.nvi.gov.tr/WS
  // ************************************************************************ //
  KPSSorgusu = class(SearchInfoBE)
  private
  published
  end;



  // ************************************************************************ //
  // Namespace : http://kps.nvi.gov.tr/WS
  // ************************************************************************ //
  KimlikBilgisiG = class(KPSSorgusu)
  private
    FAd: WideString;
    FSoyad: WideString;
    FCinsiyet: CinsiyetTipi;
    FBabaAd: WideString;
    FAnaAd: WideString;
    FDogumTarih: TarihBilgisi;
    FDogumYer: WideString;
    FSorguTipi: KimlikBilgisiSorguTipi;
  public
    destructor Destroy; override;
  published
    property Ad: WideString read FAd write FAd;
    property Soyad: WideString read FSoyad write FSoyad;
    property Cinsiyet: CinsiyetTipi read FCinsiyet write FCinsiyet;
    property BabaAd: WideString read FBabaAd write FBabaAd;
    property AnaAd: WideString read FAnaAd write FAnaAd;
    property DogumTarih: TarihBilgisi read FDogumTarih write FDogumTarih;
    property DogumYer: WideString read FDogumYer write FDogumYer;
    property SorguTipi: KimlikBilgisiSorguTipi read FSorguTipi write FSorguTipi;
  end;


  // ************************************************************************ //
  // Namespace : http://kurum.bel.tr/KpsWebSrv
  // soapAction: http://kurum.bel.tr/KpsWebSrv/%operationName%
  // transport : http://schemas.xmlsoap.org/soap/http
  // binding   : BimKpsSoap
  // service   : BimKps
  // port      : BimKpsSoap
  // URL       : http://bimkpswebsrv/KpsWebSrv.asmx
  // ************************************************************************ //
  PenBimKpsSoap = interface(IInvokable)
  ['{7A0B2EA3-2314-2B2B-4C76-097B770A9BB4}']
    function  KimlikBilgisi_Sorgula_TcKimlikNo(const _prm_Kullanici: BimLogin; const _Prm_TcKimlik: Int64): KisiBilgisi_Cevap; stdcall;
    function  KimlikBilgisi_Dogrula_TcKimlikNo(const _prm_Kullanici: BimLogin; const _Prm_TcKimlik: Int64): KisiBilgisi_Cevap; stdcall;
    function  KimlikBilgisi_Sorgula_KisiBilgisi(const _prm_Kullanici: BimLogin; const _prm_KimlikBilgisi: KimlikBilgisiG): KisiBilgisi_Cevap; stdcall;
    function  KimlikBilgisi_Dogrula_KisiBilgisi(const _prm_Kullanici: BimLogin; const _prm_KimlikBilgisi: KimlikBilgisiG): KisiBilgisi_Cevap; stdcall;
  end;

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


implementation

function GetBimKpsSoap(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): BimKpsSoap;
const
  defWSDL = 'http://bimkpswebsrv/KpsWebSrv.asmx?WSDL';
  defURL  = 'http://bimkpswebsrv/KpsWebSrv.asmx';
  defSvc  = 'BimKps';
  defPrt  = 'BimKpsSoap';
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 PenBimKpsSoap);
    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 TemelBilgisi.Destroy;
begin
  if Assigned(FDogumTarih) then
    FDogumTarih.Free;
  inherited Destroy;
end;

destructor CuzdanBilgisi.Destroy;
begin
  if Assigned(FVerilisTarihi) then
    FVerilisTarihi.Free;
  inherited Destroy;
end;

destructor DurumBilgisi.Destroy;
begin
  if Assigned(FOlumTarihi) then
    FOlumTarihi.Free;
  inherited Destroy;
end;

destructor KisiBilgisi_Cevap.Destroy;
begin
  if Assigned(FTemelBilgisi) then
    FTemelBilgisi.Free;
  if Assigned(FNufusBilgisi) then
    FNufusBilgisi.Free;
  if Assigned(FCuzdanBilgisi) then
    FCuzdanBilgisi.Free;
  if Assigned(FDurumBilgisi) then
    FDurumBilgisi.Free;
  if Assigned(FAdresBilgisi) then
    FAdresBilgisi.Free;
  inherited Destroy;
end;

destructor KimlikBilgisiG.Destroy;
begin
  if Assigned(FDogumTarih) then
    FDogumTarih.Free;
  inherited Destroy;
end;

initialization
  InvRegistry.RegisterInterface(TypeInfo(PenBimKpsSoap), 'http://kurum.bel.tr/KpsWebSrv', 'utf-8');
  InvRegistry.RegisterDefaultSOAPAction(TypeInfo(PenBimKpsSoap), 'http://kurum.bel.tr/KpsWebSrv/%operationName%');
  RemClassRegistry.RegisterXSClass(BimLogin, 'http://kurum.bel.tr/KpsWebSrv', 'BimLogin');
  RemClassRegistry.RegisterXSClass(NufusBilgisi, 'http://kurum.bel.tr/KpsWebSrv', 'NufusBilgisi');
  RemClassRegistry.RegisterXSClass(AdresBilgisi, 'http://kurum.bel.tr/KpsWebSrv', 'AdresBilgisi');
  RemClassRegistry.RegisterXSInfo(TypeInfo(CinsiyetTipi), 'http://kps.nvi.gov.tr/WS', 'CinsiyetTipi');
  RemClassRegistry.RegisterXSClass(TarihBilgisi, 'http://kps.nvi.gov.tr/WS', 'TarihBilgisi');
  RemClassRegistry.RegisterXSClass(TemelBilgisi, 'http://kurum.bel.tr/KpsWebSrv', 'TemelBilgisi');
  RemClassRegistry.RegisterXSInfo(TypeInfo(CuzdanVerilmeNedenTipi), 'http://kps.nvi.gov.tr/WS', 'CuzdanVerilmeNedenTipi');
  RemClassRegistry.RegisterXSClass(CuzdanBilgisi, 'http://kurum.bel.tr/KpsWebSrv', 'CuzdanBilgisi');
  RemClassRegistry.RegisterXSInfo(TypeInfo(KisiDurumTipi), 'http://kps.nvi.gov.tr/WS', 'KisiDurumTipi');
  RemClassRegistry.RegisterXSInfo(TypeInfo(DinTipi), 'http://kps.nvi.gov.tr/WS', 'DinTipi');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(DinTipi), 'Bilinmeyen2', 'Bilinmeyen');
  RemClassRegistry.RegisterXSInfo(TypeInfo(MedeniHalTipi), 'http://kps.nvi.gov.tr/WS', 'MedeniHalTipi');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(MedeniHalTipi), 'Bilinmeyen3', 'Bilinmeyen');
  RemClassRegistry.RegisterXSClass(DurumBilgisi, 'http://kurum.bel.tr/KpsWebSrv', 'DurumBilgisi');
  RemClassRegistry.RegisterXSClass(KisiBilgisi_Cevap, 'http://kurum.bel.tr/KpsWebSrv', 'KisiBilgisi_Cevap');
  RemClassRegistry.RegisterXSInfo(TypeInfo(KimlikBilgisiSorguTipi), 'http://kps.nvi.gov.tr/WS', 'KimlikBilgisiSorguTipi');
  RemClassRegistry.RegisterXSClass(CustomBE, 'http://kps.nvi.gov.tr/WS', 'CustomBE');
  RemClassRegistry.RegisterXSClass(SearchInfoBE, 'http://kps.nvi.gov.tr/WS', 'SearchInfoBE');
  RemClassRegistry.RegisterXSClass(KPSSorgusu, 'http://kps.nvi.gov.tr/WS', 'KPSSorgusu');
  RemClassRegistry.RegisterXSClass(KimlikBilgisiG, 'http://kps.nvi.gov.tr/WS', 'KimlikBilgisiG');
  InvRegistry.RegisterInvokeOptions(TypeInfo(BimKpsSoap), ioDocument);
end. 

Hata ise yazma yetki hatısı diye bir hata bu arada şifereler falan hepsi doğru onlarda sorun yok şimdiden teşekkür ederim arkadaşlar.

[vkamadan]

Merhaba ,
KPS web servisleri bildiğim kadarıyla "MicroSoft Web Service Security" adında bir güvenlik katmanı kullanıyor, her nekadar nette Web Service Security i delphi ile taklit eden kodlar dolaşşada şahsen kendim uzun araştırma ve denemeler sonucunda bu işin delphi ile yapılamayacağı kanaatine varıp projenin ilgili kısmını c# ile yazmak zorunda kaldım.

[yusuf]

Volkan hocam öncelikle cevap yazdığınız için çok teşekkür ederim hocam şöyleki bu kurum kendi server lerine bir webservice yazmışlar yukarıda import halini verdiğim şekilde Kps ye bu servis ulaşıyor şifre kontrolünüde servis yapıyor. benim sorunum şu aracı olark yaptıkları servise ulaşıp onun üzerinden sorgulama yapmak o servisede kendilerince user ve pass kontrolü koymuşlar oda içişleri bakanlığının şifreleme tarzında değil üstte c# ile ilgili ulaşım örneği var benzerini delphide yapmama rağmen yazma sorunu diye bir mesaj alıyorum saygılar

[vkamadan]

İlgili hata server daki servisten dönüyor gibi görünüyor , elinizdeki c# örneği çalışıyormu peki?
verdiğiniz bilgiler doğrultusunda yaptıklarınızda bir hata görülmüyor.

[yusuf]

C# Örneğinin çalıştığını söylüyorlar çok uğraştım sonuçsuz kaldım teşekkür ederi hocam sizde nerde hata yapıyorum bir araştırırsanız çok memnun olurum cevaplarınızı bekliyorum

[yusuf]

Acaba long ile Int64 arasında bir sorun olabilirmi?

[yusuf]

serviste gönderilecek tc kimlik alanı long ben ise Int64 olarak gönderiyorum bu sorun oluşturabilirmi acaba?

[vkamadan]

Yani örneği kendi sistemimde test etmeden pek bir sonuç çıkmaz ama URL local bir URL olduğu için erişemedim, eğer dışarıdan erişilebilen bir SOAP END POINT URL si gönderebilirseniz web servisi buradan örnek bir projeyle test edebilirm

[yusuf]

Dışarıdan erişime izin vermiyorlar volkan hocam çalışma yapacağım zaman kurumdan yapmam gerekiyor ama verdiği hatayı daha sonra tam olarak yazarım teşekkür ederim ilgilendiğin için

[yusuf]

Arkadaşlar yazılan kod lar doğru sorun proğramı denediğm bilgisayarada imiş ilgilenen tüm arkadaşlar teşekkür ederim volkan hocam sağolasın ilgilendiğin için

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  _Prm_TcKimlik: Int64;
begin
    _prm_Kullanici := BimLogin.Create;
    _prm_Kullanici.KpsUserName := 'demeo';
    _prm_Kullanici.KpsPassword := 'demo';
    _prm_Kullanici.PrgLoginName := 'demo';

   _Prm_TcKimlik :=  StrToInt64(Edit1.Text);

   lcKisiVeri :=   GetBimKpsSoap().KimlikBilgisi_Sorgula_TcKimlikNo(_prm_Kullanici,_Prm_TcKimlik);

  Label1.Caption := lcKisiVeri.TemelBilgisi.Ad;
  Label2.Caption := lcKisiVeri.TemelBilgisi.Soyad;
end;