Yemek Sepeti Entegrasyonu - Authentication Failed (401) hatası

[meko]

Herkese merhaba,

Yemeksepeti için entegrasyon yapmaya çalışıyorum. 

http://messaging.yemeksepeti.com/messagi....asmx?WSDL 
WSDL importer ile Integration uniti oluşturdum. ana forma use unit ile ekledim

procedure TForm1.Button1Click(Sender: TObject);
var
 aIntegrationSoap : IntegrationSoap;
begin
 HTTPRIO.HTTPWebNode.UserName := 'username';
 HTTPRIO.HTTPWebNode.Password := 'password';

 aIntegrationSoap := GetIntegrationSoap(true,'',HTTPRIO);
 aIntegrationSoap.GetMessage;
end;

çalıştırınca
Authentication Failed (401) - 'http://messaging.yemeksepeti.com/MessagingWebService/Integration.asmx'
hatası alıyorum.
önerilere açığım

[hi_selamlar]

(22-12-2020, Saat: 15:12)meko Adlı Kullanıcıdan Alıntı: Herkese merhaba,

Yemeksepeti için entegrasyon yapmaya çalışıyorum. 

http://messaging.yemeksepeti.com/messagi....asmx?WSDL 
WSDL importer ile Integration uniti oluşturdum. ana forma use unit ile ekledim

procedure TForm1.Button1Click(Sender: TObject);
var
 aIntegrationSoap : IntegrationSoap;
begin
 HTTPRIO.HTTPWebNode.UserName := 'username';
 HTTPRIO.HTTPWebNode.Password := 'password';

 aIntegrationSoap := GetIntegrationSoap(true,'',HTTPRIO);
 aIntegrationSoap.GetMessage;
end;

çalıştırınca
Authentication Failed (401) - 'http://messaging.yemeksepeti.com/MessagingWebService/Integration.asmx'
hatası alıyorum.
önerilere açığım

Merhabalar,

Dönen uyarı da Kimlik Doğrulaması Başarısız olduğunu iletiyor.
API entegrasyonu için YemekSpeti'nden bir kullanıcı adı ve şifresi aldınız mı?
(Üyelik veya Test API için nasıl bir yol izlendiği konusunda bir bilgim yok. Üye kaydından sonra sanırım bunun için size bir test bilgisi vereceklerdir.)

Username ve Password için bir test user bilgisi olması gerekli.

Kolay gelsin.

[meko]

(22-12-2020, Saat: 15:17)hi_selamlar Adlı Kullanıcıdan Alıntı: Merhabalar,

Dönen uyarı da Kimlik Doğrulaması Başarısız olduğunu iletiyor.
API entegrasyonu için YemekSpeti'nden bir kullanıcı adı ve şifresi aldınız mı?
(Üyelik veya Test API için nasıl bir yol izlendiği konusunda bir bilgim yok. Üye kaydından sonra sanırım bunun için size bir test bilgisi vereceklerdir.)

Username ve Password için bir test user bilgisi olması gerekli.

Kolay gelsin.

evet, YS'den kullanıcı adı ve şifresi alındı

[hi_selamlar]

Merhaba,

Örnek kodlar paylaşılmış olması lazım.
Kodlar üzerinden hareketle devam edebilirsiniz.

Kolay gelsin.

Olmaz ama kusura bakmayın sormak ta yarar var; aldığınız kullanıcı adı ve şifreyi kullanıyorsunuz değil mi?

[meko]

(22-12-2020, Saat: 15:28)hi_selamlar Adlı Kullanıcıdan Alıntı: Merhaba,

Örnek kodlar paylaşılmış olması lazım.
Kodlar üzerinden hareketle devam edebilirsiniz.

Kolay gelsin.

Olmaz ama kusura bakmayın sormak ta yarar var; aldığınız kullanıcı adı ve şifreyi kullanıyorsunuz değil mi?

Merhaba,
maalesef örnek kod paylaşmadılar
http://messaging.yemeksepeti.com/document/

kusura bakmak niye olsun , verdikleri kullanıcı bilgilerini kullanıyorum

[hi_selamlar]

(22-12-2020, Saat: 15:33)meko Adlı Kullanıcıdan Alıntı:

(22-12-2020, Saat: 15:28)hi_selamlar Adlı Kullanıcıdan Alıntı: Merhaba,

Örnek kodlar paylaşılmış olması lazım.
Kodlar üzerinden hareketle devam edebilirsiniz.

Kolay gelsin.

Olmaz ama kusura bakmayın sormak ta yarar var; aldığınız kullanıcı adı ve şifreyi kullanıyorsunuz değil mi?

Merhaba,
maalesef örnek kod paylaşmadılar
http://messaging.yemeksepeti.com/document/

kusura bakmak niye olsun , verdikleri kullanıcı bilgilerini kullanıyorum

Merhabalar,

HTTPRIO1.HTTPWebNode.GetHTTPReqResp.UserName := 'KULLANICIADINIZ';
HTTPRIO1.HTTPWebNode.GetHTTPReqResp.Password := 'ŞİFRENİZ';

Şeklinde denermisiniz.

[meko]

(22-12-2020, Saat: 15:36)hi_selamlar Adlı Kullanıcıdan Alıntı: Merhabalar,

