Konuyu Oyla:
  • Derecelendirme: 5/5 - 2 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Delphi Trendyol Yemek Entegrasyonu
#11
(18-10-2022, Saat: 14:44)tmrksmt Adlı Kullanıcıdan Alıntı: Çok teşekkürler... Herşey gönlünce olsun inşallah.https://www.delphican.com/newreply.php?tid=6678

Bu arada inşallah çok büyük bir güncelleme olmamıştır diye umuyorum Smile) Şimdi tek tek kodları karşılaştırmam gerekecek hangi kısımlarda değişiklik olup olmadığını bilmiyorum çünkü. API lerine baktığmda şu Id alanı 64 bitlik değer dönecek filan diyorlardı acaba onun dışında farklı bişey oldu mu bilemiyorum tabi.

Benim yaptığımda büyük bir değişiklik yok hocam, setorderstatus da ufak bir değişiklik o kadar.  NxtShipped ve NxtDeliver body göndermiyorduk şimdi boş obect gönderiyor o kadar.
Yalnızım ama bir kente yürüyen ordu gibiyim, edebiyattan kaçınmalıyım..
Cevapla
#12
Merhaba

 ConnectTimeout := 10000;
 ReadTimeout := 30000;

ve 

AssignedValues := [TAssignedValue.rvConnectTimeout, TAssignedValue.rvReadTimeout]

bu satırdaki değerlerde hata veriyor tanımlama hatası usinge ne eklemem gerekiyor bunların hatasını gidermek için acaba 

saygılar herkese Smile .
Cevapla
#13
(06-12-2022, Saat: 16:15)slyurt Adlı Kullanıcıdan Alıntı: Merhaba

 ConnectTimeout := 10000;
 ReadTimeout := 30000;

ve 

AssignedValues := [TAssignedValue.rvConnectTimeout, TAssignedValue.rvReadTimeout]

bu satırdaki değerlerde hata veriyor tanımlama hatası usinge ne eklemem gerekiyor bunların hatasını gidermek için acaba 

saygılar herkese Smile .

Delphi 10.4 ile eklenen özelliklerdir. 
Delphi 10.4 veya daha üst sürüm kullanmalısınız.
Begin : = end / 2;
Cevapla
#14
(06-12-2022, Saat: 16:34)RAD Coder Adlı Kullanıcıdan Alıntı:
(06-12-2022, Saat: 16:15)slyurt Adlı Kullanıcıdan Alıntı: Merhaba

 ConnectTimeout := 10000;
 ReadTimeout := 30000;

ve 

AssignedValues := [TAssignedValue.rvConnectTimeout, TAssignedValue.rvReadTimeout]

bu satırdaki değerlerde hata veriyor tanımlama hatası usinge ne eklemem gerekiyor bunların hatasını gidermek için acaba 

saygılar herkese Smile .

Delphi 10.4 ile eklenen özelliklerdir. 
Delphi 10.4 veya daha üst sürüm kullanmalısınız.

Delphi 10.3 de bunların muadili var mı  acaba .
Cevapla
#15
(06-12-2022, Saat: 16:39)slyurt Adlı Kullanıcıdan Alıntı:
(06-12-2022, Saat: 16:34)RAD Coder Adlı Kullanıcıdan Alıntı: Delphi 10.4 ile eklenen özelliklerdir. 
Delphi 10.4 veya daha üst sürüm kullanmalısınız.

Delphi 10.3 de bunların muadili var mı  acaba .

Delphi 10.3 için tek Timeout değeri var. 
Bu özelliği kullanabilirsiniz.
Begin : = end / 2;
Cevapla
#16
(06-12-2022, Saat: 17:28)RAD Coder Adlı Kullanıcıdan Alıntı:
(06-12-2022, Saat: 16:39)slyurt Adlı Kullanıcıdan Alıntı: Delphi 10.3 de bunların muadili var mı  acaba .

Delphi 10.3 için tek Timeout değeri var. 
Bu özelliği kullanabilirsiniz.

teşekkür ederim


merhaba 

birde şimdik ben bu kodu kullanmaya çalışıyorum

  TestTrendyolYemek.GetOrders(True,''); 

buradan gelen cevabı bir türlü bir değere alamadım.

array  yaptım olmadı  bu RECORD tanımlı değişkenleri anlamadım nasıl çekebilirim acaba içinden dönenleri

Smile Smile Smile
saygılar.
Cevapla
#17
merhaba 

birde şimdik ben bu kodu kullanmaya çalışıyorum

  TestTrendyolYemek.GetOrders(True,xstr); 

bu parametreden dönen cevabı bir türlü alamadım.

tanımladığım değerlere  derle deyince [dcc32 Error] Form.TrendyolSiparis.pas(832): E2010 Incompatible types: 'Dynamic array' and 'TTrendyolOrders'

