Browse Source

version 1.12

tags/v1.12
Vladimir Smagin 1 year ago
parent
commit
3ff75c7ce2
100 changed files with 553 additions and 93 deletions
  1. +0
    -0
      Actions-go-jump-today-icon.png
  2. +0
    -0
      access_point.png
  3. +0
    -0
      ajax-loader.gif
  4. +0
    -0
      ark tomsk.png
  5. BIN
      avtokanal.exe
  6. +0
    -0
      avtokanal.ico
  7. +0
    -0
      avtokanal.lpi
  8. +0
    -0
      avtokanal.lpr
  9. +33
    -35
      avtokanal.lps
  10. +0
    -0
      avtokanal.res
  11. +0
    -0
      backup/avtokanal.lpi.bak
  12. +34
    -35
      backup/avtokanal.lps.bak
  13. +1
    -1
      backup/unit1.lfm.bak
  14. +11
    -7
      backup/unit1.pas.bak
  15. +0
    -0
      blcksock.pas
  16. +191
    -0
      distrib/Russian.nlf
  17. +129
    -0
      distrib/Russian.nsh
  18. BIN
      distrib/ark_laucher.exe
  19. BIN
      distrib/ark_laucher.new
  20. +68
    -0
      distrib/ark_tomsk.nsi
  21. BIN
      distrib/ark_tomsk_install.exe
  22. BIN
      distrib/avtokanal.exe
  23. BIN
      distrib/avtokanal.w32.zip
  24. +3
    -0
      distrib/license.txt
  25. BIN
      distrib/mpg123.exe
  26. +28
    -0
      distrib/nsProcess.nsh
  27. +1
    -0
      distrib/version
  28. +1
    -0
      distrib/version.w32
  29. +0
    -0
      httpsend.pas
  30. BIN
      laucher/ark_laucher.exe
  31. +0
    -0
      laucher/ark_laucher.ico
  32. +0
    -0
      laucher/ark_laucher.lpi
  33. +0
    -0
      laucher/ark_laucher.lpr
  34. +0
    -0
      laucher/ark_laucher.lps
  35. BIN
      laucher/ark_laucher.new
  36. +0
    -0
      laucher/ark_laucher.res
  37. +0
    -0
      laucher/avtokanal.ico
  38. +0
    -0
      laucher/backup/ark_laucher.lpi.bak
  39. +0
    -0
      laucher/backup/ark_laucher.lpr.bak
  40. +0
    -0
      laucher/backup/ark_laucher.lps.bak
  41. +1
    -1
      laucher/backup/unit1.lfm.bak
  42. +3
    -3
      laucher/backup/unit1.pas.bak
  43. +0
    -0
      laucher/blcksock.pas
  44. +0
    -0
      laucher/httpsend.pas
  45. +5
    -0
      laucher/lib/i386-win32/ark_laucher.compiled
  46. BIN
      laucher/lib/i386-win32/ark_laucher.o
  47. BIN
      laucher/lib/i386-win32/ark_laucher.or
  48. BIN
      laucher/lib/i386-win32/ark_laucher.res
  49. BIN
      laucher/lib/i386-win32/blcksock.o
  50. BIN
      laucher/lib/i386-win32/blcksock.ppu
  51. BIN
      laucher/lib/i386-win32/httpsend.o
  52. BIN
      laucher/lib/i386-win32/httpsend.ppu
  53. BIN
      laucher/lib/i386-win32/synacode.o
  54. BIN
      laucher/lib/i386-win32/synacode.ppu
  55. BIN
      laucher/lib/i386-win32/synafpc.o
  56. BIN
      laucher/lib/i386-win32/synafpc.ppu
  57. BIN
      laucher/lib/i386-win32/synaip.o
  58. BIN
      laucher/lib/i386-win32/synaip.ppu
  59. BIN
      laucher/lib/i386-win32/synaser.o
  60. BIN
      laucher/lib/i386-win32/synaser.ppu
  61. BIN
      laucher/lib/i386-win32/synautil.o
  62. BIN
      laucher/lib/i386-win32/synautil.ppu
  63. BIN
      laucher/lib/i386-win32/synsock.o
  64. BIN
      laucher/lib/i386-win32/synsock.ppu
  65. +34
    -0
      laucher/lib/i386-win32/unit1.lfm
  66. BIN
      laucher/lib/i386-win32/unit1.o
  67. BIN
      laucher/lib/i386-win32/unit1.ppu
  68. +0
    -0
      laucher/sswin32.inc
  69. +0
    -0
      laucher/synacode.pas
  70. +0
    -0
      laucher/synafpc.pas
  71. +0
    -0
      laucher/synaip.pas
  72. +0
    -0
      laucher/synaser.pas
  73. +0
    -0
      laucher/synautil.pas
  74. +0
    -0
      laucher/synsock.pas
  75. +5
    -5
      laucher/unit1.lfm
  76. +2
    -2
      laucher/unit1.pas
  77. +0
    -1
      laucher/version
  78. +0
    -0
      laz_refresh.png
  79. +2
    -2
      lib/i386-win32/avtokanal.compiled
  80. BIN
      lib/i386-win32/avtokanal.o
  81. BIN
      lib/i386-win32/avtokanal.or
  82. +0
    -0
      lib/i386-win32/avtokanal.res
  83. BIN
      lib/i386-win32/blcksock.o
  84. BIN
      lib/i386-win32/blcksock.ppu
  85. BIN
      lib/i386-win32/httpsend.o
  86. BIN
      lib/i386-win32/httpsend.ppu
  87. BIN
      lib/i386-win32/synacode.o
  88. BIN
      lib/i386-win32/synacode.ppu
  89. BIN
      lib/i386-win32/synafpc.o
  90. BIN
      lib/i386-win32/synafpc.ppu
  91. BIN
      lib/i386-win32/synaip.o
  92. BIN
      lib/i386-win32/synaip.ppu
  93. BIN
      lib/i386-win32/synaser.o
  94. BIN
      lib/i386-win32/synaser.ppu
  95. BIN
      lib/i386-win32/synautil.o
  96. BIN
      lib/i386-win32/synautil.ppu
  97. BIN
      lib/i386-win32/synsock.o
  98. BIN
      lib/i386-win32/synsock.ppu
  99. +1
    -1
      lib/i386-win32/unit1.lfm
  100. BIN
      lib/i386-win32/unit1.o

+ 0
- 0
Actions-go-jump-today-icon.png View File

Before After
Width: 16  |  Height: 16  |  Size: 718B Width: 16  |  Height: 16  |  Size: 718B

+ 0
- 0
access_point.png View File

Before After
Width: 128  |  Height: 128  |  Size: 944B Width: 128  |  Height: 128  |  Size: 944B

+ 0
- 0
ajax-loader.gif View File

Before After
Width: 300  |  Height: 300  |  Size: 58KB Width: 300  |  Height: 300  |  Size: 58KB

+ 0
- 0
ark tomsk.png View File

Before After
Width: 320  |  Height: 353  |  Size: 82KB Width: 320  |  Height: 353  |  Size: 82KB

BIN
avtokanal.exe View File


+ 0
- 0
avtokanal.ico View File

