Web Servis SOAP

[eyln]

Merhaba,
Yine web servislerle başım belada...Bir bankanın web servisinden veri almaya çalışıyorum. Dökümanda şöyle bir bilgi vermiş ancak bunu Delphi'ye uyarlayamadım.
Konu hakkında desteğinizi rica ederim.

Kod: (Select All)

Webservis, SoapUI üzerinden denenirken WCF servisleri için “WS-Addressing” alanı true olarak set edilmeli ve aşağıda ekran görüntüsü bulunan “Add default wsa:To:” alanı seçili olmalıdır.

Bu şekilde SOAPUI 'da çalışıyor.



Örnek bir java kodu vermişler

Kod: (Select All)

// Enable WS - Adressing
iSOnlineServis = sOnlineService.getMetadataExchangeHttpsBindingISOnlineEkstreServis(new
AddressingFeature(true, true));

[RAD Coder]

Delphi tarafında, hangi aşamada olduğunuzu ve hangi işlemi yaparken ne gibi sorunla karşılaştığınızı yazarsanız, daha hızlı çözüm bulabilirsiniz.

[eyln]

Şöyle bir başarısız denemem oldu.

Kod: (Select All)

 var
 servis : ISOnlineEkstreServis;
 istek  :   DtoEkstreSorgu2;
 cevap  :   DtoEkstreCevap2;

 tarih:TXSDateTime;


begin
      servis :=SOnlineEkstreServis.GetISOnlineEkstreServis(true);


   
     istek :=DtoEkstreSorgu.Create;
     tarih :=  TXSDateTime.Create;
     tarih.AsDateTime :=date;


     istek.MusteriNo :='*****';
     istek.KurumKullanici:= '****';
     istek.Sifre:= '*****';
     istek.SorguBaslangicTarihi:= '2024-03-01 00:00';
     istek.SorguBitisTarihi:= '2024-03-02 23:59';
     istek.HesapNo := '*****';


     cevap :=servis.GetirHareket(istek);

     Memo1.Lines.Add(cevap.IslemKodu);

[RAD Coder]

(04-03-2024, Saat: 13:17)eyln Adlı Kullanıcıdan Alıntı: Şöyle bir başarısız denemem oldu.

Kod: (Select All)

 var
 servis : ISOnlineEkstreServis;
 istek  :   DtoEkstreSorgu2;
 cevap  :   DtoEkstreCevap2;

 tarih:TXSDateTime;


begin
      servis :=SOnlineEkstreServis.GetISOnlineEkstreServis(true);


   
     istek :=DtoEkstreSorgu.Create;
     tarih :=  TXSDateTime.Create;
     tarih.AsDateTime :=date;


     istek.MusteriNo :='*****';
     istek.KurumKullanici:= '****';
     istek.Sifre:= '*****';
     istek.SorguBaslangicTarihi:= '2024-03-01 00:00';
     istek.SorguBitisTarihi:= '2024-03-02 23:59';
     istek.HesapNo := '*****';


     cevap :=servis.GetirHareket(istek);

     Memo1.Lines.Add(cevap.IslemKodu);

Hata mesajını da iletebilir misiniz

[RAD Coder]

Not: Delphi kodlarınızı kod biçimlendirme (Mesaj editöründeki toolbar üzerinde Delphi simgesi; Delphi Kod Ekle butonu) aracını kullanarak yazarsanız, iyi olur.

[eyln]

Bankanın dökümanındaki hatayı veriyor.

Kod: (Select All)

Not 1: Webservis, SoapUI üzerinden denenirken WCF servisleri için “WS-Addressing” alanı true olarak set edilmeli ve aşağıda ekran görüntüsü bulunan “Add default wsa:To:” alanı seçili olmalıdır.

SoapUI üzerinden yapılan sorgulama işlemlerinde yukarıdaki seçeneklerin seçilmemesi durumunda uygulama güvenlik duvarı tarafından “The requested URL was rejected. Please consult with your administrator Your support id is : XXXXXXXXXXXXXXX” hata mesajı ile işlem engellenmektedir.

Dökümanda ne yapılması gerektiği belirtilmiş.(Enable WS - Adressing)Örnek java kodu verilmiş. Ancak bunu Delphi'de nasıl yapacağız problem bu



Örnek java kodu

Kod: (Select All)

