Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2009-06-20 16:05:34 ЛС | профиль | цитата
nesco, я уже все варианты перепробовал.
------------ Дoбавленo в 16.34:
Вот здесь не Activate и чистка есть. Откуда оно берет второй список или где-то буфер не чистится - не понимаю.

Add(MainForm,2953706,56,161)
{
Width=445
Height=352
Font=[Arial,10,0,0,204]
Caption="Обновление программы HiAsm"
BorderStyle=1
Position=1
Point(onShow)
link(onShow,3288357:doPing,[(96,188)(96,167)])
}
Add(MultiElementEx,9986156,273,126)
{
@Hint=#43:Чтение списка файлов и их контрольных сумм |
link(onStop,13672992:doWork1,[])
link(onEndEnum,13672992:doWork2,[])
}
BEGIN_SDK
Add(EditMultiEx,13606272,14,0)
{
WorkCount=#19:Start=начало работы|7:doClear|
EventCount=#24:onStop=Закачка завершена|9:onEndEnum|
VarCount=#37:Result=http://hiasm.narod.ru/hi_zvcs/|
Width=384
Height=144
link(Start,16237997:doStrCat,[(35,6)(35,41)])
link(doClear,16036371:doClear,[(157,13)(157,27)])
link(Result,16237997:Result,[(20,86)(55,86)])
}
Add(HTTP_Get,16180479,147,35)
{
link(onDownload,9579638:doDeCompress,[])
link(onStop,14881333:doEnum,[(187,62)(187,90)])
}
Add(Convertor,7093061,238,35)
{
Mode=11
link(onResult,16036371:doText,[])
}
Add(StrCat,13715317,91,35)
{
Str2="hashed.txt"
link(onStrCat,16180479:doDownload,[])
}
Add(StrList,16036371,315,14)
{
Point(doSort)
}
Add(StrCat,16237997,49,35)
{
Str1="http://hiasm.narod.ru"
Str2="/hi_zvcs/"
link(onStrCat,13715317:doStrCat,[])
}
Add(ZLIB,9579638,196,35)
{
link(onStream,7093061:doConvert,[])
}
Add(ArrayEnum,14881333,329,84)
{
link(onItem,13606272:onStop,[(382,90)(382,6)])
link(onEndEnum,13606272:onEndEnum,[(390,97)(390,13)])
link(Array,16036371:Array,[])
}
END_SDK
Add(ChildGroupBox,13672992,329,126)
{
@Hint=#24:Отбор файлов для закачки|
link(onEvent1,6503252:doData,[(379,132)(379,467)(280,467)(280,433)])
link(onEvent2,11921051:doWork2,[(373,139)(373,34)(36,34)(36,223)])
link(Data1,14996553:Result,[])
}
BEGIN_SDK
Add(EditMulti,12520503,21,21)
{
EventCount=2
WorkCount=5
DataCount=1
VarCount=2
Width=335
Height=277
link(doWork1,14575946:doSplit,[(87,27)(87,34)])
link(doWork2,6532100:doCompare,[(57,34)(57,258)])
link(doWork3,6547804:doSelect,[(70,41)(70,167)])
link(doWork4,6547804:doSave,[(77,48)(77,160)])
link(doWork5,6547804:doClear,[(109,55)(109,132)])
link(Var1,2079398:Var1,[(27,226)])
link(Var2,6547804:String,[(34,234)(223,234)])
}
Add(GroupBox,4919579,259,42)
{
Left=10
Top=10
Width=243
Height=271
Font=[MS Sans Serif,12,1,0,1]
Caption="Новые файлы"
}
Add(ListBox,6547804,196,119)
{
Left=15
Top=25
Width=210
Height=235
Font=[Arial,12,0,0,204]
Point(doSelect)
Point(String)
link(onClick,6547804:doDelete,[(238,132)(238,183)(184,183)(184,139)])
link(Str,14575946:Right,[])
link(FileName,12520503:Data1,[(209,70)(27,70)])
}
Add(StrPart,14575946,189,28)
{
Char=" "
Point(Left)
Point(Right)
link(onSplit,14830115:doFileHashsum,[(229,34)(229,79)(91,79)(91,125)])
}
Add(Hashsum,14830115,105,112)
{
link(onResult,4562575:doCompare,[])
}
Add(If_else,4562575,147,112)
{
link(onFalse,6547804:doAdd,[])
link(Op2,14575946:Left,[(160,86)(195,86)])
}
Add(GetDataEx,2079398,196,217)
{
link(Data,6547804:Count,[])
}
Add(If_else,6532100,203,252)
{
Op2=Integer(0)
link(onTrue,12520503:onEvent1,[(327,258)(327,27)])
link(onFalse,12520503:onEvent2,[(338,265)(338,34)])
link(Op1,2079398:Var2,[])
}
END_SDK
Add(Hub,2630176,175,105)
{
OutCount=5
link(onEvent1,11075532:doEvent1,[(201,111)(201,149)(163,149)(163,188)])
link(onEvent3,8042306:doStrCat,[(238,125)(238,90)])
link(onEvent4,9986156:Start,[])
link(onEvent5,14996553:doStrCat,[(194,139)(194,83)])
}
Add(Button,13883676,70,217)
{
Left=318
Top=246
Width=102
Height=35
Font=[MS Sans Serif,8,1,0,1]
Enabled=1
TabOrder=-1
Caption="ОБНОВИТЬ"
Data=Integer(0)
Point(doEnabled)
link(onClick,6880873:doEvent1,[])
}
Add(Label,14404991,392,336)
{
Left=285
Top=131
Width=115
Height=80
Font=[MS Sans Serif,12,1,255,1]
Caption=""
AutoSize=1
Alignment=2
Point(doVisible)
}
Add(Hub,8282336,280,238)
{
OutCount=5
link(onEvent1,13672992:doWork3,[(320,244)(320,146)])
link(onEvent2,10243851:doString,[(504,251)(504,174)])
link(onEvent3,15999216:doString,[(511,258)(511,209)])
link(onEvent4,2007639:doMove,[])
link(onEvent5,2048370:doStrCat,[])
}
Add(StrCat,14996553,329,77)
{
Str2=".txt"
link(Str1,10364385:Var2,[])
}
Add(Time,12591192,329,14)
{
Format="YMD_hm"
}
Add(StrCat,8042306,273,84)
{
Str1="Обновление программы HiAsm на "
link(onStrCat,2953706:doCaption,[(313,90)(313,70)(47,70)(47,167)])
link(Str2,10364385:Var1,[(286,58)])
}
Add(GetDataEx,10364385,322,49)
{
link(Data,12591192:FormatTime,[])
}
Add(ProgressBar,14675874,686,322)
{
Left=10
Top=295
Width=415
Height=15
Color=-16777206
Ctl3D=0
Max=0
Smooth=1
ProgressColor=16711680
Point(doMax)
}
Add(HTTP_Get,13142930,525,308)
{
Wait=0
link(onStatus,7220894:doWork2,[])
link(onDownload,13547628:doDeCompress,[(565,321)(565,286)])
link(onURLSize,9907604:doEvent1,[])
}
Add(StrCat,2048370,392,266)
{
link(onStrCat,7664994:doEvent1,[(450,272)(450,328)])
link(Str1,9986156:Result,[(398,228)(279,228)])
link(Str2,10228305:Var2,[])
}
Add(ZLIB,13547628,616,273)
{
link(onStream,6242335:doCopyFromStream,[])
}
Add(FileStream,6242335,686,259)
{
Mode=1
AutoCopy=0
Point(doCopyFromStream)
link(FileName,10228305:Var3,[(692,219)])
}
Add(Hub,7664994,476,322)
{
OutCount=3
link(onEvent1,13142930:GetURLSize,[])
link(onEvent2,13142930:doDownload,[(506,335)(506,314)])
link(onEvent3,8686078:doProcessMessages,[(507,342)(507,349)])
}
Add(Application,8686078,525,343)
{
}
Add(Hub,9907604,581,322)
{
link(onEvent1,15208502:doWork2,[])
link(onEvent2,14675874:doMax,[])
}
Add(Memory,5060034,616,315)
{
Default=Integer(0)
link(onData,7220894:doWork3,[(662,321)])
}
Add(HubEx,7220894,658,301)
{
link(onEvent,14675874:doPosition,[(677,314)(677,328)])
}
Add(DoData,13298349,294,336)
{
Data=String(Обновление закончено)
link(onEventData,15168872:doWork2,[])
}
Add(Hub,6880873,119,217)
{
OutCount=4
link(onEvent1,11921051:doWork1,[(144,223)(144,208)(46,208)])
link(onEvent2,13672992:doWork4,[(218,230)(218,153)])
link(onEvent3,7949789:doValue,[(479,237)(479,90)])
link(onEvent4,1119681:doFor,[])
}
Add(DoData,16400650,294,378)
{
Data=Integer(0)
link(onEventData,11921051:doWork3,[(336,384)(336,417)(46,417)])
}
Add(HubEx,11921051,42,210)
{
link(onEvent,13883676:doEnabled,[])
}
Add(Hub,9406442,266,336)
{
OutCount=3
link(onEvent1,13298349:doData,[])
link(onEvent2,16400650:doData,[(285,349)(285,384)])
link(onEvent3,15208502:doWork3,[(606,356)])
}
Add(DoData,6503252,294,427)
{
Data=String(Нет файлов для обновления)
link(onEventData,15168872:doWork3,[(347,433)])
}
Add(HubEx,15168872,343,329)
{
link(onEvent,14404991:doText,[])
}
Add(Dir,14792488,588,91)
{
}
Add(Dir,11138793,693,168)
{
}
Add(FormatStr,10243851,588,168)
{
Mask="%1\%2"
link(onFString,9688587:doWork2,[])
link(Str1,3889994:Var2,[])
link(Str2,5085497:Var1,[(601,144)])
}
Add(FileTools,2007639,518,259)
{
link(FileName,5085497:Var2,[])
link(NewFileName,15999216:FString,[(531,247)(538,247)])
}
Add(Memory,7949789,539,84)
{
Point(Data)
link(Data,10364385:Var3,[(545,58)])
}
Add(FormatStr,15999216,532,203)
{
DataCount=3
Mask="%3\%2\%1"
Point(FString)
link(onFString,9688587:doWork3,[(627,209)])
link(Str1,5085497:Var3,[(538,149)])
link(Str2,7949789:Value,[])
link(Str3,3889994:Var1,[(552,156)])
}
Add(HubEx,9688587,623,161)
{
link(onEvent,11939829:doPart,[])
}
Add(GetDataEx,3889994,581,147)
{
link(Data,14792488:CurrentDir,[])
}
Add(HubEx,15208502,602,315)
{
link(onEvent,5060034:doClear,[])
}
Add(MultiElementEx,3288357,105,161)
{
@Hint=#32:Проверка подключения к интернету|
link(onFind,2630176:doEvent1,[(150,167)(150,111)])
link(onEventData,15168872:doWork1,[(347,174)])
}
BEGIN_SDK
Add(EditMultiEx,1017088,21,21)
{
WorkCount=#6:doPing|
EventCount=#6:onFind|11:onEventData|
Width=132
Height=95
link(doPing,14480880:doPing,[(35,27)(35,69)])
}
Add(Ping,14480880,49,63)
{
Name="http://hiasm.narod.ru"
TimeOut=5000
link(onFind,1017088:onFind,[(117,69)(117,27)])
link(onFailed,3997543:doData,[])
}
Add(DoData,3997543,98,70)
{
Data=String(Сервер не найден)
link(onEventData,1017088:onEventData,[(141,76)(141,34)])
}
END_SDK
Add(FilePartElm,11939829,644,168)
{
Mode=0
link(onPart,11138793:doDir,[])
}
Add(GetDataEx,5085497,511,140)
{
Angle=3
link(Data,10228305:Var1,[(405,149)])
}
Add(For,1119681,210,238)
{
IncludeEnd=1
link(onEvent,8282336:doEvent1,[])
link(onStop,9406442:doEvent1,[(254,251)(254,342)])
link(End,13672992:Var1,[(223,218)(335,218)])
}
Add(GetDataEx,10228305,392,210)
{
Angle=3
link(Data,13672992:Var2,[(342,219)])
}
Add(Hub,11075532,175,182)
{
link(onEvent1,9986156:doClear,[(210,188)(210,139)])
link(onEvent2,13672992:doWork5,[(248,195)(248,160)])
}


карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0