Вверх ↑
Этот топик читают: Гость
Ответов: 119
Рейтинг: 0
#16: 2011-02-07 11:55:10 ЛС | профиль | цитата
Блин да после обновления сбились настройки, а меня стоить компилятор Delphi и пользуюсь им.
После переключения на Delfhi все заработало.
Начал дорабатывать, чтоб файлы паковались в соответствующие папки в директорию с этой программой, но что-то накрутил и совсем запутался, с потоками пока не совсем разобрался.
Думаю прямолинейно, а тут не всегда это работает))
code_22459.txt
карма: 0

0
файлы: 1code_22459.txt [2.5KB] [116]
Ответов: 1133
Рейтинг: 81
#17: 2011-02-07 12:24:24 ЛС | профиль | цитата
[offtop]Не забывайте что компилятор Delphi платный, вы его используете на свой страх и риск.
Если Вы планируете распространять свои программы и еще хуже на комерческой основе, то Вам необходимо купить лицензию на Delphi, либо использовать бесплатные компиляторы, к примеру FPС.[/offtop]
К сожалению сейчас компонент Zlib на нем почемуто не работает, хотя если не ошибаюсь етот компонент как раз и должен был работать. Не знаю, будем ждать ответа от разработчиков.
code_22460.txt
карма: 2

0
файлы: 1code_22460.txt [2.7KB] [226]
Ответов: 119
Рейтинг: 0
#18: 2011-02-07 12:47:38 ЛС | профиль | цитата
По поводу Zlib при одном компиляторе требует dll и в итоге не работает, в делфях наооборот на dll все равно и работает, чудеса))
И глупый вопрос как сохраняя куски кода сохранялась кодировка, а не а?б?аОб? аЕаЛаЕаМаЕаНб? аОб? А то каждый раз приходится пересохранять.
карма: 0

0
Разработчик
Ответов: 26305
Рейтинг: 2146
#19: 2011-02-07 12:53:48 ЛС | профиль | цитата
tom-it писал(а):
К сожалению сейчас компонент Zlib на нем почемуто не работает

Исправлено под FPC
карма: 22

2
Голосовали:tom-it, Solid
Ответов: 1133
Рейтинг: 81
#20: 2011-02-07 12:55:42 ЛС | профиль | цитата
Zlib.dll надо бросить в папку с прогой, также как и в других случаях с .dll, или в .../sistem32.
По поводу кодировки, перед копированием схемы в браузере надо переключать кодировку юникод utf-8 или наоборот кириллица -1251. Автоматизировать етот процесс не получится.
карма: 2

0
Ответов: 119
Рейтинг: 0
#21: 2011-02-07 12:58:25 ЛС | профиль | цитата
По поводу отладки пользуюсь, но виснет часто или неумею работать им, 2-3 шага делает и все, в примерах и видео смотрел, но ...
карма: 0

0
Ответов: 1133
Рейтинг: 81
#22: 2011-02-07 13:04:28 ЛС | профиль | цитата
Оно не виснет, а приостанавливается, так сказать ждет Ваших действий. Также надо еще подумать где его вставлять.Вот здесь подробно описано:
Отладка
карма: 2

0
Ответов: 119
Рейтинг: 0
#23: 2011-02-07 14:04:57 ЛС | профиль | цитата
Спасибо.
Я так понял файловый поток сохраняет файлы в существующую папку, вобщем то что мне нужно было выглядит так.
code_22463.txt
карма: 0

0
файлы: 1code_22463.txt [2.5KB] [109]
Ответов: 1133
Рейтинг: 81
#24: 2011-02-07 19:27:03 ЛС | профиль | цитата
Solid писал(а):
Я так понял файловый поток сохраняет файлы

Более правильно будет "файловый поток сохраняетСЯ В файлы"
По поводу папок то здесь все верно, если надо сохранить в несуществующую папку, то естественно что ее надо предварительно создать.А вот в какой способ ето делать, зависит только от вашей изобретательности и от специфики программы. К примеру можно использовать компонент Browse в настройках которого есть возможность добавления пункта "создать папку",после чего ее можно использовать для сохранения файлов.
Впрочем чего рассказывать, изучайте HiAsm, читайте справку, экспериментируйте.Возможности среды довольно таки широки и ограничиваются токо набором компонентов и их функциональностью, все остальное зависит токо от Вас.
карма: 2

