Some fixes.

Added: Build info
Al-Muhandis · Oct 11, 2020 · 5da71d5 · 5da71d5
1 parent 7d332fb
commit 5da71d5
Show file tree

Hide file tree

Showing 3 changed files with 17 additions and 3 deletions.
diff --git a/shellthread.pas b/shellthread.pas
@@ -446,8 +446,13 @@ procedure TShellThread.Execute;
     OutputStd;
     while not Terminated do
     begin
-      FBot.getUpdatesEx(0, FLPTimeout);
-      OutputStd;
+      try
+        FBot.getUpdatesEx(0, FLPTimeout);
+        OutputStd;
+      except
+        on E: Exception do
+          Logger.Error(E.ClassName+': '+E.Message);
+      end;
     end;
   except
     on E: Exception do

diff --git a/tgshd.lpi b/tgshd.lpi
@@ -13,6 +13,13 @@
       <UseAppBundle Value="False"/>
       <ResourceType Value="res"/>
     </General>
+    <VersionInfo>
+      <UseVersionInfo Value="True"/>
+      <AutoIncrementBuild Value="True"/>
+      <MajorVersionNr Value="1"/>
+      <MinorVersionNr Value="1"/>
+      <BuildNr Value="2"/>
+    </VersionInfo>
     <BuildModes Count="4">
       <Item1 Name="Default" Default="True"/>
       <Item2 Name="Debug">
@@ -134,7 +141,7 @@
     <RequiredPackages Count="4">
       <Item1>
         <PackageName Value="fptelegram"/>
-        <MinVersion Build="20" Valid="True"/>
+        <MinVersion Release="1" Valid="True"/>
       </Item1>
       <Item2>
         <PackageName Value="lazdaemon"/>

diff --git a/tgshd.lpr b/tgshd.lpr
@@ -9,6 +9,8 @@
 //  ,tgsynapsehttpclientbroker
   ;
 
+{$R *.res}
+
 begin
   Application.Title:='Telegram shell daemon';
   Application.Initialize;