Before After

+ 0
- 0
avtokanal.lpi View File


+ 0
- 0
avtokanal.lpr View File


+ 33
- 35
avtokanal.lps View File

@@ -21,9 +21,8 @@
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
<IsVisibleTab Value="True"/>
<TopLine Value="215"/>
<CursorPos X="71" Y="276"/>
<FoldState Value=" T3kK091162224G"/>
<TopLine Value="319"/>
<CursorPos X="18" Y="340"/>
<UsageCount Value="86"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@@ -337,123 +336,122 @@
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="unit1.pas"/>
<Caret Line="229" Column="38" TopLine="194"/>
<Caret Line="68" Column="5" TopLine="26"/>
</Position1>
<Position2>
<Filename Value="unit1.pas"/>
<Caret Line="207" Column="16" TopLine="172"/>
<Caret Line="160" Column="22" TopLine="141"/>
</Position2>
<Position3>
<Filename Value="unit1.pas"/>
<Caret Line="68" Column="5" TopLine="26"/>
<Caret Line="141" Column="25" TopLine="130"/>
</Position3>
<Position4>
<Filename Value="unit1.pas"/>
<Caret Line="160" Column="22" TopLine="141"/>
<Caret Line="135" Column="23" TopLine="110"/>
</Position4>
<Position5>
<Filename Value="unit1.pas"/>
<Caret Line="141" Column="25" TopLine="130"/>
<Caret Line="115" Column="48" TopLine="76"/>
</Position5>
<Position6>
<Filename Value="unit1.pas"/>
<Caret Line="135" Column="23" TopLine="110"/>
<Caret Line="68" Column="52" TopLine="67"/>
</Position6>
<Position7>
<Filename Value="unit1.pas"/>
<Caret Line="115" Column="48" TopLine="76"/>
<Caret Line="283" Column="9" TopLine="258"/>
</Position7>
<Position8>
<Filename Value="unit1.pas"/>
<Caret Line="68" Column="52" TopLine="67"/>
<Caret Line="68" Column="15" TopLine="44"/>
</Position8>
<Position9>
<Filename Value="unit1.pas"/>
<Caret Line="283" Column="9" TopLine="258"/>
<Caret Line="280" Column="70" TopLine="254"/>
</Position9>
<Position10>
<Filename Value="unit1.pas"/>
<Caret Line="68" Column="15" TopLine="44"/>
<Caret Line="283" Column="58" TopLine="258"/>
</Position10>
<Position11>
<Filename Value="unit1.pas"/>
<Caret Line="280" Column="70" TopLine="254"/>
<Caret Line="149" Column="35" TopLine="133"/>
</Position11>
<Position12>
<Filename Value="unit1.pas"/>
<Caret Line="283" Column="58" TopLine="258"/>
<Caret Line="68" Column="59" TopLine="62"/>
</Position12>
<Position13>
<Filename Value="unit1.pas"/>
<Caret Line="149" Column="35" TopLine="133"/>
<Caret Line="285" Column="5" TopLine="284"/>
</Position13>
<Position14>
<Filename Value="unit1.pas"/>
<Caret Line="68" Column="59" TopLine="62"/>
<Caret Line="284" Column="5" TopLine="283"/>
</Position14>
<Position15>
<Filename Value="unit1.pas"/>
<Caret Line="285" Column="5" TopLine="284"/>
<Caret Line="280" Column="22" TopLine="254"/>
</Position15>
<Position16>
<Filename Value="unit1.pas"/>
<Caret Line="284" Column="5" TopLine="283"/>
<Caret Line="354" Column="29" TopLine="15"/>
</Position16>
<Position17>
<Filename Value="unit1.pas"/>
<Caret Line="280" Column="22" TopLine="254"/>
<Caret Line="131" Column="14" TopLine="90"/>
</Position17>
<Position18>
<Filename Value="unit1.pas"/>
<Caret Line="354" Column="29" TopLine="15"/>
<Filename Value="avtokanal.lpr"/>
<Caret Line="21"/>
</Position18>
<Position19>
<Filename Value="unit1.pas"/>
<Caret Line="131" Column="14" TopLine="90"/>
<Caret Line="143" Column="19" TopLine="132"/>
</Position19>
<Position20>
<Filename Value="avtokanal.lpr"/>
<Caret Line="21"/>
<Filename Value="unit1.pas"/>
<Caret Line="289" Column="88" TopLine="131"/>
</Position20>
<Position21>
<Filename Value="unit1.pas"/>
<Caret Line="143" Column="19" TopLine="132"/>
<Caret Line="315" TopLine="202"/>
</Position21>
<Position22>
<Filename Value="unit1.pas"/>
<Caret Line="289" Column="88" TopLine="131"/>
<Caret Line="316" Column="32" TopLine="202"/>
</Position22>
<Position23>
<Filename Value="unit1.pas"/>
<Caret Line="315" TopLine="202"/>
<Caret Line="318" Column="20" TopLine="202"/>
</Position23>
<Position24>
<Filename Value="unit1.pas"/>
<Caret Line="316" Column="32" TopLine="202"/>
<Caret Line="373" Column="51" TopLine="298"/>
</Position24>
<Position25>
<Filename Value="unit1.pas"/>
<Caret Line="318" Column="20" TopLine="202"/>
<Caret Line="38" Column="19" TopLine="13"/>
</Position25>
<Position26>
<Filename Value="unit1.pas"/>
<Caret Line="373" Column="51" TopLine="298"/>
<Caret Line="56" Column="29" TopLine="13"/>
</Position26>
<Position27>
<Filename Value="unit1.pas"/>
<Caret Line="38" Column="19" TopLine="13"/>
<Caret Line="131" Column="34" TopLine="104"/>
</Position27>
<Position28>
<Filename Value="unit1.pas"/>
<Caret Line="56" Column="29" TopLine="13"/>
<Caret Line="328" Column="18" TopLine="216"/>
</Position28>
<Position29>
<Filename Value="unit1.pas"/>
<Caret Line="131" Column="34" TopLine="104"/>
<Caret Line="228" Column="60" TopLine="214"/>
</Position29>
<Position30>
<Filename Value="unit1.pas"/>
<Caret Line="328" Column="18" TopLine="216"/>
</Position30>
</JumpHistory>
</ProjectSession>

+ 0
- 0
avtokanal.res View File


+ 0
- 0
backup/avtokanal.lpi.bak View File


+ 34
- 35
backup/avtokanal.lps.bak View File