0
Ответов: 119
Рейтинг: 0
#25: 2011-02-07 21:03:23 ЛС | профиль | цитата
Тему не хочу создавать, но инструменты нужны были для использования для своих нужд Hiupdate, вобщем поменял ссылки, создал файллист запакованный и файлы запакованные залил их на локалхост. При обновлении возникает ошибка.
---------------------------
Error
---------------------------
Runtime error 203 at 000078ED
---------------------------
ОК
---------------------------

карма: 0

0
Ответов: 1133
Рейтинг: 81
#26: 2011-02-07 21:21:48 ЛС | профиль | цитата
Да уж, а не рановато ли к таким серьезным делам браться?
Вообще то так сразу с проблемой и не разберешься, надо анализировать все, разбираться что к чему, а ето драгоценное время. Думаю легче будет спросить у самих разработчиков, что и как работает и предположительные причины возникновения ошибки.

карма: 2

0
Ответов: 119
Рейтинг: 0
#27: 2011-02-07 21:47:07 ЛС | профиль | цитата
Суть в том, что я саму программу не меняю Hiupdate, а только ссылки ну и ничего критического. Возможно проблема именно в инструменте. Или может, что-то хитрое
Add(MainForm,2953706,35,42)
{
Width=574
Height=488
Caption="Хешер"
BorderStyle=1
}
Add(TabControl,557179,84,42)
{
Width=570
Height=25
Tabs=#20:Работа с файл-листом|16:Работа с файлами|0:|
Bitmaps=[]
link(onChange,20360:doEvent,[])
}
Add(IndexToChanel,20360,126,42)
{
Count=4
link(onEvent1,14853106:doWork1,[])
link(onEvent2,731086:doWork1,[(185,55)(185,90)])
}
Add(ChildPanel,731086,203,84)
{
}
BEGIN_SDK
Add(EditMulti,11327152,0,-7)
{
WorkCount=1
Width=648
Height=571
link(doWork1,12522440:doBringToFront,[(19,-1)(19,125)])
}
Add(Panel,12522440,35,105)
{
Top=20
Width=570
Height=440
BorderWidth=0
BevelOuter=1
Point(doColor)
Point(doBringToFront)
}
Add(ChildPanel,79635,35,63)
{
}
BEGIN_SDK
Add(EditMulti,15771565,3,3)
{
}
Add(Panel,4394108,35,105)
{
Left=10
Top=10
Width=550
Height=25
Color=8421504
Font=[MS Sans Serif,8,1,16777215,1]
Caption="Работа с файлами"
BorderStyle=1
BevelInner=0
Point(doColor)
}
END_SDK
Add(Button,7642161,189,98)
{
Left=10
Top=70
Width=100
Enabled=1
Caption="РАСПАКОВКА"
Point(doEnabled)
link(onClick,5796280:doEnum,[])
}
Add(ZLIB,5102897,343,140)
{
link(onStream,7988636:doEvent1,[])
}
Add(FileStream,16673705,280,147)
{
AutoCopy=0
link(onLoad,5102897:doDeCompress,[])
link(FileName,5796280:Item,[])
}
Add(FileStream,2913092,455,147)
{
Mode=1
Point(doCopyFromStream)
link(onLoad,13330609:doOperation,[])
link(FileName,1746657:Result,[])
}
Add(Hub,7988636,392,140)
{
OutCount=3
link(onEvent1,2913092:doOpen,[(438,146)(438,153)])
link(onEvent2,2913092:doCopyFromStream,[(424,153)(424,153)(429,173)])
link(onEvent3,2913092:doClose,[])
}
Add(Hub,16576249,252,147)
{
link(onEvent1,16673705:doOpen,[])
link(onEvent2,16673705:doClose,[])
}
Add(Button,11776512,119,49)
{
Left=10
Top=45
Width=100
Caption="..."
link(onClick,1455656:doBrowse,[(165,55)(165,55)])
}
Add(Browse,1455656,175,49)
{
NewDirButton=1
link(onBrowse,2456791:doSearch,[])
}
Add(FilePartElm,9200642,462,63)
{
Point(Part)
}
Add(Hub,1676969,427,98)
{
link(onEvent1,9200642:doPart,[(451,104)(451,69)])
link(onEvent2,1746657:doStrCat,[])
}
Add(StrCat,1746657,455,105)
{
link(onStrCat,16576249:doEvent1,[(499,111)(499,132)(240,132)(240,153)])
link(Str1,15955058:CurrentDir,[])
link(Str2,9200642:Part,[])
}
Add(Memo,12658363,266,49)
{
Left=115
Top=45
Width=445
Height=190
ScrollBars=3
}
Add(Edit,6594512,140,98)
{
Left=10
Top=95
Width=100
Text=""
link(onChange,7642161:doEnabled,[])
link(Str,2456791:Count,[(146,93)(223,93)])
}
Add(Edit,16133726,546,147)
{
Left=10
Top=120
Width=100
Text=""
}
Add(FileSearch,2456791,217,49)
{
link(onSearch,12658363:doAdd,[])
link(onEndSearch,6594512:doText,[(261,62)(261,90)(128,90)(128,104)])
}
Add(ArrayEnum,5796280,280,98)
{
link(onItem,1676969:doEvent1,[])
link(Array,12658363:Array,[])
}
Add(Math,13330609,504,147)
{
Op2=1
ResultType=0
link(onResult,16133726:doText,[])
link(Op1,13330609:Result,[(510,140)(540,140)(540,186)(510,186)])
}
Add(Dir,15955058,455,21)
{
}
Add(ZLIB,12540846,329,483)
{
link(onStream,4777859:doEvent1,[])
}
Add(FileStream,5836315,238,483)
{
link(onLoad,12540846:doCompress,[])
link(FileName,15675972:Item,[])
}
Add(FileStream,7045521,434,483)
{
Mode=1
Point(doCopyFromStream)
link(onLoad,3215479:doOperation,[])
link(FileName,8767606:FString,[])
}
Add(Hub,4777859,378,483)
{
OutCount=3
link(onEvent1,7045521:doOpen,[])
link(onEvent2,7045521:doCopyFromStream,[(406,496)(406,503)])
link(onEvent3,7045521:doClose,[(422,525)(422,496)])
}
Add(Button,2501746,147,350)
{
Left=10
Top=265
Width=100
Enabled=1
Caption="ЗАПАКОВКА"
Point(doEnabled)
link(onClick,15675972:doEnum,[])
}
Add(Hub,8567072,210,483)
{
link(onEvent1,5836315:doOpen,[])
link(onEvent2,5836315:doClose,[])
}
Add(Browse,7769244,105,294)
{
NewDirButton=1
link(onBrowse,16642943:doEvent1,[])
}
Add(Button,15557228,63,294)
{
Left=10
Top=240
Width=100
Caption="..."
link(onClick,7769244:doBrowse,[])
}
Add(Memo,15050096,224,294)
{
Left=115
Top=240
Width=445
Height=190
ScrollBars=3
}
Add(ArrayEnum,15675972,238,350)
{
link(onItem,7265170:doEvent1,[])
link(Array,15050096:Array,[])
}
Add(FileSearch,8361522,182,294)
{
link(onSearch,15050096:doAdd,[])
link(onEndSearch,9156418:doText,[(226,307)(226,331)(93,331)(93,356)])
}
Add(Edit,9156418,105,350)
{
Left=10
Top=290
Width=100
Text=""
link(onChange,2501746:doEnabled,[])
link(Str,8361522:Count,[(111,336)(188,336)])
}
Add(Edit,8037925,525,483)
{
Left=10
Top=315
Width=100
Text=""
}
Add(Math,3215479,483,483)
{
Op2=1
ResultType=0
link(onResult,8037925:doText,[])
link(Op1,3215479:Result,[(489,475)(519,475)(519,521)(489,521)])
}
Add(Dir,881542,336,245)
{
}
Add(Replace,3725269,322,329)
{
link(onReplace,16527525:doPart,[])
link(Sub_str,5115316:Result,[])
link(Dest,881542:CurrentDir,[])
}
Add(Hub,16642943,147,294)
{
link(onEvent1,8361522:doSearch,[])
link(onEvent2,5115316:doStrCat,[(245,307)(245,293)])
}
Add(Memory,8106114,434,336)
{
}
Add(StrCat,5115316,329,287)
{
Str2=""
}
Add(FilePartElm,16527525,364,329)
{
Mode=0
link(onPart,14332178:doEvent1,[])
}
Add(FormatStr,8767606,434,420)
{
Mask="%1%2"
Point(FString)
link(onFString,8567072:doEvent1,[(471,426)(471,458)(200,458)(200,489)])
link(Str1,8106114:Value,[])
}
Add(Hub,7265170,280,350)
{
link(onEvent1,3725269:doReplace,[(308,356)(308,335)])
link(onEvent2,5422669:doPart,[(326,363)(326,426)])
}
Add(FilePartElm,5422669,385,420)
{
link(onPart,8767606:doString,[])
}
Add(Hub,14332178,406,329)
{
link(onEvent1,3780101:doDir,[(430,335)(430,293)])
link(onEvent2,8106114:doValue,[])
}
Add(Dir,3780101,441,287)
{
}
END_SDK
Add(ChildPanel,14853106,203,42)
{
}
BEGIN_SDK
Add(EditMulti,13347306,14,3)
{
WorkCount=1
Width=542
Height=431
link(doWork1,15644632:doBringToFront,[(28,9)(28,125)])
}
Add(ListBox,2779505,280,98)
{
Left=200
Top=105
Width=110
Height=35
Visible=1
}
Add(Panel,15644632,42,105)
{
Top=20
Width=570
Height=440
BorderWidth=0
BevelOuter=1
Point(doColor)
Point(doBringToFront)
}
Add(ChildPanel,6471441,42,63)
{
}
BEGIN_SDK
Add(EditMulti,3417364,3,3)
{
}
Add(Panel,13815854,35,105)
{
Left=10
Top=10
Width=550
Height=25
Color=8421504
Font=[MS Sans Serif,8,1,16777215,204]
Caption="Работа с файл-листом"
BorderStyle=1
BevelInner=0
Point(doColor)
}
END_SDK
Add(Button,3684858,175,133)
{
Left=15
Top=133
Width=100
Caption="Распаковать"
link(onClick,6266358:doWork1,[])
}
Add(Button,9062914,182,224)
{
Left=15
Top=80
Width=100
Caption="Создать"
link(onClick,3276502:doEvent1,[])
}
Add(Memory,11653934,476,238)
{
Default=String(client.txt)
}
Add(ZLIB,12561954,406,294)
{
link(onStream,8954007:doEvent1,[])
}
Add(Button,4990534,280,294)
{
Left=15
Top=45
Width=100
Enabled=1
Caption="Паковать"
Point(doEnabled)
link(onClick,7682587:doData,[])
}
Add(FileStream,394734,476,280)
{
Mode=1
AutoCopy=0
Point(doCopyFromStream)
link(FileName,11653934:Value,[])
}
Add(Convertor,13031165,364,294)
{
Mode=12
link(onResult,12561954:doCompress,[])
}
Add(DoData,7682587,322,294)
{
link(onEventData,13031165:doConvert,[])
link(Data,14327085:Text,[])
}
Add(Hub,3276502,224,224)
{
link(onEvent1,8259289:doWork1,[])
link(onEvent2,8158824:In,[])
}
Add(LineBreak,14295791,175,294)
{
link(Out,5594631:doData,[])
Primary=[8158824,70,-63]
}
Add(DoData,5594631,217,294)
{
Data=Integer(1)
link(onEventData,12278931:doEvent1,[])
}
Add(Hub,12278931,259,294)
{
InCount=2
OutCount=1
link(onEvent1,4990534:doEnabled,[])
}
Add(DoData,15026069,217,336)
{
Data=Integer(0)
link(onEventData,12278931:doEvent2,[(254,342)(254,307)])
}
Add(LineBreak,8424910,175,336)
{
link(Out,15026069:doData,[])
Primary=[8642595,301,-14]
}
Add(Hub,8954007,448,294)
{
link(onEvent1,394734:doCopyFromStream,[])
link(onEvent2,8642595:In,[(472,307)(472,328)])
}
Add(Button,10423020,252,259)
{
Left=15
Top=100
Width=100
Caption="Сохранить"
link(onClick,14327085:doSave,[])
}
Add(Memory,5420793,329,175)
{
Default=String(client.txt)
}
Add(Memo,14327085,322,224)
{
Left=120
Top=45
Width=440
Height=385
ScrollBars=2
link(FileName,5420793:Value,[])
}
Add(MultiElement,6266358,217,133)
{
link(onEvent1,2779505:doSave,[])
link(onEvent2,2779505:doAdd,[(254,146)(254,104)])
}
BEGIN_SDK
Add(EditMulti,6133426,21,21)
{
EventCount=2
WorkCount=1
Width=307
link(doWork1,10950428:doExecute,[(35,27)(35,76)])
}
Add(Convertor,1535804,175,63)
{
Mode=11
link(onResult,14795004:doText,[])
}
Add(ZLIB,11909488,133,63)
{
link(onStream,1535804:doConvert,[])
}
Add(ArrayEnum,14584332,231,98)
{
link(onItem,6133426:onEvent2,[(295,104)(295,34)])
link(onEndEnum,7711949:doExecute,[(268,111)(268,139)])
link(Array,14795004:Array,[])
}
Add(StrList,14795004,217,42)
{
link(onChange,14584332:doEnum,[(261,48)(261,94)(219,94)(219,104)])
}
Add(ODialog,10950428,49,70)
{
link(onExecute,7595777:doOpen,[])
}
Add(FileStream,7595777,91,70)
{
link(onLoad,11909488:doDeCompress,[])
}
Add(SDialog,7711949,273,133)
{
Filter="*.txt"
FileName="1.txt"
link(onExecute,6133426:onEvent1,[(317,139)(317,27)])
}
END_SDK
Add(MultiElement,8259289,280,224)
{
link(onEvent1,14327085:doAdd,[])
}
BEGIN_SDK
Add(EditMulti,8889898,21,21)
{
EventCount=1
WorkCount=1
Width=734
Height=683
link(doWork1,16315534:doSearch,[(42,27)(42,83)])
}
Add(Hashsum,5984240,203,126)
{
link(onResult,14039184:doValue,[])
}
Add(StrList,1863104,105,77)
{
}
Add(ArrayEnum,4838292,119,133)
{
link(onItem,4389812:doEvent1,[])
link(Array,1863104:Array,[])
}
Add(FileSearch,16315534,63,77)
{
link(onSearch,1863104:doAdd,[])
link(onEndSearch,4838292:doEnum,[(55,90)(55,139)])
link(Dir,3114075:CurrentDir,[])
}
Add(FormatStr,8035474,245,252)
{
link(onFString,8889898:onEvent1,[(516,258)(516,27)])
link(Str1,14039184:Value,[])
link(Str2,1841272:Value,[])
}
Add(Dir,3114075,70,35)
{
}
Add(Dir,9435599,203,161)
{
}
Add(Replace,12975524,196,203)
{
DestStr=" "
link(onReplace,1841272:doValue,[])
link(Sub_str,9435599:CurrentDir,[])
}
Add(Hub,4389812,161,133)
{
link(onEvent1,5984240:doFileHashsum,[])
link(onEvent2,12975524:doReplace,[(185,146)(185,209)])
}
Add(Memory,1841272,252,203)
{
link(onData,8035474:doString,[(294,209)(294,240)(233,240)(233,258)])
}
Add(Memory,14039184,245,126)
{
}
END_SDK
END_SDK