diyor tanımlarımda aşağıdaki gibi

 type

   TTrendyolOrder = record
   id : String; // Sipariş id
   orderCode : String; // Sipariş kodu
   storeId : Integer; // Trendyol restoran id
   deliveryType : Integer; // 0 Restoran getirsin 1 Trendyol getirsin
   packageCreationDate : TDateTime; // Sipariş tarihi
   totalPrice : Extended; // Sipariş tutarı
   customerId : String; // Müşteri Id
   customerName : String; // Müşteri adı
   address : String; // adres
   addressDescription : String; // adres açıklaması
   phoneNumber : String; // Telefon
   clientLatitude : Double; // Müşteri adres enlem
   clientLongitude : Double; // Müşteri adres boylam
   paymentMethod : Integer; // Ödeme numarası
   paymentMethodText : String; // Ödeme açıklaması
   customerNote : String; // Müşteri notu
   productsDisplays : TOrderProductsDisplays; // Ürünler
 end;

 type

    intRec = TTrendyolOrders ;

 var
 TestTrendyolYemek : TTrendyolYemek;
 Ind : Integer;
 i: Integer;
 xStr : string;
 OldId: string;

 intRecList : array of intRec;

Array  yaptım olmadı  bu RECORD tanımlı değişkenleri anlamadım nasıl çekebilirim acaba içinden dönenleri

program da da böyle al diyorum ama derlerken hata alıyorum bu satırla ilgili

  intRecList := TestTrendyolYemek.GetOrders(False,xStr) ;  

smile.png smile.png smile.png
Yardımcı olursanız sevinirim saygılar.
Cevapla
#18
@slyurt,
Metoda istek yaptığınızda JSON değer döner. 
Yapmanız gereken tek şey JSON deserialize işlemini gerçekleştirmek.
Bu konuda yardım beklentiniz varsa; dönen JSON veriyi burad paylaşın, çözümlemnize yardımcı olalım.
Begin : = end / 2;
Cevapla
#19
(08-12-2022, Saat: 14:07)RAD Coder Adlı Kullanıcıdan Alıntı: @slyurt,
Metoda istek yaptığınızda JSON değer döner. 
Yapmanız gereken tek şey JSON deserialize işlemini gerçekleştirmek.
Bu konuda yardım beklentiniz varsa; dönen JSON veriyi burad paylaşın, çözümlemnize yardımcı olalım.

  xStr := TestTrendyolYemek.TestEt ;
  ShowMessage(xStr);  burda OK dönüyor..


    TestTrendyolYemek.GetOrders(False,xStr);  bunu sonucunu 
    function GetOrders(const ANewOrder:Boolean;var AJsonStr:String):TTrendyolOrders;
olarak vermesi bu parametrenin sonucunu json a da gönderemiyorum çünkü json string istiyor ama 


 type
    TerdyolGelen = class
       public
       id : String; // Sipariş id
       orderCode : String; // Sipariş kodu
       storeId : Integer; // Trendyol restoran id
       deliveryType : Integer; // 0 Restoran getirsin 1 Trendyol getirsin
       packageCreationDate : TDateTime; // Sipariş tarihi
       totalPrice : Extended; // Sipariş tutarı
       customerId : String; // Müşteri Id
       customerName : String; // Müşteri adı
       address : String; // adres
       addressDescription : String; // adres açıklaması
       phoneNumber : String; // Telefon
       clientLatitude : Double; // Müşteri adres enlem
       clientLongitude : Double; // Müşteri adres boylam
       paymentMethod : Integer; // Ödeme numarası
       paymentMethodText : String; // Ödeme açıklaması
       customerNote : String; // Müşteri notu
    end;

böyle olmalı bunu da yaptım ama json bu sefer hata veriyor gelen değer string değil diye  


bunu nasıl alacağız yardımcı olursanız sevinirim.

Saygılar.     
Cevapla
#20
JSON yapısını verin yada dökümantosyonunu paylaşın yardımcı olalım.
Begin : = end / 2;
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  yapay zeka delphi kl007 9 627 26-02-2026, Saat: 09:12
Son Yorum: mrmarman
  Win 11 ve Delphi 7 Minimize sorunu. enigma 7 498 11-02-2026, Saat: 10:27
Son Yorum: RAD Coder
Question Delphi formunu nasıl otomatik tam ekran yapabilirim ? erdemklt0 2 324 23-01-2026, Saat: 10:02
Son Yorum: csunguray
  PAVO Pos Cihaz Entegrasyonu (Yeni Nesil ÖKC) RAD Coder 3 1.093 26-12-2025, Saat: 17:06
Son Yorum: rmzgenius
  Delphi SLL kullanım sorunu Bay_Y 12 1.317 22-12-2025, Saat: 18:11
Son Yorum: Bay_Y



Konuyu Okuyanlar: 2 Ziyaretçi