@@ -21,9 +21,9 @@
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
<IsVisibleTab Value="True"/>
<TopLine Value="228"/>
<CursorPos X="7" Y="335"/>
<FoldState Value=" T3kK098 pj1jT0N012248"/>
<TopLine Value="308"/>
<CursorPos X="6" Y="337"/>
<FoldState Value=" T3kK091162224G"/>
<UsageCount Value="86"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@@ -337,123 +337,122 @@
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="unit1.pas"/>
<Caret Line="229" Column="38" TopLine="194"/>
<Caret Line="68" Column="5" TopLine="26"/>
</Position1>
<Position2>
<Filename Value="unit1.pas"/>
<Caret Line="207" Column="16" TopLine="172"/>
<Caret Line="160" Column="22" TopLine="141"/>
</Position2>
<Position3>
<Filename Value="unit1.pas"/>
<Caret Line="68" Column="5" TopLine="26"/>
<Caret Line="141" Column="25" TopLine="130"/>
</Position3>
<Position4>
<Filename Value="unit1.pas"/>
<Caret Line="160" Column="22" TopLine="141"/>
<Caret Line="135" Column="23" TopLine="110"/>
</Position4>
<Position5>
<Filename Value="unit1.pas"/>
<Caret Line="141" Column="25" TopLine="130"/>
<Caret Line="115" Column="48" TopLine="76"/>
</Position5>
<Position6>
<Filename Value="unit1.pas"/>
<Caret Line="135" Column="23" TopLine="110"/>
<Caret Line="68" Column="52" TopLine="67"/>
</Position6>
<Position7>
<Filename Value="unit1.pas"/>
<Caret Line="115" Column="48" TopLine="76"/>
<Caret Line="283" Column="9" TopLine="258"/>
</Position7>
<Position8>
<Filename Value="unit1.pas"/>
<Caret Line="68" Column="52" TopLine="67"/>
<Caret Line="68" Column="15" TopLine="44"/>
</Position8>
<Position9>
<Filename Value="unit1.pas"/>
<Caret Line="283" Column="9" TopLine="258"/>
<Caret Line="280" Column="70" TopLine="254"/>
</Position9>
<Position10>
<Filename Value="unit1.pas"/>
<Caret Line="68" Column="15" TopLine="44"/>
<Caret Line="283" Column="58" TopLine="258"/>
</Position10>
<Position11>
<Filename Value="unit1.pas"/>
<Caret Line="280" Column="70" TopLine="254"/>
<Caret Line="149" Column="35" TopLine="133"/>
</Position11>
<Position12>
<Filename Value="unit1.pas"/>
<Caret Line="283" Column="58" TopLine="258"/>
<Caret Line="68" Column="59" TopLine="62"/>
</Position12>
<Position13>
<Filename Value="unit1.pas"/>
<Caret Line="149" Column="35" TopLine="133"/>
<Caret Line="285" Column="5" TopLine="284"/>
</Position13>
<Position14>
<Filename Value="unit1.pas"/>
<Caret Line="68" Column="59" TopLine="62"/>
<Caret Line="284" Column="5" TopLine="283"/>
</Position14>
<Position15>
<Filename Value="unit1.pas"/>
<Caret Line="285" Column="5" TopLine="284"/>
<Caret Line="280" Column="22" TopLine="254"/>
</Position15>
<Position16>
<Filename Value="unit1.pas"/>
<Caret Line="284" Column="5" TopLine="283"/>
<Caret Line="354" Column="29" TopLine="15"/>
</Position16>
<Position17>
<Filename Value="unit1.pas"/>
<Caret Line="280" Column="22" TopLine="254"/>
<Caret Line="131" Column="14" TopLine="90"/>
</Position17>
<Position18>
<Filename Value="unit1.pas"/>
<Caret Line="354" Column="29" TopLine="15"/>
<Filename Value="avtokanal.lpr"/>
<Caret Line="21"/>
</Position18>
<Position19>
<Filename Value="unit1.pas"/>
<Caret Line="131" Column="14" TopLine="90"/>
<Caret Line="143" Column="19" TopLine="132"/>
</Position19>
<Position20>
<Filename Value="avtokanal.lpr"/>
<Caret Line="21"/>
<Filename Value="unit1.pas"/>
<Caret Line="289" Column="88" TopLine="131"/>
</Position20>
<Position21>
<Filename Value="unit1.pas"/>
<Caret Line="143" Column="19" TopLine="132"/>
<Caret Line="315" TopLine="202"/>
</Position21>
<Position22>
<Filename Value="unit1.pas"/>
<Caret Line="289" Column="88" TopLine="131"/>
<Caret Line="316" Column="32" TopLine="202"/>
</Position22>
<Position23>
<Filename Value="unit1.pas"/>
<Caret Line="315" TopLine="202"/>
<Caret Line="318" Column="20" TopLine="202"/>
</Position23>
<Position24>
<Filename Value="unit1.pas"/>
<Caret Line="316" Column="32" TopLine="202"/>
<Caret Line="373" Column="51" TopLine="298"/>
</Position24>
<Position25>
<Filename Value="unit1.pas"/>
<Caret Line="318" Column="20" TopLine="202"/>
<Caret Line="38" Column="19" TopLine="13"/>
</Position25>
<Position26>
<Filename Value="unit1.pas"/>
<Caret Line="373" Column="51" TopLine="298"/>
<Caret Line="56" Column="29" TopLine="13"/>
</Position26>
<Position27>
<Filename Value="unit1.pas"/>
<Caret Line="38" Column="19" TopLine="13"/>
<Caret Line="131" Column="34" TopLine="104"/>
</Position27>
<Position28>
<Filename Value="unit1.pas"/>
<Caret Line="56" Column="29" TopLine="13"/>
<Caret Line="328" Column="18" TopLine="216"/>
</Position28>
<Position29>
<Filename Value="unit1.pas"/>
<Caret Line="131" Column="34" TopLine="104"/>
<Caret Line="228" Column="60" TopLine="214"/>
</Position29>
<Position30>
<Filename Value="unit1.pas"/>
<Caret Line="328" Column="18" TopLine="216"/>
</Position30>
</JumpHistory>
</ProjectSession>

+ 1
- 1
backup/unit1.lfm.bak View File

@@ -11,7 +11,7 @@ object Form1: TForm1
OnShow = FormShow
OnWindowStateChange = FormWindowStateChange
Position = poScreenCenter
LCLVersion = '1.4.0.1'
LCLVersion = '1.4.2.0'
object DateEdit1: TDateEdit
Left = 200
Height = 23

+ 11
- 7
backup/unit1.pas.bak View File

