Browse Source

add inner event type

KngStr 4 years ago
parent
commit
3732eca579
1 changed files with 72 additions and 0 deletions
  1. 72 0
      Source/UMeng.pas

+ 72 - 0
Source/UMeng.pas

@@ -42,6 +42,23 @@ type
     class procedure onEventValue(AID: string; AProperties: TArray<TPair<string, string>>; ADuration: Integer = 0);
     //上次访问的页面名
     class property LastViewName: string read FLastViewName;
+
+    //内部注册事件
+    class procedure onEventRegister(AUserID: string);
+    //内部登录事件
+    class procedure onEventLogin(AUserID: string);
+    //内部领取红包事件
+    class procedure onEventReceiveCoupon(AAmount: Integer);
+    //内部收藏事件
+    class procedure onEventCollect(AItem: string);
+    //内部加购物车事件
+    class procedure onEventAddCart(AItem: string; AAmount: Integer);
+    //内部拍下订单事件
+    class procedure onEventSubmitPayment(AUserID, AOrderId, AItem: string; AAmount: Integer);
+    //内部付费事件
+    class procedure onEventFinishPayment(AUserID, AOrderId, AItem: string; AAmount: Integer);
+    //内部自定义事件
+    class procedure onEventCustom(AID: Integer);
   end;
 
 implementation
@@ -184,6 +201,61 @@ begin
   onEventValue(AID, AProperties);
 end;
 
+class procedure TUMeng.onEventRegister(AUserID: string);
+begin
+  TUMeng.onEventValue('__register', [TPair<string, string>.Create('userid', AUserID)]);
+end;
+
+class procedure TUMeng.onEventLogin(AUserID: string);
+begin
+  TUMeng.onEventValue('__login', [TPair<string, string>.Create('userid', AUserID)]);
+end;
+
+class procedure TUMeng.onEventAddCart(AItem: string; AAmount: Integer);
+begin
+  TUMeng.onEventValue('__add_cart', [
+    TPair<string, string>.Create('item', AItem),
+    TPair<string, string>.Create('amount', IntToStr(AAmount))
+  ]);
+end;
+
+class procedure TUMeng.onEventReceiveCoupon(AAmount: Integer);
+begin
+  TUMeng.onEventValue('__receive_coupon', [TPair<string, string>.Create('amount', IntToStr(AAmount))]);
+end;
+
+class procedure TUMeng.onEventSubmitPayment(AUserID, AOrderId, AItem: string;
+  AAmount: Integer);
+begin
+  TUMeng.onEventValue('__submit_payment', [
+    TPair<string, string>.Create('userid', AUserID),
+    TPair<string, string>.Create('orderid', AOrderId),
+    TPair<string, string>.Create('item', AItem),
+    TPair<string, string>.Create('amount', IntToStr(AAmount))
+  ]);
+end;
+
+class procedure TUMeng.onEventFinishPayment(AUserID, AOrderId, AItem: string;
+  AAmount: Integer);
+begin
+  TUMeng.onEventValue('__finish_payment', [
+    TPair<string, string>.Create('userid', AUserID),
+    TPair<string, string>.Create('orderid', AOrderId),
+    TPair<string, string>.Create('item', AItem),
+    TPair<string, string>.Create('amount', IntToStr(AAmount))
+  ]);
+end;
+
+class procedure TUMeng.onEventCollect(AItem: string);
+begin
+  TUMeng.onEventValue('__collect', [TPair<string, string>.Create('item', AItem)]);
+end;
+
+class procedure TUMeng.onEventCustom(AID: Integer);
+begin
+  TUMeng.onEvent('__cust_event_' + IntToStr(AID));
+end;
+
 class procedure TUMeng.onEventValue(AID: string;
   AProperties: TArray<TPair<string, string>>; ADuration: Integer);
 {$IFDEF ANDROID}