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

Голоса перенесены в AppData

Browse Source
This commit is contained in:
PC1\PTyTb
2025-09-12 14:01:24 +03:00
parent 0aac56e6e1
commit a82ed4c39f
10 changed files with 349 additions and 79 deletions
Download Patch File Download Diff File Expand all files Collapse all files
forms/uGeneral.fmx
+37 -18
View File
@@ -72,6 +72,7 @@ object TTW_Bot: TTTW_Bot
inherited btnOpenStream: TButton
Images = ImageList1
ImageIndex = 17
OnClick = frSettings1btnOpenStreamClick
end
inherited btnGetTokenStreamer: TButton
Images = ImageList1
@@ -89,25 +90,19 @@ object TTW_Bot: TTTW_Bot
inherited btnDAGetCode: TButton
Images = ImageList1
ImageIndex = 10
TabOrder = 34
TabOrder = 33
end
inherited Label63: TLabel
TabOrder = 28
end
inherited edtDAClientSecret: TEdit
TabOrder = 29
end
inherited edtDAClientID: TEdit
TabOrder = 31
end
inherited Label64: TLabel
TabOrder = 30
end
inherited Label65: TLabel
TabOrder = 32
end
inherited edtDARedirectURL: TEdit
TabOrder = 37
end
inherited edtDACode: TEdit
TabOrder = 35
TabOrder = 34
end
inherited Label66: TLabel
TabOrder = 36
@@ -115,18 +110,19 @@ object TTW_Bot: TTTW_Bot
inherited btnDAStart: TButton
Images = ImageList1
ImageIndex = 18
TabOrder = 39
TabOrder = 40
OnClick = frSettings1btnDAStartClick
end
inherited btnGetDADef: TButton
Images = ImageList1
TabOrder = 41
TabOrder = 38
end
end
inherited btnOpenRomaning: TButton
Images = ImageList1
ImageIndex = 14
Size.Width = 201.000000000000000000
OnClick = frSettings1btnOpenRomaningClick
end
inherited btnImportSettings: TButton
Images = ImageList1
@@ -176,10 +172,33 @@ object TTW_Bot: TTTW_Bot
ImageIndex = 10
Size.Width = 145.000000000000000000
end
inherited GroupBox1: TGroupBox
inherited rbGC: TRadioButton
TabOrder = 41
end
inherited RBCustom: TRadioButton
TabOrder = 40
end
inherited rbDS: TRadioButton
TabOrder = 39
end
inherited rbCG: TRadioButton
TabOrder = 38
end
end
inherited GroupBox2: TGroupBox
Position.X = 462.000000000000000000
inherited Label3: TLabel
TabOrder = 38
end
inherited Label4: TLabel
TabOrder = 39
end
inherited edtKandiKey: TEdit
TabOrder = 40
end
inherited edtKandiSecret: TEdit
TabOrder = 41
TabOrder = 42
end
end
end
@@ -593,8 +612,8 @@ object TTW_Bot: TTTW_Bot
inherited sgWebChats: TStringGrid
Size.Width = 968.000000000000000000
Size.Height = 282.000000000000000000
Viewport.Width = 964.000000000000000000
Viewport.Height = 257.000000000000000000
Viewport.Width = 968.000000000000000000
Viewport.Height = 282.000000000000000000
inherited StringColumn2: TStringColumn
Size.Width = 200.000000000000000000
end
@@ -615,7 +634,7 @@ object TTW_Bot: TTTW_Bot
OnClick = frOBS1btnDeleteeChatClick
end
inherited Label1: TLabel
TabOrder = 19
TabOrder = 20
end
inherited btnCreateOBSNotify: TButton
Images = ImageList1
@@ -626,7 +645,7 @@ object TTW_Bot: TTTW_Bot
Images = ImageList1
ImageIndex = 5
Position.X = 264.000000000000000000
TabOrder = 18
TabOrder = 19
end
inherited btnCreateOBSGame: TButton
Images = ImageList1
forms/uGeneral.pas
+21 -3
View File
@@ -91,6 +91,8 @@ type
procedure frAutoActions1btnCounterAddClick(Sender: TObject);
procedure frAutoActions1btnCounterEditClick(Sender: TObject);
procedure frAutoActions1btnCounterDeleteClick(Sender: TObject);
procedure frSettings1btnOpenRomaningClick(Sender: TObject);
procedure frSettings1btnOpenStreamClick(Sender: TObject);
private
{ Private declarations }
procedure toSpeech(aText: string);
@@ -167,13 +169,13 @@ end;
procedure TTTW_Bot.toSpeech(aText: string);
var
tts: ttts;
s, s1: string;
s: string;
begin
s := ExtractFilePath(ParamStr(0)) + 'piper\piper.exe';
s1 := ExtractFilePath(ParamStr(0)) + 'piper\voices';
if frTTS1.cbVoices.ItemIndex = -1 then
exit;
tts := ttts.Create(s, s1);
tts := ttts.Create(s, myConst.VoicesPath);
try
tts.SetModel(frTTS1.cbVoices.text);
tts.TextToSpeech(aText, true);
@@ -496,6 +498,10 @@ begin
CreateDir(myConst.AppDataPath + 'ytSongs');
myConst.ytSongsPath := myConst.AppDataPath + 'ytSongs\';
if not DirectoryExists(myConst.AppDataPath + 'Voices') then
CreateDir(myConst.AppDataPath + 'Voices');
myConst.VoicesPath := myConst.AppDataPath + 'Voices\';
myConst.SilentPlay := myConst.GeneralPath + 'SilentPlayer.exe';
myConst.ytPlay := myConst.GeneralPath + 'Player.exe';
myConst.cfg1 := myConst.GeneralPath + 'botapp.cfg';
@@ -884,6 +890,18 @@ begin
end;
procedure TTTW_Bot.frSettings1btnOpenRomaningClick(Sender: TObject);
begin
frSettings1.btnOpenRomaningClick(Sender);
end;
procedure TTTW_Bot.frSettings1btnOpenStreamClick(Sender: TObject);
begin
frSettings1.btnOpenStreamClick(Sender);
end;
procedure TTTW_Bot.frTTS1btnSendClick(Sender: TObject);
begin
frTTS1.btnSendClick(Sender);