@@ -90,7 +90,7 @@ var
url: string;
csv: TStringList;
begin
url := 'http://avto.opentomsk.net/archive.php?date='; //2015-02-27
url := 'http://radio70.ru/archive.php?date='; //2015-02-27
csv := TStringList.Create;
with THTTPSend.Create do
begin
@@ -163,7 +163,7 @@ var
url, path: string;
memstream: TMemoryStream;
begin
url := 'http://avto.opentomsk.net/archive/';
url := 'http://radio70.ru/archive/';
path := get_value(fIdx, 3);
with THTTPSend.Create do
begin
@@ -184,7 +184,7 @@ var
url, path: string;
memstream: TMemoryStream;
begin
url := 'http://avto.opentomsk.net/archive/';
url := 'http://radio70.ru/archive/';
path := get_value(fIdx, 3);
with THTTPSend.Create do
begin
@@ -269,11 +269,11 @@ var
PlayerPath: ansistring;
PlayerParams: ansistring;
begin
tmp := GetTempDir(False) + 'ak47.mp3';
Synchronize(@DownloadMessage);
//tmp := GetTempDir(False) + 'ak47.mp3';
//Synchronize(@DownloadMessage);
PlayerPath := SysToUTF8(ExtractFileDir(Application.ExeName) + '\mpg123.exe');
PlayerParams := SysToUTF8(' -q "' + tmp + '"');
ShowMessage('http://avto.opentomsk.net/archive/'+get_value(fIdx, 3));
//PlayerParams := SysToUTF8(' -q "' + tmp + '"');
PlayerParams:= '-q http://radio70.ru/archive/'+get_value(fIdx, 3);
Player := TProcessUTF8.Create(nil);
Form1.StatusBar1.Panels.Items[0].Text := 'Играет запись от ' + fTimeStamp;
Form1.StatusBar1.Panels.Items[1].Text := 'В очереди ' + IntToStr(PlayQueue);
@@ -332,6 +332,10 @@ begin
v.LoadFromFile('version');
Label3.Caption:='Версия '+ v.Text;
v.Free;
DeleteFileUTF8(ExtractFileDir(Application.ExeName)+'\ark_laucher.exe');
if FileExists(ExtractFileDir(Application.ExeName)+'\ark_laucher.new') then
RenameFileUTF8(ExtractFileDir(Application.ExeName)+'\ark_laucher.new',
ExtractFileDir(Application.ExeName)+'\ark_laucher.exe');
except
//
end;

+ 0
- 0
blcksock.pas View File


+ 191
- 0
distrib/Russian.nlf View File

@@ -0,0 +1,191 @@
# Header, don't edit
NLF v6
# Language ID
1049
# Font and size - dash (-) means default
-
-
# Codepage - dash (-) means ANSI code page
1251
# RTL - anything else than RTL means LTR
-
# Translation by Timon [ timon@front.ru ] + 20030919
# Translation updated by Dmitry Yerokhin [erodim@mail.ru] (050424)
# ^Branding
Nullsoft Install System %s
# ^SetupCaption
Установка $(^Name)
# ^UninstallCaption
Удаление $(^Name)
# ^LicenseSubCaption
: Лицензионное соглашение
# ^ComponentsSubCaption
: Параметры установки
# ^DirSubCaption
: Папка установки
# ^InstallingSubCaption
: Копирование файлов
# ^CompletedSubCaption
: Операция завершена
# ^UnComponentsSubCaption
: Параметры удаления
# ^UnDirSubCaption
: Папка удаления
# ^ConfirmSubCaption
: Подтверждение
# ^UninstallingSubCaption
: Удаление файлов
# ^UnCompletedSubCaption
: Операция завершена
# ^BackBtn
< &Назад
# ^NextBtn
&Далее >
# ^AgreeBtn
Принима&ю
# ^AcceptBtn
Я &принимаю условия соглашения
# ^DontAcceptBtn
Я &не принимаю условия соглашения
# ^InstallBtn
&Установить
# ^UninstallBtn
Уд&алить
# ^CancelBtn
Отмена
# ^CloseBtn
&Закрыть
# ^BrowseBtn
О&бзор ...
# ^ShowDetailsBtn
&Детали...
# ^ClickNext
Нажмите кнопку 'Далее' для продолжения.
# ^ClickInstall
Нажмите кнопку 'Установить', чтобы установить программу.
# ^ClickUninstall
Нажмите кнопку 'Удалить', чтобы удалить программу.
# ^Name
Имя
# ^Completed
Готово
# ^LicenseText
Перед установкой $(^NameDA) ознакомьтесь с лицензионным соглашением. Если вы принимаете условия соглашения, нажмите кнопку 'Принимаю'.
# ^LicenseTextCB
Перед установкой $(^NameDA) ознакомьтесь с лицензионным соглашением. Если вы принимаете условия соглашения, установите флажок ниже. $_CLICK
# ^LicenseTextRB
Перед установкой $(^NameDA) ознакомьтесь с лицензионным соглашением. Если вы принимаете условия соглашения, выберите первый вариант из предложенных ниже. $_CLICK
# ^UnLicenseText
Перед установкой $(^NameDA) ознакомьтесь с лицензионным соглашением. Если вы принимаете условия соглашения, нажмите кнопку 'Принимаю'.
# ^UnLicenseTextCB
Перед установкой $(^NameDA) ознакомьтесь с лицензионным соглашением. Если вы принимаете условия соглашения, установите флажок ниже. $_CLICK
# ^UnLicenseTextRB
Перед установкой $(^NameDA) ознакомьтесь с лицензионным соглашением. Если вы принимаете условия соглашения, выберите первый вариант из предложенных ниже. $_CLICK
# ^Custom
По выбору
# ^ComponentsText
Выберите компоненты программы, которые вы хотите установить. $_CLICK
# ^ComponentsSubText1
Выберите тип установки:
# ^ComponentsSubText2_NoInstTypes
Выберите компоненты программы для установки:
# ^ComponentsSubText2
или выберите дополнительные компоненты для установки:
# ^UnComponentsText
Выберите компоненты, которые вы хотите удалить. $_CLICK
# ^UnComponentsSubText1
Выберите тип удаления:
# ^UnComponentsSubText2_NoInstTypes
Выберите компоненты для удаления:
# ^UnComponentsSubText2
или выберите дополнительные компоненты для удаления:
# ^DirText
Программа установит $(^NameDA) в указанную папку. Чтобы установить приложение в другую папку, нажмите кнопку 'Обзор' и укажите ее. $_CLICK
# ^DirSubText
Папка установки
# ^DirBrowseText
Укажите папку для установки $(^NameDA):
# ^UnDirText
Программа удалит $(^NameDA) из указанной папки. Чтобы выполнить удаление из другой папки, нажмите кнопку 'Обзор' и укажите ее. $_CLICK
# ^UnDirSubText
""
# ^UnDirBrowseText
Укажите папку, из которой нужно удалить $(^NameDA):
# ^SpaceAvailable
"Доступно на диске: "
# ^SpaceRequired
"Требуется на диске: "
# ^UninstallingText
Программа $(^NameDA) будет удалена из вашего ПК. $_CLICK
# ^UninstallingSubText
Удаление из:
# ^FileError
Невозможно открыть файл для записи: \r\n\t"$0"\r\n'Прервать': остановить установку;\r\n"Повтор": повторить попытку;\r\n"Пропуск": пропустить это действие.
# ^FileError_NoIgnore
Невозможно открыть файл для записи: \r\n\t"$0"\r\n'Повтор': повторить попытку;\r\n'Отмена': прервать процесс установки.
# ^CantWrite
"Невозможно записать: "
# ^CopyFailed
Ошибка при копировании
# ^CopyTo
"Копирование в "
# ^Registering
"Регистрация: "
# ^Unregistering
"Де-регистрация: "
# ^SymbolNotFound
"Невозможно найти символ: "
# ^CouldNotLoad
"Невозможно загрузить: "
# ^CreateFolder
"Создание папки: "
# ^CreateShortcut
"Создание ярлыка: "
# ^CreatedUninstaller
"Создание программы удаления: "
# ^Delete
"Удаление файла: "
# ^DeleteOnReboot
"Удаление при перезагрузке ПК: "
# ^ErrorCreatingShortcut
"Ошибка создания ярлыка: "
# ^ErrorCreating
"Ошибка создания: "
# ^ErrorDecompressing
Ошибка распаковки данных! Возможно, повреждён дистрибутив.
# ^ErrorRegistering
Невозможно зарегистрировать библиотеку (DLL)
# ^ExecShell
"Выполнение команды оболочки: "
# ^Exec
"Выполнение: "
# ^Extract
"Извлечение: "
# ^ErrorWriting
"Извлечение: ошибка записи файла "
# ^InvalidOpcode
Дистрибутив поврежден: недопустимый код
# ^NoOLE
"Нет OLE для: "
# ^OutputFolder
"Папка установки: "
# ^RemoveFolder
"Удаление папки: "
# ^RenameOnReboot
"Переименование при перезагрузке ПК: "
# ^Rename
"Переименование: "
# ^Skipped
"Пропуск: "
# ^CopyDetails
Копировать сведения в буфер обмена
# ^LogInstall
Вести отчет установки
# byte
байт
# kilo
К
# mega
М
# giga
Г