SOnlineEkstreServis sOnlineService = new SOnlineEkstreServis();
ISOnlineEkstreServis iSOnlineServis;
// Enable WS - Adressing
iSOnlineServis = sOnlineService.getMetadataExchangeHttpsBindingISOnlineEkstreServis(new
AddressingFeature(true, true));
DtoEkstreSorgu sorgu = new DtoEkstreSorgu();

[RAD Coder]

(04-03-2024, Saat: 14:10)eyln Adlı Kullanıcıdan Alıntı: Bankanın dökümanındaki hatayı veriyor.

Kod: (Select All)

Not 1: Webservis, SoapUI üzerinden denenirken WCF servisleri için “WS-Addressing” alanı true olarak set edilmeli ve aşağıda ekran görüntüsü bulunan “Add default wsa:To:” alanı seçili olmalıdır.

SoapUI üzerinden yapılan sorgulama işlemlerinde yukarıdaki seçeneklerin seçilmemesi durumunda uygulama güvenlik duvarı tarafından “The requested URL was rejected. Please consult with your administrator Your support id is : XXXXXXXXXXXXXXX” hata mesajı ile işlem engellenmektedir.

Dökümanda ne yapılması gerektiği belirtilmiş.(Enable WS - Adressing)Örnek java kodu verilmiş. Ancak bunu Delphi'de nasıl yapacağız problem bu



Örnek java kodu

Kod: (Select All)

SOnlineEkstreServis sOnlineService = new SOnlineEkstreServis();
ISOnlineEkstreServis iSOnlineServis;
// Enable WS - Adressing
iSOnlineServis = sOnlineService.getMetadataExchangeHttpsBindingISOnlineEkstreServis(new
AddressingFeature(true, true));
DtoEkstreSorgu sorgu = new DtoEkstreSorgu();

Sorunun kaynağı size iletilmiş; uygulama güvenlik duvarı tarafından engelleniyor.
Güvenlik duvarını devre dışı bırakılması (kurum ve şirketler için WLAN olarak bu politikanın uygulanması) veya yalnızca bu http trafiği/portuna geçiş izni verilmesi gerekiyor.

[eyln]

Hayır şu işlemin ( "WCF servisleri için “WS-Addressing” alanı true olarak set edilmeli") Delphide yapılması gerekiyor. Java'da bunun nasıl yapılacağını örnek kod ile belirtmiş.

"iSOnlineServis = sOnlineService.getMetadataExchangeHttpsBindingISOnlineEkstreServis(new
AddressingFeature(true, true));

Delphi'de bir yolu olmalı diye düşünüyorum.

[RAD Coder]

(04-03-2024, Saat: 14:48)eyln Adlı Kullanıcıdan Alıntı: Hayır şu işlemin ( "WCF servisleri için “WS-Addressing” alanı true olarak set edilmeli") Delphide yapılması gerekiyor. Java'da bunun nasıl yapılacağını örnek kod ile belirtmiş.

"iSOnlineServis = sOnlineService.getMetadataExchangeHttpsBindingISOnlineEkstreServis(new
AddressingFeature(true, true));

Delphi'de bir yolu olmalı diye düşünüyorum.

WSDL'i impot etiyseniz; AddressingFeature fonksiyon olarak tanımlı bir tip olmalı.
İstek yapmadan önce bu tipi oluşturmalı ve getMetadataExchangeHttpsBindingISOnlineEkstreServis metodu içinde karşı tarafa göndermelisiniz.

[eyln]

(04-03-2024, Saat: 15:05)RAD Coder Adlı Kullanıcıdan Alıntı:

(04-03-2024, Saat: 14:48)eyln Adlı Kullanıcıdan Alıntı: Hayır şu işlemin ( "WCF servisleri için “WS-Addressing” alanı true olarak set edilmeli") Delphide yapılması gerekiyor. Java'da bunun nasıl yapılacağını örnek kod ile belirtmiş.

"iSOnlineServis = sOnlineService.getMetadataExchangeHttpsBindingISOnlineEkstreServis(new
AddressingFeature(true, true));

Delphi'de bir yolu olmalı diye düşünüyorum.

WSDL'i impot etiyseniz; AddressingFeature fonksiyon olarak tanımlı bir tip olmalı.
İstek yapmadan önce bu tipi oluşturmalı ve getMetadataExchangeHttpsBindingISOnlineEkstreServis metodu içinde karşı tarafa göndermelisiniz.

İmport ettim AddressingFeature böyle tanımlı bir tip bulunmuyor.