карма: 0

0
Ответов: 1133
Рейтинг: 81
#28: 2011-02-07 21:59:35 ЛС | профиль | цитата
Solid писал(а):
а только ссылки ну и ничего критического

Я Hiupdate не смотрел еще, честно говоря лень, да и не было необходимости. С другой стороны чтобы что то менять надо тщательно изучить как все работает. Поскольку при обновлении обновляются не только файлы в директории с которой запущено Hiupdate, но и файлы в других директориях. Возможно надо менять еще и пути, а возможно ети пути программа получает автоматом с сервера.
В любом случае нужно все тщательно изучить, а может даже, в зависимости от того что вы хотите получить от проги, создать все с нуля ежели разбираться в чужом творчестве.
Могу посодействовать и попробовать "нарисовать" программку для Ваших конкретных нужд. Но в етом какой смысл? Ведь в таком случае Вы так и не поймете принцип работы и построения схем.
карма: 2

0
Ответов: 119
Рейтинг: 0
#29: 2011-02-07 22:22:58 ЛС | профиль | цитата
1. Он скачивает с сервера файл hashed.txt распаковывает его и начинает работу.
Файл представляет собой строки по типу хешсумма по собержимому файла и путь 6C5A8984DED0A69306B39395F9424FA0 intcurpen2.bmp и т.д. я написал сначала в ту тему потому, что очень тесно связано все это.
2. Я не нашел где он сравнивает хеш сумму файлов со списком
3. Как я понял каждый файл тоже запакован отдельно
карма: 0

