|
@@ -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}
|