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
(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.
(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ı
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?
(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
(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.
(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;
(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;
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
(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.