0
Ответов: 1133
Рейтинг: 81
#30: 2011-02-07 23:53:54 ЛС | профиль | цитата
Solid писал(а):
2. Я не нашел где он сравнивает хеш сумму файлов со списком

вот здесь:
code_22466.txt
Solid писал(а):
Как я понял каждый файл тоже запакован отдельно

ДА...

Здесь идет загрузка файла:

Add(MainForm,2953706,378,259)
{
}
Add(HTTP_Get,13142930,462,233)
{
Wait=0
link(onStatus,4306622:doEvent1,[])
link(onDownload,13136775:doEvent1,[(504,246)(504,309)])
}
Add(StrCat,2048370,378,184)
{
link(onStrCat,16175694:doEvent1,[])
}
Add(ZLIB,13547628,574,296)
{
link(onStream,2338735:doEvent1,[])
}
Add(FileStream,6242335,693,289)
{
Mode=1
AutoCopy=0
Point(doCopyFromStream)
link(FileName,16171936:Var2,[])
}
Add(Hub,2338735,623,296)
{
link(onEvent1,15785818:doPart,[(647,302)(647,253)])
link(onEvent2,6242335:doCopyFromStream,[])
}
Add(Dir,3270630,763,247)
{
}
Add(FilePart,15785818,658,247)
{
link(onPath,11478614:doStrCat,[])
link(FileName,16171936:Var1,[(664,235)])
}
Add(StrCat,11478614,707,247)
{
link(onStrCat,3270630:doDir,[])
link(Str1,3270630:CurrentDir,[(713,235)(753,235)(753,293)(769,293)])
}
Add(Hub,13136775,539,303)
{
OutCount=3
link(onEvent1,13547628:doDeCompress,[])
}
Add(Hub,4306622,525,233)
{
OutCount=4
}
Add(GetDataEx,16171936,693,230)
{
link(Data,1477029:Var,[(699,212)(704,212)])
}
Add(Hub,16175694,420,184)
{
OutCount=5
link(onEvent3,13142930:GetURLSize,[(449,204)(449,253)])
link(onEvent5,13142930:doDownload,[(444,218)(444,239)])
}
Add(InfoTip,11764790,364,140)
{
Info=#29:Формирование URL для загрузки|
Width=78
Height=88
}
Add(PointHint,1477029,609,161)
{
Info=#33:Формирование путей для сохранения|
Width=190
}


