diff --git a/ProjectGroup1.groupproj.local b/ProjectGroup1.groupproj.local
index aff781c..c7c0548 100644
--- a/ProjectGroup1.groupproj.local
+++ b/ProjectGroup1.groupproj.local
@@ -1,9 +1,9 @@
п»ї
-
- 2025.08.10 08:44:51.964,C:\Users\PTyTb\Documents\Embarcadero\Studio\Projects\ttw_fmx_v10\ProjectGroup1.groupproj=C:\Users\PTyTb\Documents\Embarcadero\Studio\Projects\ProjectGroup1.groupproj
+
+ 1899.12.30 00:00:00.000.964,C:\Users\PTyTb\Documents\Embarcadero\Studio\Projects\ttw_fmx_v10\ProjectGroup1.groupproj=C:\Users\PTyTb\Documents\Embarcadero\Studio\Projects\ProjectGroup1.groupproj
-
-
-
+
+
+
diff --git a/Services/uTWAuth.pas b/Services/uTWAuth.pas
index 679e617..97f6905 100644
--- a/Services/uTWAuth.pas
+++ b/Services/uTWAuth.pas
@@ -11,8 +11,7 @@ type
type
TTTWAuth = class
- FmyEvent: TmyEvent;
- FURL: string;
+
private
FHTTPServer: TIdHTTPServer;
procedure HandleRequest(ASender: TIdContext;
@@ -26,6 +25,8 @@ type
procedure OnStatus(ASender: TObject; const AStatus: TIdStatus;
const AStatusText: string);
public
+ FmyEvent: TmyEvent;
+ FURL: string;
constructor Create;
destructor Destroy; override;
procedure StartServer(aURL: string);
diff --git a/SilentPlayer.dproj b/SilentPlayer.dproj
index 98b283b..ab8216d 100644
--- a/SilentPlayer.dproj
+++ b/SilentPlayer.dproj
@@ -115,7 +115,7 @@
SilentPlayer
- emshosting;fmx;DbxCommonDriver;bindengine;IndyIPCommon;emsclient;FireDACCommonDriver;IndyProtocols;dbxcds;IndyIPClient;FmxTeeUI;emsedge;bindcompfmx;ibmonitor;FireDACSqliteDriver;DbxClientDriver;soapmidas;fmxFireDAC;dbexpress;inet;DataSnapCommon;fmxase;dbrtl;FireDACDBXDriver;CustomIPTransport;DBXInterBaseDriver;IndySystem;ibxbindings;bindcomp;FireDACCommon;emsserverresource;inetstn;IndyCore;RESTBackendComponents;bindcompdbx;rtl;RESTComponents;DBXSqliteDriver;dsnapxml;IndyIPServer;DataSnapClient;DataSnapProviderClient;DataSnapFireDAC;emsclientfiredac;FireDAC;FireDACDSDriver;xmlrtl;tethering;ibxpress;dsnap;CloudService;DataSnapNativeClient;FMXTee;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
+ emshosting;fmx;DbxCommonDriver;bindengine;IndyIPCommon;emsclient;FireDACCommonDriver;IndyProtocols;dbxcds;IndyIPClient;FmxTeeUI;emsedge;bindcompfmx;ibmonitor;FireDACSqliteDriver;DbxClientDriver;soapmidas;fmxFireDAC;dbexpress;inet;DataSnapCommon;fmxase;dbrtl;FireDACDBXDriver;CustomIPTransport;DBXInterBaseDriver;IndySystem;ibxbindings;bindcomp;FireDACCommon;emsserverresource;inetstn;IndyCore;RESTBackendComponents;bindcompdbx;rtl;RESTComponents;DBXSqliteDriver;dsnapxml;IndyIPServer;DataSnapClient;DataSnapProviderClient;DataSnapFireDAC;emsclientfiredac;FireDAC;FireDACDSDriver;xmlrtl;tethering;dsnap;CloudService;DataSnapNativeClient;FMXTee;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
package=com.embarcadero.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.0;persistent=False;restoreAnyVersion=False;installLocation=auto;largeHeap=False;theme=TitleBar;hardwareAccelerated=true;apiKey=;minSdkVersion=23;targetSdkVersion=35
Debug
true
@@ -149,7 +149,7 @@
activity-1.7.2.dex.jar;annotation-experimental-1.4.1.dex.jar;annotation-jvm-1.8.1.dex.jar;annotations-13.0.dex.jar;appcompat-1.2.0.dex.jar;appcompat-resources-1.2.0.dex.jar;billing-7.1.1.dex.jar;biometric-1.1.0.dex.jar;browser-1.4.0.dex.jar;cloud-messaging.dex.jar;collection-jvm-1.4.2.dex.jar;concurrent-futures-1.1.0.dex.jar;core-1.15.0.dex.jar;core-common-2.2.0.dex.jar;core-ktx-1.15.0.dex.jar;core-runtime-2.2.0.dex.jar;cursoradapter-1.0.0.dex.jar;customview-1.0.0.dex.jar;documentfile-1.0.0.dex.jar;drawerlayout-1.0.0.dex.jar;error_prone_annotations-2.9.0.dex.jar;exifinterface-1.3.6.dex.jar;firebase-annotations-16.2.0.dex.jar;firebase-common-20.3.1.dex.jar;firebase-components-17.1.0.dex.jar;firebase-datatransport-18.1.7.dex.jar;firebase-encoders-17.0.0.dex.jar;firebase-encoders-json-18.0.0.dex.jar;firebase-encoders-proto-16.0.0.dex.jar;firebase-iid-interop-17.1.0.dex.jar;firebase-installations-17.1.3.dex.jar;firebase-installations-interop-17.1.0.dex.jar;firebase-measurement-connector-19.0.0.dex.jar;firebase-messaging-23.1.2.dex.jar;fmx.dex.jar;fragment-1.2.5.dex.jar;google-play-licensing.dex.jar;interpolator-1.0.0.dex.jar;javax.inject-1.dex.jar;kotlin-stdlib-1.8.22.dex.jar;kotlin-stdlib-common-1.8.22.dex.jar;kotlin-stdlib-jdk7-1.8.22.dex.jar;kotlin-stdlib-jdk8-1.8.22.dex.jar;kotlinx-coroutines-android-1.6.4.dex.jar;kotlinx-coroutines-core-jvm-1.6.4.dex.jar;legacy-support-core-utils-1.0.0.dex.jar;lifecycle-common-2.6.2.dex.jar;lifecycle-livedata-2.6.2.dex.jar;lifecycle-livedata-core-2.6.2.dex.jar;lifecycle-runtime-2.6.2.dex.jar;lifecycle-service-2.6.2.dex.jar;lifecycle-viewmodel-2.6.2.dex.jar;lifecycle-viewmodel-savedstate-2.6.2.dex.jar;listenablefuture-1.0.dex.jar;loader-1.0.0.dex.jar;localbroadcastmanager-1.0.0.dex.jar;okio-jvm-3.4.0.dex.jar;play-services-ads-22.2.0.dex.jar;play-services-ads-base-22.2.0.dex.jar;play-services-ads-identifier-18.0.0.dex.jar;play-services-ads-lite-22.2.0.dex.jar;play-services-appset-16.0.1.dex.jar;play-services-base-18.5.0.dex.jar;play-services-basement-18.4.0.dex.jar;play-services-cloud-messaging-17.0.1.dex.jar;play-services-location-21.0.1.dex.jar;play-services-maps-18.1.0.dex.jar;play-services-measurement-base-20.1.2.dex.jar;play-services-measurement-sdk-api-20.1.2.dex.jar;play-services-stats-17.0.2.dex.jar;play-services-tasks-18.2.0.dex.jar;print-1.0.0.dex.jar;profileinstaller-1.3.0.dex.jar;room-common-2.2.5.dex.jar;room-runtime-2.2.5.dex.jar;savedstate-1.2.1.dex.jar;sqlite-2.1.0.dex.jar;sqlite-framework-2.1.0.dex.jar;startup-runtime-1.1.1.dex.jar;tracing-1.2.0.dex.jar;transport-api-3.0.0.dex.jar;transport-backend-cct-3.1.8.dex.jar;transport-runtime-3.1.8.dex.jar;user-messaging-platform-2.0.0.dex.jar;vectordrawable-1.1.0.dex.jar;vectordrawable-animated-1.1.0.dex.jar;versionedparcelable-1.1.1.dex.jar;viewpager-1.0.0.dex.jar;work-runtime-2.7.0.dex.jar
- emshosting;fmx;DbxCommonDriver;bindengine;IndyIPCommon;emsclient;FireDACCommonDriver;IndyProtocols;dbxcds;IndyIPClient;FmxTeeUI;emsedge;bindcompfmx;ibmonitor;FireDACSqliteDriver;DbxClientDriver;soapmidas;fmxFireDAC;dbexpress;inet;DataSnapCommon;dbrtl;FireDACDBXDriver;CustomIPTransport;DBXInterBaseDriver;IndySystem;ibxbindings;bindcomp;FireDACCommon;emsserverresource;inetstn;IndyCore;RESTBackendComponents;bindcompdbx;rtl;RESTComponents;DBXSqliteDriver;dsnapxml;IndyIPServer;DataSnapClient;DataSnapProviderClient;DataSnapFireDAC;emsclientfiredac;FireDAC;FireDACDSDriver;xmlrtl;tethering;ibxpress;dsnap;CloudService;DataSnapNativeClient;FMXTee;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
+ emshosting;fmx;DbxCommonDriver;bindengine;IndyIPCommon;emsclient;FireDACCommonDriver;IndyProtocols;dbxcds;IndyIPClient;FmxTeeUI;emsedge;bindcompfmx;ibmonitor;FireDACSqliteDriver;DbxClientDriver;soapmidas;fmxFireDAC;dbexpress;inet;DataSnapCommon;dbrtl;FireDACDBXDriver;CustomIPTransport;DBXInterBaseDriver;IndySystem;ibxbindings;bindcomp;FireDACCommon;emsserverresource;inetstn;IndyCore;RESTBackendComponents;bindcompdbx;rtl;RESTComponents;DBXSqliteDriver;dsnapxml;IndyIPServer;DataSnapClient;DataSnapProviderClient;DataSnapFireDAC;emsclientfiredac;FireDAC;FireDACDSDriver;xmlrtl;tethering;dsnap;CloudService;DataSnapNativeClient;FMXTee;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
package=com.embarcadero.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.0;persistent=False;restoreAnyVersion=False;installLocation=auto;largeHeap=False;theme=TitleBar;hardwareAccelerated=true;apiKey=;minSdkVersion=23;targetSdkVersion=35
Debug
true
@@ -183,7 +183,7 @@
activity-1.7.2.dex.jar;annotation-experimental-1.4.1.dex.jar;annotation-jvm-1.8.1.dex.jar;annotations-13.0.dex.jar;appcompat-1.2.0.dex.jar;appcompat-resources-1.2.0.dex.jar;billing-7.1.1.dex.jar;biometric-1.1.0.dex.jar;browser-1.4.0.dex.jar;cloud-messaging.dex.jar;collection-jvm-1.4.2.dex.jar;concurrent-futures-1.1.0.dex.jar;core-1.15.0.dex.jar;core-common-2.2.0.dex.jar;core-ktx-1.15.0.dex.jar;core-runtime-2.2.0.dex.jar;cursoradapter-1.0.0.dex.jar;customview-1.0.0.dex.jar;documentfile-1.0.0.dex.jar;drawerlayout-1.0.0.dex.jar;error_prone_annotations-2.9.0.dex.jar;exifinterface-1.3.6.dex.jar;firebase-annotations-16.2.0.dex.jar;firebase-common-20.3.1.dex.jar;firebase-components-17.1.0.dex.jar;firebase-datatransport-18.1.7.dex.jar;firebase-encoders-17.0.0.dex.jar;firebase-encoders-json-18.0.0.dex.jar;firebase-encoders-proto-16.0.0.dex.jar;firebase-iid-interop-17.1.0.dex.jar;firebase-installations-17.1.3.dex.jar;firebase-installations-interop-17.1.0.dex.jar;firebase-measurement-connector-19.0.0.dex.jar;firebase-messaging-23.1.2.dex.jar;fmx.dex.jar;fragment-1.2.5.dex.jar;google-play-licensing.dex.jar;interpolator-1.0.0.dex.jar;javax.inject-1.dex.jar;kotlin-stdlib-1.8.22.dex.jar;kotlin-stdlib-common-1.8.22.dex.jar;kotlin-stdlib-jdk7-1.8.22.dex.jar;kotlin-stdlib-jdk8-1.8.22.dex.jar;kotlinx-coroutines-android-1.6.4.dex.jar;kotlinx-coroutines-core-jvm-1.6.4.dex.jar;legacy-support-core-utils-1.0.0.dex.jar;lifecycle-common-2.6.2.dex.jar;lifecycle-livedata-2.6.2.dex.jar;lifecycle-livedata-core-2.6.2.dex.jar;lifecycle-runtime-2.6.2.dex.jar;lifecycle-service-2.6.2.dex.jar;lifecycle-viewmodel-2.6.2.dex.jar;lifecycle-viewmodel-savedstate-2.6.2.dex.jar;listenablefuture-1.0.dex.jar;loader-1.0.0.dex.jar;localbroadcastmanager-1.0.0.dex.jar;okio-jvm-3.4.0.dex.jar;play-services-ads-22.2.0.dex.jar;play-services-ads-base-22.2.0.dex.jar;play-services-ads-identifier-18.0.0.dex.jar;play-services-ads-lite-22.2.0.dex.jar;play-services-appset-16.0.1.dex.jar;play-services-base-18.5.0.dex.jar;play-services-basement-18.4.0.dex.jar;play-services-cloud-messaging-17.0.1.dex.jar;play-services-location-21.0.1.dex.jar;play-services-maps-18.1.0.dex.jar;play-services-measurement-base-20.1.2.dex.jar;play-services-measurement-sdk-api-20.1.2.dex.jar;play-services-stats-17.0.2.dex.jar;play-services-tasks-18.2.0.dex.jar;print-1.0.0.dex.jar;profileinstaller-1.3.0.dex.jar;room-common-2.2.5.dex.jar;room-runtime-2.2.5.dex.jar;savedstate-1.2.1.dex.jar;sqlite-2.1.0.dex.jar;sqlite-framework-2.1.0.dex.jar;startup-runtime-1.1.1.dex.jar;tracing-1.2.0.dex.jar;transport-api-3.0.0.dex.jar;transport-backend-cct-3.1.8.dex.jar;transport-runtime-3.1.8.dex.jar;user-messaging-platform-2.0.0.dex.jar;vectordrawable-1.1.0.dex.jar;vectordrawable-animated-1.1.0.dex.jar;versionedparcelable-1.1.1.dex.jar;viewpager-1.0.0.dex.jar;work-runtime-2.7.0.dex.jar
- emshosting;fmx;DbxCommonDriver;bindengine;IndyIPCommon;emsclient;FireDACCommonDriver;IndyProtocols;dbxcds;IndyIPClient;FmxTeeUI;emsedge;bindcompfmx;ibmonitor;FireDACSqliteDriver;DbxClientDriver;soapmidas;fmxFireDAC;dbexpress;inet;DataSnapCommon;fmxase;dbrtl;FireDACDBXDriver;CustomIPTransport;DBXInterBaseDriver;IndySystem;ibxbindings;bindcomp;FireDACCommon;emsserverresource;inetstn;IndyCore;RESTBackendComponents;bindcompdbx;rtl;RESTComponents;DBXSqliteDriver;dsnapxml;IndyIPServer;DataSnapClient;DataSnapProviderClient;DataSnapFireDAC;emsclientfiredac;FireDAC;FireDACDSDriver;xmlrtl;tethering;ibxpress;dsnap;CloudService;DataSnapNativeClient;FMXTee;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
+ emshosting;fmx;DbxCommonDriver;bindengine;IndyIPCommon;emsclient;FireDACCommonDriver;IndyProtocols;dbxcds;IndyIPClient;FmxTeeUI;emsedge;bindcompfmx;ibmonitor;FireDACSqliteDriver;DbxClientDriver;soapmidas;fmxFireDAC;dbexpress;inet;DataSnapCommon;fmxase;dbrtl;FireDACDBXDriver;CustomIPTransport;DBXInterBaseDriver;IndySystem;ibxbindings;bindcomp;FireDACCommon;emsserverresource;inetstn;IndyCore;RESTBackendComponents;bindcompdbx;rtl;RESTComponents;DBXSqliteDriver;dsnapxml;IndyIPServer;DataSnapClient;DataSnapProviderClient;DataSnapFireDAC;emsclientfiredac;FireDAC;FireDACDSDriver;xmlrtl;tethering;dsnap;CloudService;DataSnapNativeClient;FMXTee;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
CFBundleName=$(MSBuildProjectName);CFBundleDevelopmentRegion=en;CFBundleDisplayName=$(MSBuildProjectName);CFBundleIdentifier=$(MSBuildProjectName);CFBundleInfoDictionaryVersion=7.1;CFBundleVersion=1.0.0;CFBundleShortVersionString=1.0.0;CFBundlePackageType=APPL;CFBundleSignature=????;LSRequiresIPhoneOS=true;CFBundleAllowMixedLocalizations=YES;CFBundleExecutable=$(MSBuildProjectName);UIDeviceFamily=iPhone & iPad;NSLocationAlwaysUsageDescription=The reason for accessing the location information of the user;NSLocationWhenInUseUsageDescription=The reason for accessing the location information of the user;NSLocationAlwaysAndWhenInUseUsageDescription=The reason for accessing the location information of the user;UIBackgroundModes=;NSContactsUsageDescription=The reason for accessing the contacts;NSPhotoLibraryUsageDescription=The reason for accessing the photo library;NSPhotoLibraryAddUsageDescription=The reason for adding to the photo library;NSCameraUsageDescription=The reason for accessing the camera;NSFaceIDUsageDescription=The reason for accessing the face id;NSMicrophoneUsageDescription=The reason for accessing the microphone;NSSiriUsageDescription=The reason for accessing Siri;ITSAppUsesNonExemptEncryption=false;NSBluetoothAlwaysUsageDescription=The reason for accessing bluetooth;NSBluetoothPeripheralUsageDescription=The reason for accessing bluetooth peripherals;NSCalendarsUsageDescription=The reason for accessing the calendar data;NSRemindersUsageDescription=The reason for accessing the reminders;NSMotionUsageDescription=The reason for accessing the accelerometer;NSSpeechRecognitionUsageDescription=The reason for requesting to send user data to Apple's speech recognition servers
iPhoneAndiPad
true
@@ -211,7 +211,7 @@
$(BDS)\bin\Artwork\iOS\iPad\FM_NotificationIcon_40x40.png
- emshosting;fmx;DbxCommonDriver;bindengine;IndyIPCommon;emsclient;FireDACCommonDriver;IndyProtocols;dbxcds;IndyIPClient;FmxTeeUI;emsedge;bindcompfmx;ibmonitor;FireDACSqliteDriver;DbxClientDriver;soapmidas;fmxFireDAC;dbexpress;inet;DataSnapCommon;fmxase;dbrtl;FireDACDBXDriver;CustomIPTransport;DBXInterBaseDriver;IndySystem;ibxbindings;bindcomp;FireDACCommon;emsserverresource;inetstn;IndyCore;RESTBackendComponents;bindcompdbx;rtl;RESTComponents;DBXSqliteDriver;dsnapxml;IndyIPServer;DataSnapClient;DataSnapProviderClient;DataSnapFireDAC;emsclientfiredac;FireDAC;FireDACDSDriver;xmlrtl;tethering;ibxpress;dsnap;CloudService;DataSnapNativeClient;FMXTee;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
+ emshosting;fmx;DbxCommonDriver;bindengine;IndyIPCommon;emsclient;FireDACCommonDriver;IndyProtocols;dbxcds;IndyIPClient;FmxTeeUI;emsedge;bindcompfmx;ibmonitor;FireDACSqliteDriver;DbxClientDriver;soapmidas;fmxFireDAC;dbexpress;inet;DataSnapCommon;fmxase;dbrtl;FireDACDBXDriver;CustomIPTransport;DBXInterBaseDriver;IndySystem;ibxbindings;bindcomp;FireDACCommon;emsserverresource;inetstn;IndyCore;RESTBackendComponents;bindcompdbx;rtl;RESTComponents;DBXSqliteDriver;dsnapxml;IndyIPServer;DataSnapClient;DataSnapProviderClient;DataSnapFireDAC;emsclientfiredac;FireDAC;FireDACDSDriver;xmlrtl;tethering;dsnap;CloudService;DataSnapNativeClient;FMXTee;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
CFBundleName=$(MSBuildProjectName);CFBundleDevelopmentRegion=en;CFBundleDisplayName=$(MSBuildProjectName);CFBundleIdentifier=$(MSBuildProjectName);CFBundleInfoDictionaryVersion=7.1;CFBundleVersion=1.0.0;CFBundleShortVersionString=1.0.0;CFBundlePackageType=APPL;CFBundleSignature=????;LSRequiresIPhoneOS=true;CFBundleAllowMixedLocalizations=YES;CFBundleExecutable=$(MSBuildProjectName);UIDeviceFamily=iPhone & iPad;NSLocationAlwaysUsageDescription=The reason for accessing the location information of the user;NSLocationWhenInUseUsageDescription=The reason for accessing the location information of the user;NSLocationAlwaysAndWhenInUseUsageDescription=The reason for accessing the location information of the user;UIBackgroundModes=;NSContactsUsageDescription=The reason for accessing the contacts;NSPhotoLibraryUsageDescription=The reason for accessing the photo library;NSPhotoLibraryAddUsageDescription=The reason for adding to the photo library;NSCameraUsageDescription=The reason for accessing the camera;NSFaceIDUsageDescription=The reason for accessing the face id;NSMicrophoneUsageDescription=The reason for accessing the microphone;NSSiriUsageDescription=The reason for accessing Siri;ITSAppUsesNonExemptEncryption=false;NSBluetoothAlwaysUsageDescription=The reason for accessing bluetooth;NSBluetoothPeripheralUsageDescription=The reason for accessing bluetooth peripherals;NSCalendarsUsageDescription=The reason for accessing the calendar data;NSRemindersUsageDescription=The reason for accessing the reminders;NSMotionUsageDescription=The reason for accessing the accelerometer;NSSpeechRecognitionUsageDescription=The reason for requesting to send user data to Apple's speech recognition servers
iPhoneAndiPad
true
@@ -240,19 +240,19 @@
DataSnapServer;emshosting;fmx;DbxCommonDriver;bindengine;FireDACCommonODBC;emsclient;FireDACCommonDriver;IndyProtocols;dbxcds;emsedge;inetdb;FireDACSqliteDriver;DbxClientDriver;FireDACASADriver;soapmidas;dbexpress;FireDACInfxDriver;inet;DataSnapCommon;dbrtl;FireDACOracleDriver;CustomIPTransport;FireDACMSSQLDriver;DataSnapIndy10ServerTransport;DataSnapConnectors;FireDACMongoDBDriver;IndySystem;FireDACTDataDriver;bindcomp;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;emsserverresource;inetstn;IndyCore;RESTBackendComponents;rtl;FireDACMySQLDriver;FireDACADSDriver;RESTComponents;dsnapxml;DataSnapClient;DataSnapFireDAC;emsclientfiredac;FireDACPgDriver;FireDAC;xmlrtl;dsnap;CloudService;FireDACDb2Driver;DataSnapNativeClient;DatasnapConnectorsFreePascal;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
- DataSnapServer;emshosting;fmx;DbxCommonDriver;bindengine;FireDACCommonODBC;IndyIPCommon;emsclient;FireDACCommonDriver;IndyProtocols;dbxcds;IndyIPClient;FmxTeeUI;emsedge;bindcompfmx;DBXFirebirdDriver;inetdb;ibmonitor;FireDACSqliteDriver;DbxClientDriver;FireDACASADriver;soapmidas;fmxFireDAC;dbexpress;DBXMySQLDriver;inet;DataSnapCommon;fmxase;dbrtl;FireDACOracleDriver;FireDACDBXDriver;fmxdae;CustomIPTransport;FireDACMSSQLDriver;DataSnapIndy10ServerTransport;DBXInterBaseDriver;FireDACMongoDBDriver;IndySystem;FireDACTDataDriver;ibxbindings;bindcomp;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;emsserverresource;inetstn;IndyCore;RESTBackendComponents;bindcompdbx;rtl;FireDACMySQLDriver;RESTComponents;DBXSqliteDriver;dsnapxml;IndyIPServer;DataSnapClient;DataSnapProviderClient;DataSnapFireDAC;emsclientfiredac;FireDACPgDriver;FireDAC;FireDACDSDriver;inetdbxpress;xmlrtl;tethering;ibxpress;dsnap;DBXSybaseASADriver;CloudService;DBXOracleDriver;DBXInformixDriver;DataSnapNativeClient;fmxobj;FMXTee;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
+ DataSnapServer;emshosting;fmx;DbxCommonDriver;bindengine;FireDACCommonODBC;IndyIPCommon;emsclient;FireDACCommonDriver;IndyProtocols;dbxcds;IndyIPClient;FmxTeeUI;emsedge;bindcompfmx;DBXFirebirdDriver;inetdb;ibmonitor;FireDACSqliteDriver;DbxClientDriver;FireDACASADriver;soapmidas;fmxFireDAC;dbexpress;DBXMySQLDriver;inet;DataSnapCommon;fmxase;dbrtl;FireDACOracleDriver;FireDACDBXDriver;fmxdae;CustomIPTransport;FireDACMSSQLDriver;DataSnapIndy10ServerTransport;DBXInterBaseDriver;FireDACMongoDBDriver;IndySystem;FireDACTDataDriver;ibxbindings;bindcomp;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;emsserverresource;inetstn;IndyCore;RESTBackendComponents;bindcompdbx;rtl;FireDACMySQLDriver;RESTComponents;DBXSqliteDriver;dsnapxml;IndyIPServer;DataSnapClient;DataSnapProviderClient;DataSnapFireDAC;emsclientfiredac;FireDACPgDriver;FireDAC;FireDACDSDriver;inetdbxpress;xmlrtl;tethering;dsnap;DBXSybaseASADriver;CloudService;DBXOracleDriver;DBXInformixDriver;DataSnapNativeClient;fmxobj;FMXTee;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
CFBundleName=$(MSBuildProjectName);CFBundleDisplayName=$(MSBuildProjectName);CFBundleIdentifier=$(MSBuildProjectName);CFBundleVersion=1.0.0;CFBundleShortVersionString=1.0.0;CFBundlePackageType=APPL;CFBundleSignature=????;CFBundleAllowMixedLocalizations=YES;CFBundleExecutable=$(MSBuildProjectName);NSHighResolutionCapable=true;LSApplicationCategoryType=public.app-category.utilities;NSLocationUsageDescription=The reason for accessing the location information of the user;NSContactsUsageDescription=The reason for accessing the contacts;NSCalendarsUsageDescription=The reason for accessing the calendar data;NSRemindersUsageDescription=The reason for accessing the reminders;NSCameraUsageDescription=The reason for accessing the camera;NSMicrophoneUsageDescription=The reason for accessing the microphone;NSMotionUsageDescription=The reason for accessing the accelerometer;NSDesktopFolderUsageDescription=The reason for accessing the Desktop folder;NSDocumentsFolderUsageDescription=The reason for accessing the Documents folder;NSDownloadsFolderUsageDescription=The reason for accessing the Downloads folder;NSNetworkVolumesUsageDescription=The reason for accessing files on a network volume;NSRemovableVolumesUsageDescription=The reason for accessing files on a removable volume;NSSpeechRecognitionUsageDescription=The reason for requesting to send user data to Apple's speech recognition servers;ITSAppUsesNonExemptEncryption=false;NSBluetoothAlwaysUsageDescription=The reason for accessing the Bluetooth interface
Debug
true
- DataSnapServer;emshosting;fmx;DbxCommonDriver;bindengine;FireDACCommonODBC;IndyIPCommon;emsclient;FireDACCommonDriver;IndyProtocols;dbxcds;IndyIPClient;FmxTeeUI;emsedge;bindcompfmx;DBXFirebirdDriver;inetdb;ibmonitor;FireDACSqliteDriver;DbxClientDriver;FireDACASADriver;soapmidas;fmxFireDAC;dbexpress;DBXMySQLDriver;inet;DataSnapCommon;fmxase;dbrtl;FireDACOracleDriver;FireDACDBXDriver;fmxdae;CustomIPTransport;FireDACMSSQLDriver;DataSnapIndy10ServerTransport;DBXInterBaseDriver;FireDACMongoDBDriver;IndySystem;FireDACTDataDriver;ibxbindings;bindcomp;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;emsserverresource;inetstn;IndyCore;RESTBackendComponents;bindcompdbx;rtl;FireDACMySQLDriver;RESTComponents;DBXSqliteDriver;dsnapxml;IndyIPServer;DataSnapClient;DataSnapProviderClient;DataSnapFireDAC;emsclientfiredac;FireDACPgDriver;FireDAC;FireDACDSDriver;inetdbxpress;xmlrtl;tethering;ibxpress;dsnap;DBXSybaseASADriver;CloudService;DBXOracleDriver;DBXInformixDriver;DataSnapNativeClient;fmxobj;FMXTee;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
+ DataSnapServer;emshosting;fmx;DbxCommonDriver;bindengine;FireDACCommonODBC;IndyIPCommon;emsclient;FireDACCommonDriver;IndyProtocols;dbxcds;IndyIPClient;FmxTeeUI;emsedge;bindcompfmx;DBXFirebirdDriver;inetdb;ibmonitor;FireDACSqliteDriver;DbxClientDriver;FireDACASADriver;soapmidas;fmxFireDAC;dbexpress;DBXMySQLDriver;inet;DataSnapCommon;fmxase;dbrtl;FireDACOracleDriver;FireDACDBXDriver;fmxdae;CustomIPTransport;FireDACMSSQLDriver;DataSnapIndy10ServerTransport;DBXInterBaseDriver;FireDACMongoDBDriver;IndySystem;FireDACTDataDriver;ibxbindings;bindcomp;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;emsserverresource;inetstn;IndyCore;RESTBackendComponents;bindcompdbx;rtl;FireDACMySQLDriver;RESTComponents;DBXSqliteDriver;dsnapxml;IndyIPServer;DataSnapClient;DataSnapProviderClient;DataSnapFireDAC;emsclientfiredac;FireDACPgDriver;FireDAC;FireDACDSDriver;inetdbxpress;xmlrtl;tethering;dsnap;DBXSybaseASADriver;CloudService;DBXOracleDriver;DBXInformixDriver;DataSnapNativeClient;fmxobj;FMXTee;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
CFBundleName=$(MSBuildProjectName);CFBundleDisplayName=$(MSBuildProjectName);CFBundleIdentifier=$(MSBuildProjectName);CFBundleVersion=1.0.0;CFBundleShortVersionString=1.0.0;CFBundlePackageType=APPL;CFBundleSignature=????;CFBundleAllowMixedLocalizations=YES;CFBundleExecutable=$(MSBuildProjectName);NSHighResolutionCapable=true;LSApplicationCategoryType=public.app-category.utilities;NSLocationUsageDescription=The reason for accessing the location information of the user;NSContactsUsageDescription=The reason for accessing the contacts;NSCalendarsUsageDescription=The reason for accessing the calendar data;NSRemindersUsageDescription=The reason for accessing the reminders;NSCameraUsageDescription=The reason for accessing the camera;NSMicrophoneUsageDescription=The reason for accessing the microphone;NSMotionUsageDescription=The reason for accessing the accelerometer;NSDesktopFolderUsageDescription=The reason for accessing the Desktop folder;NSDocumentsFolderUsageDescription=The reason for accessing the Documents folder;NSDownloadsFolderUsageDescription=The reason for accessing the Downloads folder;NSNetworkVolumesUsageDescription=The reason for accessing files on a network volume;NSRemovableVolumesUsageDescription=The reason for accessing files on a removable volume;NSSpeechRecognitionUsageDescription=The reason for requesting to send user data to Apple's speech recognition servers;ITSAppUsesNonExemptEncryption=false;NSBluetoothAlwaysUsageDescription=The reason for accessing the Bluetooth interface
Debug
true
- DataSnapServer;vclwinx;emshosting;fmx;DbxCommonDriver;vclie;bindengine;VCLRESTComponents;FireDACCommonODBC;DBXMSSQLDriver;IndyIPCommon;emsclient;FireDACCommonDriver;appanalytics;IndyProtocols;vclx;Skia.Package.RTL;dbxcds;vcledge;IndyIPClient;bindcompvclwinx;FmxTeeUI;emsedge;bindcompfmx;DBXFirebirdDriver;inetdb;ibmonitor;FireDACSqliteDriver;DbxClientDriver;FireDACASADriver;Tee;soapmidas;vclactnband;TeeUI;fmxFireDAC;dbexpress;FireDACInfxDriver;DBXMySQLDriver;VclSmp;inet;DataSnapCommon;fmxase;vcltouch;DBXOdbcDriver;dbrtl;FireDACOracleDriver;FireDACDBXDriver;Skia.Package.FMX;fmxdae;TeeDB;FireDACMSAccDriver;CustomIPTransport;FireDACMSSQLDriver;DataSnapIndy10ServerTransport;DataSnapConnectors;DBXInterBaseDriver;vcldsnap;FireDACMongoDBDriver;IndySystem;FireDACTDataDriver;Skia.Package.VCL;vcldb;ibxbindings;vclFireDAC;bindcomp;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;emsserverresource;inetstn;IndyCore;RESTBackendComponents;bindcompdbx;rtl;FireDACMySQLDriver;FireDACADSDriver;RESTComponents;DBXSqliteDriver;vcl;adortl;dsnapxml;IndyIPServer;DataSnapClient;DataSnapProviderClient;dsnapcon;DBXSybaseASEDriver;DBXDb2Driver;vclimg;DataSnapFireDAC;emsclientfiredac;FireDACPgDriver;FireDAC;FireDACDSDriver;inetdbxpress;xmlrtl;tethering;ibxpress;bindcompvcl;dsnap;DBXSybaseASADriver;CloudService;DBXOracleDriver;FireDACDb2Driver;DBXInformixDriver;vclib;DataSnapNativeClient;bindcompvclsmp;fmxobj;FMXTee;DatasnapConnectorsFreePascal;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
+ DataSnapServer;vclwinx;emshosting;fmx;DbxCommonDriver;vclie;bindengine;VCLRESTComponents;FireDACCommonODBC;DBXMSSQLDriver;IndyIPCommon;emsclient;FireDACCommonDriver;appanalytics;IndyProtocols;vclx;Skia.Package.RTL;dbxcds;vcledge;IndyIPClient;bindcompvclwinx;FmxTeeUI;emsedge;bindcompfmx;DBXFirebirdDriver;inetdb;ibmonitor;FireDACSqliteDriver;DbxClientDriver;FireDACASADriver;Tee;soapmidas;vclactnband;TeeUI;fmxFireDAC;dbexpress;FireDACInfxDriver;DBXMySQLDriver;VclSmp;inet;DataSnapCommon;fmxase;vcltouch;DBXOdbcDriver;dbrtl;FireDACOracleDriver;FireDACDBXDriver;Skia.Package.FMX;fmxdae;TeeDB;FireDACMSAccDriver;CustomIPTransport;FireDACMSSQLDriver;DataSnapIndy10ServerTransport;DataSnapConnectors;DBXInterBaseDriver;vcldsnap;FireDACMongoDBDriver;IndySystem;FireDACTDataDriver;Skia.Package.VCL;vcldb;ibxbindings;vclFireDAC;bindcomp;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;emsserverresource;inetstn;IndyCore;RESTBackendComponents;bindcompdbx;rtl;FireDACMySQLDriver;FireDACADSDriver;RESTComponents;DBXSqliteDriver;vcl;adortl;dsnapxml;IndyIPServer;DataSnapClient;DataSnapProviderClient;dsnapcon;DBXSybaseASEDriver;DBXDb2Driver;vclimg;DataSnapFireDAC;emsclientfiredac;FireDACPgDriver;FireDAC;FireDACDSDriver;inetdbxpress;xmlrtl;tethering;bindcompvcl;dsnap;DBXSybaseASADriver;CloudService;DBXOracleDriver;FireDACDb2Driver;DBXInformixDriver;vclib;DataSnapNativeClient;bindcompvclsmp;fmxobj;FMXTee;DatasnapConnectorsFreePascal;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)
Debug
true
@@ -263,7 +263,7 @@
$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png
- DataSnapServer;vclwinx;emshosting;fmx;DbxCommonDriver;vclie;bindengine;VCLRESTComponents;FireDACCommonODBC;DBXMSSQLDriver;IndyIPCommon;emsclient;FireDACCommonDriver;appanalytics;IndyProtocols;vclx;dbxcds;vcledge;IndyIPClient;bindcompvclwinx;FmxTeeUI;emsedge;bindcompfmx;DBXFirebirdDriver;inetdb;ibmonitor;FireDACSqliteDriver;DbxClientDriver;FireDACASADriver;Tee;soapmidas;vclactnband;TeeUI;fmxFireDAC;dbexpress;FireDACInfxDriver;DBXMySQLDriver;VclSmp;inet;DataSnapCommon;fmxase;vcltouch;DBXOdbcDriver;dbrtl;FireDACOracleDriver;FireDACDBXDriver;fmxdae;TeeDB;FireDACMSAccDriver;CustomIPTransport;FireDACMSSQLDriver;DataSnapIndy10ServerTransport;DataSnapConnectors;DBXInterBaseDriver;vcldsnap;FireDACMongoDBDriver;IndySystem;FireDACTDataDriver;Skia.Package.VCL;vcldb;ibxbindings;vclFireDAC;bindcomp;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;emsserverresource;inetstn;IndyCore;RESTBackendComponents;bindcompdbx;rtl;FireDACMySQLDriver;FireDACADSDriver;RESTComponents;DBXSqliteDriver;vcl;adortl;dsnapxml;IndyIPServer;DataSnapClient;DataSnapProviderClient;dsnapcon;DBXSybaseASEDriver;DBXDb2Driver;vclimg;DataSnapFireDAC;emsclientfiredac;FireDACPgDriver;FireDAC;FireDACDSDriver;inetdbxpress;xmlrtl;tethering;ibxpress;bindcompvcl;dsnap;DBXSybaseASADriver;CloudService;DBXOracleDriver;FireDACDb2Driver;DBXInformixDriver;vclib;DataSnapNativeClient;bindcompvclsmp;fmxobj;FMXTee;DatasnapConnectorsFreePascal;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
+ DataSnapServer;vclwinx;emshosting;fmx;DbxCommonDriver;vclie;bindengine;VCLRESTComponents;FireDACCommonODBC;DBXMSSQLDriver;IndyIPCommon;emsclient;FireDACCommonDriver;appanalytics;IndyProtocols;vclx;dbxcds;vcledge;IndyIPClient;bindcompvclwinx;FmxTeeUI;emsedge;bindcompfmx;DBXFirebirdDriver;inetdb;ibmonitor;FireDACSqliteDriver;DbxClientDriver;FireDACASADriver;Tee;soapmidas;vclactnband;TeeUI;fmxFireDAC;dbexpress;FireDACInfxDriver;DBXMySQLDriver;VclSmp;inet;DataSnapCommon;fmxase;vcltouch;DBXOdbcDriver;dbrtl;FireDACOracleDriver;FireDACDBXDriver;fmxdae;TeeDB;FireDACMSAccDriver;CustomIPTransport;FireDACMSSQLDriver;DataSnapIndy10ServerTransport;DataSnapConnectors;DBXInterBaseDriver;vcldsnap;FireDACMongoDBDriver;IndySystem;FireDACTDataDriver;Skia.Package.VCL;vcldb;ibxbindings;vclFireDAC;bindcomp;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;emsserverresource;inetstn;IndyCore;RESTBackendComponents;bindcompdbx;rtl;FireDACMySQLDriver;FireDACADSDriver;RESTComponents;DBXSqliteDriver;vcl;adortl;dsnapxml;IndyIPServer;DataSnapClient;DataSnapProviderClient;dsnapcon;DBXSybaseASEDriver;DBXDb2Driver;vclimg;DataSnapFireDAC;emsclientfiredac;FireDACPgDriver;FireDAC;FireDACDSDriver;inetdbxpress;xmlrtl;tethering;bindcompvcl;dsnap;DBXSybaseASADriver;CloudService;DBXOracleDriver;FireDACDb2Driver;DBXInformixDriver;vclib;DataSnapNativeClient;bindcompvclsmp;fmxobj;FMXTee;DatasnapConnectorsFreePascal;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)
Debug
true
diff --git a/TTW_Bot_app.dpr b/TTW_Bot_app.dpr
index 6339b1a..843eb06 100644
--- a/TTW_Bot_app.dpr
+++ b/TTW_Bot_app.dpr
@@ -1,29 +1,28 @@
program TTW_Bot_app;
uses
- System.StartUpCopy,
- System.SysUtils,
+
FMX.Forms,
Web.WebReq,
- IdHTTPWebBrokerBridge,
- fAI in 'frames\fAI.pas' {frAI: TFrame},
- fAutoActions in 'frames\fAutoActions.pas' {frAutoActions: TFrame},
- fColorSettings in 'frames\fColorSettings.pas' {frColorSettings: TFrame},
- fCommands in 'frames\fCommands.pas' {frCommands: TFrame},
- fContruct in 'frames\fContruct.pas' {frContruct: TFrame},
- fFontSettings in 'frames\fFontSettings.pas' {frFontSettings: TFrame},
- fGroupsRequest in 'frames\fGroupsRequest.pas' {frGroupsRequest: TFrame},
- fLog in 'frames\fLog.pas' {frLog: TFrame},
- fNotify in 'frames\fNotify.pas' {frNotify: TFrame},
- fOBS in 'frames\fOBS.pas' {frOBS: TFrame},
- fSettings in 'frames\fSettings.pas' {frSettings: TFrame},
- fSimpleGrid in 'frames\fSimpleGrid.pas' {frSimpleGrid: TFrame},
- fTTS in 'frames\fTTS.pas' {frTTS: TFrame},
- uCreateChat in 'forms\uCreateChat.pas' {fCreateChat},
- uCreateNotify in 'forms\uCreateNotify.pas' {fCreateNotify},
- uGeneral in 'forms\uGeneral.pas' {TTW_Bot},
- uQ in 'forms\uQ.pas' {frmQ},
- uShowText in 'forms\uShowText.pas' {fShowText},
+
+ fAI in 'frames\fAI.pas' {frAI: TFrame} ,
+ fAutoActions in 'frames\fAutoActions.pas' {frAutoActions: TFrame} ,
+ fColorSettings in 'frames\fColorSettings.pas' {frColorSettings: TFrame} ,
+ fCommands in 'frames\fCommands.pas' {frCommands: TFrame} ,
+ fContruct in 'frames\fContruct.pas' {frContruct: TFrame} ,
+ fFontSettings in 'frames\fFontSettings.pas' {frFontSettings: TFrame} ,
+ fGroupsRequest in 'frames\fGroupsRequest.pas' {frGroupsRequest: TFrame} ,
+ fLog in 'frames\fLog.pas' {frLog: TFrame} ,
+ fNotify in 'frames\fNotify.pas' {frNotify: TFrame} ,
+ fOBS in 'frames\fOBS.pas' {frOBS: TFrame} ,
+ fSettings in 'frames\fSettings.pas' {frSettings: TFrame} ,
+ fSimpleGrid in 'frames\fSimpleGrid.pas' {frSimpleGrid: TFrame} ,
+ fTTS in 'frames\fTTS.pas' {frTTS: TFrame} ,
+ uCreateChat in 'forms\uCreateChat.pas' {fCreateChat} ,
+ uCreateNotify in 'forms\uCreateNotify.pas' {fCreateNotify} ,
+ uGeneral in 'forms\uGeneral.pas' {TTW_Bot} ,
+ uQ in 'forms\uQ.pas' {frmQ} ,
+ uShowText in 'forms\uShowText.pas' {fShowText} ,
uAPIDA in 'Services\uAPIDA.pas',
uChatAPI in 'Services\uChatAPI.pas',
uCustomEmoties in 'Services\uCustomEmoties.pas',
@@ -36,19 +35,19 @@ uses
uWSDA in 'Services\uWSDA.pas',
uDataBase in 'utils\uDataBase.pas',
uMyTimer in 'utils\uMyTimer.pas',
- uOBS_Doc_Player in 'utils\uOBS_Doc_Player.pas' {OBS_Doc_Player: TWebModule},
+ uOBS_Doc_Player in 'utils\uOBS_Doc_Player.pas' {OBS_Doc_Player: TWebModule} ,
uRecords in 'utils\uRecords.pas',
uRegExpr in 'utils\uRegExpr.pas',
uSoundManager in 'utils\uSoundManager.pas',
uTTS in 'utils\uTTS.pas',
- fPlayerWeb in 'frames\fPlayerWeb.pas' {frPlayerWeb: TFrame},
+ fPlayerWeb in 'frames\fPlayerWeb.pas' {frPlayerWeb: TFrame} ,
uPlayerThread in 'utils\uPlayerThread.pas',
uWebServerChat in 'utils\uWebServerChat.pas',
uWebServerKandinsky in 'utils\uWebServerKandinsky.pas',
uWebServerEvents in 'utils\uWebServerEvents.pas',
- fEvents in 'frames\fEvents.pas' {frEvents: TFrame},
+ fEvents in 'frames\fEvents.pas' {frEvents: TFrame} ,
uKeyEvent in 'utils\uKeyEvent.pas',
- fRevards in 'frames\fRevards.pas' {frRevards: TFrame},
+ fRevards in 'frames\fRevards.pas' {frRevards: TFrame} ,
uWebServerGames in 'utils\uWebServerGames.pas',
uCreateGame in 'forms\uCreateGame.pas' {fCreateGame};
@@ -59,22 +58,25 @@ begin
{$IFDEF DEBUG}
ReportMemoryLeaksOnShutdown := True;
{$ENDIF}
- if WebRequestHandler <> nil then
- WebRequestHandler.WebModuleClass := OBS_Doc_Player;
- Application.Initialize;
- Application.CreateForm(TTTW_Bot, TTW_Bot);
- Application.CreateForm(TfCreateGame, fCreateGame);
- Application.OnException := TTW_Bot.GlobalExceptionHandler;
- Application.CreateForm(TfCreateChat, fCreateChat);
- Application.CreateForm(TfCreateNotify, fCreateNotify);
- Application.CreateForm(TfrmQ, frmQ);
- Application.CreateForm(TfShowText, fShowText);
- Application.CreateForm(TOBS_Doc_Player, OBS_Doc_Player);
- Application.CreateForm(TfCreateChat, fCreateChat);
- Application.CreateForm(TfCreateNotify, fCreateNotify);
- Application.CreateForm(TfShowText, fShowText);
- Application.CreateForm(TfrmQ, frmQ);
- Application.Run;
+ Application.Initialize;
+
+ if WebRequestHandler <> nil then
+ WebRequestHandler.WebModuleClass := OBS_Doc_Player;
+
+ Application.CreateForm(TTTW_Bot, TTW_Bot);
+ Application.CreateForm(TfCreateGame, fCreateGame);
+ Application.OnException := TTW_Bot.GlobalExceptionHandler;
+ Application.CreateForm(TfCreateChat, fCreateChat);
+ Application.CreateForm(TfCreateNotify, fCreateNotify);
+ Application.CreateForm(TfrmQ, frmQ);
+ Application.CreateForm(TfShowText, fShowText);
+ Application.CreateForm(TOBS_Doc_Player, OBS_Doc_Player);
+ Application.CreateForm(TfrmQ, frmQ);
+ if Assigned(TTW_Bot) then
+ Application.OnException := TTW_Bot.GlobalExceptionHandler;
+ Application.Run;
+
+
end.
diff --git a/TTW_Bot_app.dproj b/TTW_Bot_app.dproj
index 255e424..e9b8931 100644
--- a/TTW_Bot_app.dproj
+++ b/TTW_Bot_app.dproj
@@ -5,50 +5,15 @@
FMX
True
Release
- Win32
+ Win64
TTW_Bot_app
- 693395
+ 3
Application
TTW_Bot_app.dpr
true
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
true
Base
@@ -113,146 +78,11 @@
$(BDS)\bin\delphi_PROJECTICON.ico
$(BDS)\bin\delphi_PROJECTICNS.icns
TTW_Bot_app
-
-
- emshosting;fmx;DbxCommonDriver;bindengine;IndyIPCommon;emsclient;FireDACCommonDriver;IndyProtocols;dbxcds;IndyIPClient;FmxTeeUI;emsedge;bindcompfmx;ibmonitor;FireDACSqliteDriver;DbxClientDriver;soapmidas;fmxFireDAC;dbexpress;inet;DataSnapCommon;fmxase;dbrtl;FireDACDBXDriver;CustomIPTransport;DBXInterBaseDriver;IndySystem;ibxbindings;bindcomp;FireDACCommon;emsserverresource;inetstn;IndyCore;RESTBackendComponents;bindcompdbx;rtl;RESTComponents;DBXSqliteDriver;dsnapxml;IndyIPServer;DataSnapClient;DataSnapProviderClient;DataSnapFireDAC;emsclientfiredac;FireDAC;FireDACDSDriver;xmlrtl;tethering;ibxpress;dsnap;CloudService;DataSnapNativeClient;FMXTee;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
- package=com.embarcadero.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.0;persistent=False;restoreAnyVersion=False;installLocation=auto;largeHeap=False;theme=TitleBar;hardwareAccelerated=true;apiKey=;minSdkVersion=23;targetSdkVersion=35
- Debug
- true
- $(BDS)\bin\Artwork\Android\FM_LauncherIcon_36x36.png
- $(BDS)\bin\Artwork\Android\FM_LauncherIcon_48x48.png
- $(BDS)\bin\Artwork\Android\FM_LauncherIcon_72x72.png
- $(BDS)\bin\Artwork\Android\FM_LauncherIcon_96x96.png
- $(BDS)\bin\Artwork\Android\FM_LauncherIcon_144x144.png
- $(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png
- $(BDS)\bin\Artwork\Android\FM_SplashImage_426x320.png
- $(BDS)\bin\Artwork\Android\FM_SplashImage_470x320.png
- $(BDS)\bin\Artwork\Android\FM_SplashImage_640x480.png
- $(BDS)\bin\Artwork\Android\FM_SplashImage_960x720.png
- true
- true
- $(BDS)\bin\Artwork\Android\FM_AdaptiveIcon_Monochrome.xml
- $(BDS)\bin\Artwork\Android\FM_AdaptiveIcon_Foreground.xml
- $(BDS)\bin\Artwork\Android\FM_AdaptiveIcon_Background.xml
- $(BDS)\bin\Artwork\Android\FM_VectorizedSplash.xml
- $(BDS)\bin\Artwork\Android\FM_VectorizedSplashDark.xml
- $(BDS)\bin\Artwork\Android\FM_VectorizedSplashV31.xml
- $(BDS)\bin\Artwork\Android\FM_VectorizedSplashV31Dark.xml
- $(BDS)\bin\Artwork\Android\FM_NotificationIcon_24x24.png
- $(BDS)\bin\Artwork\Android\FM_NotificationIcon_36x36.png
- $(BDS)\bin\Artwork\Android\FM_NotificationIcon_48x48.png
- $(BDS)\bin\Artwork\Android\FM_NotificationIcon_72x72.png
- $(BDS)\bin\Artwork\Android\FM_NotificationIcon_96x96.png
- false
- true
- $(BDS)\bin\Artwork\Android\FM_VectorizedNotificationIcon.xml
- activity-1.7.2.dex.jar;annotation-experimental-1.4.1.dex.jar;annotation-jvm-1.8.1.dex.jar;annotations-13.0.dex.jar;appcompat-1.2.0.dex.jar;appcompat-resources-1.2.0.dex.jar;billing-7.1.1.dex.jar;biometric-1.1.0.dex.jar;browser-1.4.0.dex.jar;cloud-messaging.dex.jar;collection-jvm-1.4.2.dex.jar;concurrent-futures-1.1.0.dex.jar;core-1.15.0.dex.jar;core-common-2.2.0.dex.jar;core-ktx-1.15.0.dex.jar;core-runtime-2.2.0.dex.jar;cursoradapter-1.0.0.dex.jar;customview-1.0.0.dex.jar;documentfile-1.0.0.dex.jar;drawerlayout-1.0.0.dex.jar;error_prone_annotations-2.9.0.dex.jar;exifinterface-1.3.6.dex.jar;firebase-annotations-16.2.0.dex.jar;firebase-common-20.3.1.dex.jar;firebase-components-17.1.0.dex.jar;firebase-datatransport-18.1.7.dex.jar;firebase-encoders-17.0.0.dex.jar;firebase-encoders-json-18.0.0.dex.jar;firebase-encoders-proto-16.0.0.dex.jar;firebase-iid-interop-17.1.0.dex.jar;firebase-installations-17.1.3.dex.jar;firebase-installations-interop-17.1.0.dex.jar;firebase-measurement-connector-19.0.0.dex.jar;firebase-messaging-23.1.2.dex.jar;fmx.dex.jar;fragment-1.2.5.dex.jar;google-play-licensing.dex.jar;interpolator-1.0.0.dex.jar;javax.inject-1.dex.jar;kotlin-stdlib-1.8.22.dex.jar;kotlin-stdlib-common-1.8.22.dex.jar;kotlin-stdlib-jdk7-1.8.22.dex.jar;kotlin-stdlib-jdk8-1.8.22.dex.jar;kotlinx-coroutines-android-1.6.4.dex.jar;kotlinx-coroutines-core-jvm-1.6.4.dex.jar;legacy-support-core-utils-1.0.0.dex.jar;lifecycle-common-2.6.2.dex.jar;lifecycle-livedata-2.6.2.dex.jar;lifecycle-livedata-core-2.6.2.dex.jar;lifecycle-runtime-2.6.2.dex.jar;lifecycle-service-2.6.2.dex.jar;lifecycle-viewmodel-2.6.2.dex.jar;lifecycle-viewmodel-savedstate-2.6.2.dex.jar;listenablefuture-1.0.dex.jar;loader-1.0.0.dex.jar;localbroadcastmanager-1.0.0.dex.jar;okio-jvm-3.4.0.dex.jar;play-services-ads-22.2.0.dex.jar;play-services-ads-base-22.2.0.dex.jar;play-services-ads-identifier-18.0.0.dex.jar;play-services-ads-lite-22.2.0.dex.jar;play-services-appset-16.0.1.dex.jar;play-services-base-18.5.0.dex.jar;play-services-basement-18.4.0.dex.jar;play-services-cloud-messaging-17.0.1.dex.jar;play-services-location-21.0.1.dex.jar;play-services-maps-18.1.0.dex.jar;play-services-measurement-base-20.1.2.dex.jar;play-services-measurement-sdk-api-20.1.2.dex.jar;play-services-stats-17.0.2.dex.jar;play-services-tasks-18.2.0.dex.jar;print-1.0.0.dex.jar;profileinstaller-1.3.0.dex.jar;room-common-2.2.5.dex.jar;room-runtime-2.2.5.dex.jar;savedstate-1.2.1.dex.jar;sqlite-2.1.0.dex.jar;sqlite-framework-2.1.0.dex.jar;startup-runtime-1.1.1.dex.jar;tracing-1.2.0.dex.jar;transport-api-3.0.0.dex.jar;transport-backend-cct-3.1.8.dex.jar;transport-runtime-3.1.8.dex.jar;user-messaging-platform-2.0.0.dex.jar;vectordrawable-1.1.0.dex.jar;vectordrawable-animated-1.1.0.dex.jar;versionedparcelable-1.1.1.dex.jar;viewpager-1.0.0.dex.jar;work-runtime-2.7.0.dex.jar
-
-
- emshosting;fmx;DbxCommonDriver;bindengine;IndyIPCommon;emsclient;FireDACCommonDriver;IndyProtocols;dbxcds;IndyIPClient;FmxTeeUI;emsedge;bindcompfmx;ibmonitor;FireDACSqliteDriver;DbxClientDriver;soapmidas;fmxFireDAC;dbexpress;inet;DataSnapCommon;dbrtl;FireDACDBXDriver;CustomIPTransport;DBXInterBaseDriver;IndySystem;ibxbindings;bindcomp;FireDACCommon;emsserverresource;inetstn;IndyCore;RESTBackendComponents;bindcompdbx;rtl;RESTComponents;DBXSqliteDriver;dsnapxml;IndyIPServer;DataSnapClient;DataSnapProviderClient;DataSnapFireDAC;emsclientfiredac;FireDAC;FireDACDSDriver;xmlrtl;tethering;ibxpress;dsnap;CloudService;DataSnapNativeClient;FMXTee;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
- package=com.embarcadero.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.0;persistent=False;restoreAnyVersion=False;installLocation=auto;largeHeap=False;theme=TitleBar;hardwareAccelerated=true;apiKey=;minSdkVersion=23;targetSdkVersion=35
- Debug
- true
- $(BDS)\bin\Artwork\Android\FM_LauncherIcon_36x36.png
- $(BDS)\bin\Artwork\Android\FM_LauncherIcon_48x48.png
- $(BDS)\bin\Artwork\Android\FM_LauncherIcon_72x72.png
- $(BDS)\bin\Artwork\Android\FM_LauncherIcon_96x96.png
- $(BDS)\bin\Artwork\Android\FM_LauncherIcon_144x144.png
- $(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png
- $(BDS)\bin\Artwork\Android\FM_SplashImage_426x320.png
- $(BDS)\bin\Artwork\Android\FM_SplashImage_470x320.png
- $(BDS)\bin\Artwork\Android\FM_SplashImage_640x480.png
- $(BDS)\bin\Artwork\Android\FM_SplashImage_960x720.png
- true
- true
- $(BDS)\bin\Artwork\Android\FM_AdaptiveIcon_Monochrome.xml
- $(BDS)\bin\Artwork\Android\FM_AdaptiveIcon_Foreground.xml
- $(BDS)\bin\Artwork\Android\FM_AdaptiveIcon_Background.xml
- $(BDS)\bin\Artwork\Android\FM_VectorizedSplash.xml
- $(BDS)\bin\Artwork\Android\FM_VectorizedSplashDark.xml
- $(BDS)\bin\Artwork\Android\FM_VectorizedSplashV31.xml
- $(BDS)\bin\Artwork\Android\FM_VectorizedSplashV31Dark.xml
- $(BDS)\bin\Artwork\Android\FM_NotificationIcon_24x24.png
- $(BDS)\bin\Artwork\Android\FM_NotificationIcon_36x36.png
- $(BDS)\bin\Artwork\Android\FM_NotificationIcon_48x48.png
- $(BDS)\bin\Artwork\Android\FM_NotificationIcon_72x72.png
- $(BDS)\bin\Artwork\Android\FM_NotificationIcon_96x96.png
- false
- true
- $(BDS)\bin\Artwork\Android\FM_VectorizedNotificationIcon.xml
- activity-1.7.2.dex.jar;annotation-experimental-1.4.1.dex.jar;annotation-jvm-1.8.1.dex.jar;annotations-13.0.dex.jar;appcompat-1.2.0.dex.jar;appcompat-resources-1.2.0.dex.jar;billing-7.1.1.dex.jar;biometric-1.1.0.dex.jar;browser-1.4.0.dex.jar;cloud-messaging.dex.jar;collection-jvm-1.4.2.dex.jar;concurrent-futures-1.1.0.dex.jar;core-1.15.0.dex.jar;core-common-2.2.0.dex.jar;core-ktx-1.15.0.dex.jar;core-runtime-2.2.0.dex.jar;cursoradapter-1.0.0.dex.jar;customview-1.0.0.dex.jar;documentfile-1.0.0.dex.jar;drawerlayout-1.0.0.dex.jar;error_prone_annotations-2.9.0.dex.jar;exifinterface-1.3.6.dex.jar;firebase-annotations-16.2.0.dex.jar;firebase-common-20.3.1.dex.jar;firebase-components-17.1.0.dex.jar;firebase-datatransport-18.1.7.dex.jar;firebase-encoders-17.0.0.dex.jar;firebase-encoders-json-18.0.0.dex.jar;firebase-encoders-proto-16.0.0.dex.jar;firebase-iid-interop-17.1.0.dex.jar;firebase-installations-17.1.3.dex.jar;firebase-installations-interop-17.1.0.dex.jar;firebase-measurement-connector-19.0.0.dex.jar;firebase-messaging-23.1.2.dex.jar;fmx.dex.jar;fragment-1.2.5.dex.jar;google-play-licensing.dex.jar;interpolator-1.0.0.dex.jar;javax.inject-1.dex.jar;kotlin-stdlib-1.8.22.dex.jar;kotlin-stdlib-common-1.8.22.dex.jar;kotlin-stdlib-jdk7-1.8.22.dex.jar;kotlin-stdlib-jdk8-1.8.22.dex.jar;kotlinx-coroutines-android-1.6.4.dex.jar;kotlinx-coroutines-core-jvm-1.6.4.dex.jar;legacy-support-core-utils-1.0.0.dex.jar;lifecycle-common-2.6.2.dex.jar;lifecycle-livedata-2.6.2.dex.jar;lifecycle-livedata-core-2.6.2.dex.jar;lifecycle-runtime-2.6.2.dex.jar;lifecycle-service-2.6.2.dex.jar;lifecycle-viewmodel-2.6.2.dex.jar;lifecycle-viewmodel-savedstate-2.6.2.dex.jar;listenablefuture-1.0.dex.jar;loader-1.0.0.dex.jar;localbroadcastmanager-1.0.0.dex.jar;okio-jvm-3.4.0.dex.jar;play-services-ads-22.2.0.dex.jar;play-services-ads-base-22.2.0.dex.jar;play-services-ads-identifier-18.0.0.dex.jar;play-services-ads-lite-22.2.0.dex.jar;play-services-appset-16.0.1.dex.jar;play-services-base-18.5.0.dex.jar;play-services-basement-18.4.0.dex.jar;play-services-cloud-messaging-17.0.1.dex.jar;play-services-location-21.0.1.dex.jar;play-services-maps-18.1.0.dex.jar;play-services-measurement-base-20.1.2.dex.jar;play-services-measurement-sdk-api-20.1.2.dex.jar;play-services-stats-17.0.2.dex.jar;play-services-tasks-18.2.0.dex.jar;print-1.0.0.dex.jar;profileinstaller-1.3.0.dex.jar;room-common-2.2.5.dex.jar;room-runtime-2.2.5.dex.jar;savedstate-1.2.1.dex.jar;sqlite-2.1.0.dex.jar;sqlite-framework-2.1.0.dex.jar;startup-runtime-1.1.1.dex.jar;tracing-1.2.0.dex.jar;transport-api-3.0.0.dex.jar;transport-backend-cct-3.1.8.dex.jar;transport-runtime-3.1.8.dex.jar;user-messaging-platform-2.0.0.dex.jar;vectordrawable-1.1.0.dex.jar;vectordrawable-animated-1.1.0.dex.jar;versionedparcelable-1.1.1.dex.jar;viewpager-1.0.0.dex.jar;work-runtime-2.7.0.dex.jar
-
-
- emshosting;fmx;DbxCommonDriver;bindengine;IndyIPCommon;emsclient;FireDACCommonDriver;IndyProtocols;dbxcds;IndyIPClient;FmxTeeUI;emsedge;bindcompfmx;ibmonitor;FireDACSqliteDriver;DbxClientDriver;soapmidas;fmxFireDAC;dbexpress;inet;DataSnapCommon;fmxase;dbrtl;FireDACDBXDriver;CustomIPTransport;DBXInterBaseDriver;IndySystem;ibxbindings;bindcomp;FireDACCommon;emsserverresource;inetstn;IndyCore;RESTBackendComponents;bindcompdbx;rtl;RESTComponents;DBXSqliteDriver;dsnapxml;IndyIPServer;DataSnapClient;DataSnapProviderClient;DataSnapFireDAC;emsclientfiredac;FireDAC;FireDACDSDriver;xmlrtl;tethering;ibxpress;dsnap;CloudService;DataSnapNativeClient;FMXTee;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
- CFBundleName=$(MSBuildProjectName);CFBundleDevelopmentRegion=en;CFBundleDisplayName=$(MSBuildProjectName);CFBundleIdentifier=$(MSBuildProjectName);CFBundleInfoDictionaryVersion=7.1;CFBundleVersion=1.0.0;CFBundleShortVersionString=1.0.0;CFBundlePackageType=APPL;CFBundleSignature=????;LSRequiresIPhoneOS=true;CFBundleAllowMixedLocalizations=YES;CFBundleExecutable=$(MSBuildProjectName);UIDeviceFamily=iPhone & iPad;NSLocationAlwaysUsageDescription=The reason for accessing the location information of the user;NSLocationWhenInUseUsageDescription=The reason for accessing the location information of the user;NSLocationAlwaysAndWhenInUseUsageDescription=The reason for accessing the location information of the user;UIBackgroundModes=;NSContactsUsageDescription=The reason for accessing the contacts;NSPhotoLibraryUsageDescription=The reason for accessing the photo library;NSPhotoLibraryAddUsageDescription=The reason for adding to the photo library;NSCameraUsageDescription=The reason for accessing the camera;NSFaceIDUsageDescription=The reason for accessing the face id;NSMicrophoneUsageDescription=The reason for accessing the microphone;NSSiriUsageDescription=The reason for accessing Siri;ITSAppUsesNonExemptEncryption=false;NSBluetoothAlwaysUsageDescription=The reason for accessing bluetooth;NSBluetoothPeripheralUsageDescription=The reason for accessing bluetooth peripherals;NSCalendarsUsageDescription=The reason for accessing the calendar data;NSRemindersUsageDescription=The reason for accessing the reminders;NSMotionUsageDescription=The reason for accessing the accelerometer;NSSpeechRecognitionUsageDescription=The reason for requesting to send user data to Apple's speech recognition servers
- iPhoneAndiPad
- true
- Debug
- $(MSBuildProjectName)
- $(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png
- $(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_120x120.png
- $(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_180x180.png
- $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_2x.png
- $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImageDark_2x.png
- $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_3x.png
- $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImageDark_3x.png
- $(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_80x80.png
- $(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_120x120.png
- $(BDS)\bin\Artwork\iOS\iPhone\FM_SettingIcon_58x58.png
- $(BDS)\bin\Artwork\iOS\iPhone\FM_SettingIcon_87x87.png
- $(BDS)\bin\Artwork\iOS\iPhone\FM_NotificationIcon_40x40.png
- $(BDS)\bin\Artwork\iOS\iPhone\FM_NotificationIcon_60x60.png
- $(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_152x152.png
- $(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_167x167.png
- $(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImage_2x.png
- $(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageDark_2x.png
- $(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_80x80.png
- $(BDS)\bin\Artwork\iOS\iPad\FM_SettingIcon_58x58.png
- $(BDS)\bin\Artwork\iOS\iPad\FM_NotificationIcon_40x40.png
-
-
- emshosting;fmx;DbxCommonDriver;bindengine;IndyIPCommon;emsclient;FireDACCommonDriver;IndyProtocols;dbxcds;IndyIPClient;FmxTeeUI;emsedge;bindcompfmx;ibmonitor;FireDACSqliteDriver;DbxClientDriver;soapmidas;fmxFireDAC;dbexpress;inet;DataSnapCommon;fmxase;dbrtl;FireDACDBXDriver;CustomIPTransport;DBXInterBaseDriver;IndySystem;ibxbindings;bindcomp;FireDACCommon;emsserverresource;inetstn;IndyCore;RESTBackendComponents;bindcompdbx;rtl;RESTComponents;DBXSqliteDriver;dsnapxml;IndyIPServer;DataSnapClient;DataSnapProviderClient;DataSnapFireDAC;emsclientfiredac;FireDAC;FireDACDSDriver;xmlrtl;tethering;ibxpress;dsnap;CloudService;DataSnapNativeClient;FMXTee;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
- CFBundleName=$(MSBuildProjectName);CFBundleDevelopmentRegion=en;CFBundleDisplayName=$(MSBuildProjectName);CFBundleIdentifier=$(MSBuildProjectName);CFBundleInfoDictionaryVersion=7.1;CFBundleVersion=1.0.0;CFBundleShortVersionString=1.0.0;CFBundlePackageType=APPL;CFBundleSignature=????;LSRequiresIPhoneOS=true;CFBundleAllowMixedLocalizations=YES;CFBundleExecutable=$(MSBuildProjectName);UIDeviceFamily=iPhone & iPad;NSLocationAlwaysUsageDescription=The reason for accessing the location information of the user;NSLocationWhenInUseUsageDescription=The reason for accessing the location information of the user;NSLocationAlwaysAndWhenInUseUsageDescription=The reason for accessing the location information of the user;UIBackgroundModes=;NSContactsUsageDescription=The reason for accessing the contacts;NSPhotoLibraryUsageDescription=The reason for accessing the photo library;NSPhotoLibraryAddUsageDescription=The reason for adding to the photo library;NSCameraUsageDescription=The reason for accessing the camera;NSFaceIDUsageDescription=The reason for accessing the face id;NSMicrophoneUsageDescription=The reason for accessing the microphone;NSSiriUsageDescription=The reason for accessing Siri;ITSAppUsesNonExemptEncryption=false;NSBluetoothAlwaysUsageDescription=The reason for accessing bluetooth;NSBluetoothPeripheralUsageDescription=The reason for accessing bluetooth peripherals;NSCalendarsUsageDescription=The reason for accessing the calendar data;NSRemindersUsageDescription=The reason for accessing the reminders;NSMotionUsageDescription=The reason for accessing the accelerometer;NSSpeechRecognitionUsageDescription=The reason for requesting to send user data to Apple's speech recognition servers
- iPhoneAndiPad
- true
- $(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png
- $(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_120x120.png
- $(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_180x180.png
- $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_2x.png
- $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImageDark_2x.png
- $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_3x.png
- $(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImageDark_3x.png
- $(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_80x80.png
- $(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_120x120.png
- $(BDS)\bin\Artwork\iOS\iPhone\FM_SettingIcon_58x58.png
- $(BDS)\bin\Artwork\iOS\iPhone\FM_SettingIcon_87x87.png
- $(BDS)\bin\Artwork\iOS\iPhone\FM_NotificationIcon_40x40.png
- $(BDS)\bin\Artwork\iOS\iPhone\FM_NotificationIcon_60x60.png
- $(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_152x152.png
- $(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_167x167.png
- $(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImage_2x.png
- $(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageDark_2x.png
- $(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_80x80.png
- $(BDS)\bin\Artwork\iOS\iPad\FM_SettingIcon_58x58.png
- $(BDS)\bin\Artwork\iOS\iPad\FM_NotificationIcon_40x40.png
-
-
- DataSnapServer;emshosting;fmx;DbxCommonDriver;bindengine;FireDACCommonODBC;emsclient;FireDACCommonDriver;IndyProtocols;dbxcds;emsedge;inetdb;FireDACSqliteDriver;DbxClientDriver;FireDACASADriver;soapmidas;dbexpress;FireDACInfxDriver;inet;DataSnapCommon;dbrtl;FireDACOracleDriver;CustomIPTransport;FireDACMSSQLDriver;DataSnapIndy10ServerTransport;DataSnapConnectors;FireDACMongoDBDriver;IndySystem;FireDACTDataDriver;bindcomp;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;emsserverresource;inetstn;IndyCore;RESTBackendComponents;rtl;FireDACMySQLDriver;FireDACADSDriver;RESTComponents;dsnapxml;DataSnapClient;DataSnapFireDAC;emsclientfiredac;FireDACPgDriver;FireDAC;xmlrtl;dsnap;CloudService;FireDACDb2Driver;DataSnapNativeClient;DatasnapConnectorsFreePascal;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
-
-
- DataSnapServer;emshosting;fmx;DbxCommonDriver;bindengine;FireDACCommonODBC;IndyIPCommon;emsclient;FireDACCommonDriver;IndyProtocols;dbxcds;IndyIPClient;FmxTeeUI;emsedge;bindcompfmx;DBXFirebirdDriver;inetdb;ibmonitor;FireDACSqliteDriver;DbxClientDriver;FireDACASADriver;soapmidas;fmxFireDAC;dbexpress;DBXMySQLDriver;inet;DataSnapCommon;fmxase;dbrtl;FireDACOracleDriver;FireDACDBXDriver;fmxdae;CustomIPTransport;FireDACMSSQLDriver;DataSnapIndy10ServerTransport;DBXInterBaseDriver;FireDACMongoDBDriver;IndySystem;FireDACTDataDriver;ibxbindings;bindcomp;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;emsserverresource;inetstn;IndyCore;RESTBackendComponents;bindcompdbx;rtl;FireDACMySQLDriver;RESTComponents;DBXSqliteDriver;dsnapxml;IndyIPServer;DataSnapClient;DataSnapProviderClient;DataSnapFireDAC;emsclientfiredac;FireDACPgDriver;FireDAC;FireDACDSDriver;inetdbxpress;xmlrtl;tethering;ibxpress;dsnap;DBXSybaseASADriver;CloudService;DBXOracleDriver;DBXInformixDriver;DataSnapNativeClient;fmxobj;FMXTee;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
- CFBundleName=$(MSBuildProjectName);CFBundleDisplayName=$(MSBuildProjectName);CFBundleIdentifier=$(MSBuildProjectName);CFBundleVersion=1.0.0;CFBundleShortVersionString=1.0.0;CFBundlePackageType=APPL;CFBundleSignature=????;CFBundleAllowMixedLocalizations=YES;CFBundleExecutable=$(MSBuildProjectName);NSHighResolutionCapable=true;LSApplicationCategoryType=public.app-category.utilities;NSLocationUsageDescription=The reason for accessing the location information of the user;NSContactsUsageDescription=The reason for accessing the contacts;NSCalendarsUsageDescription=The reason for accessing the calendar data;NSRemindersUsageDescription=The reason for accessing the reminders;NSCameraUsageDescription=The reason for accessing the camera;NSMicrophoneUsageDescription=The reason for accessing the microphone;NSMotionUsageDescription=The reason for accessing the accelerometer;NSDesktopFolderUsageDescription=The reason for accessing the Desktop folder;NSDocumentsFolderUsageDescription=The reason for accessing the Documents folder;NSDownloadsFolderUsageDescription=The reason for accessing the Downloads folder;NSNetworkVolumesUsageDescription=The reason for accessing files on a network volume;NSRemovableVolumesUsageDescription=The reason for accessing files on a removable volume;NSSpeechRecognitionUsageDescription=The reason for requesting to send user data to Apple's speech recognition servers;ITSAppUsesNonExemptEncryption=false;NSBluetoothAlwaysUsageDescription=The reason for accessing the Bluetooth interface
- Debug
- true
-
-
- DataSnapServer;emshosting;fmx;DbxCommonDriver;bindengine;FireDACCommonODBC;IndyIPCommon;emsclient;FireDACCommonDriver;IndyProtocols;dbxcds;IndyIPClient;FmxTeeUI;emsedge;bindcompfmx;DBXFirebirdDriver;inetdb;ibmonitor;FireDACSqliteDriver;DbxClientDriver;FireDACASADriver;soapmidas;fmxFireDAC;dbexpress;DBXMySQLDriver;inet;DataSnapCommon;fmxase;dbrtl;FireDACOracleDriver;FireDACDBXDriver;fmxdae;CustomIPTransport;FireDACMSSQLDriver;DataSnapIndy10ServerTransport;DBXInterBaseDriver;FireDACMongoDBDriver;IndySystem;FireDACTDataDriver;ibxbindings;bindcomp;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;emsserverresource;inetstn;IndyCore;RESTBackendComponents;bindcompdbx;rtl;FireDACMySQLDriver;RESTComponents;DBXSqliteDriver;dsnapxml;IndyIPServer;DataSnapClient;DataSnapProviderClient;DataSnapFireDAC;emsclientfiredac;FireDACPgDriver;FireDAC;FireDACDSDriver;inetdbxpress;xmlrtl;tethering;ibxpress;dsnap;DBXSybaseASADriver;CloudService;DBXOracleDriver;DBXInformixDriver;DataSnapNativeClient;fmxobj;FMXTee;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
- CFBundleName=$(MSBuildProjectName);CFBundleDisplayName=$(MSBuildProjectName);CFBundleIdentifier=$(MSBuildProjectName);CFBundleVersion=1.0.0;CFBundleShortVersionString=1.0.0;CFBundlePackageType=APPL;CFBundleSignature=????;CFBundleAllowMixedLocalizations=YES;CFBundleExecutable=$(MSBuildProjectName);NSHighResolutionCapable=true;LSApplicationCategoryType=public.app-category.utilities;NSLocationUsageDescription=The reason for accessing the location information of the user;NSContactsUsageDescription=The reason for accessing the contacts;NSCalendarsUsageDescription=The reason for accessing the calendar data;NSRemindersUsageDescription=The reason for accessing the reminders;NSCameraUsageDescription=The reason for accessing the camera;NSMicrophoneUsageDescription=The reason for accessing the microphone;NSMotionUsageDescription=The reason for accessing the accelerometer;NSDesktopFolderUsageDescription=The reason for accessing the Desktop folder;NSDocumentsFolderUsageDescription=The reason for accessing the Documents folder;NSDownloadsFolderUsageDescription=The reason for accessing the Downloads folder;NSNetworkVolumesUsageDescription=The reason for accessing files on a network volume;NSRemovableVolumesUsageDescription=The reason for accessing files on a removable volume;NSSpeechRecognitionUsageDescription=The reason for requesting to send user data to Apple's speech recognition servers;ITSAppUsesNonExemptEncryption=false;NSBluetoothAlwaysUsageDescription=The reason for accessing the Bluetooth interface
- Debug
- true
+ 1049
+ CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=
- DataSnapServer;vclwinx;emshosting;fmx;DbxCommonDriver;vclie;bindengine;VCLRESTComponents;FireDACCommonODBC;DBXMSSQLDriver;IndyIPCommon;emsclient;FireDACCommonDriver;appanalytics;IndyProtocols;vclx;Skia.Package.RTL;dbxcds;vcledge;IndyIPClient;bindcompvclwinx;FmxTeeUI;emsedge;bindcompfmx;DBXFirebirdDriver;inetdb;ibmonitor;FireDACSqliteDriver;DbxClientDriver;FireDACASADriver;Tee;soapmidas;vclactnband;TeeUI;fmxFireDAC;dbexpress;FireDACInfxDriver;DBXMySQLDriver;VclSmp;inet;DataSnapCommon;fmxase;vcltouch;DBXOdbcDriver;dbrtl;FireDACOracleDriver;FireDACDBXDriver;Skia.Package.FMX;fmxdae;TeeDB;FireDACMSAccDriver;CustomIPTransport;FireDACMSSQLDriver;DataSnapIndy10ServerTransport;DataSnapConnectors;DBXInterBaseDriver;vcldsnap;FireDACMongoDBDriver;IndySystem;FireDACTDataDriver;Skia.Package.VCL;vcldb;ibxbindings;vclFireDAC;bindcomp;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;emsserverresource;inetstn;IndyCore;RESTBackendComponents;bindcompdbx;rtl;FireDACMySQLDriver;FireDACADSDriver;RESTComponents;DBXSqliteDriver;vcl;adortl;dsnapxml;IndyIPServer;DataSnapClient;DataSnapProviderClient;dsnapcon;DBXSybaseASEDriver;DBXDb2Driver;vclimg;DataSnapFireDAC;emsclientfiredac;FireDACPgDriver;FireDAC;FireDACDSDriver;inetdbxpress;xmlrtl;tethering;ibxpress;bindcompvcl;dsnap;DBXSybaseASADriver;CloudService;DBXOracleDriver;FireDACDb2Driver;DBXInformixDriver;vclib;DataSnapNativeClient;bindcompvclsmp;fmxobj;FMXTee;DatasnapConnectorsFreePascal;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
+ DataSnapServer;vclwinx;emshosting;fmx;DbxCommonDriver;vclie;bindengine;VCLRESTComponents;FireDACCommonODBC;DBXMSSQLDriver;IndyIPCommon;emsclient;FireDACCommonDriver;appanalytics;IndyProtocols;vclx;Skia.Package.RTL;dbxcds;vcledge;IndyIPClient;bindcompvclwinx;FmxTeeUI;emsedge;bindcompfmx;DBXFirebirdDriver;inetdb;FireDACSqliteDriver;DbxClientDriver;FireDACASADriver;soapmidas;vclactnband;fmxFireDAC;dbexpress;FireDACInfxDriver;DBXMySQLDriver;VclSmp;inet;DataSnapCommon;fmxase;vcltouch;DBXOdbcDriver;dbrtl;FireDACOracleDriver;FireDACDBXDriver;Skia.Package.FMX;fmxdae;FireDACMSAccDriver;CustomIPTransport;FireDACMSSQLDriver;DataSnapIndy10ServerTransport;DataSnapConnectors;DBXInterBaseDriver;vcldsnap;FireDACMongoDBDriver;IndySystem;FireDACTDataDriver;Skia.Package.VCL;vcldb;vclFireDAC;bindcomp;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;emsserverresource;IndyCore;RESTBackendComponents;bindcompdbx;rtl;FireDACMySQLDriver;FireDACADSDriver;RESTComponents;DBXSqliteDriver;vcl;adortl;dsnapxml;IndyIPServer;DataSnapClient;DataSnapProviderClient;dsnapcon;DBXSybaseASEDriver;DBXDb2Driver;vclimg;DataSnapFireDAC;emsclientfiredac;FireDACPgDriver;FireDAC;FireDACDSDriver;inetdbxpress;xmlrtl;tethering;bindcompvcl;dsnap;DBXSybaseASADriver;CloudService;DBXOracleDriver;FireDACDb2Driver;DBXInformixDriver;vclib;DataSnapNativeClient;bindcompvclsmp;fmxobj;FMXTee;DatasnapConnectorsFreePascal;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)
Debug
true
@@ -263,7 +93,7 @@
$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png
- DataSnapServer;vclwinx;emshosting;fmx;DbxCommonDriver;vclie;bindengine;VCLRESTComponents;FireDACCommonODBC;DBXMSSQLDriver;IndyIPCommon;emsclient;FireDACCommonDriver;appanalytics;IndyProtocols;vclx;dbxcds;vcledge;IndyIPClient;bindcompvclwinx;FmxTeeUI;emsedge;bindcompfmx;DBXFirebirdDriver;inetdb;ibmonitor;FireDACSqliteDriver;DbxClientDriver;FireDACASADriver;Tee;soapmidas;vclactnband;TeeUI;fmxFireDAC;dbexpress;FireDACInfxDriver;DBXMySQLDriver;VclSmp;inet;DataSnapCommon;fmxase;vcltouch;DBXOdbcDriver;dbrtl;FireDACOracleDriver;FireDACDBXDriver;fmxdae;TeeDB;FireDACMSAccDriver;CustomIPTransport;FireDACMSSQLDriver;DataSnapIndy10ServerTransport;DataSnapConnectors;DBXInterBaseDriver;vcldsnap;FireDACMongoDBDriver;IndySystem;FireDACTDataDriver;Skia.Package.VCL;vcldb;ibxbindings;vclFireDAC;bindcomp;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;emsserverresource;inetstn;IndyCore;RESTBackendComponents;bindcompdbx;rtl;FireDACMySQLDriver;FireDACADSDriver;RESTComponents;DBXSqliteDriver;vcl;adortl;dsnapxml;IndyIPServer;DataSnapClient;DataSnapProviderClient;dsnapcon;DBXSybaseASEDriver;DBXDb2Driver;vclimg;DataSnapFireDAC;emsclientfiredac;FireDACPgDriver;FireDAC;FireDACDSDriver;inetdbxpress;xmlrtl;tethering;ibxpress;bindcompvcl;dsnap;DBXSybaseASADriver;CloudService;DBXOracleDriver;FireDACDb2Driver;DBXInformixDriver;vclib;DataSnapNativeClient;bindcompvclsmp;fmxobj;FMXTee;DatasnapConnectorsFreePascal;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
+ DataSnapServer;vclwinx;emshosting;fmx;DbxCommonDriver;vclie;bindengine;VCLRESTComponents;FireDACCommonODBC;DBXMSSQLDriver;IndyIPCommon;emsclient;FireDACCommonDriver;appanalytics;IndyProtocols;vclx;dbxcds;vcledge;IndyIPClient;bindcompvclwinx;FmxTeeUI;emsedge;bindcompfmx;DBXFirebirdDriver;inetdb;FireDACSqliteDriver;DbxClientDriver;FireDACASADriver;soapmidas;vclactnband;fmxFireDAC;dbexpress;FireDACInfxDriver;DBXMySQLDriver;VclSmp;inet;DataSnapCommon;fmxase;vcltouch;DBXOdbcDriver;dbrtl;FireDACOracleDriver;FireDACDBXDriver;fmxdae;FireDACMSAccDriver;CustomIPTransport;FireDACMSSQLDriver;DataSnapIndy10ServerTransport;DataSnapConnectors;DBXInterBaseDriver;vcldsnap;FireDACMongoDBDriver;IndySystem;FireDACTDataDriver;Skia.Package.VCL;vcldb;vclFireDAC;bindcomp;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;emsserverresource;IndyCore;RESTBackendComponents;bindcompdbx;rtl;FireDACMySQLDriver;FireDACADSDriver;RESTComponents;DBXSqliteDriver;vcl;adortl;dsnapxml;IndyIPServer;DataSnapClient;DataSnapProviderClient;dsnapcon;DBXSybaseASEDriver;DBXDb2Driver;vclimg;DataSnapFireDAC;emsclientfiredac;FireDACPgDriver;FireDAC;FireDACDSDriver;inetdbxpress;xmlrtl;tethering;bindcompvcl;dsnap;DBXSybaseASADriver;CloudService;DBXOracleDriver;FireDACDb2Driver;DBXInformixDriver;vclib;DataSnapNativeClient;bindcompvclsmp;fmxobj;FMXTee;DatasnapConnectorsFreePascal;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)
Debug
true
@@ -307,14 +137,16 @@
10
1
4
- 1049
CompanyName=PTyTb;FileDescription=$(MSBuildProjectName);FileVersion=10.1.4.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=ru.ptytb.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=
TTW_Bot_app_Icon2.ico
..\ttw_fmx_v9\fawico_44_2.png
..\ttw_fmx_v9\fawico_150_2.png
+ true
PerMonitorV2
+ true
+ 1033
@@ -322,88 +154,70 @@
- fmx
TFrame
- fmx
TFrame
- fmx
TFrame
- fmx
TFrame
- fmx
TFrame
- fmx
TFrame
- fmx
TFrame
- fmx
TFrame
- fmx
TFrame
- fmx
TFrame
- fmx
TFrame
- fmx
TFrame
- fmx
TFrame
- fmx
- fmx
- fmx
- fmx
- fmx
@@ -419,7 +233,6 @@
- dfm
TWebModule
@@ -428,7 +241,6 @@
- fmx
TFrame
@@ -437,19 +249,16 @@
- fmx
TFrame
- fmx
TFrame
- fmx
@@ -478,7 +287,7 @@
Microsoft Office XP Sample Automation Server Wrapper Components
-
+
true
@@ -564,6 +373,16 @@
0
+
+
+ classes
+ 64
+
+
+ classes
+ 64
+
+
res\xml
@@ -1206,9 +1025,6 @@
1
-
- 1
-
@@ -1504,13 +1320,6 @@
- True
- True
- True
- True
- True
- True
- True
True
True
diff --git a/Win64/Debug/TTW_Bot_app.rsm b/Win64/Debug/TTW_Bot_app.rsm
new file mode 100644
index 0000000..0428341
Binary files /dev/null and b/Win64/Debug/TTW_Bot_app.rsm differ
diff --git a/forms/uGeneral.fmx b/forms/uGeneral.fmx
index b6a8c1a..75e9ffb 100644
--- a/forms/uGeneral.fmx
+++ b/forms/uGeneral.fmx
@@ -64,6 +64,7 @@ object TTW_Bot: TTTW_Bot
inherited btnGetToken: TButton
Images = ImageList1
ImageIndex = 10
+ OnClick = frSettings1btnGetTokenClick
end
inherited btnGetClientID: TButton
Images = ImageList1
@@ -78,6 +79,7 @@ object TTW_Bot: TTTW_Bot
Images = ImageList1
ImageIndex = 10
TabOrder = 30
+ OnClick = frSettings1btnGetTokenStreamerClick
end
inherited edtBotTokenStreamer: TEdit
TabOrder = 33
@@ -90,32 +92,33 @@ object TTW_Bot: TTTW_Bot
inherited btnDAGetCode: TButton
Images = ImageList1
ImageIndex = 10
- TabOrder = 33
end
inherited Label63: TLabel
+ TabOrder = 26
+ end
+ inherited edtDAClientID: TEdit
TabOrder = 28
end
+ inherited Label64: TLabel
+ TabOrder = 27
+ end
inherited edtDAClientSecret: TEdit
TabOrder = 29
end
inherited Label65: TLabel
- TabOrder = 32
+ TabOrder = 30
end
- inherited edtDACode: TEdit
- TabOrder = 34
- end
- inherited Label66: TLabel
- TabOrder = 36
+ inherited edtDARedirectURL: TEdit
+ TabOrder = 31
end
inherited btnDAStart: TButton
Images = ImageList1
ImageIndex = 18
- TabOrder = 40
OnClick = frSettings1btnDAStartClick
end
inherited btnGetDADef: TButton
Images = ImageList1
- TabOrder = 38
+ TabOrder = 37
end
end
inherited btnOpenRomaning: TButton
@@ -130,6 +133,7 @@ object TTW_Bot: TTTW_Bot
Position.X = 8.000000000000000000
Position.Y = 351.000000000000000000
Size.Width = 201.000000000000000000
+ OnClick = frSettings1btnImportSettingsClick
end
inherited btnExportSettings: TButton
Images = ImageList1
@@ -198,7 +202,7 @@ object TTW_Bot: TTTW_Bot
TabOrder = 40
end
inherited edtKandiSecret: TEdit
- TabOrder = 42
+ TabOrder = 46
end
end
end
@@ -244,35 +248,46 @@ object TTW_Bot: TTTW_Bot
inherited btnAddUserName: TButton
Images = ImageList1
ImageIndex = 11
+ TabOrder = 38
end
inherited btnGetDateFollow: TButton
Images = ImageList1
ImageIndex = 15
+ TabOrder = 39
end
inherited btnGetAgeAccaunt: TButton
Images = ImageList1
ImageIndex = 15
+ TabOrder = 40
end
inherited btnCounterAddtoText: TButton
Images = ImageList1
ImageIndex = 23
+ TabOrder = 41
+ end
+ inherited cbCounterName: TComboBox
+ TabOrder = 42
end
inherited btnGPT: TButton
Images = ImageList1
ImageIndex = 19
+ TabOrder = 43
end
inherited btnRandomUserName: TButton
Images = ImageList1
ImageIndex = 11
+ TabOrder = 44
end
inherited btnGetChannelStat: TButton
Images = ImageList1
ImageIndex = 22
Size.Width = 136.000000000000000000
+ TabOrder = 45
end
inherited btnAIPic: TButton
Images = ImageList1
ImageIndex = 5
+ TabOrder = 46
end
end
inherited btnAddCommand: TButton
@@ -287,6 +302,9 @@ object TTW_Bot: TTTW_Bot
Images = ImageList1
ImageIndex = 12
end
+ inherited cbHelloTTS: TCheckBox
+ Position.X = 241.000000000000000000
+ end
end
end
inherited GroupBox9: TGroupBox
@@ -302,17 +320,17 @@ object TTW_Bot: TTTW_Bot
inherited btnRandomAdd: TButton
Images = ImageList1
ImageIndex = 0
- TabOrder = 29
+ TabOrder = 28
end
inherited btnRandomDel: TButton
Images = ImageList1
ImageIndex = 12
- TabOrder = 30
+ TabOrder = 29
end
inherited btnRmGroup: TButton
Images = ImageList1
ImageIndex = 4
- TabOrder = 32
+ TabOrder = 30
end
inherited Label4: TLabel
TabOrder = 33
@@ -407,8 +425,8 @@ object TTW_Bot: TTTW_Bot
end
end
inherited OpenDialog1: TOpenDialog
- Left = 664
- Top = 368
+ Left = 672
+ Top = 320
end
inherited GroupBox2: TGroupBox
TabOrder = 7
@@ -524,6 +542,14 @@ object TTW_Bot: TTTW_Bot
ImageIndex = 12
Position.X = 737.000000000000000000
end
+ inherited PopupMenu1: TPopupMenu
+ Left = 616
+ Top = 32
+ end
+ inherited OpenDialog1: TOpenDialog
+ Left = 432
+ Top = 24
+ end
inherited pVKGenerate: TPanel
Visible = True
end
@@ -634,7 +660,7 @@ object TTW_Bot: TTTW_Bot
OnClick = frOBS1btnDeleteeChatClick
end
inherited Label1: TLabel
- TabOrder = 20
+ TabOrder = 23
end
inherited btnCreateOBSNotify: TButton
Images = ImageList1
@@ -645,12 +671,11 @@ object TTW_Bot: TTTW_Bot
Images = ImageList1
ImageIndex = 5
Position.X = 264.000000000000000000
- TabOrder = 19
+ TabOrder = 22
end
inherited btnCreateOBSGame: TButton
Images = ImageList1
ImageIndex = 20
- TabOrder = 5
end
object btnCreateChat: TButton
Images = ImageList1
@@ -743,8 +768,7 @@ object TTW_Bot: TTTW_Bot
Text = ''
end
inherited OpenDialog1: TOpenDialog
- Left = 472
- Top = 32
+ Left = 424
end
end
end
@@ -785,34 +809,23 @@ object TTW_Bot: TTTW_Bot
Size.Height = 718.000000000000000000
Size.PlatformDefault = False
inherited GroupBox20: TGroupBox
- inherited edtMessage: TEdit
- TabOrder = 37
- end
- inherited edtInterval: TEdit
- TabOrder = 38
- end
inherited btnAddMessage: TButton
Images = ImageList1
ImageIndex = 0
- TabOrder = 39
end
inherited btnRmMessage: TButton
Images = ImageList1
ImageIndex = 4
- TabOrder = 40
end
inherited btnEditMessage: TButton
Images = ImageList1
ImageIndex = 3
- TabOrder = 41
end
inherited btnNotifyTest: TButton
Images = ImageList1
ImageIndex = 25
- TabOrder = 42
end
inherited sgTimers: TStringGrid
- TabOrder = 43
Viewport.Width = 463.000000000000000000
Viewport.Height = 225.000000000000000000
inherited scTimerMessage: TStringColumn
@@ -824,26 +837,19 @@ object TTW_Bot: TTTW_Bot
end
end
inherited GroupBox23: TGroupBox
- inherited edtBanWords: TEdit
- TabOrder = 37
- end
inherited btnBanWordsAdd: TButton
Images = ImageList1
ImageIndex = 0
- TabOrder = 38
end
inherited btnBanWordsEdt: TButton
Images = ImageList1
ImageIndex = 3
- TabOrder = 39
end
inherited btnBanWordsDel: TButton
Images = ImageList1
ImageIndex = 4
- TabOrder = 40
end
inherited sgBanWords: TStringGrid
- TabOrder = 41
Viewport.Width = 297.000000000000000000
Viewport.Height = 225.000000000000000000
inherited scRegEx: TStringColumn
@@ -856,26 +862,25 @@ object TTW_Bot: TTTW_Bot
Position.X = 217.000000000000000000
Size.Width = 88.000000000000000000
Size.PlatformDefault = False
- TabOrder = 42
- end
- inherited Label6: TLabel
- TabOrder = 43
end
inherited edtBanWordsCheck: TEdit
- TabOrder = 44
Size.Width = 201.000000000000000000
end
- inherited Label7: TLabel
- TabOrder = 45
- end
- inherited lBanWordsCheck: TLabel
- TabOrder = 46
- end
end
inherited GroupBox17: TGroupBox
+ inherited edtCounterName: TEdit
+ TabOrder = 41
+ end
+ inherited edtCounterTrigger: TEdit
+ TabOrder = 39
+ end
+ inherited edtCounterCount: TEdit
+ TabOrder = 38
+ end
inherited btnCounterAdd: TButton
Images = ImageList1
ImageIndex = 0
+ TabOrder = 40
OnClick = frAutoActions1btnCounterAddClick
end
inherited btnCounterDelete: TButton
@@ -889,7 +894,6 @@ object TTW_Bot: TTTW_Bot
ImageIndex = 0
Position.X = 416.000000000000000000
Size.Width = 22.000000000000000000
- TabOrder = 42
Text = ''
end
inherited btnCounterM: TButton
@@ -897,17 +901,14 @@ object TTW_Bot: TTTW_Bot
ImageIndex = 12
Position.X = 449.000000000000000000
Size.Width = 22.000000000000000000
- TabOrder = 43
Text = ''
end
inherited btnCounterEdit: TButton
Images = ImageList1
ImageIndex = 3
- TabOrder = 44
OnClick = frAutoActions1btnCounterEditClick
end
inherited sgCounter: TStringGrid
- TabOrder = 45
Viewport.Width = 463.000000000000000000
Viewport.Height = 121.000000000000000000
inherited scCounterTrigger: TStringColumn
@@ -1059,6 +1060,7 @@ object TTW_Bot: TTTW_Bot
Size.Width = 65.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
+ TextSettings.Trimming = None
Text = #1058#1086#1082#1077#1085' '#1073#1086#1090#1072':'
TabOrder = 8
end
@@ -1068,6 +1070,7 @@ object TTW_Bot: TTTW_Bot
Size.Width = 97.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
+ TextSettings.Trimming = None
Text = #1058#1086#1082#1077#1085' '#1089#1090#1088#1080#1084#1077#1088#1072':'
TabOrder = 9
end
@@ -1077,6 +1080,7 @@ object TTW_Bot: TTTW_Bot
Size.Width = 32.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
+ TextSettings.Trimming = None
Text = '0'
TabOrder = 10
end
@@ -1086,6 +1090,7 @@ object TTW_Bot: TTTW_Bot
Size.Width = 48.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
+ TextSettings.Trimming = None
Text = '0'
TabOrder = 11
end
@@ -1093,6 +1098,7 @@ object TTW_Bot: TTTW_Bot
Anchors = [akTop, akRight]
Position.X = 819.000000000000000000
Position.Y = 8.000000000000000000
+ TextSettings.Trimming = None
Text = #1054#1090#1076#1077#1083#1100#1085#1086#1077' '#1089#1087#1072#1089#1080#1073#1086':'
TabOrder = 12
end
@@ -22455,7 +22461,7 @@ object TTW_Bot: TTTW_Bot
SourceRect.Bottom = 512.000000000000000000
end>
end>
- Left = 520
- Top = 42
+ Left = 536
+ Top = 66
end
end
diff --git a/forms/uGeneral.pas b/forms/uGeneral.pas
index bc9e7cc..aee528a 100644
--- a/forms/uGeneral.pas
+++ b/forms/uGeneral.pas
@@ -93,6 +93,9 @@ type
procedure frAutoActions1btnCounterDeleteClick(Sender: TObject);
procedure frSettings1btnOpenRomaningClick(Sender: TObject);
procedure frSettings1btnOpenStreamClick(Sender: TObject);
+ procedure frSettings1btnGetTokenClick(Sender: TObject);
+ procedure frSettings1btnGetTokenStreamerClick(Sender: TObject);
+ procedure frSettings1btnImportSettingsClick(Sender: TObject);
private
{ Private declarations }
procedure toSpeech(aText: string);
@@ -890,6 +893,24 @@ begin
end;
+procedure TTTW_Bot.frSettings1btnGetTokenClick(Sender: TObject);
+begin
+ frSettings1.btnGetTokenClick(Sender);
+
+end;
+
+procedure TTTW_Bot.frSettings1btnGetTokenStreamerClick(Sender: TObject);
+begin
+ frSettings1.btnGetTokenStreamerClick(Sender);
+
+end;
+
+procedure TTTW_Bot.frSettings1btnImportSettingsClick(Sender: TObject);
+begin
+ frSettings1.btnImportSettingsClick(Sender);
+
+end;
+
procedure TTTW_Bot.frSettings1btnOpenRomaningClick(Sender: TObject);
begin
frSettings1.btnOpenRomaningClick(Sender);
diff --git a/frames/fAutoActions.fmx b/frames/fAutoActions.fmx
index 06dc42c..0aef289 100644
--- a/frames/fAutoActions.fmx
+++ b/frames/fAutoActions.fmx
@@ -12,7 +12,7 @@ object frAutoActions: TfrAutoActions
TabOrder = 1
object edtMessage: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
- TabOrder = 38
+ TabOrder = 37
Position.X = 8.000000000000000000
Position.Y = 257.000000000000000000
Size.Width = 406.000000000000000000
@@ -21,7 +21,7 @@ object frAutoActions: TfrAutoActions
end
object edtInterval: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
- TabOrder = 39
+ TabOrder = 38
Text = '10'
Position.X = 412.000000000000000000
Position.Y = 257.000000000000000000
@@ -32,7 +32,7 @@ object frAutoActions: TfrAutoActions
object btnAddMessage: TButton
Position.X = 8.000000000000000000
Position.Y = 287.000000000000000000
- TabOrder = 40
+ TabOrder = 39
Text = #1044#1086#1073#1072#1074#1080#1090#1100
TextSettings.Trimming = None
OnClick = btnAddMessageClick
@@ -40,7 +40,7 @@ object frAutoActions: TfrAutoActions
object btnRmMessage: TButton
Position.X = 184.000000000000000000
Position.Y = 287.000000000000000000
- TabOrder = 41
+ TabOrder = 40
Text = #1059#1076#1072#1083#1080#1090#1100
TextSettings.Trimming = None
OnClick = btnRmMessageClick
@@ -48,7 +48,7 @@ object frAutoActions: TfrAutoActions
object btnEditMessage: TButton
Position.X = 96.000000000000000000
Position.Y = 287.000000000000000000
- TabOrder = 42
+ TabOrder = 41
Text = #1048#1079#1084#1077#1085#1080#1090#1100
TextSettings.Trimming = None
OnClick = btnEditMessageClick
@@ -59,7 +59,7 @@ object frAutoActions: TfrAutoActions
Size.Width = 55.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
- TabOrder = 43
+ TabOrder = 42
Text = #1058#1077#1089#1090
TextSettings.Trimming = None
OnClick = btnNotifyTestClick
@@ -72,12 +72,12 @@ object frAutoActions: TfrAutoActions
Size.Width = 463.000000000000000000
Size.Height = 225.000000000000000000
Size.PlatformDefault = False
- TabOrder = 44
+ TabOrder = 43
RowCount = 0
OnEditingDone = sgTimersEditingDone
OnCellClick = sgTimersCellClick
- Viewport.Width = 459.000000000000000000
- Viewport.Height = 200.000000000000000000
+ Viewport.Width = 463.000000000000000000
+ Viewport.Height = 225.000000000000000000
object ccTimerEnable: TCheckColumn
Header = #1042#1082#1083
HeaderSettings.TextSettings.WordWrap = False
@@ -110,7 +110,7 @@ object frAutoActions: TfrAutoActions
TabOrder = 2
object edtBanWords: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
- TabOrder = 38
+ TabOrder = 37
Position.X = 8.000000000000000000
Position.Y = 257.000000000000000000
Size.Width = 297.000000000000000000
@@ -120,7 +120,7 @@ object frAutoActions: TfrAutoActions
object btnBanWordsAdd: TButton
Position.X = 8.000000000000000000
Position.Y = 367.000000000000000000
- TabOrder = 39
+ TabOrder = 38
Text = #1044#1086#1073#1072#1074#1080#1090#1100
TextSettings.Trimming = None
OnClick = btnBanWordsAddClick
@@ -128,7 +128,7 @@ object frAutoActions: TfrAutoActions
object btnBanWordsEdt: TButton
Position.X = 96.000000000000000000
Position.Y = 367.000000000000000000
- TabOrder = 40
+ TabOrder = 39
Text = #1048#1079#1084#1077#1085#1080#1090#1100
TextSettings.Trimming = None
OnClick = btnBanWordsEdtClick
@@ -136,7 +136,7 @@ object frAutoActions: TfrAutoActions
object btnBanWordsDel: TButton
Position.X = 184.000000000000000000
Position.Y = 367.000000000000000000
- TabOrder = 41
+ TabOrder = 40
Text = #1059#1076#1072#1083#1080#1090#1100
TextSettings.Trimming = None
OnClick = btnBanWordsDelClick
@@ -149,11 +149,11 @@ object frAutoActions: TfrAutoActions
Size.Width = 297.000000000000000000
Size.Height = 225.000000000000000000
Size.PlatformDefault = False
- TabOrder = 42
+ TabOrder = 41
RowCount = 0
OnCellClick = sgBanWordsCellClick
- Viewport.Width = 293.000000000000000000
- Viewport.Height = 200.000000000000000000
+ Viewport.Width = 297.000000000000000000
+ Viewport.Height = 225.000000000000000000
object scRegEx: TStringColumn
Header = #1056#1077#1075#1091#1083#1103#1088#1085#1086#1077' '#1074#1099#1088#1072#1078#1077#1085#1080#1077
HeaderSettings.TextSettings.WordWrap = False
@@ -164,7 +164,7 @@ object frAutoActions: TfrAutoActions
object btnBanWordsCheck: TButton
Position.X = 225.000000000000000000
Position.Y = 312.000000000000000000
- TabOrder = 43
+ TabOrder = 42
Text = #1055#1088#1086#1074#1077#1088#1080#1090#1100
TextSettings.Trimming = None
OnClick = btnBanWordsCheckClick
@@ -174,11 +174,11 @@ object frAutoActions: TfrAutoActions
Position.Y = 287.000000000000000000
TextSettings.Trimming = None
Text = #1055#1088#1086#1074#1077#1088#1082#1072':'
- TabOrder = 44
+ TabOrder = 43
end
object edtBanWordsCheck: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
- TabOrder = 45
+ TabOrder = 44
Position.X = 8.000000000000000000
Position.Y = 312.000000000000000000
Size.Width = 209.000000000000000000
@@ -193,14 +193,14 @@ object frAutoActions: TfrAutoActions
Size.PlatformDefault = False
TextSettings.Trimming = None
Text = #1056#1077#1079#1091#1083#1100#1090#1072#1090':'
- TabOrder = 46
+ TabOrder = 45
end
object lBanWordsCheck: TLabel
Position.X = 81.000000000000000000
Position.Y = 342.000000000000000000
TextSettings.Trimming = None
Text = #1085#1077#1090' '#1073#1072#1085#1074#1086#1088#1076#1072
- TabOrder = 47
+ TabOrder = 46
end
end
object GroupBox17: TGroupBox
@@ -213,7 +213,7 @@ object frAutoActions: TfrAutoActions
TabOrder = 0
object edtCounterName: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
- TabOrder = 41
+ TabOrder = 40
Position.X = 8.000000000000000000
Position.Y = 153.000000000000000000
Size.Width = 102.000000000000000000
@@ -222,7 +222,7 @@ object frAutoActions: TfrAutoActions
end
object edtCounterTrigger: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
- TabOrder = 39
+ TabOrder = 38
Position.X = 118.000000000000000000
Position.Y = 153.000000000000000000
Size.Width = 290.000000000000000000
@@ -231,7 +231,7 @@ object frAutoActions: TfrAutoActions
end
object edtCounterCount: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
- TabOrder = 38
+ TabOrder = 37
Text = '0'
Position.X = 416.000000000000000000
Position.Y = 153.000000000000000000
@@ -242,7 +242,7 @@ object frAutoActions: TfrAutoActions
object btnCounterAdd: TButton
Position.X = 8.000000000000000000
Position.Y = 183.000000000000000000
- TabOrder = 40
+ TabOrder = 39
Text = #1044#1086#1073#1072#1074#1080#1090#1100
TextSettings.Trimming = None
OnClick = btnCounterAddClick
@@ -250,7 +250,7 @@ object frAutoActions: TfrAutoActions
object btnCounterDelete: TButton
Position.X = 184.000000000000000000
Position.Y = 183.000000000000000000
- TabOrder = 42
+ TabOrder = 41
Text = #1059#1076#1072#1083#1080#1090#1100
TextSettings.Trimming = None
OnClick = btnCounterDeleteClick
@@ -261,7 +261,7 @@ object frAutoActions: TfrAutoActions
Size.Width = 25.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
- TabOrder = 43
+ TabOrder = 42
Text = '+'
TextSettings.Trimming = None
OnClick = btnCounterPClick
@@ -272,7 +272,7 @@ object frAutoActions: TfrAutoActions
Size.Width = 24.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
- TabOrder = 44
+ TabOrder = 43
Text = '-'
TextSettings.Trimming = None
OnClick = btnCounterMClick
@@ -280,7 +280,7 @@ object frAutoActions: TfrAutoActions
object btnCounterEdit: TButton
Position.X = 96.000000000000000000
Position.Y = 183.000000000000000000
- TabOrder = 45
+ TabOrder = 44
Text = #1048#1079#1084#1077#1085#1080#1090#1100
TextSettings.Trimming = None
OnClick = btnCounterEditClick
@@ -293,11 +293,11 @@ object frAutoActions: TfrAutoActions
Size.Width = 463.000000000000000000
Size.Height = 121.000000000000000000
Size.PlatformDefault = False
- TabOrder = 46
+ TabOrder = 45
RowCount = 0
OnCellClick = sgCounterCellClick
- Viewport.Width = 459.000000000000000000
- Viewport.Height = 96.000000000000000000
+ Viewport.Width = 463.000000000000000000
+ Viewport.Height = 121.000000000000000000
object scCounterName: TStringColumn
Header = #1053#1072#1079#1074#1072#1085#1080#1077
HeaderSettings.TextSettings.WordWrap = False
diff --git a/frames/fColorSettings.fmx b/frames/fColorSettings.fmx
index 7dd200a..e693185 100644
--- a/frames/fColorSettings.fmx
+++ b/frames/fColorSettings.fmx
@@ -12,7 +12,7 @@ object frColorSettings: TfrColorSettings
Size.Width = 120.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
- TabOrder = 39
+ TabOrder = 37
end
object cpStyleBlockColor: TColorPanel
Color = claWhite
@@ -38,25 +38,25 @@ object frColorSettings: TfrColorSettings
Position.Y = 10.000000000000000000
TextSettings.Trimming = None
Text = #1062#1074#1077#1090' '#1088#1072#1084#1082#1080
- TabOrder = 37
+ TabOrder = 36
end
object Label44: TLabel
Position.X = 177.000000000000000000
Position.Y = 120.000000000000000000
TextSettings.Trimming = None
Text = #1054#1090#1089#1090#1091#1087#1099
- TabOrder = 41
+ TabOrder = 39
end
object Label48: TLabel
Position.X = 177.000000000000000000
Position.Y = 65.000000000000000000
TextSettings.Trimming = None
Text = #1058#1086#1083#1097#1080#1085#1072' '#1088#1072#1084#1082#1080
- TabOrder = 42
+ TabOrder = 41
end
object sbStyleBlockBorderSize: TSpinBox
Touch.InteractiveGestures = [LongTap, DoubleTap]
- TabOrder = 44
+ TabOrder = 42
Cursor = crIBeam
Value = 2.000000000000000000
Position.X = 177.000000000000000000
@@ -67,7 +67,7 @@ object frColorSettings: TfrColorSettings
end
object sbStyleBlockPadding: TSpinBox
Touch.InteractiveGestures = [LongTap, DoubleTap]
- TabOrder = 45
+ TabOrder = 44
Cursor = crIBeam
Value = 10.000000000000000000
Position.X = 177.000000000000000000
diff --git a/frames/fCommands.fmx b/frames/fCommands.fmx
index 4db211c..42871a3 100644
--- a/frames/fCommands.fmx
+++ b/frames/fCommands.fmx
@@ -49,8 +49,32 @@ object frCommands: TfrCommands
Viewport.Height = 161.000000000000000000
end
inherited GroupBox7: TGroupBox
+ inherited btnAddUserName: TButton
+ TabOrder = 37
+ end
+ inherited btnGetDateFollow: TButton
+ TabOrder = 38
+ end
+ inherited btnGetAgeAccaunt: TButton
+ TabOrder = 39
+ end
+ inherited btnCounterAddtoText: TButton
+ TabOrder = 40
+ end
+ inherited cbCounterName: TComboBox
+ TabOrder = 41
+ end
+ inherited btnGPT: TButton
+ TabOrder = 42
+ end
+ inherited btnRandomUserName: TButton
+ TabOrder = 43
+ end
+ inherited btnGetChannelStat: TButton
+ TabOrder = 44
+ end
inherited btnAIPic: TButton
- TabOrder = 46
+ TabOrder = 45
end
end
inherited btnAddCommand: TButton
@@ -62,9 +86,6 @@ object frCommands: TfrCommands
inherited btnRmCommand: TButton
OnClick = frContruct1btnRmCommandClick
end
- inherited cbHelloTTS: TCheckBox
- OnClick = nil
- end
end
end
object GroupBox9: TGroupBox
@@ -94,16 +115,16 @@ object frCommands: TfrCommands
Viewport.Height = 116.000000000000000000
end
inherited btnRandomAdd: TButton
- TabOrder = 31
+ TabOrder = 30
end
inherited btnRandomDel: TButton
- TabOrder = 32
+ TabOrder = 31
end
inherited btnRmGroup: TButton
- TabOrder = 34
+ TabOrder = 33
end
inherited Label4: TLabel
- TabOrder = 36
+ TabOrder = 35
end
end
end
diff --git a/frames/fPlayerWeb.fmx b/frames/fPlayerWeb.fmx
index fc90db4..6dd5bf6 100644
--- a/frames/fPlayerWeb.fmx
+++ b/frames/fPlayerWeb.fmx
@@ -13,6 +13,7 @@ object frPlayerWeb: TfrPlayerWeb
Size.Width = 187.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
+ TextSettings.Trimming = None
Text = #1057#1089#1099#1083#1082#1072' '#1076#1083#1103' OBS '#1044#1086#1082'-'#1087#1072#1085#1077#1083#1080
TabOrder = 3
end
diff --git a/frames/fPlayerWeb.pas b/frames/fPlayerWeb.pas
index feaa66e..03f41f2 100644
--- a/frames/fPlayerWeb.pas
+++ b/frames/fPlayerWeb.pas
@@ -7,7 +7,7 @@ uses
System.Variants, FMX.Styles, IdHTTPWebBrokerBridge, IdGlobal, Web.HTTPApp,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
FMX.Controls.Presentation, FMX.Layouts, FMX.ListBox, uPlayerThread,
- bass_simple, FMX.Memo.Types, FMX.ScrollBox, FMX.Memo, FMX.Edit;
+ {bass_simple,} FMX.Memo.Types, FMX.ScrollBox, FMX.Memo, FMX.Edit;
type
TfrPlayerWeb = class(TFrame)
@@ -15,7 +15,7 @@ type
Edit1: TEdit;
private
- mp: TBassSimple;
+ { mp: TBassSimple;}
Player: TPlayerThread;
FServer: TIdHTTPWebBrokerBridge;
procedure StartServer;
@@ -33,7 +33,7 @@ begin
FServer.Active := False;
FServer.Bindings.Clear;
Player.Free;
-mp.Free;
+{mp.Free;}
end;
procedure TfrPlayerWeb.init;
diff --git a/frames/fSettings.fmx b/frames/fSettings.fmx
index 17164e4..d27c42e 100644
--- a/frames/fSettings.fmx
+++ b/frames/fSettings.fmx
@@ -173,7 +173,7 @@ object frSettings: TfrSettings
Size.PlatformDefault = False
TextSettings.Trimming = None
Text = 'API Token '#1057#1090#1088#1080#1084#1077#1088#1072
- TabOrder = 38
+ TabOrder = 37
end
object cbTTVAutoLogin: TCheckBox
Position.X = 8.000000000000000000
@@ -197,7 +197,7 @@ object frSettings: TfrSettings
object btnDAGetCode: TButton
Position.X = 200.000000000000000000
Position.Y = 216.000000000000000000
- TabOrder = 34
+ TabOrder = 33
Text = #1055#1086#1083#1091#1095#1080#1090#1100
TextSettings.Trimming = None
OnClick = btnDAGetCodeClick
@@ -207,11 +207,11 @@ object frSettings: TfrSettings
Position.Y = 24.000000000000000000
TextSettings.Trimming = None
Text = 'Client ID'
- TabOrder = 29
+ TabOrder = 28
end
object edtDAClientID: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
- TabOrder = 31
+ TabOrder = 30
Password = True
Position.X = 8.000000000000000000
Position.Y = 49.000000000000000000
@@ -225,11 +225,11 @@ object frSettings: TfrSettings
Position.Y = 79.000000000000000000
TextSettings.Trimming = None
Text = 'Client Secret'
- TabOrder = 30
+ TabOrder = 29
end
object edtDAClientSecret: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
- TabOrder = 32
+ TabOrder = 31
Password = True
Position.X = 8.000000000000000000
Position.Y = 104.000000000000000000
@@ -243,11 +243,11 @@ object frSettings: TfrSettings
Position.Y = 134.000000000000000000
TextSettings.Trimming = None
Text = 'Redirect URL'
- TabOrder = 33
+ TabOrder = 32
end
object edtDARedirectURL: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
- TabOrder = 35
+ TabOrder = 34
Password = True
Position.X = 8.000000000000000000
Position.Y = 159.000000000000000000
@@ -258,7 +258,7 @@ object frSettings: TfrSettings
end
object edtDACode: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
- TabOrder = 36
+ TabOrder = 35
Password = True
Position.X = 8.000000000000000000
Position.Y = 214.000000000000000000
@@ -271,7 +271,7 @@ object frSettings: TfrSettings
Position.Y = 189.000000000000000000
TextSettings.Trimming = None
Text = 'Code'
- TabOrder = 38
+ TabOrder = 37
end
object btnDAStart: TButton
Position.X = 8.000000000000000000
@@ -279,7 +279,7 @@ object frSettings: TfrSettings
Size.Width = 121.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
- TabOrder = 40
+ TabOrder = 39
Text = #1055#1086#1076#1082#1083#1102#1095#1080#1090#1100#1089#1103
TextSettings.Trimming = None
OnClick = btnDAStartClick
@@ -291,7 +291,7 @@ object frSettings: TfrSettings
Size.Width = 209.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
- TabOrder = 44
+ TabOrder = 43
Text = #1055#1086#1083#1091#1095#1080#1090#1100' '#1076#1072#1085#1085#1099#1077' Donation Alerts'
TextSettings.Trimming = None
Visible = False
diff --git a/frames/fTTS.fmx b/frames/fTTS.fmx
index bd1acd3..09fe21f 100644
--- a/frames/fTTS.fmx
+++ b/frames/fTTS.fmx
@@ -5,6 +5,7 @@ object frTTS: TfrTTS
object Label1: TLabel
Position.X = 8.000000000000000000
Position.Y = 8.000000000000000000
+ TextSettings.Trimming = None
Text = #1043#1086#1083#1086#1089
TabOrder = 0
end
@@ -31,6 +32,7 @@ object frTTS: TfrTTS
object Label2: TLabel
Position.X = 8.000000000000000000
Position.Y = 63.000000000000000000
+ TextSettings.Trimming = None
Text = #1058#1077#1082#1089#1090' '#1076#1083#1103' '#1086#1079#1074#1091#1095#1082#1080
TabOrder = 3
end
@@ -46,6 +48,7 @@ object frTTS: TfrTTS
object Label3: TLabel
Position.X = 8.000000000000000000
Position.Y = 118.000000000000000000
+ TextSettings.Trimming = None
Text = #1048#1089#1090#1086#1095#1085#1080#1082
TabOrder = 5
end
diff --git a/frames/fTTS.pas b/frames/fTTS.pas
index e3d39ff..4bc517a 100644
--- a/frames/fTTS.pas
+++ b/frames/fTTS.pas
@@ -6,7 +6,7 @@ uses
System.SysUtils, System.Types, System.UITypes, System.Classes,
System.Variants, winapi.shellapi,
FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
- FMX.Edit, FMX.ListBox, FMX.Controls.Presentation, uTTS, bass_simple;
+ FMX.Edit, FMX.ListBox, FMX.Controls.Presentation, uTTS;
type
TfrTTS = class(TFrame)
diff --git a/utils/uOBS_Doc_Player.pas b/utils/uOBS_Doc_Player.pas
index d034412..63f58e4 100644
--- a/utils/uOBS_Doc_Player.pas
+++ b/utils/uOBS_Doc_Player.pas
@@ -5,7 +5,7 @@ interface
uses
System.SysUtils, System.Classes, Web.HTTPApp, FMX.Types,
FMX.Controls3D, FMX.Objects3D, FMX.Controls, FMX.Forms, FMX.StdCtrls,
- FMX.Edit, FMX.ListBox, uPlayerThread, bass_simple;
+ FMX.Edit, FMX.ListBox, uPlayerThread;
type
TOBS_Doc_Player = class(TWebModule)
@@ -35,7 +35,7 @@ var
ProgressBar1: TProgressBar;
TrackBar1: TTrackBar;
ListBox1: TListBox;
- b: TBassSimple;
+
player: TPlayerThread;
mVolume: Integer;
isplay: string;
@@ -67,7 +67,7 @@ end;
procedure TOBS_Doc_Player.Button1Click(Sender: TObject);
begin
- b.Pause;
+ //b.Pause;
if isplay = '0' then
isplay := '1'
else
@@ -179,7 +179,7 @@ end;
procedure TOBS_Doc_Player.TrackBar1Change(Sender: TObject);
begin
mVolume := Round(TrackBar1.Value);
- b.Volume := mVolume;
+ //b.Volume := mVolume;
end;
procedure TOBS_Doc_Player.WebModule1DefaultHandlerAction(Sender: TObject;
@@ -217,7 +217,7 @@ begin
// Если удалось преобразовать, обновляем переменную mVolume
mVolume := VolumeValue;
// Обновляем звук на сервере (если нужно, например, через библиотеку bass)
- b.Volume := mVolume;
+ //b.Volume := mVolume;
// Возвращаем обновленное состояние на страницу
Response.Content := gethtml;
end
@@ -253,8 +253,8 @@ end;
procedure TOBS_Doc_Player.WebModuleCreate(Sender: TObject);
begin
mySoundPath := GetPathToTestExe + 'TTW_Bot\ytSongs';
- b := TBassSimple.Create(0);
- player := TPlayerThread.Create(b, mySoundPath);
+ //b := TBassSimple.Create(0);
+ player := TPlayerThread.Create({b,} mySoundPath);
player.OnAddAd := add;
player.OnSkip := del;
mVolume := 0;
@@ -266,7 +266,7 @@ end;
procedure TOBS_Doc_Player.WebModuleDestroy(Sender: TObject);
begin
player.Free;
- b.Free;
+ // b.Free;
ListBox1.Free;
end;
diff --git a/utils/uPlayerThread.pas b/utils/uPlayerThread.pas
index 19d4440..c5d799e 100644
--- a/utils/uPlayerThread.pas
+++ b/utils/uPlayerThread.pas
@@ -3,7 +3,7 @@ unit uPlayerThread;
interface
uses
- System.Classes, System.SysUtils, System.SyncObjs, System.Generics.Collections, bass_simple,
+ System.Classes, System.SysUtils, System.SyncObjs, System.Generics.Collections, {bass_simple,}
System.IOUtils, System.Types;
type
@@ -12,7 +12,7 @@ type
TPlayerThread = class(TThread)
private
- b: tbasssimple;
+ {b: tbasssimple;}
FFilesQueue: TList;
FQueueCS: TCriticalSection;
FCurrentFile: string;
@@ -29,7 +29,7 @@ type
protected
procedure Execute; override;
public
- constructor Create(var ab: tbasssimple; const aFolder: string);
+ constructor Create({var ab: tbasssimple;} const aFolder: string);
destructor Destroy; override;
procedure Skip;
property OnError: TOnError read FOnError write FOnError;
@@ -39,15 +39,15 @@ type
implementation
-constructor TPlayerThread.Create(var ab: tbasssimple; const aFolder: string);
+constructor TPlayerThread.Create({var ab: tbasssimple;} const aFolder: string);
begin
inherited Create(True);
- b := ab;
+ {b := ab;}
FMusicFolder := aFolder;
FIsPlaying := False;
- b.OnPlay := OnPlayHandler;
- b.OnStop := OnStopHandler;
- b.OnEndPlay := OnEndPlayHandler;
+ {b.OnPlay := OnPlayHandler;
+ b.OnStop := OnStopHandler;
+ b.OnEndPlay := OnEndPlayHandler;}
FFilesQueue := TList.Create;
FQueueCS := TCriticalSection.Create;
end;
@@ -103,7 +103,7 @@ begin
TThread.Synchronize(nil,
procedure
begin
- b.Play(FCurrentFile);
+ {b.Play(FCurrentFile);}
end);
FIsPlaying := True;
@@ -148,8 +148,8 @@ end;
procedure TPlayerThread.OnEndPlayHandler(Sender: TObject);
begin
try
- b.Stop;
- b.FreeStream;
+ { b.Stop;
+ b.FreeStream;}
if FileExists(FCurrentFile) then
begin
DeleteFile(FCurrentFile);
@@ -167,8 +167,8 @@ procedure TPlayerThread.Skip;
begin
if FIsPlaying then
begin
- b.Stop;
- b.FreeStream;
+{ b.Stop;
+ b.FreeStream;}
if FileExists(FCurrentFile) then
begin
DeleteFile(FCurrentFile);
diff --git a/utils/uSoundManager.pas b/utils/uSoundManager.pas
index 8570137..219492d 100644
--- a/utils/uSoundManager.pas
+++ b/utils/uSoundManager.pas
@@ -2,7 +2,7 @@ unit uSoundManager;
interface
-uses System.classes, winapi.ShellAPI, bass_simple, winapi.windows, System.SysUtils;
+uses System.classes, winapi.ShellAPI, {bass_simple,} winapi.windows, System.SysUtils;
type
TSongMachine = class(TObject)
@@ -21,20 +21,21 @@ implementation
uses uGeneral;
-var
- mp: TBassSimple;
+ { var
+mp: TBassSimple;}
{ SongMachine }
constructor TSongMachine.Create;
begin
- mp := TBassSimple.Create(0);
+inherited;
+ { mp := TBassSimple.Create(0);}
end;
destructor TSongMachine.Destroy;
begin
- mp.FreeStream;
- mp.Free;
+{ mp.FreeStream;
+ mp.Free;}
end;
function TimeToSeconds(const timeStr: string): Integer;
@@ -55,7 +56,7 @@ end;
procedure TSongMachine.PlaySilent(AFileName: string; aVolume: string);
var
sec: string;
- mm: TBassSimple;
+{ mm: TBassSimple;}
begin
try
if not FileExists(AFileName) then
@@ -63,14 +64,14 @@ begin
TTW_Bot.toLog( 'TSongMachine', 'PlayPublic', 'Нет файла ' + AFileName,2);
exit;
end;
- mm := TBassSimple.Create(0);
- try
- mm.OpenFile(AFileName);
- sec := inttostr(TimeToSeconds(mm.TimeLength) + 1);
- finally
- mm.FreeStream;
- mm.Free;
- end;
+ { mm := TBassSimple.Create(0);
+ try
+ mm.OpenFile(AFileName);
+ sec := inttostr(TimeToSeconds(mm.TimeLength) + 1);
+ finally
+ mm.FreeStream;
+ mm.Free;
+ end;}
ShellExecute(0, 'open', PChar(myConst.SilentPlay),
PChar(Format('%s %s "%s"', [sec, aVolume, AFileName])), nil, SW_HIDE);
except
@@ -87,8 +88,8 @@ begin
TTW_Bot.toLog( 'TSongMachine', 'PlayPublic', 'Нет файла ' + AFileName,2);
exit;
end;
- mp.Volume := strtoint(aVolume);
- mp.Play(AFileName)
+{ mp.Volume := strtoint(aVolume);
+ mp.Play(AFileName)}
except
on e: Exception do
TTW_Bot.toLog( 'TSongMachine', 'PlaySilent', e.message,2)
diff --git a/utils/uWebServerChat.pas b/utils/uWebServerChat.pas
index b0c8bb2..d48d369 100644
--- a/utils/uWebServerChat.pas
+++ b/utils/uWebServerChat.pas
@@ -17,7 +17,7 @@ type
type
TTTW_Chat = class(TObject)
- msgStyle: TStyleChat;
+
fFontsList: tstringlist;
IdHTTPServer1: TIdHTTPServer;
procedure IdHTTPServer1CommandGet(AContext: TIdContext;
@@ -31,6 +31,7 @@ type
function GenerateJSON: string;
procedure CleanupOldMessages;
public
+ msgStyle: TStyleChat;
constructor Create(FontList: tstrings; aPort:integer; aColor:string);
destructor Destroy;
procedure addMessage(newMsg: TStyleChat);