PTyTb/ttw_fmx_v10
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

сделал оповещения о событиях

Browse Source
This commit is contained in:
PC1\PTyTb
2025-08-14 21:43:02 +03:00
parent bad576dd4d
commit 2335bf1656
8 changed files with 874 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files
forms/uGeneral.pas
+10 -5
View File
@@ -249,10 +249,10 @@ begin
ttw_ES.OnStatus := ESStatus;
// ttw_ES.OnRAW := fRewards.ESOnRAW;
// ttw_ES.OnSubOk := fRewards.ESOnSubOk;
// ttw_ES.OnFollow := fWebServerEvents.ESOnFollow;
// ttw_ES.OnSub := fWebServerEvents.ESOnSub;
// ttw_ES.OnGift := fWebServerEvents.ESOnGift;
// ttw_ES.OnRaid := fWebServerEvents.ESOnRaid; }
ttw_ES.OnFollow := frOBS1.toEventWebServer;
ttw_ES.OnSub := frOBS1.toEventWebServer;
ttw_ES.OnGift := frOBS1.toEventWebServer;
ttw_ES.OnRaid := frOBS1.toEventWebServer;
toLog('uGeneral', 'ConnectProcedure.ttw_ES', 'Создан', 0);
ttw_ES.Connect;
except
@@ -496,7 +496,7 @@ begin
frOBS1.ChatBadges.Free;
frOBS1.ChatEmotes.Free;
frOBS1.ChatWebServers.Free;
frOBS1.EventWebServers.Free;
DisconnectProcedure;
if Assigned(ttw_IRS) then
@@ -1063,6 +1063,11 @@ procedure TTTW_Bot.ReadDB;
end;
db.LoadRecordArray<TOBSNotify>('listNotify', frOBS1.listNotify);
frOBS1.EventWebServers := TList<TEventWebServers>.Create;
for I := 0 to High(frOBS1.listNotify) do
begin
frOBS1.CreateWebEvents(frOBS1.listNotify[I]);
end;
db.LoadRecordArray<TOBSKandinsky>('listKandinsky', frOBS1.listKandinsky);
frOBS1.UpdateGridFromArray;
end;