[Çözüldü] - WSDL importer / Unable to load WSDL File/Location Hatası

[engerex]

IP'niz değişince yeni IP'yi karşı tarafa bildirdiniz mi?

[Mesut]

(20-05-2024, Saat: 14:05)engerex Adlı Kullanıcıdan Alıntı: IP'niz değişince yeni IP'yi karşı tarafa bildirdiniz mi?

Evet hocam bildirdik zaten sunucu üzerinde dediğim gibi testlerde sıkıntı yaşamıyorum

[adelphiforumz]

Selamlar
Ekteki dosya işinizi görür umarım. bazen yeni versiyonlarda import yapınca sorun oluyorsu.
2007 üzerinden import ettim


  CustomerTransactionService.zip (Dosya Boyutu: 8,2 KB / İndirme Sayısı: 4)

[Mesut]

(20-05-2024, Saat: 14:01)mrmarman Adlı Kullanıcıdan Alıntı: WSDL import işlemlerini böyle yaptım ve bugüne kadar sorun yaşamadım.
Sizin bot server'a nasıl erişiyor bilemem ama POSTMAN'da yapılan ne varsa basitçe Delphi yakasında da yapılabilir.

HTTPRIO kullanarak da erişebilirsiniz NetHTTPClient ile de..

Zaten PAS oluştuktan sonra bu söylediklerinize ihtiyaç kalmıyor olması lazım. Serialize edilme aşamasında kaynak WSDL olabilir ama PAS olduktan sonra bir daha ihtiyaç kalmıyor olması lazım.  

WSDL her defasında yeniden mi import ediliyor sizin projede ?

Bunu yapmak için WSDL içeriğini sıradan bir WEB sayfası indirir gibi indirin, sonra da WSDLImp.exe ile bunu PAS üreterek kullanmayı deneyin. BOT'unuz bu şekilde evrilirse sorunu bir sonraki çözüme kadar rafa kaldırmış olursunuz.

Hocam dediğiniz gibi de yapıyorum import yaparken sorun vermese bile webservis çağırdığımda aynı hatayı alıyorum açılayıcı olması açısından yotube yükledim aşağıda paylaşıyorum

saygıalrımı sunarım.

[Mesut]

(20-05-2024, Saat: 14:24)adelphiforumz Adlı Kullanıcıdan Alıntı: Selamlar
Ekteki dosya işinizi görür umarım. bazen yeni versiyonlarda import yapınca sorun oluyorsu.
2007 üzerinden import ettim

hocam teşekkür ederim ama sorun devam ediyor malesef aynen

[mrmarman]

Gelen cevap HTML olduğu için şöyle bir yorumum olacak.

