Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#16: 2008-03-03 10:25:07 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-09 06:33:21
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#17: 2008-03-03 12:30:40 ЛС | профиль | цитата
Так я к твоей схеме и подключал ProgressBar Просто использовал твою идею для себя. Тоже была такая же задача. Только у меня для разных разносок - разные целевые списки, поэтому и добавил Load и Save.
------------ Дoбавленo:

avo,немного причесал
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 11
Рейтинг: 0
#18: 2008-03-03 13:35:00 ЛС | профиль | цитата
avo писал(а):
avo,немного причесал

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

Добавил... Только файлики прикреплять я не могу Это не вся схема, а только кусок Копирование).

#sha
Add(MultiElementEx,13921687,238,126)
{
@Hint=#12:копирование |
}
BEGIN_SDK
Add(EditMultiEx,534635,21,21)
{
WorkCount=#6:doEnum|
EventCount=#8:onEvent3|8:onEvent1|
VarCount=#5:Index|
DataCount=#7:Sub_str|4:Dest|4:Flag|5:Array|
Width=394
Height=227
link(doEnum,10734934:doEnum,[(35,27)(35,111)])
link(Index,6179399:Result,[(27,228)(139,228)])
}
Add(Hub,2024262,154,112)
{
OutCount=3
link(onEvent1,887180:doReplace,[])
link(onEvent2,12393068:doCopy,[(211,125)(211,188)])
link(onEvent3,534635:onEvent3,[(254,132)(254,27)])
}
Add(FileTools,12393068,259,175)
{
link(NewFileName,679930:Var2,[])
}
Add(Replace,887180,217,112)
{
link(onReplace,5477216:doValue,[])
link(Sub_str,534635:Sub_str,[(230,47)(27,47)])
link(Dest,534635:Dest,[(237,40)(34,40)])
}
Add(Memory,5477216,266,112)
{
link(onData,10036733:doEvent1,[])
}
Add(StrPart,10123097,98,105)
{
Char=";"
link(onSplit,893403:doValue,[(140,111)(140,62)])
link(onPart,2024262:doEvent1,[])
}
Add(Memory,893403,154,56)
{
@Hint=#33:Длинна копируемого файла в байтах|
}
Add(MultiElementEx,8320540,364,175)
{
@Hint=#28:Создание отсутствующей папки|
link(Data,679930:Var3,[(370,163)])
link(Flag,534635:Flag,[(377,108)(41,108)])
}
BEGIN_SDK
Add(EditMultiEx,15820377,21,21)
{
WorkCount=#12:doFileExists|
DataCount=#4:Data|20:Flag=Данные с флажка|
Width=237
Height=123
link(doFileExists,1138261:doFileExists,[(25,27)(25,69)])
}
Add(IndexToChanel,2019756,98,42)
{
Point(Data)
link(onEvent1,5718671:doPart,[])
link(onEvent2,7728695:doCompare,[(142,55)(142,104)])
link(Data,15820377:Data,[(104,35)(27,35)])
}
Add(FileTools,1138261,49,42)
{
link(onEnd,2019756:doEvent,[])
}
Add(Dir,15754617,210,42)
{
}
Add(FilePart,5718671,154,42)
{
link(onPath,15754617:doDir,[])
}
Add(If_else,7728695,154,98)
{
Op2=Integer(1)
link(onTrue,9809459:doDelete,[])
link(Op1,15820377:Flag,[(160,85)(34,85)])
}
Add(FileTools,9809459,210,84)
{
}
END_SDK
Add(Hub,10036733,322,112)
{
link(onEvent1,534635:onEvent1,[(383,118)(383,34)])
link(onEvent2,8320540:doFileExists,[(359,125)(359,181)])
}
Add(GetDataEx,679930,259,154)
{
link(Data,5477216:Value,[])
}
Add(ArrayEnum,10734934,49,105)
{
@Hint=#35:Перебор имен файлов для копирования|
link(onItem,9677091:doEvent1,[(85,111)(85,145)(76,145)(76,181)])
link(onEndEnum,5008127:doMessage,[(89,118)(89,202)])
link(Array,534635:Array,[(55,34)(48,34)])
}
Add(Hub,9677091,84,175)
{
link(onEvent1,6179399:doOperation,[])
link(onEvent2,10123097:doSplit,[(128,188)(128,151)(92,151)(92,111)])
}
Add(Math,6179399,133,175)
{
Op2=1
ResultType=0
link(Op1,10734934:Index,[(139,156)(62,156)])
}
Add(Message,5008127,203,196)
{
Message="Копирование завершено!"
}
END_SDK


