Skip to content

Commit afe1f3a

Browse files
rareMaximrareMaxim
committed
Interface for TTelegramBot. Splited Reciver UI to UI and Service
1 parent 81e7a5d commit afe1f3a

File tree

7 files changed

+2015
-70
lines changed

7 files changed

+2015
-70
lines changed

‎Install/TelegaPiBot.dpk‎

Lines changed: 14 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -31,26 +31,25 @@ package TelegaPiBot;
3131

3232
requires
3333
rtl,
34-
DJSON_Project,
35-
fmx;
34+
DJSON_Project;
3635

3736
contains
38-
TelegAPi.Types in '..\Source\TelegAPi.Types.pas',
39-
TelegAPi.RegisterIDE in '..\Source\TelegAPi.RegisterIDE.pas',
37+
TelegAPI.Base in '..\Source\TelegAPI.Base.pas',
4038
TelegAPI.Bot in '..\Source\TelegAPI.Bot.pas',
39+
TelegAPI.Bot.Intf in '..\Source\TelegAPI.Bot.Intf.pas',
40+
TelegAPI.Bot.Recesiver.Console in '..\Source\TelegAPI.Bot.Recesiver.Console.pas',
41+
TelegAPI.Bot.Recesiver.UI in '..\Source\TelegAPI.Bot.Recesiver.UI.pas',
42+
TelegaPi.Exceptions in '..\Source\TelegaPi.Exceptions.pas',
4143
TelegAPi.Helpers in '..\Source\TelegAPi.Helpers.pas',
42-
TelegaPi.Types.ReplyMarkups in '..\Source\TelegaPi.Types.ReplyMarkups.pas',
43-
TelegaPi.Types.InputMessageContents in '..\Source\TelegaPi.Types.InputMessageContents.pas',
44-
TelegaPi.Types.InlineQueryResults in '..\Source\TelegaPi.Types.InlineQueryResults.pas',
44+
TelegAPi.RegisterIDE in '..\Source\TelegAPi.RegisterIDE.pas',
45+
TelegAPi.Types in '..\Source\TelegAPi.Types.pas',
4546
TelegaPi.Types.Enums in '..\Source\TelegaPi.Types.Enums.pas',
46-
TelegaPi.Exceptions in '..\Source\TelegaPi.Exceptions.pas',
47-
TelegAPI.Utils.Params in '..\Source\TelegAPI.Utils.Params.pas',
48-
TelegAPI.Utils.Json in '..\Source\TelegAPI.Utils.Json.pas',
49-
TelegAPI.Bot.Recesiver.Console in '..\Source\TelegAPI.Bot.Recesiver.Console.pas',
50-
TelegAPI.Utils.Converters in '..\Source\TelegAPI.Utils.Converters.pas',
47+
TelegaPi.Types.InlineQueryResults in '..\Source\TelegaPi.Types.InlineQueryResults.pas',
48+
TelegaPi.Types.InputMessageContents in '..\Source\TelegaPi.Types.InputMessageContents.pas',
49+
TelegaPi.Types.ReplyMarkups in '..\Source\TelegaPi.Types.ReplyMarkups.pas',
5150
TelegAPI.Utils in '..\Source\TelegAPI.Utils.pas',
52-
TelegAPI.Bot.Recesiver.UI in '..\Source\TelegAPI.Bot.Recesiver.UI.pas',
53-
TelegAPI.Base in '..\Source\TelegAPI.Base.pas';
54-
51+
TelegAPI.Utils.Converters in '..\Source\TelegAPI.Utils.Converters.pas',
52+
TelegAPI.Utils.Json in '..\Source\TelegAPI.Utils.Json.pas',
53+
TelegAPI.Utils.Params in '..\Source\TelegAPI.Utils.Params.pas';
5554
end.
5655

‎Install/TelegaPiBot.dproj‎