+ 129
- 0
distrib/Russian.nsh View File

@@ -0,0 +1,129 @@
;Language: Russian (1049)
;Translation updated by Dmitry Yerokhin [erodim@mail.ru] (050424)
!insertmacro LANGFILE "Russian" = "Русский" "Russkij"
!ifdef MUI_WELCOMEPAGE
${LangFileString} MUI_TEXT_WELCOME_INFO_TITLE "Вас приветствует мастер установки $(^NameDA)"
${LangFileString} MUI_TEXT_WELCOME_INFO_TEXT "Эта программа установит $(^NameDA) на ваш компьютер.$\r$\n$\r$\nПеред началом установки рекомендуется закрыть все работающие приложения. Это позволит программе установки обновить системные файлы без перезагрузки компьютера.$\r$\n$\r$\n$_CLICK"
!endif
!ifdef MUI_UNWELCOMEPAGE
${LangFileString} MUI_UNTEXT_WELCOME_INFO_TITLE "Вас приветствует мастер удаления $(^NameDA)"
${LangFileString} MUI_UNTEXT_WELCOME_INFO_TEXT "Эта программа удалит $(^NameDA) из вашего компьютера.$\r$\n$\r$\nПеред началом удаления убедитесь, что программа $(^NameDA) не запущена.$\r$\n$\r$\n$_CLICK"
!endif
!ifdef MUI_LICENSEPAGE
${LangFileString} MUI_TEXT_LICENSE_TITLE "Лицензионное соглашение"
${LangFileString} MUI_TEXT_LICENSE_SUBTITLE "Перед установкой $(^NameDA) ознакомьтесь с лицензионным соглашением."
${LangFileString} MUI_INNERTEXT_LICENSE_BOTTOM "Если вы принимаете условия соглашения, нажмите кнопку $\"Принимаю$\". Чтобы установить программу, необходимо принять соглашение."
${LangFileString} MUI_INNERTEXT_LICENSE_BOTTOM_CHECKBOX "Если вы принимаете условия соглашения, установите флажок ниже. Чтобы установить программу, необходимо принять соглашение. $_CLICK"
${LangFileString} MUI_INNERTEXT_LICENSE_BOTTOM_RADIOBUTTONS "Если вы принимаете условия соглашения, выберите первый вариант из предложенных ниже. Чтобы установить программу, необходимо принять соглашение. $_CLICK"
!endif
!ifdef MUI_UNLICENSEPAGE
${LangFileString} MUI_UNTEXT_LICENSE_TITLE "Лицензионное соглашение"
${LangFileString} MUI_UNTEXT_LICENSE_SUBTITLE "Перед удалением $(^NameDA) ознакомьтесь с лицензионным соглашением."
${LangFileString} MUI_UNINNERTEXT_LICENSE_BOTTOM "Если вы принимаете условия соглашения, нажмите кнопку $\"Принимаю$\". Для удаления необходимо принять соглашение. $_CLICK"
${LangFileString} MUI_UNINNERTEXT_LICENSE_BOTTOM_CHECKBOX "Если вы принимаете условия соглашения, установите флажок ниже. Для удаления необходимо принять соглашение. $_CLICK"
${LangFileString} MUI_UNINNERTEXT_LICENSE_BOTTOM_RADIOBUTTONS "Если вы принимаете условия соглашения, выберите первый вариант из предложенных ниже. Для удаления необходимо принять соглашение. $_CLICK"
!endif
!ifdef MUI_LICENSEPAGE | MUI_UNLICENSEPAGE
${LangFileString} MUI_INNERTEXT_LICENSE_TOP "Для перемещения по тексту используйте клавиши $\"PageUp$\" и $\"PageDown$\"."
!endif
!ifdef MUI_COMPONENTSPAGE
${LangFileString} MUI_TEXT_COMPONENTS_TITLE "Компоненты устанавливаемой программы"
${LangFileString} MUI_TEXT_COMPONENTS_SUBTITLE "Выберите компоненты $(^NameDA), которые вы хотите установить."
!endif
!ifdef MUI_UNCOMPONENTSPAGE
${LangFileString} MUI_UNTEXT_COMPONENTS_TITLE "Компоненты программы"
${LangFileString} MUI_UNTEXT_COMPONENTS_SUBTITLE "Выберите компоненты $(^NameDA), которые вы хотите удалить."
!endif
!ifdef MUI_COMPONENTSPAGE | MUI_UNCOMPONENTSPAGE
${LangFileString} MUI_INNERTEXT_COMPONENTS_DESCRIPTION_TITLE "Описание"
!ifndef NSIS_CONFIG_COMPONENTPAGE_ALTERNATIVE
${LangFileString} MUI_INNERTEXT_COMPONENTS_DESCRIPTION_INFO "Наведите курсор мыши на название компонента, чтобы прочесть его описание."
!else
${LangFileString} MUI_INNERTEXT_COMPONENTS_DESCRIPTION_INFO "Выберите компонент, чтобы увидеть его описание."
!endif
!endif
!ifdef MUI_DIRECTORYPAGE
${LangFileString} MUI_TEXT_DIRECTORY_TITLE "Выбор папки установки"
${LangFileString} MUI_TEXT_DIRECTORY_SUBTITLE "Выберите папку для установки $(^NameDA)."
!endif
!ifdef MUI_UNDIRECTORYPAGE
${LangFileString} MUI_UNTEXT_DIRECTORY_TITLE "Выбор папки для удаления"
${LangFileString} MUI_UNTEXT_DIRECTORY_SUBTITLE "Укажите папку, из которой нужно удалить $(^NameDA)."
!endif
!ifdef MUI_INSTFILESPAGE
${LangFileString} MUI_TEXT_INSTALLING_TITLE "Копирование файлов"
${LangFileString} MUI_TEXT_INSTALLING_SUBTITLE "Подождите, идет копирование файлов $(^NameDA)..."
${LangFileString} MUI_TEXT_FINISH_TITLE "Установка завершена"
${LangFileString} MUI_TEXT_FINISH_SUBTITLE "Установка успешно завершена."
${LangFileString} MUI_TEXT_ABORT_TITLE "Установка прервана"
${LangFileString} MUI_TEXT_ABORT_SUBTITLE "Установка не завершена."
!endif
!ifdef MUI_UNINSTFILESPAGE
${LangFileString} MUI_UNTEXT_UNINSTALLING_TITLE "Удаление"
${LangFileString} MUI_UNTEXT_UNINSTALLING_SUBTITLE "Подождите, идет удаление файлов $(^NameDA)..."
${LangFileString} MUI_UNTEXT_FINISH_TITLE "Удаление завершено"
${LangFileString} MUI_UNTEXT_FINISH_SUBTITLE "Удаление программы успешно завершено."
${LangFileString} MUI_UNTEXT_ABORT_TITLE "Удаление прервано"
${LangFileString} MUI_UNTEXT_ABORT_SUBTITLE "Удаление произведено не полностью."
!endif
!ifdef MUI_FINISHPAGE
${LangFileString} MUI_TEXT_FINISH_INFO_TITLE "Завершение работы мастера установки $(^NameDA)"
${LangFileString} MUI_TEXT_FINISH_INFO_TEXT "Установка $(^NameDA) выполнена.$\r$\n$\r$\nНажмите кнопку $\"Готово$\" для выхода из программы установки."
${LangFileString} MUI_TEXT_FINISH_INFO_REBOOT "Для завершения установки $(^NameDA) необходимо перезагрузить компьютер. Хотите сделать это сейчас?"
!endif
!ifdef MUI_UNFINISHPAGE
${LangFileString} MUI_UNTEXT_FINISH_INFO_TITLE "Завершение работы мастера удаления $(^NameDA)"
${LangFileString} MUI_UNTEXT_FINISH_INFO_TEXT "Программа $(^NameDA) удалена из вашего компьютера.$\r$\n$\r$\nНажмите кнопку $\"Готово$\"для выхода из программы удаления."
${LangFileString} MUI_UNTEXT_FINISH_INFO_REBOOT "Для завершения удаления $(^NameDA) нужно перезагрузить компьютер. Хотите сделать это сейчас?"
!endif
!ifdef MUI_FINISHPAGE | MUI_UNFINISHPAGE
${LangFileString} MUI_TEXT_FINISH_REBOOTNOW "Да, перезагрузить ПК сейчас"
${LangFileString} MUI_TEXT_FINISH_REBOOTLATER "Нет, я перезагружу ПК позже"
${LangFileString} MUI_TEXT_FINISH_RUN "&Запустить $(^NameDA)"
${LangFileString} MUI_TEXT_FINISH_SHOWREADME "&Показать файл ReadMe"
${LangFileString} MUI_BUTTONTEXT_FINISH "&Готово"
!endif
!ifdef MUI_STARTMENUPAGE
${LangFileString} MUI_TEXT_STARTMENU_TITLE "Папка в меню $\"Пуск$\""
${LangFileString} MUI_TEXT_STARTMENU_SUBTITLE "Выберите папку в меню $\"Пуск$\" для размещения ярлыков программы."
${LangFileString} MUI_INNERTEXT_STARTMENU_TOP "Выберите папку в меню $\"Пуск$\", куда будут помещены ярлыки программы. Вы также можете ввести другое имя папки."
${LangFileString} MUI_INNERTEXT_STARTMENU_CHECKBOX "Не создавать ярлыки"
!endif
!ifdef MUI_UNCONFIRMPAGE
${LangFileString} MUI_UNTEXT_CONFIRM_TITLE "Удаление $(^NameDA)"
${LangFileString} MUI_UNTEXT_CONFIRM_SUBTITLE "Удаление $(^NameDA) из компьютера."
!endif
!ifdef MUI_ABORTWARNING
${LangFileString} MUI_TEXT_ABORTWARNING "Вы действительно хотите отменить установку $(^Name)?"
!endif
!ifdef MUI_UNABORTWARNING
${LangFileString} MUI_UNTEXT_ABORTWARNING "Вы действительно хотите отменить удаление $(^Name)?"
!endif
!ifdef MULTIUSER_INSTALLMODEPAGE
${LangFileString} MULTIUSER_TEXT_INSTALLMODE_TITLE "Режим установки"
${LangFileString} MULTIUSER_TEXT_INSTALLMODE_SUBTITLE "Выберите, для каких пользователей вы хотите установить $(^NameDA)."
${LangFileString} MULTIUSER_INNERTEXT_INSTALLMODE_TOP "Выберите, будете ли вы устанавливать $(^NameDA) только для себя или для всех пользователей данного компьютера. $(^ClickNext)"
${LangFileString} MULTIUSER_INNERTEXT_INSTALLMODE_ALLUSERS "Установить для всех пользователей"
${LangFileString} MULTIUSER_INNERTEXT_INSTALLMODE_CURRENTUSER "Установить только для текущего пользователя"
!endif