------------ Дoбавленo:

Блин, не туда сообщение вставил - выдает после каждой целевой папки.
Переделал: сообщение нужно вынести в другой цикл или вообще выбросить если не надо
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#19: 2008-03-03 18:03:46 ЛС | профиль | цитата
Ну
1) не люблю я "Message="Копирование завершено!" " потому что для продолжения нужно нажимать ОК, поэтому если кнопка "Выход" активна, то значит "Копирование завершено!"
2) Добавлять 1-ку специально оставил для тебя (раз нашел - значит смотрел внимательно)
------------ Дoбавленo:

Успехов!
------------ Дoбавленo:

на последнюю (сейчас удалю предыдущие, чтобы место не занимали)
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1copy43.rar [5KB] [299]
Ответов: 11
Рейтинг: 0
#20: 2008-03-04 11:52:37 ЛС | профиль | цитата
Tad писал(а):
на последнюю

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

И еще один: блок "Выбор исходной папки для копирования" - "Список файлов для копирования" - после математического сложения длины файла идет элемент "Эмулятор элемента" с рисунком из фигурок перечеркнутый - я так понимаю это используется элемент которого нет в стандартном наборе. Что за элемент и как его поиметь, в смысле заполучить (В результате его использования получается какаято надпись).
------------ Дoбавленo:

avo писал(а):
В целевой папке нужно прибавлять ""

Только прибавлять нужно сразу после выбора исходной папки, а то я сразу добавил перед полем ввода и получилось что "" начал накапливаться при сохранении
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#21: 2008-03-04 15:46:44 ЛС | профиль | цитата
Не знаю. Никаких слешей я не добавлял и у меня работает нормально.
avo писал(а):
в блоке копирования есть ячейка памяти где запоминается длина файла
Это для тебя, если захочешь добавить ProgressBar для файла
------------ Дoбавленo:

Отсутствующий элемент. Распакуй, запусти Hiasm, ФайлОткрытьTriada.ini и в папку Строки.
------------ Дoбавленo:

avo писал(а):
В целевой папке нужно прибавлять "". Работает и без него, но когда идет замена исходной папки на целевую получается два \
Убери добавление слеша в исходнуу папку и не будет двоиться.
Зачем добавил в исходную?
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 11
Рейтинг: 0
#22: 2008-03-05 13:00:57 ЛС | профиль | цитата
Tad писал(а):
Распакуй, запусти Hiasm, Файл\Открыть\Triada.ini и в папку Строки

Сделал. Там еще выбирарь куда добавить: пакет делфи или модули. Поставил и туда и туда. Компонент добавился: Разбивка числа на триады. Но при компиляции выдало ошибку: Fatal: Can't find unit hiTriada. Подскажи где я лохонулся?
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#23: 2008-03-05 16:35:15 ЛС | профиль | цитата
avo писал(а):
Can't find unit hiTriada
C модулей убери. Файл hiTriada.pas положи в Delphi\code
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Гость
Ответов: 17029
Рейтинг: 0
#24: 2008-03-06 11:47:33 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-09 06:33:21
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#25: 2008-03-06 17:04:18 ЛС | профиль | цитата
Извини. Не проверил.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
25
Сообщение
...
Прикрепленные файлы
(файлы не залиты)