Етих двух кусков хватает (после небольшой доработки)чтобы скачать обновление, почти все остальное токо для визуализации всего происходящего.
------------ Дoбавленo в 23.58:
Ну что же, засиделся я в етом топике.
Вот Вам кастрированная но рабочая прога "MiniHiUpdate". Думаю с етим Вы уже сможете справится

Add(MainForm,5561604,252,135)
{
Left=20
Top=105
Width=363
Height=125
Caption="HiAsm online update"
Point(Width)
Point(onResize)
link(onResize,12237195:doWork1,[(292,162)(292,141)])
}
Add(ChildPanel,12237195,301,135)
{
@Hint=#9:Top panel|
link(onEvent1,14306106:doStrCat,[])
}
BEGIN_SDK
Add(EditMulti,3396886,7,7)
{
EventCount=1
WorkCount=1
VarCount=2
Width=279
Height=179
link(doWork1,15610024:doResize,[(14,13)(14,27)])
link(Var2,16237997:Result,[(20,140)(139,140)])
}
Add(Panel,632427,91,21)
{
Width=355
Height=30
Align=2
BevelInner=0
Point(doColor)
}
Add(Edit,800876,133,21)
{
Left=65
Top=5
Width=285
Layout="top_panel"
WidthScale=100
Text="http://hiasm.com"
}
Add(StrCat,16237997,133,63)
{
Str2="/hi_zvcs/"
link(onStrCat,3396886:onEvent1,[(173,69)(173,13)])
link(Str1,800876:Text,[])
}
Add(HBoxLayout,15610024,49,21)
{
Name="top_panel"
Space=3
Padding=5
}
Add(Button,3490777,91,63)
{
Left=5
Top=5
TabOrder=-1
Layout="top_panel"
Caption="Update"
link(onClick,16237997:doStrCat,[])
}
END_SDK
Add(HTTP_Get,16180479,385,135)
{
link(onDownload,9579638:doDeCompress,[])
link(onStop,3137198:doEvent1,[(450,162)(450,183)])
}
Add(Convertor,7093061,476,135)
{
Mode=11
link(onResult,16036371:doText,[])
}
Add(StrList,16036371,525,114)
{
FileName="хеш"
}
Add(ZLIB,9579638,434,135)
{
link(onStream,7093061:doConvert,[])
}
Add(HubEx,4628014,721,212)
{
link(onEvent,13501557:doFileHashsum,[])
}
Add(StrPart,13624185,588,212)
{
Char=" "
Point(Left)
Point(Right)
link(onSplit,15275704:doCase,[])
}
Add(Hashsum,13501557,749,205)
{
link(onResult,2944035:doCompare,[])
}
Add(If_else,2944035,798,205)
{
link(onFalse,2048370:doStrCat,[(842,218)(842,267)(275,267)(275,316)])
link(Op2,13624185:Left,[(811,189)(732,189)(732,256)(594,256)])
}
Add(ArrayEnum,7302725,539,212)
{
Type=1
link(onItem,13624185:doSplit,[])
link(onEndEnum,14565385:doOn,[(580,225)(580,414)(422,414)(422,447)])
link(Array,16036371:Array,[])
}
Add(IndexToChanel,11053661,679,219)
{
Point(Index)
link(onEvent2,4628014:doWork3,[(725,232)])
link(Index,12237195:Var1,[(685,175)(307,175)])
}
Add(Hub,3137198,483,177)
{
link(onEvent2,7302725:doEnum,[(518,190)(518,218)])
}
Add(Case,15275704,630,212)
{
Value=String(HiUpdate.sha)
link(onNextCase,4628014:doWork2,[])
link(onTrue,11053661:doEvent,[])
}
Add(StrCat,14306106,343,135)
{
Str2="hashed.txt"
link(onStrCat,16180479:doDownload,[])
}
Add(HTTP_Get,13142930,371,359)
{
Wait=0
link(onStatus,4906143:doProcessMessages,[(422,365)(422,330)])
link(onDownload,13136775:doEvent1,[])
link(onStop,14546572:doOff,[(419,386)(419,391)])
}
Add(StrCat,2048370,287,310)
{
link(onStrCat,16175694:doEvent1,[])
link(Str1,12237195:Var2,[(293,238)(314,238)])
link(Str2,10224950:Var1,[(300,277)])
}
Add(ZLIB,13547628,525,359)
{
link(onStream,2338735:doEvent1,[])
}
Add(FileStream,6242335,644,352)
{
Mode=1
AutoCopy=0
Point(doCopyFromStream)
link(FileName,16171936:Var2,[])
}
Add(Hub,2338735,574,359)
{
link(onEvent1,15785818:doPart,[(598,365)(598,316)])
link(onEvent2,6242335:doCopyFromStream,[])
}
Add(Dir,3270630,714,310)
{
}
Add(FilePart,15785818,609,310)
{
link(onPath,11478614:doStrCat,[])
link(FileName,16171936:Var1,[(615,298)])
}
Add(StrCat,11478614,658,310)
{
link(onStrCat,3270630:doDir,[])
link(Str1,3270630:CurrentDir,[(664,298)(704,298)(704,356)(720,356)])
}
Add(Hub,13136775,490,366)
{
OutCount=3
link(onEvent1,13547628:doDeCompress,[])
}
Add(GetDataEx,16171936,644,293)
{
link(Data,10224950:Var3,[(650,277)])
}
Add(Hub,16175694,329,310)
{
OutCount=5
link(onEvent2,14546572:doOn,[(389,323)(389,398)])
link(onEvent3,13142930:GetURLSize,[(358,330)(358,379)])
link(onEvent5,13142930:doDownload,[(353,344)(353,365)])
}
Add(GetDataEx,10224950,595,272)
{
link(Data,13624185:Right,[])
}
Add(LED,14565385,434,427)
{
Left=10
Top=60
Width=20
Height=20
ColorOn=65280
}
Add(LED,14546572,434,378)
{
Left=10
Top=35
Width=20
Height=20
ColorOn=65280
}
Add(Label,16181518,252,182)
{
Left=35
Top=40
Width=29
Height=17
Caption="State"
}
Add(Label,1662814,252,210)
{
Left=35
Top=65
Width=43
Height=17
Caption="Finished"
}
Add(Application,4906143,427,324)
{
Wait=1
}


карма: 2

0
файлы: 1code_22466.txt [2.7KB] [231]
Сообщение
...
Прикрепленные файлы
(файлы не залиты)