BIN
distrib/ark_laucher.exe View File


BIN
distrib/ark_laucher.new View File


+ 68
- 0
distrib/ark_tomsk.nsi View File

@@ -0,0 +1,68 @@
; ark_tomsk.nsi
; 03.03.2015
; Vladimir Smagin, 2015
; 21h@blindage.org, http://blindage.org. English or russian, please.
!include "langfile.nsh"
!include "nsProcess.nsh"
!include "Russian.nsh"
LoadLanguageFile "${NSISDIR}\Contrib\Language files\Russian.nlf"
Name "Æóðíàë ïåðåäà÷ ÀÐÊ Òîìñê"
OutFile "ark_tomsk_install.exe"
XPStyle on
InstallDir $APPDATA\ARK_Tomsk
RequestExecutionLevel admin
SetFont "Tahoma" 11
;Page license
Page directory
Page instfiles
UninstPage uninstConfirm
UninstPage instfiles
;LicenseData "license.txt"
DirText "Âûáåðèòå äèðåêòîðèþ äëÿ óñòàíîâêè. Îíà íå äîëæíà òðåáîâàòü àäìèíèñòðàòèâíûõ ïðàâ. Åñëè âû íå óâåðåíû, òî îñòàâüòå òó, ÷òî óêàçàíà ïî óìîë÷àíèþ." "Äèðåêòîðèÿ" "Âûáðàòü" "Âûáîð äèðåêòîðèè"
Section "ÀÐÊ Òîìñê"
SetOutPath $INSTDIR
File ark_laucher.exe
File avtokanal.exe
File mpg123.exe
File version
CreateShortCut "$SMPROGRAMS\Æóðíàë ÀÐÊ Òîìñê.lnk" "$INSTDIR\ark_laucher.exe"
WriteRegStr HKLM SOFTWARE\ARK_Tomsk "Install_Dir" "$INSTDIR"
WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\ARK_Tomsk" \
"DisplayName" "ARK_Tomsk"
WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\ARK_Tomsk" \
"UninstallString" '"$INSTDIR\uninstall.exe"'
WriteRegDWORD HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\ARK_Tomsk" \
"NoModify" 1
WriteRegDWORD HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\ARK_Tomsk" \
"NoRepair" 1
WriteUninstaller "uninstall.exe"
SectionEnd
Section "Uninstall"
${nsProcess::FindProcess} "ark_laucher.exe" $R0
${nsProcess::KillProcess} "ark_laucher.exe" $R0
${nsProcess::FindProcess} "avtokanal.exe" $R0
${nsProcess::KillProcess} "avtokanal.exe" $R0
${nsProcess::FindProcess} "mpg123.exe" $R0
${nsProcess::KillProcess} "mpg123.exe" $R0
DeleteRegKey HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\ARK_Tomsk"
DeleteRegKey HKLM SOFTWARE\ARK_Tomsk
Delete $INSTDIR\*.*
Delete $INSTDIR\uninstall.exe
Delete "$SMPROGRAMS\Æóðíàë ÀÐÊ Òîìñê.lnk"
RMDir "$INSTDIR"
SectionEnd