* Delphi WSDL import aracının talep ettiği format karşı tarafın Auth filtresine takılıyor olmalı. Türkçe mesaj dönüyor olması ve HTML formunda bir içerik olmasından bu sonuca kolayca varabiliyorum. Anlamadığım konu (sizinle ilgili değil Delphi'nin WSDL Importer aracı) boş bir proje oluşturdum ve önce USER-AGENT'i boşaltıp bir tane '!' vs. çağrı yaptım yine WSDL içerik döndü. WSDL içerik alma isteği sırasında nasıl bir trafik yapıyor ki karşı taraf refuse etsin.

var
 LUrl      : string;
 LResponse : string;
begin
 LUrl := 'https://boa.vakifkatilim.com.tr/BOA.Integration.WCFService/BOA.Integration.CustomerTransaction/CustomerTransactionService.svc?singlewsdl';
 NetHTTPClient1.UserAgent := '!';
 LResponse := NetHTTPClient1.Get( LUrl ).ContentAsString;
 memo1.Lines.Text := XMLBeauty( LResponse );

end;

Sonra da buldum :   

NetHTTPClient1.ContentType := '!';

deyince hata döndü

[Mesut]

(20-05-2024, Saat: 18:04)mrmarman Adlı Kullanıcıdan Alıntı: Gelen cevap HTML olduğu için şöyle bir yorumum olacak.

* Delphi WSDL import aracının talep ettiği format karşı tarafın Auth filtresine takılıyor olmalı. Türkçe mesaj dönüyor olması ve HTML formunda bir içerik olmasından bu sonuca kolayca varabiliyorum. Anlamadığım konu (sizinle ilgili değil Delphi'nin WSDL Importer aracı) boş bir proje oluşturdum ve önce USER-AGENT'i boşaltıp bir tane '!' vs. çağrı yaptım yine WSDL içerik döndü. WSDL içerik alma isteği sırasında nasıl bir trafik yapıyor ki karşı taraf refuse etsin.

var
 LUrl      : string;
 LResponse : string;
begin
 LUrl := 'https://boa.vakifkatilim.com.tr/BOA.Integration.WCFService/BOA.Integration.CustomerTransaction/CustomerTransactionService.svc?singlewsdl';
 NetHTTPClient1.UserAgent := '!';
 LResponse := NetHTTPClient1.Get( LUrl ).ContentAsString;
 memo1.Lines.Text := XMLBeauty( LResponse );

end;

Sonra da buldum :   

NetHTTPClient1.ContentType := '!';

deyince hata döndü

Bende anlamadım hocam işin bir tuhaf yanı da daha önce de aynı servis kullanılarak import edilmiş ve class yapısı kullanılarak request ve responselar yapılmış ve çalışıyormş nedense şu an yapamıyorum

[mrmarman]

Ben ContentType değiştirdiğimde tam hata şöyle. Siz de kendi mesajınız kırpıldığı kadarını merak ediyor olabilirsiniz. 

Tabi sizin destek numaranız size özel üretilecektir. Bu numarayı okumaya çalışıp, Vakıf Katılım'dan sormak isteyebilirsiniz.

Kod: (Select All)

<html>
 <head>
   <title>Erişiminiz Engellenmiştir</title>
 </head>
 <body>Uygulama Güvenlik Duvarı tarafından isteğiniz engellenmiştir. <br>
   <br>Destek numaranız: 4715018990765511531 <br>
   <br>
   <a href='javascript:history.back();'>[Geri]</a>
 </body>
</html>

Bu hatayı almak için uyguladığım kod

uses
  System.Net.HttpClient, System.Net.HttpClientComponent;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  LClient   : TNetHttpClient;
  LUrl      : string;
  LResponse : IHTTPResponse;
  LBody     : TStringStream;
begin
  LUrl := 'https://boa.vakifkatilim.com.tr/BOA.Integration.WCFService/BOA.Integration.CustomerTransaction/CustomerTransactionService.svc?singlewsdl';
  LClient := TNetHTTPClient.Create(nil);
  try
    LBody := TStringStream.Create;
    try
      LClient.ContentType := '!';
      LClient.AcceptEncoding := 'UTF-8';
      LResponse := LClient.Get( LUrl, LBody );

      if Assigned(LResponse) then
      begin
        if LResponse.StatusCode = 200
        then
        begin
          memo1.Lines.Text :=   'Status OK geldi'
                              + sLineBreak
                              + Utf8ToWideString( shortstring(LBody.DataString) )
                              + sLineBreak
        end
        else
          memo1.Lines.Text :=   'Status FAIL geldi'
                              + sLineBreak
                              + LBody.DataString
      end;
    finally
      FreeAndNil(LBody);
    end;
  finally
    FreeAndNil(LClient);
  end;

end;

[Mesut]

(20-05-2024, Saat: 19:11)mrmarman Adlı Kullanıcıdan Alıntı: Ben ContentType değiştirdiğimde tam hata şöyle. Siz de kendi mesajınız kırpıldığı kadarını merak ediyor olabilirsiniz. 

Tabi sizin destek numaranız size özel üretilecektir. Bu numarayı okumaya çalışıp, Vakıf Katılım'dan sormak isteyebilirsiniz.

Kod: (Select All)

<html>
 <head>
   <title>Erişiminiz Engellenmiştir</title>
 </head>
 <body>Uygulama Güvenlik Duvarı tarafından isteğiniz engellenmiştir. <br>
   <br>Destek numaranız: 4715018990765511531 <br>
   <br>
   <a href='javascript:history.back();'>[Geri]</a>
 </body>
</html>

Bu hatayı almak için uyguladığım kod

uses
  System.Net.HttpClient, System.Net.HttpClientComponent;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  LClient   : TNetHttpClient;
  LUrl      : string;
  LResponse : IHTTPResponse;
  LBody     : TStringStream;
begin
  LUrl := 'https://boa.vakifkatilim.com.tr/BOA.Integration.WCFService/BOA.Integration.CustomerTransaction/CustomerTransactionService.svc?singlewsdl';
  LClient := TNetHTTPClient.Create(nil);
  try
    LBody := TStringStream.Create;
    try
      LClient.ContentType := '!';
      LClient.AcceptEncoding := 'UTF-8';
      LResponse := LClient.Get( LUrl, LBody );

      if Assigned(LResponse) then
      begin
        if LResponse.StatusCode = 200
        then
        begin
          memo1.Lines.Text :=   'Status OK geldi'
                              + sLineBreak
                              + Utf8ToWideString( shortstring(LBody.DataString) )
                              + sLineBreak
        end
        else
          memo1.Lines.Text :=   'Status FAIL geldi'
                              + sLineBreak
                              + LBody.DataString
      end;
    finally
      FreeAndNil(LBody);
    end;
  finally
    FreeAndNil(LClient);
  end;

end;

Hocam yoldayım eve geçiyorum dediğiniz gibi yapıp bir kontrolü yapacağım neticesine göre de hareket edeceğim sonucu buraya yazacağım

[mrmarman]

Eğer VakifKatilim size çözüm sunmazsa size çözüm önerim şöyle olacak.

* Kendi projeniz için bir klasör belirleyin
* WSDL'yi daima kendiniz download edin.
* Sonra da HTTPRIO'ya file olarak kullanacağı şekilde parametresine bu indirdiğiniz WSDL' XML dosyasını verin.

nasıl mı sizin PAS içindeki fonksiyon aşağıdaki şekilde.

İlk parametre TRUE zaten 
İkinci parametre 'Addr' için download ettiğiniz XML dosya yolunu verin. Addr boş olmadığı için def olan const içerik devre dışı kalacaktır.  

Böylece Download edilemediği için taca çıkan topu yeniden oyuna sokmuş olacaksınız.

function GetICustomerTransactionService(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): ICustomerTransactionService;
const
  defWSDL = '.\CustomerTransactionService.xml';
  defURL  = 'https://boa.vakifkatilim.com.tr/BOA.Integration.WCFService/BOA.Integration.CustomerTransaction/CustomerTransactionService.svc/Basic';
  defSvc  = 'CustomerTransactionService';
  defPrt  = 'BasicHttpBinding_ICustomerTransactionService';
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 ICustomerTransactionService);
    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;