HTTPRIO1.HTTPWebNode.GetHTTPReqResp.UserName := 'KULLANICIADINIZ';
HTTPRIO1.HTTPWebNode.GetHTTPReqResp.Password := 'ŞİFRENİZ';

Şeklinde denermisiniz.

butonda denedim aynı mesajı veriyor.
ayrıca aşağıdaki kodlar ile aynı hatayı vermeye devam ediyor.

procedure TForm1.HTTPRIOHTTPWebNode1BeforePost(const HTTPReqResp: THTTPReqResp;
 Data: Pointer);
var
UserName: string;
PassWord: string;
auth : string;
begin
  UserName := 'username';
  Password := 'password';

//  yöntem 1
  auth := 'Authorization: Basic ' + idEncoderMIME1.EncodeString(); // parantez içine username:password konulacak
  HttpAddRequestHeaders(Data, PChar(auth), Length(auth), HTTP_ADDREQ_FLAG_ADD);

// yöntem 2
     HttpAddRequestHeaders(Data, PChar(UserName),
     Length(UserName), HTTP_ADDREQ_FLAG_ADD);

     HttpAddRequestHeaders(Data, PChar(Password),
     Length(Password), HTTP_ADDREQ_FLAG_ADD);
end;

[hi_selamlar]

(22-12-2020, Saat: 16:07)meko Adlı Kullanıcıdan Alıntı:

(22-12-2020, Saat: 15:36)hi_selamlar Adlı Kullanıcıdan Alıntı: Merhabalar,

HTTPRIO1.HTTPWebNode.GetHTTPReqResp.UserName := 'KULLANICIADINIZ';
HTTPRIO1.HTTPWebNode.GetHTTPReqResp.Password := 'ŞİFRENİZ';

Şeklinde denermisiniz.

butonda denedim aynı mesajı veriyor.
ayrıca aşağıdaki kodlar ile aynı hatayı vermeye devam ediyor.

procedure TForm1.HTTPRIOHTTPWebNode1BeforePost(const HTTPReqResp: THTTPReqResp;
 Data: Pointer);
var
UserName: string;
PassWord: string;
auth : string;
begin
  UserName := 'username';
  Password := 'password';

//  yöntem 1
  auth := 'Authorization: Basic ' + idEncoderMIME1.EncodeString(); // parantez içine username:password konulacak
  HttpAddRequestHeaders(Data, PChar(auth), Length(auth), HTTP_ADDREQ_FLAG_ADD);

// yöntem 2
     HttpAddRequestHeaders(Data, PChar(UserName),
     Length(UserName), HTTP_ADDREQ_FLAG_ADD);

     HttpAddRequestHeaders(Data, PChar(Password),
     Length(Password), HTTP_ADDREQ_FLAG_ADD);
end;

Merhabalar,

BeforePost kullanmadan Button Click ile denermisiniz lütfen.

procedure TForm1.Button1Click(Sender: TObject);
var
aIntegrationSoap : IntegrationSoap;
begin

HTTPRIO1.HTTPWebNode.GetHTTPReqResp.UserName := 'KULLANICIADINIZ';
HTTPRIO1.HTTPWebNode.GetHTTPReqResp.Password := 'ŞİFRENİZ';


aIntegrationSoap := GetIntegrationSoap(true,'',HTTPRIO);
aIntegrationSoap.GetMessage;
end;

[meko]

herkesten özür dileyerek ekliyorum

Delphi Berlin 10.1.2 kullanıyorum

---

(22-12-2020, Saat: 16:11)hi_selamlar Adlı Kullanıcıdan Alıntı: Merhabalar,

BeforePost kullanmadan Button Click ile denermisiniz lütfen.

procedure TForm1.Button1Click(Sender: TObject);
var
aIntegrationSoap : IntegrationSoap;
begin

HTTPRIO1.HTTPWebNode.GetHTTPReqResp.UserName := 'KULLANICIADINIZ';
HTTPRIO1.HTTPWebNode.GetHTTPReqResp.Password := 'ŞİFRENİZ';


aIntegrationSoap := GetIntegrationSoap(true,'',HTTPRIO);
aIntegrationSoap.GetMessage;
end;

beforepost ile denemeden önce butonda denemiştim

[Halil Han BADEM]

(22-12-2020, Saat: 16:32)meko Adlı Kullanıcıdan Alıntı: herkesten özür dileyerek ekliyorum

Delphi Berlin 10.1.2 kullanıyorum

---

(22-12-2020, Saat: 16:11)hi_selamlar Adlı Kullanıcıdan Alıntı: Merhabalar,

BeforePost kullanmadan Button Click ile denermisiniz lütfen.

procedure TForm1.Button1Click(Sender: TObject);
var
aIntegrationSoap : IntegrationSoap;
begin

HTTPRIO1.HTTPWebNode.GetHTTPReqResp.UserName := 'KULLANICIADINIZ';
HTTPRIO1.HTTPWebNode.GetHTTPReqResp.Password := 'ŞİFRENİZ';


aIntegrationSoap := GetIntegrationSoap(true,'',HTTPRIO);
aIntegrationSoap.GetMessage;
end;

beforepost ile denemeden önce butonda denemiştim

Fiddler vb. bir araç ile kontrol edin giden paketi. Bir yerde eksik bir bilgi veya yanlış bir şey gidiyor belli ki. Hatta varsa Postman istek örneği isteyin YemekSepetinden. Oradan çok rahat istek gönderebilirsiniz.