Вверх ↑
Этот топик читают: Гость
Ответов: 373
Рейтинг: 108
#1: 2009-07-25 15:15:03 ЛС | профиль | цитата
Сравнивает md5 хэш файла на svn с файлом из папки, при несовпадении или отсутствия, добавляет его в список.
Оч удобно


[burl=http://hiasm.com/forum_serv.php?q=56&id=1698]скачать[/burl]
карма: 0

7
Голосовали:CriDos, Assasin, Administrator, foksov, Влад, Shonyi, Maestroprog
Ответов: 1841
Рейтинг: 370
#2: 2009-07-25 16:42:27 ЛС | профиль | цитата
Класс! НО ещё бы добавить функцию "выбрать все"...
карма: 1
0
Ответов: 373
Рейтинг: 108
#3: 2009-07-25 17:09:04 ЛС | профиль | цитата
CriDos, Ну это уже кто что захочет тот и добавит
карма: 0

0
Ответов: 1841
Рейтинг: 370
#4: 2009-07-25 17:09:50 ЛС | профиль | цитата
Чёт он неправильна както качает файлы...
------------ Дoбавленo в 17.11:
На пример если выделить все файлы и нажать скачать отмеченные то он сначало штук 5-6 скачает а потом остановится и опять приходится нажимать скачать чтобы продолжить скачивание оставшихся в списке файлов и так пока не скачает все...
карма: 1
0
Ответов: 373
Рейтинг: 108
#5: 2009-07-25 17:12:34 ЛС | профиль | цитата
CriDos, Понятно. Попробую исправить.
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#6: 2009-07-25 17:30:28 правка | ЛС | профиль | цитата


Редактировалось 3 раз(а), последний 2025-01-21 07:40:49
карма: 0

0
Ответов: 1841
Рейтинг: 370
#7: 2009-07-25 17:51:53 ЛС | профиль | цитата
Ну если не учитывать глюк с недакачкой и отсутствием выбора сразу всех файлов схема КУЛЛ!
карма: 1
0
Ответов: 373
Рейтинг: 108
#8: 2009-07-25 18:11:23 ЛС | профиль | цитата
bzq-79-181-241-67.red.bez писал(а):
1. у каждого пользователя путь к папке HiAsm может быть разным - у меня например: c:MyProgHiAsm402b178
Только что обновился черепахой.

А в чём проблема то. У меня тоже не "C:\Program FilesHiAsm"
bzq-79-181-241-67.red.bez писал(а):
ложно


карма: 0

0
Ответов: 16884
Рейтинг: 1239
#9: 2009-07-25 18:51:20 ЛС | профиль | цитата
Vlad.- писал(а):
А в чём проблема то. У меня тоже не "C:\Program FilesHiAsm"
ни в чем. Просто не люблю писать пути вручную, если их запросто можно считать с реестра


карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
Голосовали:Konst
Разработчик
Ответов: 4698
Рейтинг: 426
#10: 2009-07-25 20:30:08 ЛС | профиль | цитата
Tad писал(а):
не люблю писать пути вручную, если их запросто можно считать с реестра

А вот и нет! не у всех можно с реестра! Есть особо хитрые люди(как я в прошлом например), которые установят HiAsm потом скопируют его в отдельную папку и удалят установленный ранее(чтоб в "установка и удаление программ" не появился), вывод: в реестре значения нет.
------------ Дoбавленo в 20.41:
[b]Vlad-[/b], на счет проблемы об обновлении 5-6 и потом опять надо нажимать, а ты подумай
Add(MainForm,2953706,21,105){
}
Add(ArrayEnum,1607941,224,245)
{
link(onItem,5643116:doEvent1,[])
link(Array,4115797:Array,[])
}
Add(StrList,4115797,210,168)
{
Strings=#1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|2:10|
}
Add(Memo,10857565,350,245)
{
Left=10
Top=5
Width=155
Height=170
}
Add(Button,7894749,168,245)
{
Left=15
Top=185
link(onClick,1607941:doEnum,[])
}
Add(Hub,5643116,266,245)
{
link(onEvent1,10857565:doAdd,[])
link(onEvent2,2289238:doData,[])
}
Add(DoData,2289238,294,252)
{
link(onEventData,4115797:doDelete,[(338,258)(338,223)(198,223)(198,188)])
link(Data,1607941:Index,[(300,240)(263,240)(263,290)(237,290)])
}
Add(ArrayEnum,16620109,469,245)
{
link(onItem,3953090:doEvent1,[])
link(Array,9390357:Array,[])
}
Add(StrList,9390357,455,168)
{
Strings=#1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|2:10|
}
Add(Memo,4923839,609,245)
{
Left=200
Top=5
Width=155
Height=170
}
Add(Button,10786532,413,245)
{
Left=205
Top=185
link(onClick,2983548:doWork2,[])
}
Add(Hub,3953090,511,245)
{
OutCount=4
link(onEvent1,4923839:doAdd,[])
link(onEvent2,14925259:doData,[])
link(onEvent3,16620109:doStop,[(537,265)(537,296)(456,296)(456,258)])
link(onEvent4,2983548:doWork1,[(543,272)(543,234)(452,234)])
}
Add(DoData,14925259,553,252)
{
link(onEventData,9390357:doDelete,[(590,258)(590,223)(443,223)(443,188)])
link(Data,16620109:Index,[(559,240)(508,240)(508,290)(482,290)])
}
Add(HubEx,2983548,448,238)
{
link(onEvent,16620109:doEnum,[])
}
Add(PointHint,13230213,154,140)
{
Info=#27:Как думаешь? Так правильно?|
Transparent=0
VAlign=0
Width=246
Height=193
}
Add(PointHint,5577622,406,140)
{
Info=#11:Или так? ;)|
Transparent=0
VAlign=0
Width=246
Height=193
}
:wink:
карма: 10
0
Ответов: 373
Рейтинг: 108
#11: 2009-07-25 20:55:35 ЛС | профиль | цитата
Assasin, Вспомнил была в одном проекте такая трабла, решилась сменой MT_Enum type=inc на dec.
------------ Дoбавленo в 21.03:
Assasin писал(а):
Как думаешь? Так правильно?

Думаю и так сойдёт.

Add(MainForm,4359883,280,189)
{
Width=193
Height=245
}
Add(ArrayEnum,1607941,343,266)
{
link(onItem,10857565:doAdd,[])
link(onEndEnum,4115797:doClear,[(387,279)(387,241)(317,241)(317,202)])
link(Array,4115797:Array,[])
}
Add(StrList,4115797,329,189)
{
Strings=#1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|2:10|
}
Add(Memo,10857565,406,266)
{
Left=10
Top=5
Width=155
Height=170
}
Add(Button,7894749,287,266)
{
Left=15
Top=185
link(onClick,1607941:doEnum,[])
}


карма: 0

0
Разработчик
Ответов: 4698
Рейтинг: 426
#12: 2009-07-25 21:13:10 ЛС | профиль | цитата
Сойти то сойдет, но при закачке время тратится еще и на закачивание, а нужно сразу же удалить строку из списка
карма: 10
0
Ответов: 373
Рейтинг: 108
#13: 2009-07-25 21:42:04 ЛС | профиль | цитата
Assasin, Я чего-то не пойму, как лучше сделать? или без разницы?

Add(MainForm,13520663,203,238)
{
}
Add(ArrayEnum,1607941,322,343)
{
Type=1
link(onItem,16759220:doEvent1,[])
link(Array,4115797:Array,[])
}
Add(StrList,4115797,308,266)
{
Strings=#1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|2:10|
}
Add(Memo,10857565,441,343)
{
Left=10
Top=5
Width=155
Height=170
}
Add(Button,7894749,266,343)
{
Left=15
Top=185
link(onClick,1607941:doEnum,[])
}
Add(DoData,2289238,392,357)
{
link(onEventData,4115797:doDelete,[(429,363)(429,325)(296,325)(296,286)])
link(Data,1607941:Index,[(398,345)(366,345)(366,387)(335,387)])
}
Add(ArrayEnum,16620109,567,343)
{
link(onItem,3953090:doEvent1,[])
link(Array,9390357:Array,[])
}
Add(StrList,9390357,553,266)
{
Strings=#1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|2:10|
}
Add(Memo,4923839,707,343)
{
Left=200
Top=5
Width=155
Height=170
}
Add(Button,10786532,511,343)
{
Left=205
Top=185
link(onClick,2983548:doWork2,[])
}
Add(Hub,3953090,609,343)
{
OutCount=4
link(onEvent1,4923839:doAdd,[])
link(onEvent2,14925259:doData,[])
link(onEvent3,16620109:doStop,[(635,363)(635,359)(555,359)(555,356)])
link(onEvent4,2983548:doWork1,[(641,370)(641,332)(557,332)])
}
Add(DoData,14925259,651,350)
{
link(onEventData,9390357:doDelete,[(688,356)(688,321)(541,321)(541,286)])
link(Data,16620109:Index,[(657,338)(667,338)(667,388)(580,388)])
}
Add(HubEx,2983548,553,336)
{
link(onEvent,16620109:doEnum,[])
}
Add(PointHint,13230213,252,238)
{
Info=#4:так?|
Transparent=0
VAlign=0
Width=246
Height=193
}
Add(PointHint,5577622,504,238)
{
Info=#11:Или так? ;)|
Transparent=0
VAlign=0
Width=246
Height=193
}
Add(Hub,16759220,364,343)
{
link(onEvent1,10857565:doAdd,[])
link(onEvent2,2289238:doData,[(385,356)(385,363)])
}


карма: 0

0
файлы: 1code_14265.txt [1.6KB] [139]
Разработчик
Ответов: 4698
Рейтинг: 426
#14: 2009-07-25 21:51:31 ЛС | профиль | цитата
Теперь 1 вариант
карма: 10
0
Ответов: 16884
Рейтинг: 1239
#15: 2009-07-25 23:40:01 ЛС | профиль | цитата
Assasin писал(а):
не у всех можно с реестра!
Но у всех можно в реестр и есть компонент Browse.
Примерно так:

Add(MainForm,14220851,196,70)
{
Width=962
Height=398
link(onCreate,4787320:doRead,[])
}
Add(Edit,2705731,343,35)
{
Left=420
Top=5
Width=300
Text=""
link(onChange,4787320:doWrite,[(385,41)(385,121)(268,121)(268,97)])
}
Add(GetDataEx,1593415,336,119)
{
link(Data,2705731:Text,[])
}
Add(Button,8562047,196,35)
{
Left=725
Top=5
Width=25
Height=21
Caption="..."
link(onClick,12348462:doBrowse,[])
}
Add(Browse,12348462,238,35)
{
link(onBrowse,5040347:doStrCat,[])
}
Add(StrCat,5040347,280,35)
{
Str2=""
link(onStrCat,2705731:doText,[])
}
Add(Registry,4787320,280,84)
{
HKey=1
Key="softwarehiasm_prog"
Value="newfiles"
link(onRead,2705731:doText2,[(328,90)(328,48)])
}



карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)