HiAsm
HiAsm
Вверх ↑
ФорумыПомощь по пакетуCOM с управлением потоком XON/XOFF ← Ctrl12345678Ctrl →
Этот топик читают: Гость
Ответов: 16884
Рейтинг: 1239
#61: 2014-02-20 20:43:32 ЛС | профиль | цитата
flint2 писал(а):
А путного ответа никто не даст
"Путный ответ" - это готовая программа ?
Так это в КуплюПродам.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 43
Рейтинг: 1
#62: 2014-02-20 22:55:06 ЛС | профиль | цитата
Ребята, всем спасибо! Разобрался, всё получилось и работает!!!))
карма: 0

1
Голосовали:Tad
Ответов: 8928
Рейтинг: 823
#63: 2014-02-20 23:03:23 ЛС | профиль | цитата
mcmega, Ура!! (Ну а выложить финальный вариант, вдруг кому пригодится )
карма: 19

0
Ответов: 43
Рейтинг: 1
#64: 2014-02-21 10:22:21 ЛС | профиль | цитата
Ок, залил в файлообменник http://forum.hiasm.com/forum_serv.php?q=56&id=3707
1. Ребята, с помощью какого элемента можно сделать так: я скачиваю hex файл с сайта по ftp в память компонента или во временный файл (без диалогового окна сохранения), этот файл автоматом загружается в StrList (в блоке "Передача и приём"), а при закрытии программы очищается компонент, в котором хранились данные скачанного файла или удаляется временный файл, т.е. чтоб не париться с сохранением файла, а сразу его в буфер записи?
2. И ещё момент, где в примере Windows->Internet->WinFTP_Browser находятся данные скачанного файла (диалог о сохранении файла на диск будет удалён)?
3. Как изменить корозяблы в программе, как работать с ними?
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#65: 2014-02-21 11:24:07 ЛС | профиль | цитата
mcmega, будь попроще. Не надо лишних элементов. Думай.
Пример:
code_33125.txt
mcmega писал(а):
Как изменить корозяблы в программе, как работать с ними?
Леонид выше писАл.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_33125.txt [2.9KB] [158]
Ответов: 43
Рейтинг: 1
#66: 2014-02-21 11:41:47 ЛС | профиль | цитата
Где в примере Windows->Internet->WinFTP_Browser можно снять данные скачанного файла (диалог о сохранении файла на диск будет удалён)?
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#67: 2014-02-21 19:29:07 ЛС | профиль | цитата
mcmega, выдели компонент и нажми F1
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 43
Рейтинг: 1
#68: 2014-02-21 19:46:58 ЛС | профиль | цитата
Спасибо, вопросы сняты!
Я не могу понять, как автоматически удалять файл (при закрытии формы), созданный при скачивании с 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
карма: 0

0
файлы: 1code_33133.txt [11.6KB] [151]
Ответов: 16884
Рейтинг: 1239
#69: 2014-02-21 19:58:50 ЛС | профиль | цитата
Компонент 
Add(FileTools,15423454,882,420)
{
}
сверху имя файла, слева точка doDelete
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 43
Рейтинг: 1
#70: 2014-02-21 20:27:16 ЛС | профиль | цитата
Блин, у меня файл создаётся с именем как размер файла и без расширения. Как быть?
карма: 0

0
Ответов: 8928
Рейтинг: 823
#71: 2014-02-21 20:31:36 ЛС | профиль | цитата
Tad, ой, и у меня справа
Ой.jpg
------------ Дoбавленo в 20.31:
mcmega, когда слева поступает событие с информацией, то информация заносится в первую "свободную" верхнюю точку, у Вас, наверное, эта точка как раз имя файла
карма: 19

0
файлы: 1Ой.jpg [19.3KB] [358]
Ответов: 43
Рейтинг: 1
#72: 2014-02-21 21:22:38 ЛС | профиль | цитата
Что то я совсем запутался, тыкните пальцем, что нужно сделать.
Не могу найти, где данные из скачанного файла хранятся или хотя бы как сохранить файл скачанный на диск без вызова диалогового окна (сохранить как) в папку с программой и именем как на сервере FTP?
Вся прога http://forum.hiasm.com/forum_serv.php?q=56&id=3709
#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,16711935)
   link(FileName,10849808:Value,[(202,100)(639,100)(639,409)(608,409)])
  }
  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,[(212,163)(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)
  {
   OutCount=3
   link(onEvent1,16612106:doClose,[])
   link(onEvent2,10513770:doOff,[(78,230)(78,195)])
   link(onEvent3,15423454:doDelete,[(78,237)(78,468)])
  }
  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,15829686:Var3,[])
  }
  Add(InfoTip,7402917,23,167)
  {
   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
  }
  Add(FileTools,15423454,483,448)
  {
   DelToRecycle=1
   PColor(FileName,16711935)
   link(FileName,15829686:Var2,[])
  }
  Add(GetDataEx,15829686,483,410)
  {
   Angle=3
   PColor(Data,16711935)
   link(Data,10114046:Left,[(482,415)])
  }
END_SDK

------------ Дoбавленo в 21.22:
Вроди разобрался)
карма: 0

0
файлы: 1code_33137.txt [12.8KB] [171]
Ответов: 16884
Рейтинг: 1239
#73: 2014-02-21 21:28:18 ЛС | профиль | цитата
Исправил.
Леонид, наверное уже привыкаю писать и читать справа налево.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 43
Рейтинг: 1
#74: 2014-02-21 22:17:44 ЛС | профиль | цитата
Tad и Леонид, подскажите пожалуйста:
Я хочу отслеживать последовательность символов приходящих с порта mr0000+** (* это может быть любым значением). Как только пришли символы mr0000+, мне нужно следующие 2 символа (**) отобразить в компоненте Lable (Надпись). Как можно это сделать?
карма: 0

0
Ответов: 8928
Рейтинг: 823
#75: 2014-02-21 22:35:51 ЛС | профиль | цитата
mcmega, code_33138.txt
карма: 19

0
файлы: 1code_33138.txt [660B] [158]
ФорумыПомощь по пакетуCOM с управлением потоком XON/XOFF ← Ctrl12345678Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2024
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика