Yorumları: 283
Konuları: 1
Kayıt Tarihi: 13-03-2017
Aktif Kullandığınız Delphi Sürümü:
- Delphi 10.1
- Delphi XE7
- Delphi 7
Rep Puanı: 964
Acemi
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
Yorumları: 852
Konuları: 40
Kayıt Tarihi: 11-11-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 4.327
Uzman
22-12-2020, Saat: 15:17
(Son Düzenleme: 22-12-2020, Saat: 15:19, Düzenleyen: 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.
Amaç, bilginin de/aklın da zekat'ını vermek.
Yorumları: 283
Konuları: 1
Kayıt Tarihi: 13-03-2017
Aktif Kullandığınız Delphi Sürümü:
- Delphi 10.1
- Delphi XE7
- Delphi 7
Rep Puanı: 964
Acemi
(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ı
Yorumları: 852
Konuları: 40
Kayıt Tarihi: 11-11-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 4.327
Uzman
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?
Amaç, bilginin de/aklın da zekat'ını vermek.
Yorumları: 283
Konuları: 1
Kayıt Tarihi: 13-03-2017
Aktif Kullandığınız Delphi Sürümü:
- Delphi 10.1
- Delphi XE7
- Delphi 7
Rep Puanı: 964
Acemi
(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
Yorumları: 852
Konuları: 40
Kayıt Tarihi: 11-11-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 4.327
Uzman
(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.
Amaç, bilginin de/aklın da zekat'ını vermek.
Yorumları: 283
Konuları: 1
Kayıt Tarihi: 13-03-2017
Aktif Kullandığınız Delphi Sürümü:
- Delphi 10.1
- Delphi XE7
- Delphi 7
Rep Puanı: 964
Acemi
22-12-2020, Saat: 16:07
(Son Düzenleme: 22-12-2020, Saat: 16:08, Düzenleyen: 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;
Yorumları: 852
Konuları: 40
Kayıt Tarihi: 11-11-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 4.327
Uzman
(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;
Amaç, bilginin de/aklın da zekat'ını vermek.
Yorumları: 283
Konuları: 1
Kayıt Tarihi: 13-03-2017
Aktif Kullandığınız Delphi Sürümü:
- Delphi 10.1
- Delphi XE7
- Delphi 7
Rep Puanı: 964
Acemi
22-12-2020, Saat: 16:32
(Son Düzenleme: 22-12-2020, Saat: 16:34, Düzenleyen: 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
Yorumları: 1.309
Konuları: 111
Kayıt Tarihi: 01-07-2017
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 6.983
Üstad
(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.
|
