Merhaba, kişisel hobi amaçlı bir projemde kullandığım trendyol yemek entegrasyonu kütüphanemi sizler ile paylaşmak istedim. İhtiyaç duyan arkadaşlar kullanabilirler. Json parse işlemlerinde 3.parti bileşeni olarak açık kaynak olan superobject'den faydalandım. Github da bulunmaktadır. 10.4 ile yazılmıştır. Http bileşeni olarak modern RestRequest bileşenleri kullanılmıştır. SSL dll gerektirmez.
Örnek Kullanım :
Kütüphane
Örnek Kullanım :
var TestTrendyolYemek : TTrendyolYemek; xTestStr : String; begin TestTrendyolYemek := TTrendyolYemek.Create(nil); try TestTrendyolYemek.SaticiId := ''; TestTrendyolYemek.ApiKey := ''; TestTrendyolYemek.ApiSecretKey := ''; TestTrendyolYemek.TestMode := True; xTestStr := TestTrendyolYemek.TestEt; if xTestStr = 'OK' then ShowMessage('Test başarılı.') else ShowMessage('Test başarısız.' + sLineBreak + xTestStr); finally FreeAndNil(TestTrendyolYemek); end; end;
Kütüphane
unit uTrendyolYemekLib; {----------------------------------------------------------------------------- Yola çıktı ve teslim edildi sadece restoran kuryesi ise gönderilmelidir. Ödeme tipi yok hepsi online -----------------------------------------------------------------------------} interface uses SysUtils, Classes, REST.Types, REST.Client, Data.Bind.Components, Data.Bind.ObjectScope, Soap.XSBuiltIns, REST.Authenticator.Basic; type TTrendyolLogProc = procedure (const FormHandle:Cardinal;ADir,AStr:String;AMemoAdd:Boolean); // Yeni, Onaylandı, Hazırlandı, Teslim edildi, Restoran iptal, Müşteri iptal, İşlem hatası type TTrendyolOrderStatus = (StsCreated,StsPicking,StsInvoiced,StsDelivered,StsUnSupplied,StsCancelled,StsError); // Normal onay, Hazırlandı, Sadece restoran kuryeleri Yola çıktı, Sadece restoran kuryeleri Normal teslim, Restoran iptal type TTrendyolNextStatus=(NxtVerify,NxtPrepare,NxtShipped,NxtDeliver,NxtRestCancel); type TTrendyolRestaurantInfo = record id : String; // Restoran id status : Boolean; // Restoran açık mı name : String; // Restoran adı email : String; // Restoran mail run : Boolean; // Çalıştı mı end; type TTrendyolRestaurantList = record id : String; // Restoran id status : Boolean; // Restoran açık mı name : String; // Restoran adı email : String; // Restoran mail end; type TTrendyolRestaurantListArray = Array of TTrendyolRestaurantList; type TTrendyolOrderCancel = record id : String; // iptal id cancelMessage : String; // iptal mesaj end; type TTrendyolOrderCancels = Array of TTrendyolOrderCancel; type TTrendyolPaymentList = record name : String; // ödeme adı paymenttype : Integer; // ödeme id end; type TTrendyolPaymentLists = Array of TTrendyolPaymentList; type TOrderProductDisplayOption = record optionNameDisplay : String; // Ürün opsiyon açıklaması options : Array of TOrderProductDisplayOption; end; type TOrderProductDisplayOptions = Array of TOrderProductDisplayOption; type TOrderProductDisplay = record productId : String; // Ürün id count : Double; // Miktar price : Double; // Opsiyonsuz fiyat optionPrice : Double; // Opsiyonlar fiyat priceWithOption : Double; // Opsiyon dahil fiyat totalPrice : Double; // Toplam opsiyonsuz fiyat totalOptionPrice : Double; // Toplam opsiyonlar fiyat totalPriceWithOption : Double; // Toplam opsiyonlar dahil fiyat nameDisplay : String; // Ürün adı options : TOrderProductDisplayOptions; // Ürün opsiyonlar end; type TOrderProductsDisplays = Array of TOrderProductDisplay; 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 TTrendyolOrders = Array of TTrendyolOrder; type TTrendyolYemek = class(TComponent) private FMainurl: String; FTestMode: Boolean; FSaticiId: String; FApiKey: String; FApiSecretKey: String; FLogFormHandle: Cardinal; FLogRestoranAdi: String; FLogModule: String; FRestaurantId: String; FEMail: String; procedure setTestMode(const Value: Boolean); procedure LogAdd(const AModule,AValue:String); function TrendyolRequest(const AUrl,ARequestType,ABody:String;AHeaderName,AHeaderValue:Array of String):String; function UserInfoNull:Boolean; function RestaurantInfoNull:Boolean; function TrendyolUnixDateTimeToDateTime(const AUnixTime:Int64):TDateTime; function TrendyolDateTimeToUnixDateTime(const ADateTime:TDateTime):Int64; public FLogProc:TTrendyolLogProc; constructor Create(AOwner: TComponent); override; function TestEt:String; function GetRestaurantList:TTrendyolRestaurantListArray; function GetRestaurantStatus: TTrendyolRestaurantInfo; function SetRestaurantStatus(const AEnable:Boolean):Boolean; function GetOrderCancelList:TTrendyolOrderCancels; function GetOrderCancelItemList(const AOrderId:String):String; function GetOrders(const ANewOrder:Boolean;var AJsonStr:String):TTrendyolOrders; function GetOrderStatus(const AOrderId:String):TTrendyolOrderStatus; function SetOrderStatus(const AOrderId:String;const AType:TTrendyolNextStatus;const ACancelId:String):Boolean; function GetPaymentList:TTrendyolPaymentLists; published property TestMode:Boolean read FTestMode write setTestMode; property SaticiId:String read FSaticiId write FSaticiId; property ApiKey:String read FApiKey write FApiKey; property ApiSecretKey:String read FApiSecretKey write FApiSecretKey; property RestaurantId:String read FRestaurantId write FRestaurantId; property EMail:String read FEMail write FEMail; property LogFormHandle:Cardinal read FLogFormHandle write FLogFormHandle; property LogModule:String read FLogModule write FLogModule; property LogRestoranAdi:String read FLogRestoranAdi write FLogRestoranAdi; end; implementation uses DateUtils, StrUtils, superobject; { TTrendyolYemek } constructor TTrendyolYemek.Create(AOwner: TComponent); begin inherited Create(AOwner); TestMode := False; FLogFormHandle := 0; end; function TTrendyolYemek.GetOrderCancelItemList(const AOrderId: String): String; var Ind,Ind2 : Integer; xSO : ISuperObject; xSAProducts,xArrItems : TSuperArray; xGetJson : String; xUrl,xBody : String; begin Result := ''; try if UserInfoNull then Exit; if RestaurantInfoNull then Exit; xUrl := '/suppliers/' + SaticiId + '/packages/' + AOrderId + '?storeId=' + RestaurantId; xBody := ''; xGetJson := TrendyolRequest(xUrl,'GET',xBody,['x-agentname','x-executor-user'],['uygulamaadi',EMail]); if Copy(xGetJson,1,2) = 'OK' then begin xGetJson := Copy(xGetJson,4,MaxInt); xSO := SO(xGetJson); if xSO <> nil then begin xSAProducts := xSO.A['lines']; if xSAProducts <> nil then begin for Ind := 0 to Pred(xSAProducts.Length) do begin xArrItems := xSAProducts[Ind].A['items']; if xArrItems <> nil then begin for Ind2 := 0 to Pred(xArrItems.Length) do begin if Result = '' then Result := '"' + xArrItems[Ind2].S['packageItemId'] + '"' else Result := Result + ',"' + xArrItems[Ind2].S['packageItemId'] + '"'; end; end; end; end; end else LogAdd('TrendyolApiError',Format('Process:GetOrderCancelItemList JsonParseError:%s',[xGetJson])); end else LogAdd('TrendyolApiError',Format('Process:GetOrderCancelItemList Json:%s',[xGetJson])); except on e:Exception do begin LogAdd('TrendyolApiError',Format('Process:GetOrderCancelItemList Message:%s Json:%s',[e.Message,xGetJson])); end; end; end; function TTrendyolYemek.GetOrderCancelList: TTrendyolOrderCancels; begin SetLength(Result,4); Result[0].id := '621'; Result[0].cancelMessage := 'Tedarik problemi'; Result[1].id := '622'; Result[1].cancelMessage := 'Mağaza kapalı'; Result[2].id := '623'; Result[2].cancelMessage := 'Mağaza siparişi hazırlayamıyor'; Result[3].id := '623'; Result[3].cancelMessage := 'Yüksek yoğunluk / Kurye yok'; end; function TTrendyolYemek.GetOrders(const ANewOrder: Boolean; var AJsonStr: String): TTrendyolOrders; var Ind, Ind2,Ind3,Ind4 : Integer; xSO,xSOArrObj : ISuperObject; xSA,xSAProducts : TSuperArray; xArrModifier,xArrExtra,xArrRemove : TSuperArray; xArrModifier2,xArrExtra2,xArrRemove2 : TSuperArray; xGetJson : String; xUrl,xBody : String; xHigh,xHigh2 : Integer; begin SetLength(Result,0); try if UserInfoNull then Exit; if RestaurantInfoNull then Exit; if ANewOrder then begin xUrl := '/suppliers/' + SaticiId + '/packages'; xUrl := xUrl + '?storeId=' + RestaurantId + '&packageStatuses=Created'; xBody := ''; end else begin // Son 1 saat iptaller xUrl := '/suppliers/' + SaticiId + '/packages'; xUrl := xUrl + '?storeId=' + RestaurantId + '&packageStatuses=Returned&packageStatuses=Cancelled'; xUrl := xUrl + '&packageModificationStartDate=' + IntToStr(TrendyolDateTimeToUnixDateTime(IncHour(Now,-1))); xUrl := xUrl + '&packageModificationEndDate=' + IntToStr(TrendyolDateTimeToUnixDateTime(Now)); xBody := ''; end; xGetJson := TrendyolRequest(xUrl,'GET',xBody,['x-agentname','x-executor-user'],['uygulamaadi',EMail]); AJsonStr := xGetJson; if Copy(xGetJson,1,2) = 'OK' then begin xGetJson := Copy(xGetJson,4,MaxInt); xSO := SO(xGetJson); if xSO <> nil then begin xSA := xSO.A['content']; if xSA <> nil then begin SetLength(Result,xSA.Length); for Ind := 0 to Pred(xSA.Length) do begin with Result[Ind] do begin xSOArrObj := xSA.O[Ind]; {$REGION 'Üst Bilgi'} id := xSOArrObj.S['id']; orderCode := xSOArrObj.S['orderCode']; storeId := xSOArrObj.I['storeId']; if xSOArrObj.S['deliveryType'] = 'STORE' then deliveryType := 0 else deliveryType := 1; totalPrice := xSOArrObj.D['totalPrice']; if xSOArrObj.O['customer'] <> nil then begin customerId := xSOArrObj.O['customer'].S['id']; customerName := Trim(xSOArrObj.O['customer'].S['firstName'] + ' ' + xSOArrObj.O['customer'].S['lastName']); end else begin customerId := ''; customerName := ''; end; if xSOArrObj.O['address'] <> nil then begin if xSOArrObj.O['address'].S['neighborhood'] <> '' then address := 'Semt:' + xSOArrObj.O['address'].S['neighborhood']; address := address + ' ' + xSOArrObj.O['address'].S['address1']; if xSOArrObj.O['address'].S['apartmentNumber'] <> '' then address := address + ' Apt:' + xSOArrObj.O['address'].S['apartmentNumber']; if xSOArrObj.O['address'].S['floor'] <> '' then address := address + ' Kat:' + xSOArrObj.O['address'].S['floor']; if xSOArrObj.O['address'].S['doorNumber'] <> '' then address := address + ' Kapı:' + xSOArrObj.O['address'].S['doorNumber']; if xSOArrObj.O['address'].S['company'] <> '' then address := address + ' Firma:' + xSOArrObj.O['address'].S['company']; if xSOArrObj.O['address'].S['city'] <> '' then begin address := address + ' ' + xSOArrObj.O['address'].S['city']; if xSOArrObj.O['address'].S['district'] <> '' then address := address + ' / ' + xSOArrObj.O['address'].S['district']; end; addressDescription := xSOArrObj.O['address'].S['addressDescription']; phoneNumber := xSOArrObj.O['address'].S['phone']; clientLatitude := StrToFloatDef(xSOArrObj.O['address'].S['latitude'],0); clientLongitude := StrToFloatDef(xSOArrObj.O['address'].S['longitude'],0); end else begin clientLatitude := 0; clientLongitude := 0; end; paymentMethod := 1; paymentMethodText := 'Online Ödeme'; customerNote := xSOArrObj.S['customerNote']; packageCreationDate := TrendyolUnixDateTimeToDateTime(StrToInt64Def(xSOArrObj.S['packageCreationDate'],0)); {$ENDREGION} {$REGION 'Products'} xSAProducts := xSOArrObj.A['lines']; if xSAProducts <> nil then begin SetLength(Result[Ind].productsDisplays,xSAProducts.Length); for Ind2 := 0 to Pred(xSAProducts.Length) do begin with Result[Ind].productsDisplays[Ind2] do begin productId := xSAProducts[Ind2].S['productId']; count := xSAProducts[Ind2].A['items'].Length; price := xSAProducts[Ind2].D['price']; optionPrice := xSAProducts[Ind2].D['unitSellingPrice'] - xSAProducts[Ind2].D['price']; priceWithOption := xSAProducts[Ind2].D['unitSellingPrice']; totalPrice := price * count; totalOptionPrice := optionPrice * count; totalPriceWithOption := priceWithOption * count; nameDisplay := xSAProducts[Ind2].S['name']; {$REGION 'Extra'} xArrExtra := xSAProducts[Ind2].A['extraIngredients']; // Extralar for Ind3 := 0 to Pred(xArrExtra.Length) do begin SetLength(options,Succ(Length(options))); options[Pred(Length(options))].optionNameDisplay := xArrExtra[Ind3].S['name']; end; {$ENDREGION} {$REGION 'İstemiyorum'} xArrRemove := xSAProducts[Ind2].A['removedIngredients']; // İstemiyorum for Ind3 := 0 to Pred(xArrRemove.Length) do begin SetLength(options,Succ(Length(options))); options[Pred(Length(options))].optionNameDisplay := xArrRemove[Ind3].S['name'] + '(Çıkarılan)'; end; {$ENDREGION} {$REGION 'Alt Ürün'} xArrModifier := xSAProducts[Ind2].A['modifierProducts']; // Ürün for Ind3 := 0 to Pred(xArrModifier.Length) do begin SetLength(options,Succ(Length(options))); xHigh := Pred(Length(options)); options[xHigh].optionNameDisplay := xArrModifier[Ind3].S['name']; {$REGION 'Alt Ürün Extra'} xArrExtra2 := xArrModifier[Ind3].A['extraIngredients']; // Extralar 2 for Ind4 := 0 to Pred(xArrExtra2.Length) do begin SetLength(options[xHigh].options,Succ(Length(options[xHigh].options))); xHigh2 := Pred(Length(options[xHigh].options)); options[xHigh].options[xHigh2].optionNameDisplay := xArrExtra2[Ind4].S['name']; end; {$ENDREGION} {$REGION 'Alt Ürün İstemiyorum'} xArrRemove2 := xArrModifier[Ind3].A['removedIngredients']; // İstemiyorum 2 for Ind4 := 0 to Pred(xArrRemove2.Length) do begin SetLength(options[xHigh].options,Succ(Length(options[xHigh].options))); xHigh2 := Pred(Length(options[xHigh].options)); options[xHigh].options[xHigh2].optionNameDisplay := xArrRemove2[Ind4].S['name'] + '(Çıkarılan)'; end; {$ENDREGION} {$REGION 'Alt Ürün Alt Ürün'} xArrModifier2 := xArrModifier[Ind3].A['modifierProducts']; // Ürün 2 for Ind4 := 0 to Pred(xArrModifier2.Length) do begin SetLength(options[xHigh].options,Succ(Length(options[xHigh].options))); xHigh2 := Pred(Length(options[xHigh].options)); options[xHigh].options[xHigh2].optionNameDisplay := xArrModifier2[Ind4].S['name']; end; {$ENDREGION} end; {$ENDREGION} end; end; end; {$ENDREGION} end; end; end; end else LogAdd('TrendyolApiError',Format('Process:GetOrders JsonParseError:%s',[xGetJson])); end else LogAdd('TrendyolApiError',Format('Process:GetOrders Json:%s',[xGetJson])); except on e:Exception do begin LogAdd('TrendyolApiError',Format('Process:GetOrders Message:%s Json:%s',[e.Message,xGetJson])); end; end; end; function TTrendyolYemek.GetOrderStatus(const AOrderId: String): TTrendyolOrderStatus; var xSO : ISuperObject; xGetJson : String; xUrl,xBody : String; begin Result := StsError; try if UserInfoNull then Exit; if RestaurantInfoNull then Exit; xUrl := '/suppliers/' + SaticiId + '/packages/' + AOrderId + '?storeId=' + RestaurantId; xBody := ''; xGetJson := TrendyolRequest(xUrl,'GET',xBody,['x-agentname','x-executor-user'],['uygulamaadi',EMail]); if Copy(xGetJson,1,2) = 'OK' then begin xGetJson := Copy(xGetJson,4,MaxInt); xSO := SO(xGetJson); if xSO <> nil then begin if xSO.S['packageStatus'] = 'Created' then Result := StsCreated else if xSO.S['packageStatus'] = 'Picking' then Result := StsPicking else if xSO.S['packageStatus'] = 'Invoiced' then Result := StsInvoiced else if xSO.S['packageStatus'] = 'Shipped' then Result := StsInvoiced else if xSO.S['packageStatus'] = 'Delivered' then Result := StsDelivered else if xSO.S['packageStatus'] = 'Returned' then Result := StsCancelled else if xSO.S['packageStatus'] = 'Cancelled' then Result := StsCancelled else if xSO.S['packageStatus'] = 'UnSupplied' then Result := StsUnSupplied; end else LogAdd('TrendyolApiError',Format('Process:GetOrderStatus JsonParseError:%s',[xGetJson])); end else LogAdd('TrendyolApiError',Format('Process:GetOrderStatus Json:%s',[xGetJson])); except on e:Exception do begin LogAdd('TrendyolApiError',Format('Process:GetOrderStatus Message:%s Json:%s',[e.Message,xGetJson])); end; end; end; function TTrendyolYemek.GetPaymentList: TTrendyolPaymentLists; begin SetLength(Result,1); Result[0].paymenttype := 1; Result[0].name := 'Online Ödeme'; end; function TTrendyolYemek.GetRestaurantList: TTrendyolRestaurantListArray; var Ind : Integer; xSO : ISuperObject; xSA : TSuperArray; xGetJson : String; begin SetLength(Result,0); try if UserInfoNull then Exit; xGetJson := TrendyolRequest('/suppliers/' + SaticiId + '/restaurants','GET','',[],[]); if Copy(xGetJson,1,2) = 'OK' then begin xGetJson := Copy(xGetJson,4,MaxInt); xSO := SO(xGetJson); if xSO <> nil then begin xSA := xSO.A['restaurants']; SetLength(Result,xSA.Length); for Ind := 0 to Pred(xSA.Length) do begin with Result[Ind] do begin id := xSA[Ind].S['id']; name := xSA[Ind].S['name']; status := xSA[Ind].S['workingStatus'] = 'OPEN'; email := xSA[Ind].S['email']; end; end; end else LogAdd('TrendyolApiError',Format('Process:GetRestaurantList JsonParseError:%s',[xGetJson])); end else LogAdd('TrendyolApiError',Format('Process:GetRestaurantList Json:%s',[xGetJson])); except on e:Exception do begin LogAdd('TrendyolApiError',Format('Process:GetRestaurantList Message:%s Json:%s',[e.Message,xGetJson])); end; end; end; function TTrendyolYemek.GetRestaurantStatus: TTrendyolRestaurantInfo; var Ind : Integer; xTrendyolRestaurantListArray : TTrendyolRestaurantListArray; begin Result.run := False; try if UserInfoNull then Exit; if RestaurantInfoNull then Exit; xTrendyolRestaurantListArray := GetRestaurantList; Result.run := True; for Ind := Low(xTrendyolRestaurantListArray) to High(xTrendyolRestaurantListArray) do begin if RestaurantId = xTrendyolRestaurantListArray[Ind].id then begin Result.id := xTrendyolRestaurantListArray[Ind].id; Result.name := xTrendyolRestaurantListArray[Ind].name; Result.status := xTrendyolRestaurantListArray[Ind].status; Result.email := xTrendyolRestaurantListArray[Ind].email; Break; end; end; except on e:Exception do begin LogAdd('TrendyolApiError',Format('Process:GetRestaurantStatus Message:%s',[e.Message])); end; end; end; procedure TTrendyolYemek.LogAdd(const AModule, AValue: String); begin if (FLogFormHandle > 0) and Assigned(FLogProc) then begin FLogProc(FLogFormHandle,FLogModule + '\' + AModule,FLogRestoranAdi + ' ' + AValue,True); end; end; function TTrendyolYemek.RestaurantInfoNull: Boolean; begin Result := RestaurantId.Trim.Equals('') or EMail.Trim.Equals(''); end; function TTrendyolYemek.SetOrderStatus(const AOrderId: String; const AType: TTrendyolNextStatus; const ACancelId: String): Boolean; var xSO : ISuperObject; xGetJson : String; xBody : String; xUrl : String; begin Result := False; try if UserInfoNull then Exit; xBody := ''; case AType of NxtVerify: begin xUrl := '/suppliers/' + SaticiId + '/packages/picked'; xBody := '{"packageId":"' + AOrderId + '","preparationTime":30}'; end; NxtPrepare: begin xUrl := '/suppliers/' + SaticiId + '/packages/invoiced'; xBody := '{"packageId":"' + AOrderId + '"}'; end; NxtShipped: begin xUrl := '/suppliers/' + SaticiId + '/packages/' + AOrderId + '/manual-shipped'; xBody := '{}'; end; NxtDeliver: begin xUrl := '/suppliers/' + SaticiId + '/packages/' + AOrderId + '/manual-delivered'; xBody := '{}'; end; NxtRestCancel: begin xUrl := '/suppliers/' + SaticiId + '/packages/unsupplied'; xBody := '{"packageId":"' + AOrderId + '","itemIdList":[' + GetOrderCancelItemList(AOrderId) + '],"reasonId":' + ACancelId + '}' end; end; xGetJson := TrendyolRequest(xUrl,'PUT',xBody,['x-agentname','x-executor-user'],['uygulamaadi',EMail]); if Copy(xGetJson,1,2) = 'OK' then begin xGetJson := Copy(xGetJson,4,MaxInt); xSO := SO(xGetJson); if xSO <> nil then begin Result := xGetJson.Trim = ''; end else LogAdd('TrendyolApiError',Format('Process:SetOrderStatus JsonParseError:%s',[xGetJson])); end else LogAdd('TrendyolApiError',Format('Process:SetOrderStatus Json:%s',[xGetJson])); except on e:Exception do begin LogAdd('TrendyolApiError',Format('Process:SetOrderStatus Message:%s Json:%s',[e.Message,xGetJson])); end; end; end; function TTrendyolYemek.SetRestaurantStatus(const AEnable: Boolean): Boolean; var xSO : ISuperObject; xGetJson : String; xBody : String; begin Result := False; try if UserInfoNull then Exit; if RestaurantInfoNull then Exit; xBody := ''; if AEnable then xBody := '{"status":"OPEN"}' else xBody := '{"status":"CLOSED"}'; xGetJson := TrendyolRequest('/suppliers/' + SaticiId + '/restaurants/' + RestaurantId + '/status','PUT',xBody,[],[]); if Copy(xGetJson,1,2) = 'OK' then begin xGetJson := Copy(xGetJson,4,MaxInt); xSO := SO(xGetJson); if xSO <> nil then begin Result := xGetJson.Trim = ''; end else LogAdd('TrendyolApiError',Format('Process:SetRestaurantStatus JsonParseError:%s',[xGetJson])); end else LogAdd('TrendyolApiError',Format('Process:SetRestaurantStatus Json:%s',[xGetJson])); except on e:Exception do begin LogAdd('TrendyolApiError',Format('Process:SetRestaurantStatus Message:%s Json:%s',[e.Message,xGetJson])); end; end; end; procedure TTrendyolYemek.setTestMode(const Value: Boolean); begin FTestMode := Value; if FTestMode then FMainurl := 'https://stageapi.trendyol.com/mealgw' else FMainurl := 'https://api.trendyol.com/mealgw'; end; function TTrendyolYemek.TestEt: String; var xSO : ISuperObject; xGetJson : String; begin try xGetJson := TrendyolRequest('/suppliers/' + SaticiId + '/restaurants','GET','',[],[]); if Copy(xGetJson,1,2) = 'OK' then begin xGetJson := Copy(xGetJson,4,MaxInt); xSO := SO(xGetJson); if xSO <> nil then Result := 'OK' else Result := Format('Process:GetRestaurantList JsonParseError:%s',[xGetJson]); end else Result := Format('Process:GetRestaurantList Json:%s',[xGetJson]); except on e:Exception do begin Result := Format('Process:GetRestaurantList Message:%s Json:%s',[e.Message,xGetJson]); end; end; end; function TTrendyolYemek.TrendyolRequest(const AUrl, ARequestType, ABody: String; AHeaderName, AHeaderValue: array of String): String; var Ind : Integer; xRESTClient: TRESTClient; xRESTRequest: TRESTRequest; xRESTResponse: TRESTResponse; xBasicAuthenticator : THTTPBasicAuthenticator; begin Result := ''; try xRESTClient := TRESTClient.Create(nil); xRESTResponse := TRESTResponse.Create(nil); xRESTRequest := TRESTRequest.Create(nil); xBasicAuthenticator := THTTPBasicAuthenticator.Create(ApiKey,ApiSecretKey); try with xRESTClient do begin BaseURL := FMainurl + AUrl; ConnectTimeout := 10000; ReadTimeout := 30000; Authenticator := xBasicAuthenticator; end; with xRESTRequest do begin AssignedValues := [TAssignedValue.rvConnectTimeout, TAssignedValue.rvReadTimeout]; Client := xRESTClient; Response := xRESTResponse; ConnectTimeout := 10000; ReadTimeout := 30000; if ARequestType = 'POST' then begin Method := rmPOST; if ABody.Trim <> '' then Params.AddItem('BodyPost',ABody, TRESTRequestParameterKind.pkREQUESTBODY, [], TRESTContentType.ctAPPLICATION_JSON); end else if ARequestType = 'PUT' then begin Method := rmPUT; if ABody.Trim <> '' then Params.AddItem('BodyPost',ABody, TRESTRequestParameterKind.pkREQUESTBODY, [], TRESTContentType.ctAPPLICATION_JSON); end else if ARequestType = 'GET' then Method := rmGET; for Ind := Low(AHeaderName) to High(AHeaderName) do Params.AddHeader(AHeaderName[Ind],AHeaderValue[Ind]); end; xRESTRequest.Execute; if xRESTResponse.StatusCode = 200 then Result := 'OK=' + xRESTResponse.Content else Result := 'ERROR=' + Format('Process:TrendyolRequest Url:%s, Method:%s, Status:%d, Content:%s',[AUrl,ARequestType,xRESTResponse.StatusCode,xRESTResponse.Content]); finally FreeAndNil(xBasicAuthenticator); FreeAndNil(xRESTRequest); FreeAndNil(xRESTResponse); FreeAndNil(xRESTClient); end; except on e:Exception do begin Result := 'ERROR=' + Format('Process:TrendyolRequest Url:%s, Method:%s, Message:%s',[AUrl,ARequestType,e.Message]); end; end; end; function TTrendyolYemek.TrendyolUnixDateTimeToDateTime(const AUnixTime: Int64): TDateTime; var xNotMillisecond : Integer; begin try xNotMillisecond := Round(AUnixTime/1000); // Milisaniye temizlenir Result := UnixToDateTime(xNotMillisecond); Result := TTimeZone.Local.ToLocalTime(Result); // Unix to GMT+3 except Result := 0; end; end; function TTrendyolYemek.TrendyolDateTimeToUnixDateTime(const ADateTime: TDateTime): Int64; var xUnixDateTime : TDateTime; begin try xUnixDateTime := TTimeZone.Local.ToUniversalTime(ADateTime); // GMT+3 to Unix Result := DateTimeToUnix(xUnixDateTime) * 1000; except Result := 0; end; end; function TTrendyolYemek.UserInfoNull: Boolean; begin Result := ApiKey.Trim.Equals('') or ApiSecretKey.Trim.Equals('') or SaticiId.Trim.Equals(''); end; end.
Yalnızım ama bir kente yürüyen ordu gibiyim, edebiyattan kaçınmalıyım..