Lines changed: 15 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -83,8 +83,8 @@ $(PreBuildEvent)]]>
8383
</PropertyGroup>
8484
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
8585
<DCC_RemoteDebug>false</DCC_RemoteDebug>
86-
<VerInfo_Build>5</VerInfo_Build>
87-
<VerInfo_Keys>CompanyName=Максим Сысоев;FileVersion=3.3.0.5;InternalName=TelegAπ;LegalCopyright=2016-2017, Maxim Sysoev;LegalTrademarks=2016-2017, Maxim Sysoev;OriginalFilename=TelegaPiBot.bpl;ProductVersion=3.3.1;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=Компонент для работы с Telegram API;ProductName=Telega Pi</VerInfo_Keys>
86+
<VerInfo_Build>6</VerInfo_Build>
87+
<VerInfo_Keys>CompanyName=Максим Сысоев;FileVersion=3.3.0.6;InternalName=TelegAπ;LegalCopyright=2016-2017, Maxim Sysoev;LegalTrademarks=2016-2017, Maxim Sysoev;OriginalFilename=TelegaPiBot.bpl;ProductVersion=3.3.1;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=Компонент для работы с Telegram API;ProductName=Telega Pi</VerInfo_Keys>
8888
<VerInfo_Locale>1033</VerInfo_Locale>
8989
</PropertyGroup>
9090
<PropertyGroup Condition="'$(Cfg_2)'!=''">
@@ -104,23 +104,23 @@ $(PreBuildEvent)]]>
104104
<DCCReference Include="TTelegramBot.dcr"/>
105105
<DCCReference Include="rtl.dcp"/>
106106
<DCCReference Include="DJSON_Project.dcp"/>
107-
<DCCReference Include="fmx.dcp"/>
108-
<DCCReference Include="..\Source\TelegAPi.Types.pas"/>
109-
<DCCReference Include="..\Source\TelegAPi.RegisterIDE.pas"/>
107+
<DCCReference Include="..\Source\TelegAPI.Base.pas"/>
110108
<DCCReference Include="..\Source\TelegAPI.Bot.pas"/>
109+
<DCCReference Include="..\Source\TelegAPI.Bot.Intf.pas"/>
110+
<DCCReference Include="..\Source\TelegAPI.Bot.Recesiver.Console.pas"/>
111+
<DCCReference Include="..\Source\TelegAPI.Bot.Recesiver.UI.pas"/>
112+
<DCCReference Include="..\Source\TelegaPi.Exceptions.pas"/>
111113
<DCCReference Include="..\Source\TelegAPi.Helpers.pas"/>
112-
<DCCReference Include="..\Source\TelegaPi.Types.ReplyMarkups.pas"/>
113-
<DCCReference Include="..\Source\TelegaPi.Types.InputMessageContents.pas"/>
114-
<DCCReference Include="..\Source\TelegaPi.Types.InlineQueryResults.pas"/>
114+
<DCCReference Include="..\Source\TelegAPi.RegisterIDE.pas"/>
115+
<DCCReference Include="..\Source\TelegAPi.Types.pas"/>
115116
<DCCReference Include="..\Source\TelegaPi.Types.Enums.pas"/>
116-
<DCCReference Include="..\Source\TelegaPi.Exceptions.pas"/>
117-
<DCCReference Include="..\Source\TelegAPI.Utils.Params.pas"/>
118-
<DCCReference Include="..\Source\TelegAPI.Utils.Json.pas"/>
119-
<DCCReference Include="..\Source\TelegAPI.Bot.Recesiver.Console.pas"/>
120-
<DCCReference Include="..\Source\TelegAPI.Utils.Converters.pas"/>
117+
<DCCReference Include="..\Source\TelegaPi.Types.InlineQueryResults.pas"/>
118+
<DCCReference Include="..\Source\TelegaPi.Types.InputMessageContents.pas"/>
119+
<DCCReference Include="..\Source\TelegaPi.Types.ReplyMarkups.pas"/>
121120
<DCCReference Include="..\Source\TelegAPI.Utils.pas"/>
122-
<DCCReference Include="..\Source\TelegAPI.Bot.Recesiver.UI.pas"/>
123-
<DCCReference Include="..\Source\TelegAPI.Base.pas"/>
121+
<DCCReference Include="..\Source\TelegAPI.Utils.Converters.pas"/>
122+
<DCCReference Include="..\Source\TelegAPI.Utils.Json.pas"/>
123+
<DCCReference Include="..\Source\TelegAPI.Utils.Params.pas"/>
124124
<BuildConfiguration Include="Base">
125125
<Key>Base</Key>
126126
</BuildConfiguration>

0 commit comments

Comments
 (0)