BIN
distrib/ark_tomsk_install.exe View File


BIN
distrib/avtokanal.exe View File


BIN
distrib/avtokanal.w32.zip View File


+ 3
- 0
distrib/license.txt View File

@@ -0,0 +1,3 @@
Программа поставляется как есть без каких-либо гарантий. Обновления устанавливаются в автоматическом режиме при каждом запуске программы.
Все предложения пишите на почту 21h@blindage.org.

BIN
distrib/mpg123.exe View File


+ 28
- 0
distrib/nsProcess.nsh View File

@@ -0,0 +1,28 @@
!define nsProcess::FindProcess `!insertmacro nsProcess::FindProcess`
!macro nsProcess::FindProcess _FILE _ERR
nsProcess::_FindProcess /NOUNLOAD `${_FILE}`
Pop ${_ERR}
!macroend
!define nsProcess::KillProcess `!insertmacro nsProcess::KillProcess`
!macro nsProcess::KillProcess _FILE _ERR
nsProcess::_KillProcess /NOUNLOAD `${_FILE}`
Pop ${_ERR}
!macroend
!define nsProcess::CloseProcess `!insertmacro nsProcess::CloseProcess`
!macro nsProcess::CloseProcess _FILE _ERR
nsProcess::_CloseProcess /NOUNLOAD `${_FILE}`
Pop ${_ERR}
!macroend
!define nsProcess::Unload `!insertmacro nsProcess::Unload`
!macro nsProcess::Unload
nsProcess::_Unload
!macroend

+ 1
- 0
distrib/version View File

@@ -0,0 +1 @@
0.12

+ 1
- 0
distrib/version.w32 View File

@@ -0,0 +1 @@
0.12

+ 0
- 0
httpsend.pas View File


BIN
laucher/ark_laucher.exe View File


+ 0
- 0
laucher/ark_laucher.ico View File

Before After

+ 0
- 0
laucher/ark_laucher.lpi View File


+ 0
- 0
laucher/ark_laucher.lpr View File


+ 0
- 0
laucher/ark_laucher.lps View File


BIN
laucher/ark_laucher.new View File


+ 0
- 0
laucher/ark_laucher.res View File


+ 0
- 0
laucher/avtokanal.ico View File

Before After

+ 0
- 0
laucher/backup/ark_laucher.lpi.bak View File


+ 0
- 0
laucher/backup/ark_laucher.lpr.bak View File


+ 0
- 0
laucher/backup/ark_laucher.lps.bak View File


+ 1
- 1
laucher/backup/unit1.lfm.bak View File

@@ -9,7 +9,7 @@ object Form1: TForm1
ClientHeight = 59
ClientWidth = 449
Position = poScreenCenter
LCLVersion = '1.4.0.1'
LCLVersion = '1.4.2.0'
object Label1: TLabel
Left = 8
Height = 15

+ 3
- 3
laucher/backup/unit1.pas.bak View File

@@ -86,7 +86,7 @@ begin
http := THTTPSend.Create;
with http do
begin
if HTTPMethod('GET', 'http://avto.opentomsk.net/dist/version.w32') then
if HTTPMethod('GET', 'http://radio70.ru/dist/version.w32') then
try
memstream := TMemoryStream.Create;
memstream := Document;
@@ -109,7 +109,7 @@ begin
with http do
begin
Sock.OnStatus := @SockCallBack;
if HTTPMethod('GET', 'http://avto.opentomsk.net/dist/avtokanal.w32.zip') then
if HTTPMethod('GET', 'http://radio70.ru/dist/avtokanal.w32.zip') then
try
Application.ProcessMessages;
memstream := TMemoryStream.Create;
@@ -132,7 +132,7 @@ begin
finally
UnZipper.Free;
end;
ShowMessage('Программа обновлена до версии '+remote_version);
//ShowMessage('Программа обновлена до версии '+remote_version);
end;
ShellExecute(0,nil, PChar('avtokanal.exe'),PChar(''),nil,1);
Close;

+ 0
- 0
laucher/blcksock.pas View File


+ 0
- 0
laucher/httpsend.pas View File


+ 5
- 0
laucher/lib/i386-win32/ark_laucher.compiled View File

@@ -0,0 +1,5 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<Compiler Value="C:\lazarus\fpc\2.6.4\bin\i386-win32\fpc.exe" Date="1189850957"/>
<Params Value=" -MObjFPC -Scghi -O1 -WG -l -vewnhibq &quot;-FiD:\vlad\Documents\Документы мои\Projects\avtokanal\laucher\lib\i386-win32&quot; -FuC:\lazarus\lcl\units\i386-win32\win32 -FuC:\lazarus\lcl\units\i386-win32 -FuC:\lazarus\components\lazutils\lib\i386-win32 -FuC:\lazarus\packager\units\i386-win32 &quot;-FuD:\vlad\Documents\Документы мои\Projects\avtokanal\laucher\&quot; &quot;-FUD:\vlad\Documents\Документы мои\Projects\avtokanal\laucher\lib\i386-win32\&quot; -dLCL -dLCLwin32 ark_laucher.lpr"/>
</CONFIG>

BIN
laucher/lib/i386-win32/ark_laucher.o View File


BIN
laucher/lib/i386-win32/ark_laucher.or View File


BIN
laucher/lib/i386-win32/ark_laucher.res View File


BIN
laucher/lib/i386-win32/blcksock.o View File


BIN
laucher/lib/i386-win32/blcksock.ppu View File


BIN
laucher/lib/i386-win32/httpsend.o View File


BIN
laucher/lib/i386-win32/httpsend.ppu View File


BIN
laucher/lib/i386-win32/synacode.o View File


BIN
laucher/lib/i386-win32/synacode.ppu View File


BIN
laucher/lib/i386-win32/synafpc.o View File


BIN
laucher/lib/i386-win32/synafpc.ppu View File


BIN
laucher/lib/i386-win32/synaip.o View File


BIN
laucher/lib/i386-win32/synaip.ppu View File


BIN
laucher/lib/i386-win32/synaser.o View File


BIN
laucher/lib/i386-win32/synaser.ppu View File


BIN
laucher/lib/i386-win32/synautil.o View File


BIN
laucher/lib/i386-win32/synautil.ppu View File


BIN
laucher/lib/i386-win32/synsock.o View File


BIN
laucher/lib/i386-win32/synsock.ppu View File


+ 34
- 0
laucher/lib/i386-win32/unit1.lfm View File

