Я не могу понять, как автоматически удалять файл (при закрытии формы), созданный при скачивании с FTP сервера?
Вот блок FTP
#pas
Add(ChildGroupBox,12770962,378,322)
{
}
BEGIN_SDK
Add(EditMulti,13159196,21,70)
{
EventCount=1
WorkCount=1
Width=734
Height=459
VOffset=147
HOffset=500
link(doWork1,13619925:doEvent1,[])
}
Add(GroupBox,365837,37,371)
{
Left=5
Top=2
Width=258
Height=369
Caption="Обновления на сайте"
MakeTrans(Caption)
}
Add(Button,15340873,85,210)
{
@Hint=#26:Подключиться к FTP серверу|
Left=10
Top=16
Width=190
Height=30
Caption="Подключиться к серверу"
Data=Integer(0)
link(onClick,16612106:doOpen,[])
}
Add(Button,8613638,406,371)
{
Left=10
Top=331
Width=190
Height=30
Caption="Загрузить обновление"
MakeTrans(Caption)
link(onClick,22349:doWork3,[(445,377)])
}
Add(Label,8174238,36,420)
{
Left=10
Top=50
Width=136
Height=17
Caption="Устройства и обновления"
MakeTrans(Caption)
}
Add(WinFTP,16612106,196,210)
{
@Hint=#21:Работа с FTP сервером|
Host="185.28.20.123"
Username="u811458263.update"
Password="1Qaz2Wsx3Edc"
Directory="."
Point(onConnect)
Point(doFindFile)
Point(onFindFile)
Point(FoundFileName)
Point(FoundIsDirectory)
Point(FoundFileSize)
Point(onEndFind)
Point(doDirectory)
Point(onReadProgress)
PColor(RemoteName,16711935)
link(onError,8955230:MassageErr,[(236,216)(236,188)])
link(onRead,257687:doEvent1,[])
link(LocalName,11527279:Stream,[])
link(RemoteName,6957708:Var2,[])
link(onConnect,7219869:doEvent1,[])
link(onFindFile,5830101:FindFiles,[(258,237)(258,363)])
link(onEndFind,15245205:doData,[(258,244)(258,398)])
}
Add(LED,10513770,294,182)
{
Left=210
Top=16
Width=30
Height=30
ColorOn=65280
ColorOff=32768
ColorBlick=65280
}
Add(Hub,7219869,266,224)
{
link(onEvent1,10513770:doOn,[(287,230)(287,202)])
link(onEvent2,12702542:doEvent1,[(287,237)(287,272)])
}
Add(DoData,15245205,287,392)
{
Data=Integer(1)
link(onEventData,14496573:doSort,[])
}
Add(Hub,12702542,294,266)
{
InCount=2
OutCount=4
link(onEvent1,14496573:doClear,[(359,272)(359,363)])
link(onEvent2,14496573:doClearIcons,[(359,279)(359,405)])
link(onEvent3,5830101:UpDir,[(325,286)(325,321)(275,321)(275,356)])
link(onEvent4,16612106:doFindFile,[(317,293)(317,262)(184,262)(184,244)])
}
Add(StrPart,10114046,469,371)
{
Char=";"
Point(Right)
Point(Left)
link(onSplit,13548607:doEvent1,[])
link(Str,14496573:Select,[(475,362)(462,362)(462,429)(384,429)])
}
Add(Case,8101332,553,371)
{
Value=String()
link(onNextCase,10849808:doValue,[])
link(onTrue,2940043:doEvent1,[(594,384)(594,301)(94,301)(94,272)])
}
Add(Hub,9404152,658,371)
{
link(onEvent1,11527279:doOpen,[(682,377)(682,154)(184,154)(184,118)])
link(onEvent2,16612106:doReadFile,[(682,384)(682,154)(184,154)(184,230)])
}
Add(FileStream,11527279,196,112)
{
Mode=1
PColor(FileName,8388863)
link(FileName,10849808:Value,[(202,100)(645,100)(645,415)(608,415)])
}
Add(Hub,257687,336,217)
{
OutCount=3
link(onEvent1,11527279:doClose,[(358,223)(358,175)(184,175)(184,125)])
link(onEvent2,8755687:doOn,[])
link(onEvent3,14496573:doSetFocus,[(359,237)(359,412)])
}
Add(DoData,11751105,133,245)
{
PColor(Data,16711935)
link(onEventData,16612106:doDirectory,[])
link(Data,6957708:Var1,[(139,163)])
}
Add(Hub,2940043,105,266)
{
link(onEvent1,11751105:doData,[(126,272)(126,251)])
link(onEvent2,12702542:doEvent2,[])
}
Add(MultiElementEx,8955230,245,182)
{
@Hint=#32:Сообщения об ошибках подключения|
}
BEGIN_SDK
Add(EditMultiEx,10796018,21,21)
{
WorkCount=#10:MassageErr|
Width=181
Height=144
link(MassageErr,1977508:doRead,[(31,27)(31,111)])
}
Add(StrList,8138722,42,35)
{
Strings=#0:|23:Нет доступа к Интернету|101:Ошибка создания FTP-сессии%13%10Проверьте правильность ввода параметров%13%10Host, UserName, Password|15:Доступ запрещён|24:Ошибка файловой операции|23:Ошибка доступа к файлу |0:|1: |
}
Add(ArrayRW,1977508,56,105)
{
link(onRead,10129075:doReplace,[])
link(Array,8138722:Array,[])
}
Add(Message,7735763,154,105)
{
Caption="Внимание!"
Icon=3
}
Add(Replace,10129075,105,105)
{
SubStr="%13%10"
DestStr="
"
link(onReplace,7735763:doMessage,[])
}
END_SDK
Add(MultiElementEx,5830101,287,350)
{
@Hint=#42:Add Icons, FileNames and FileSize In Table|
link(AddTable,14496573:doAdd,[])
link(InserIcon,14496573:doMT_InsertIcon,[(348,363)(348,391)])
link(CountIcon,14496573:CountIcons,[(293,338)(339,338)(339,435)(391,435)])
link(IdxIcon,14496573:EndIdxIcons,[(300,338)(339,338)(339,435)(398,435)])
link(FoundFile,16612106:FoundFileName,[(307,330)(202,330)])
link(IsDirectory,16612106:FoundIsDirectory,[(314,330)(209,330)])
link(FileSize,16612106:FoundFileSize,[(321,330)(216,330)])
}
BEGIN_SDK
Add(EditMultiEx,6780904,21,21)
{
WorkCount=#5:UpDir|9:FindFiles|
EventCount=#8:AddTable|9:InserIcon|
DataCount=#9:CountIcon|7:IdxIcon|9:FoundFile|11:IsDirectory|8:FileSize|
Width=482
Height=214
link(UpDir,4752475:doAdd,[(38,27)(38,188)])
link(FindFiles,5577188:doCompare,[(31,34)(31,118)])
}
Add(Icon,9901193,196,63)
{
Icon=[ZIP7E03000078DA63606004420101062029C190C1CCC020C6C0C0A001C44021060506883808383033E0001F3F7EBCF6FCF975BCE0EEDDBB70F51F4E2D4B2304A64D9B86AC7E665A1A7E0404C8EAFFBF3983059D99F9FFCC198869E8EA2F6EFC7F1C8CD64EB0AEF4929ABD4165D2DCFFFDD9FF1F6DC4AA3EA23ACC33DBD335C5618DA3266BCF1AAE1D4FB9AEFCE73EF109680256F57F6BA341A6ED9CFFC2CB42B1348F6BDD75A07A2002099E3983A97EDFF4D8FFD5C1FF0FADFB9619E0176929B0FC84C6E2598ABBCF01D563353F636BF8FB42B7FFCBBB801695879BF29604729D6CE27A3315977AA0BF78526FAB26AF92F4DFC620B45038CB996B770DD7B3E9405D58D5FFFBF7CFA8FBA548C3FFC4B5FFB9DC6F98C65B732E29E4BAD5CFF5661650B6B1B111533DD00AFEF2FF491BFF73457D3609AB03722108A21E08D0D5FFBF92BB698FDFE22F0E93AF02D9FF3E3E86472E50F1810307E0EA81F1F80F1B00AA04796DA6315031904B503DD05860D00315031330727A3E3373265604540F4CC6C88A0F30FEFF4F16660662F6FFFF010A9DBA61]
}
Add(FormatStr,5779506,371,119)
{
DataCount=3
Mask="%1;%2;%3"
link(onFString,4170084:doWork2,[])
link(Str1,14690881:Var2,[])
link(Str2,11898375:Var2,[])
link(Str3,6780904:FileSize,[(391,30)(55,30)])
}
Add(IndexToChanel,13699347,140,112)
{
Point(Index)
link(onEvent1,16261089:doAdd,[])
link(onEvent2,1823088:doAdd,[])
link(Index,6780904:IsDirectory,[(146,84)(48,84)])
}
Add(Icon,13770332,245,63)
{
Icon=[ZIP5606000078DAAD535F288351143FDB9292464AC432227F4A126F9E9467AF5EBD0D89C494C87F1219B62493B4922225854864D142F6C603E5C183795114DA3CECFBAEDFFDAECDC73E9BB4D3B97777E7FBDD7BCF3DE7F723D2919E8C46C26F269DE9890A89283555FC6F34103D21568C1820642211E7E6D2531CCC12CB4240D3D00E3C6B602BA37733BD6723AD6B3DA57335B97D25A96D39B1C595D0BC1482E78DED5BBCAC70F2C8C958C775D07A23596FF8ACAC83356BB788EB1A16146CC1C421B0A50E0F627DF752BF4FEEF7F159594BB55B0F881B9A16156C91CD0D6CC5FC0562932F92ED55B6BDF259594B7507CF888B34884AA68F5BAF58A5D38B58A4D77BDE31236B058BDBBBEF780E4CCB061EF88C472AD8B2D9D3D1471E03FC8723BDFCF103F3E81E4AA414AC7CEEDC1E60337EC91190ED7E792320ABCF0556555CBC8AA91284A1322864CEC8AE28FAF7A6E161E183704DAC1EE374A0903BC5CBF8C5EE4454C7C018690D7CA3140C3363C3C09E7E26CB790C6A53AE8AC7D586786565F99B85F91C85CC201D384A16A7D822388DE6A2392096A657B92EF1556C11BC161A00B9345DAD04C16DA103104CD3D56A00BFC35A00C9345DAD089C1C450F91AA0057A268225219A0574C5D640F6EA3E082CBC81C194EBD7DF31F86BE849B2508EF8C2A11B4F2378DC050B198FCC196F84BE5FFFAD2A1C658D16F43F7A5B541E04F54AFFD00712CBAE9]
}
Add(FormatStr,349504,399,154)
{
Mask="%1;%2"
link(onFString,10598204:doWork2,[])
link(Str1,13352788:Var2,[])
link(Str2,11898375:Var3,[(412,37)])
}
Add(Hub,16135669,336,147)
{
link(onEvent1,14022850:doWork2,[])
link(onEvent2,349504:doString,[])
}
Add(Hub,14266579,336,112)
{
link(onEvent1,2562782:doWork2,[])
link(onEvent2,5779506:doString,[])
}
Add(StrMask,14539725,91,112)
{
Mask="."
link(onFalse,13699347:doEvent,[])
}
Add(StrMask,5577188,49,112)
{
Mask=".."
link(onFalse,14539725:doCompare,[])
}
Add(FormatStr,7087194,427,189)
{
DataCount=1
Mask="%1;.."
link(onFString,10598204:doWork3,[(473,195)])
link(Str1,13352788:Var3,[(433,44)])
}
Add(Hub,2067646,336,182)
{
link(onEvent1,14022850:doWork3,[(480,188)])
link(onEvent2,7087194:doString,[])
}
Add(Icon,6023958,294,63)
{
Icon=[ZIP7E03000078DA63606004420101062029C190C1CCC020C6C0C0A001C440210605068838083830330C59A073345C737F10EF3229F7090104557A3DAE0DFFD0E57AB79C78C54092A062887AA0B1C4980C014037DB5E2B002222D503CD373D9D0644DAEB22F12803CA024D062A46437874196C8A95DF618B8C8022041D2FB2561382806C62DCAFBACB1318474092F898753F503D80E9EAFF7F24CCCFC0F0479E81E1873D10D723F001A0D803A0D807101FA8EE2F921E00C10A5B68]
}
Add(HubEx,14022850,476,147)
{
Angle=3
link(onEvent,2562782:doWork3,[])
}
Add(HubEx,2562782,476,112)
{
Angle=3
link(onEvent,6780904:InserIcon,[(480,34)])
}
Add(GetDataEx,14690881,371,39)
{
Angle=3
link(Data,6780904:IdxIcon,[(34,44)])
}
Add(GetDataEx,13352788,399,39)
{
Angle=3
link(Data,14690881:Var3,[])
}
Add(HubEx,4170084,469,119)
{
Angle=3
link(onEvent,6780904:AddTable,[(473,27)])
}
Add(HubEx,10598204,469,154)
{
Angle=3
link(onEvent,4170084:doWork3,[])
}
Add(GetDataEx,11898375,378,32)
{
Angle=3
link(Data,6780904:FoundFile,[(41,37)])
}
Add(MT_AddData,16261089,189,112)
{
link(onAdd,14266579:doEvent1,[])
link(Data1,3369112:Var2,[])
link(Data2,9901193:Icon,[])
}
Add(GetDataEx,3369112,189,46)
{
Angle=3
link(Data,6780904:CountIcon,[(27,51)])
}
Add(MT_AddData,1823088,238,119)
{
link(onAdd,16135669:doEvent1,[(313,125)(313,153)])
link(Data1,1892348:Var2,[])
link(Data2,13770332:Icon,[])
}
Add(GetDataEx,1892348,238,46)
{
Angle=3
link(Data,3369112:Var3,[])
}
Add(MT_AddData,4752475,287,182)
{
link(onAdd,2067646:doEvent1,[])
link(Data1,1892348:Var3,[(293,51)])
link(Data2,6023958:Icon,[])
}
END_SDK
Add(HubEx,22349,441,357)
{
link(onEvent,10114046:doSplit,[(458,363)(458,377)])
}
Add(GetDataEx,6957708,203,158)
{
Angle=1
PColor(Data,16711935)
link(Data,9741319:Var3,[(509,163)(509,415)])
}
Add(LED,8755687,420,210)
{
Left=210
Top=331
Width=30
Height=30
ColorOn=65280
ColorOff=32768
ColorBlick=65280
}
Add(Hub,13619925,56,217)
{
link(onEvent1,16612106:doClose,[])
link(onEvent2,10513770:doOff,[(78,230)(78,195)])
}
Add(Memory,10849808,602,371)
{
link(onData,9404152:doEvent1,[])
}
Add(StringTableMT,14496573,371,350)
{
Left=10
Top=67
Width=240
Height=240
Color=16777215
Columns=#10:Имя=170==0|15:Размер, Б=65==1|
ColumnClick=1
ColumnWidth=0
MinColWidth=0
MaxColWidth=0
Flat=1
TabGridFrame=0
Grid=0
TextBkColor=15532012
BkColor=15532012
ShadowColor=-16777200
AssignedIList=0
IconsCheck=[]
MiscIcons=[]
Icons=[]
Point(CountIcons)
Point(EndIdxIcons)
Point(doMT_InsertIcon)
Point(doSort)
Point(doClearIcons)
Point(onDblClick)
Point(doSetFocus)
link(onClick,8755687:doOff,[(411,356)(411,223)])
link(onDblClick,22349:doWork2,[])
}
Add(Hub,13548607,518,371)
{
link(onEvent1,8101332:doCase,[])
link(onEvent2,12673398:doData,[(542,384)(542,440)])
}
Add(DoData,12673398,553,434)
{
PColor(Data,16711935)
link(onEventData,13159196:onEvent1,[(723,440)(723,223)])
link(Data,9741319:Var2,[(559,426)(496,426)])
}
Add(GetDataEx,9741319,490,410)
{
Angle=3
PColor(Data,16711935)
link(Data,10114046:Left,[(482,415)])
}
Add(InfoTip,7402917,23,237)
{
Info=#7:Закрыть|10:FTP-сессию|
Frame=1
Height=25
}
Add(InfoTip,10578249,765,230)
{
Info=#23:Выдача имени скачанного|18:файла и содержания|
Frame=1
Width=106
Height=46
}
Add(InfoTip,12085295,450,335)
{
Info=#16:a - размер файла|13:b - имя файла|
Frame=1
Width=92
Height=25
}
END_SDK