@@ -0,0 +1,34 @@
object Form1: TForm1
Left = 401
Height = 59
Top = 192
Width = 449
BorderIcons = []
BorderStyle = bsDialog
Caption = 'Автоматическое обновление'
ClientHeight = 59
ClientWidth = 449
Position = poScreenCenter
LCLVersion = '1.4.2.0'
object Label1: TLabel
Left = 8
Height = 15
Top = 8
Width = 217
Caption = 'Проверка новой версии на radio70.ru ...'
ParentColor = False
end
object ProgressBar1: TProgressBar
Left = 8
Height = 20
Top = 31
Width = 432
TabOrder = 0
end
object Timer1: TTimer
Interval = 100
OnTimer = Timer1Timer
left = 208
top = 40
end
end

BIN
laucher/lib/i386-win32/unit1.o View File


BIN
laucher/lib/i386-win32/unit1.ppu View File


+ 0
- 0
laucher/sswin32.inc View File


+ 0
- 0
laucher/synacode.pas View File


+ 0
- 0
laucher/synafpc.pas View File


+ 0
- 0
laucher/synaip.pas View File


+ 0
- 0
laucher/synaser.pas View File


+ 0
- 0
laucher/synautil.pas View File


+ 0
- 0
laucher/synsock.pas View File


+ 5
- 5
laucher/unit1.lfm View File

@@ -9,13 +9,13 @@ object Form1: TForm1
ClientHeight = 59
ClientWidth = 449
Position = poScreenCenter
LCLVersion = '1.4.0.1'
LCLVersion = '1.4.2.0'
object Label1: TLabel
Left = 8
Height = 15
Top = 8
Width = 133
Caption = 'Проверка новой версии'
Width = 217
Caption = 'Проверка новой версии на radio70.ru ...'
ParentColor = False
end
object ProgressBar1: TProgressBar
@@ -28,7 +28,7 @@ object Form1: TForm1
object Timer1: TTimer
Interval = 100
OnTimer = Timer1Timer
left = 201
top = 11
left = 208
top = 40
end
end

+ 2
- 2
laucher/unit1.pas View File

@@ -86,7 +86,7 @@ begin
http := THTTPSend.Create;
with http do
begin
if HTTPMethod('GET', 'http://avto.opentomsk.net/dist/version.w32') then
if HTTPMethod('GET', 'http://radio70.ru/dist/version.w32') then
try
memstream := TMemoryStream.Create;
memstream := Document;
@@ -109,7 +109,7 @@ begin
with http do
begin
Sock.OnStatus := @SockCallBack;
if HTTPMethod('GET', 'http://avto.opentomsk.net/dist/avtokanal.w32.zip') then
if HTTPMethod('GET', 'http://radio70.ru/dist/avtokanal.w32.zip') then
try
Application.ProcessMessages;
memstream := TMemoryStream.Create;

+ 0
- 1
laucher/version View File

@@ -1 +0,0 @@
0.9

+ 0
- 0
laz_refresh.png View File

Before After
Width: 16  |  Height: 16  |  Size: 912B Width: 16  |  Height: 16  |  Size: 912B

+ 2
- 2
lib/i386-win32/avtokanal.compiled View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<Compiler Value="C:\lazarus\fpc\2.6.4\bin\i386-win32\fpc.exe" Date="1179555526"/>
<Params Value=" -Twin32 -Pi386 -MObjFPC -Scghi -O2 -WG -l -vewnhibq -FiC:\dev\avtokanal\lib\i386-win32 -FuC:\lazarus\components\sqldb\lib\i386-win32\win32 -FuC:\lazarus\components\ideintf\units\i386-win32\win32 -FuC:\lazarus\components\synedit\units\i386-win32\win32 -FuC:\lazarus\components\lazcontrols\lib\i386-win32\win32 -FuC:\lazarus\lcl\units\i386-win32\win32 -FuC:\lazarus\lcl\units\i386-win32 -FuC:\lazarus\components\codetools\units\i386-win32 -FuC:\lazarus\components\lazutils\lib\i386-win32 -FuC:\lazarus\packager\units\i386-win32 -FuC:\dev\avtokanal\ -FUC:\dev\avtokanal\lib\i386-win32\ -dLCL -dLCLwin32 avtokanal.lpr"/>
<Compiler Value="C:\lazarus\fpc\2.6.4\bin\i386-win32\fpc.exe" Date="1189850957"/>
<Params Value=" -Twin32 -Pi386 -MObjFPC -Scghi -O2 -WG -l -vewnhibq &quot;-FiD:\vlad\Documents\Документы мои\Projects\avtokanal\lib\i386-win32&quot; -FuC:\lazarus\components\sqldb\lib\i386-win32\win32 -FuC:\lazarus\components\ideintf\units\i386-win32\win32 -FuC:\lazarus\components\synedit\units\i386-win32\win32 -FuC:\lazarus\components\lazcontrols\lib\i386-win32\win32 -FuC:\lazarus\lcl\units\i386-win32\win32 -FuC:\lazarus\lcl\units\i386-win32 -FuC:\lazarus\components\codetools\units\i386-win32 -FuC:\lazarus\components\lazutils\lib\i386-win32 -FuC:\lazarus\packager\units\i386-win32 &quot;-FuD:\vlad\Documents\Документы мои\Projects\avtokanal\&quot; &quot;-FUD:\vlad\Documents\Документы мои\Projects\avtokanal\lib\i386-win32\&quot; -dLCL -dLCLwin32 avtokanal.lpr"/>
</CONFIG>

BIN
lib/i386-win32/avtokanal.o View File


BIN
lib/i386-win32/avtokanal.or View File


+ 0
- 0
lib/i386-win32/avtokanal.res View File


BIN
lib/i386-win32/blcksock.o View File


BIN
lib/i386-win32/blcksock.ppu View File


BIN
lib/i386-win32/httpsend.o View File


BIN
lib/i386-win32/httpsend.ppu View File


BIN
lib/i386-win32/synacode.o View File


BIN
lib/i386-win32/synacode.ppu View File


BIN
lib/i386-win32/synafpc.o View File


BIN
lib/i386-win32/synafpc.ppu View File


BIN
lib/i386-win32/synaip.o View File


BIN
lib/i386-win32/synaip.ppu View File


BIN
lib/i386-win32/synaser.o View File


BIN
lib/i386-win32/synaser.ppu View File


BIN
lib/i386-win32/synautil.o View File


BIN
lib/i386-win32/synautil.ppu View File


BIN
lib/i386-win32/synsock.o View File


BIN
lib/i386-win32/synsock.ppu View File


+ 1
- 1
lib/i386-win32/unit1.lfm View File

@@ -11,7 +11,7 @@ object Form1: TForm1
OnShow = FormShow
OnWindowStateChange = FormWindowStateChange
Position = poScreenCenter
LCLVersion = '1.4.0.1'
LCLVersion = '1.4.2.0'
object DateEdit1: TDateEdit
Left = 200
Height = 23

BIN
lib/i386-win32/unit1.o View File


Some files were not shown because too many files changed in this diff

Loading…
Cancel
Save