HiAsm – среда визуального программирования

[ErikPshat]

in1975, ну вот я и спрашивал, нельзя что ли повесить на одну кнопку 2 действия и более.
Там, при смене языка, видно, что программа закрывается и снова открывается, т.е. перезагружается.

А что ты не внёс изменения, что я в последней модели подправил?

При выборе "Образ лиска ISO" открывается окно проводника, где можно выбрать не только образ, а из раскрывающегося списка "Отобразить все файлы"
Где "Папка PS3_GAME" открывается окно, где русским языком написана подсказка "Выберите папку игры PS3_GAME для конвертации".
Где поле "Проверить наличие патча" показывает не "BLES0", а "BLES12345".

[in1975]

А что ты не внёс изменения, что я в последней модели подправил?
не заметил.

"Отобразить все файлы"
Зачем? нам нужны только исо.

Сделал закрытие, перезапуск при выборе языка, изменил бар в wget, так его отлавливает прогрессбар: http://transfiles.ru/ia1ct

[BaseD]

in1975, Кнопку "Сохранить" у порта пропустил.
Куда спрятал папку lang :scratch_one-s_head:
В выборе языка Английский, надо переименовать на English, так мне кажется правильней будет.

ErikPshatну вот я и спрашивал, нельзя что ли повесить на одну кнопку 2 действия и более.

Можно, сколько угодно вешать.
Просто соединив связи в "пучок" (HubEx)
Есть интересный элемент Hub (Элементы > Инструменты) он соединяет действия и самое полезное, выполняет их по порядку, от первой точки к последней.

[in1975]

BaseD, дык в tool\lang\ правда перевод все равно берется из самой проги, а не из тех файлов.

З.ы. там баг какой-то - не сканируются и не добавляются в перевод значения из дочерней формы и панели :(

[ErikPshat]

in1975, а как насчёт этого? - и там вроде у всех текстовых строк есть функция Translate, которая заносит как-то это в список перевода.

Где "Папка PS3_GAME" открывается окно, где русским языком написана подсказка "Выберите папку игры PS3_GAME для конвертации".
http://i5.imageban.ru/out/2018/08/20/dafd91e2b8eb48d75a22d93ddd4cdfda.png (http://i2.imageban.ru/out/2018/08/20/8b64b5b7cf2c4ae2df48fcca7f2a7bde.png)

не заметил.
Странно как-то ты много чего не замечаешь. Я же говорил, нужно к окулисту обратиться :D
Мы же с BaseD как раз об этом пункте меню вели разговор. И причём BaseD там ещё каких-то косяков поисправлял, включая то, о чём он напрямую написал, что отцентрировал это окно, которое в пункте 5 открывается, ну и по мелочам, там "Папка PS3_GAME", а не "PS3_GAME папка", ну и поясняющая надпись по-русски вместо "Select Folder":

http://i4.imageban.ru/out/2018/08/20/75dca431b1c897d8bc4ae3dbaf2bc497.png (http://i4.imageban.ru/out/2018/08/20/7d52d40269a989d8d895e40e6850e038.png)

[in1975]

ErikPshat, Я и говорю, не подхватывает в дочерних формах. В основных все норм...

https://www.screencast.com/t/JuhzqTkNm7o9

https://www.screencast.com/t/2ULqxLbhT

[BaseD]

in1975, может отдельно их перевести, просто менять значения на точке Caption?

Я тоже пытался через Translation, значения отмечает, а переводить не хочет....
Хмм...а может еще один кубик Translation в дочернюю форму кинуть, с теми же значениями как и первый?

[in1975]

Хмм...а может еще один кубик Translation в дочернюю форму кинуть, с теми же значениями как и первый?
я пробовал. не подхватывает. Через внешнее свойство ошибку выдает...

[ErikPshat]

Может потому что эти записи не попали в этот список?
_prop_LangWords := MakeArrayString(PChar('Подписать все *.PKG'#13#10'Создать не подписанный PKG'#13#10'Создать подписанный PKG'#13#10'Создать RIF'#13#10'Попробовать пофиксить CFW игру'#13#10'Сконвертировать дисковую игру'#13#10'Создать pakage_list.pkg и запустить сервер '#13#10'IP адрес'#13#10'Порт'#13#10'Изменить'#13#10'Очистить консоль'#0),[
PChar('Just sign PKG'#0),PChar('Make DEBUG PKG'#0),PChar('Make RETAIL PKG'#0),PChar('Make RIF PKG'#0),PChar('Try fix PSN PKG CFW'#0),PChar('Convert Disc Game'#0),PChar('Create pkg list and run hfs server'#0),PChar('IP'#0),
PChar('port'#0),PChar('change'#0),PChar('Clear concole'#0)]);

[in1975]

Вот так сделал, через вывод за пределы дочерней формы. Теперь меню еще надо перевести вверху. http://transfiles.ru/m8zhz

[ErikPshat]

Ну тогда вручную в файле .sha всё проделать. Там через указатель MakeTrans делается перевод.
Hint="Выберите папку игры PS3_GAME для конвертации"
Caption="PS3_GAME папка"
MakeTrans(Hint)
MakeTrans(Caption) Filter="Образ диска (*.iso) |*.iso"
MakeTrans(Filter)
А сам перевод пишется через = и отделяется запятыми:
Add(Translator,7847629,980,56)
{
Lang="en"
LangWords=['2. Создать подписанный PKG'="2. Make RETAIL PKG",'7. Создать pakage_list и запустить сервер '="7. Create pkg list and run hfs server",'IP адрес :'="IP adress:",'Создать не подписанный PKG'="Make DEBUG PKG",' для запуска в DEBUG HAN'="for run in Debug HAN",'Создать подписанный PKG'="2. Make RETAIL PKG",' для запуска в HAN'="for run in HAN",'Создать RIF'="Make RIF PKG ",' из файлов act.dat, idps.hex и из базы rap'="from base act.da",' idps.hex and rap base",''Подписать все PKG'''="Just sign All PKG",' которые находятся в директории'="in dir",'Создать лист PKG'="Create pkg list",' на основе *.pkg файлов которые лежат рядом и запустить локальный сервер'="and run hfs server",'Сконвертировать дисковую игру'="Convert Disc Game",' при наличии патча к игре'="if have path",'Попробовать пофиксить CFW игру из PSN'="Try fix PSN PKG CFW ",' при наличии патча к игре.'="(if game have update)",'Порт :'="Port:",'1. Создать не подписанный PKG'="1. Make DEBUG PKG ",'Изменить'=" Change",'6. Подписать все *.PKG'="6. Just sign All PKG",'3. Создать RIF'="3. Make RIF PKG ",'4. Попробовать пофиксить CFW игру'="4. Try fix PSN PKG CFW",'5. Сконвертировать дисковую игру'="5. Convert Disc Game",'Образ диска ISO'="ISO image",'Подписать все PKG'="Sign All pkg",'PS3_GAME папка'="PS3_GAME DIR",'Назад в меню'="Back to menu",'Сохранить'="Save"]
Place=1
Key="config.ini"
Section="Main"
Value="Language"
LangsDir="\tools\lang"
}

[ErikPshat]

А это ошибка или так и должно быть?
Add(StrCat,8839687,1029,364)
{
Str1=".\tools\lang\menu-eng.ini"
MakeTrans(Str2)
link(onStrCat,3463670:doNameItems,[(1073,370)(1073,360)(1045,360)(1045,349)])
}

[in1975]

ErikPshat, ручная редакция помогла изменить хинт.

[ErikPshat]

in1975, ты этот фак читал: Локализация (http://forum.hiasm.com/wiki/5035)

И, кстати, вот это Add(Translator почему-то в исходнике .sha в двух местах дублируется один и тот же перевод.

[in1975]

ErikPshat, да, очень непонятно про *.lng написано.

Сделал. Почистил от ненужных элементов (http://transfiles.ru/el318) после ручного редактирования.

Источник (тема (http://forum.hiasm.com/topic/62959))

Как справку делать будем?

[in1975]

Черновой набросок хелпа (можно сказать чисто структура). http://transfiles.ru/z7512

[BaseD]

Черновой набросок хелпа (можно сказать чисто структура). http://transfiles.ru/z7512
Ну вот, вполне так нормально :good:

У меня вопрос: есть ли смысл делать кнопку на открытие папок (B и N) из любого места на ПК, как сделано для конвертирования?
Я это все к чему, готовый вариант программы можно упаковать инсталлятором и устанавливать на компьютер, будет появляться ярлык для запуска с рабочего стола, но не удобно каждый раз кидать папки игры, в папку с программой.
Удобнее будет выбирать их из под самой программы.

Второй вопрос (так и не получил ответа): почему не получается вставить код проекта на форум?
Вот взял кусочек для примера, целиком не вставляется (ошибка 500).
Make(delphi)
ver(4.05 build 186)
Add(Dir,8687620,224,245)
{
}
Add(Dir,9307680,224,581)
{
}
Add(StrCat,15758691,224,637)
{
Str2="tools\make_pkg.bat 5"
link(onStrCat,10642298:doWork,[])
link(Str1,9307680:CurrentDir,[])
}
Add(StrCat,5838133,224,301)
{
Str2="tools\make_pkg.bat 2"
link(onStrCat,8972306:doWork,[])
link(Str1,8687620:CurrentDir,[])
}
Add(ButtonRush,11616974,105,637)
{
Left=15
Top=220
Width=300
Height=28
Font=[Tahoma,10,1,0,204]
Cursor=2
WinStyle=2
ColorFrom=-16777203
ColorText=-16777211
BorderColor=8388608
ColorShadow=-16777193
ShadowOffset=1
GradientStyle=0
ColorFromOver=15780518
ColorToOver=-16777214
GradientStyleOver=0
ColorShadowDis=8421504
Caption="6. Подписать все *.PKG"
HAlign=0
Glyphs=[]
Point(onMouseEnter)
MakeTrans(Caption)
link(onClick,15758691:doStrCat,[])
link(onMouseEnter,12758936:doStrCat,[(142,650)(142,594)])
}
Add(Dir,14843626,217,63)

Так же удобней, чем заливать каждый раз на обменники...

[ErikPshat]

Оу, вы что, ещё собрались целую справку в CHM накатать? :D
Мне как-то больше нравится CHM Editor (http://nnm-club.me/forum/viewtopic.php?t=1209201) (оффсайт (https://chmeditor.com/ru/))

BaseD, мне кажется лучше делать выбор с любого места, даже с другого диска.
Инсталлятор кажись тоже не нужен, пусть будет портабельная, ибо засорять систему и реестр мелкой утилитой не особо кому нравится.
А код не вставляется, так потому что он очень большой, там картинки ведь тоже в код встраиваются.

[BaseD]

А код не вставляется, так потому что он очень большой, там картинки ведь тоже в код встраиваются.
Ну вот все, теперь отстану :)

[ErikPshat]

Черновой набросок хелпа (можно сказать чисто структура). http://transfiles.ru/z7512
Вот заполнил первые 2 страницы :girl_crazy: - http://transfiles.ru/ovltl http://chart.apis.google.com/chart?cht=qr&chs=200x200&chl=http://TransFiles.ru/ovltl

[in1975]

ErikPshat, Довольно красиво, но не соответствует указателю :)

[ErikPshat]

in1975, это же чистый HTML, даже править ничего не надо.

Пишешь на форуме сообщение, оформляешь как тебе нравится, там с цветами, листами и прочими ББ-кодами.
Делаешь предварительный просмотр.
Инспектируешь страницу правой кнопкой "Просмотреть код".
В коде снова правой кнопкой в теле сообщения "Edit as HTML".
Выделяешь всё в чистом виде и вставляешь в редактор CHM между тегами BODY.
Там только картинки добавляешь в папки редактора к "Файлам" и в код на свои места.

Там я забыл путь указать к картинке кнопки :triangle-ps3: и верхнюю картину надо было стилями укоротить по ширине окна.

Вот так исправил. Картинка сверху положена на бэкграунд, что не даёт ей изменяться в зависимоти от ширины окна, но горизонтальная полоса прокрутки не появляется: http://transfiles.ru/lwy30

[in1975]

Полуготовый вариант - вроде все пункты основного меню работают (в настройках не реализованы пока отключение логов и обновление). Добавил хелп (пока в доработке сама справка) и меню о программе, пофиксил некоторые замеченные баги.

Переработал батник, теперь программа (http://transfiles.ru/2uwkp) должна работать в любой дурной директории - с кириллицей, пробелами и прочими извращениями :)

[ErikPshat]

in1975, эмм, я не понял, все остальные файлы и папку "tools" к программе ты собираешься так же россыпью оставлять рядом с экзешником?
Что за бред и палево?

Рядом с программой пусть только config.ini и log.txt создаются.

[BaseD]

in1975, эмм, я не понял, все остальные файлы и папку "tools" к программе ты собираешься так же россыпью оставлять рядом с экзешником?
Что за бред и палево?

Рядом с программой пусть только config.ini и log.txt создаются.
Вот для этих целей я и думал запаковывать инсталлятором, что бы лишний раз не лазить в папку с программой.
Можно скрыть остальные , рабочие файлы, но наверно так не правильно будет.

P.S окну "о программе" надо запретить разворачиваться на весь экран.

[in1975]

окну "о программе" надо запретить разворачиваться на весь экран.
легко. http://transfiles.ru/dad9g

По поводу папки tools - недавно же решили, что будем делать все в статичном виде. Каждый раз при запуске распаковывать все нужные файлы - так себе затея, тем более перезапускать после смены языка программу нужно.

К тому же в папке tools\lang есть файлы, которые можно переводить на разные языки - можно дать другим возможность такого перевода.

[in1975]

Проблема - wget нам крашит прогу. тестовый манекен (http://transfiles.ru/mbxq9)
Пока нашел несколько вариантов "кривого решения":


Добавлять любой из этих ключей к wget

wget -q
wget -b
wget -nv

Направлять команду не на точку doConsoleExec, а на doExec

При обеих вариантах вывод прогресса скачивания мы не добьемся. Разве что при ключе -b (скачивание в бекграунде) читать прогресс из файла, но... хз как...

[in1975]

На всякий выделил в отдельную схему. Работает прогрессбар :)

http://transfiles.ru/x0g60

[BaseD]

in1975, Я видимо, что то проспал wget это для чего?

Все разобрался, но у меня не работает, говорит "нет патча"...

[in1975]

BaseD, ты это юзаешь?

[BaseD]

in1975, да последний вариант.

[in1975]

BaseD, положи в папку tools этот файл http://transfiles.ru/dz137

[BaseD]

И, что должно быть?

https://preview.ibb.co/ctR2Xp/29_08_2018_100414.jpg (https://ibb.co/hQDSyU)

[in1975]

BaseD, скачивание файлов. кнопку тест нажми и при краше не забудь wget из процессов убивать

[BaseD]

in1975, кнопка тест нажата (ссылка же появилась), а дальше все, так и висит.

[in1975]

BaseD, брандмаузер настрой

[BaseD]

in1975, Добавил в исключения, результат тот же.

[in1975]

Антивирус еще посмотри

Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,196,84)
{
Width=430
Height=462
}
Add(ButtonRush,2841574,273,189)
{
Left=15
Top=6
Width=171
Height=28
Font=[Tahoma,10,1,0,204]
Cursor=2
WinStyle=2
Hint="Сервер HFS"
ColorFrom=-16777203
ColorText=-16777211
BorderColor=8388608
ColorShadow=-16777193
ShadowOffset=1
GradientStyle=0
ColorFromOver=15780518
ColorToOver=-16777214
GradientStyleOver=0
ColorShadowDis=8421504
Caption="тест"
HAlign=0
Glyphs=[]
Point(onMouseEnter)
MakeTrans(Caption)
link(onClick,5186560:doStrCat,[])
}
Add(WinExec,15302783,399,189)
{
RunEvent=1
Point(onConsoleResult)
Point(onConsoleError)
Point(doConsoleExec)
Point(doConsoleTerminate)
link(onConsoleResult,3754267:doAdd,[])
link(onConsoleError,6737056:doSplit,[(478,216)(478,244)])
}
Add(StrCat,5186560,336,189)
{
Str2="wg.bat"
link(onStrCat,15302783:doConsoleExec,[(384,195)(384,209)])
link(Str1,13239321:CurrentDir,[])
}
Add(Dir,13239321,336,133)
{
}
Add(RichEdit,3754267,637,203)
{
Left=11
Top=46
Width=365
Height=347
Color=15780518
Font=[Times New Roman,9,1,0,204]
KeyPreview=1
WinStyle=1
Name="Консоль"
ModeSp=3
Strings=#34: Make pkg han tool v.3.0|15: |41: Created mod by In1975 for site pspx.ru |41: Modded by & rupor & ErikPshat & BaseD |41: _______________________________________ |1: |1: |
ScrollBars=2
ReadOnly=0
CanDragOle=1
InsertCRLF=1
ParseLinks=0
}
Add(Button,5459886,273,252)
{
Left=210
Top=5
Width=145
Height=30
Caption="закрыть"
link(onClick,15302783:doConsoleTerminate,[(352,258)(352,216)])
}
Add(ConvertorEx,690554,399,301)
{
Mode=10
link(onResult,5696450:doCase,[])
}
Add(ProgressBarRush,2204639,574,301)
{
Top=403
Width=414
Align=4
Color=15780518
ColorFrom=-16777203
RoundWidth=2
RoundHeight=2
}
Add(MultiStrData,6737056,525,238)
{
Char="%"
Direct=1
link(onPart2,3194627:doSplit,[(569,251)(569,244)])
}
Add(MultiStrData,3194627,581,238)
{
Char=" "
Direct=1
link(onPart1,3410567:doValue,[(625,244)(625,276)(233,276)(233,307)])
}
Add(Memory,3410567,315,301)
{
link(onData,690554:doConvert,[])
}
Add(Case,5696450,462,301)
{
Value=Real(99)
link(onNextCase,2204639:doPosition,[])
link(onTrue,3410567:doClear,[(506,314)(506,302)(303,302)(303,314)])
}

[BaseD]

Первым делом на него обратил внимания, хз куда еще копать :scratch_one-s_head:

[in1975]

Все нужное для теста упаковал в отдельный архив http://transfiles.ru/cs33j, в том числе exe

[BaseD]

in1975, вот с браузера, если забить ссылку
https://preview.ibb.co/mzwxF9/29_08_2018_110043.jpg (https://ibb.co/n1feTU)

Содержимое лог.txt
11:00:30 URL:https://a0.ww.np.dl.playstation.net/tpl/np/BLUS31181/BLUS31181-ver.xml [3399/3399] -> ".\tools\ver.xml" [1]

Проверьте кто нибудь еще, exe файл идет в архиве в предыдущем сообщении.

[Ang3l42]

Нормально качаются патчи. Правда со второй попытки. В первый раз прога ругнулась на 21%. Вообщем крашится в любой момент.

[in1975]

Вот я и говорю, что если передавать на прогрессбар - краши происходят, если снять связь - вроде нет крашей... хз что за фигня... Переполнение памяти происходит видимо...

[BaseD]

Хмм...значит косяк где то на моей стороне, будем искать.

[in1975]

BaseD, фаерволлы/антивирусы однозначно.

с этим прогрессбаром вроде не крашится... проверьте http://transfiles.ru/d7g1j

[BaseD]

in1975,
Вот окно консоли

https://preview.ibb.co/fLgxXp/29_08_2018_130529.jpg (https://ibb.co/en5PCp)

Чего ему не так?

[in1975]

BaseD, 1. я вроде в батнике set title=BLUS31181 прописал для теста.
2. попробуй положить в папку в пути без пробелов.
3. powershell 5.1 ?

[BaseD]

1. я вроде в батнике set title=BLUS31181 прописал для теста.
Это я уже эксперементы проводил, с оригинальным батником тоже самое.
Нет у меня в путях пробелов.
D:\asm\asm

[in1975]

BaseD, давай к тебе подключусь через тимвиевер...

[BaseD]

in1975, Все работает, вот я тормоз!!! :dash:

[in1975]

BaseD, потестируй на игре, которую изначально указывал. И поиграй со статусбарами. В последнем варианте этот статусбар не крашит ехе, правда там цифры процентов не отобразить :(

[BaseD]

in1975, а если вот так делать? (создай новый проект)

Пример из совсем другой оперы.

В текстовом поле вверху ссылка для примера.
Вот вопрос, как получать эти ссылки и докидывать в программу?


Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,21,105)
{
Width=882
Height=185
}
Add(HTTP_Get,3175291,273,238)
{
link(onStatus,12467587:doOperation,[(327,244)(327,314)])
link(onURLSize,14828361:doOperation,[])
link(URL,6154883:Var2,[])
link(FileName,7823264:Value,[(286,202)(405,202)])
}
Add(Edit,3559833,273,70)
{
Left=15
Top=10
Width=825
Text="http://b0.ww.np.dl.playstation.net/tppkg/np/BLUS31181/BLUS31181_T38/a6eff409d3a4c771/UP0002-BLUS31181_00-DESTINYPATCH0013-A0113-V0100-PE.pkg "
}
Add(Button,5554548,168,119)
{
Left=20
Top=115
Caption="Скачать"
link(onClick,7683295:doEvent1,[])
}
Add(Label,13847225,546,266)
{
Left=15
Top=50
Width=129
Height=19
Caption="Размер файла"
AutoSize=1
Alignment=2
}
Add(Hub,7683295,217,119)
{
OutCount=3
link(onEvent1,14065352:doCopy,[(264,125)(264,139)])
link(onEvent2,3175291:GetURLSize,[(249,132)(249,258)])
link(onEvent3,3175291:doDownload,[(256,139)(256,244)])
}
Add(Label,9613331,469,259)
{
Left=155
Top=50
Width=94
Height=19
Caption=""
AutoSize=1
Alignment=2
}
Add(MultiElementEx,14828361,343,252)
{
link(onResult2,11778764:doStrCat,[])
}
BEGIN_SDK
Add(EditMultiEx,9087581,21,21)
{
WorkCount=#58:doOperation=Преобразует поступающие байты в Кб, Мб, Гб, Тб|
EventCount=#20:onResult1=Выводит Кб|20:onResult2=Выводит Мб|20:onResult3=Выводит Гб|20:onResult4=Выводит Тб|
VarCount=#2:Mb|
DataCount=#29:Byte=Байты для преобразования|
Width=412
Height=333
link(doOperation,8367768:doEvent1,[(63,27)(63,174)])
link(Mb,14096264:Result,[(27,298)(279,298)])
}
Add(Hub,8367768,106,168)
{
OutCount=4
link(onEvent1,14550461:doOperation,[(186,174)(186,167)])
link(onEvent2,1666719:doOperation,[(182,181)(182,216)])
link(onEvent3,10923544:doOperation,[(168,188)(168,258)])
link(onEvent4,10170532:doOperation,[(154,195)(154,300)])
}
Add(Math,10170532,169,294)
{
OpType=3
Op2=1024
link(onResult,4277121:doOperation,[])
link(Op1,10923544:Result,[(175,289)(203,289)])
}
Add(Math,10923544,197,252)
{
OpType=3
Op2=1024
link(onResult,11137805:doOperation,[])
link(Op1,1666719:Result,[(203,247)(231,247)])
}
Add(Math,1666719,225,210)
{
OpType=3
Op2=1024
link(onResult,14096264:doOperation,[])
link(Op1,14550461:Result,[(231,205)(258,205)])
}
Add(Math,14550461,252,161)
{
OpType=3
Op2=1024
link(onResult,7554705:doOperation,[])
link(Op1,9087581:Byte,[(258,94)(27,94)])
}
Add(Math,4277121,217,294)
{
OpType=35
Op2=0.01
link(onResult,9087581:onResult4,[(348,300)(348,48)])
}
Add(Math,11137805,245,252)
{
OpType=35
Op2=0.01
link(onResult,9087581:onResult3,[(362,258)(362,41)])
}
Add(Math,14096264,273,210)
{
OpType=35
Op2=0.01
link(onResult,9087581:onResult2,[(376,216)(376,34)])
}
Add(Math,7554705,301,161)
{
OpType=35
Op2=0.01
link(onResult,9087581:onResult1,[(390,167)(390,27)])
}
END_SDK
Add(StrCat,11778764,406,259)
{
Str2="мб"
link(onStrCat,9613331:doText,[])
}
Add(MultiElementEx,12467587,350,308)
{
link(onResult2,3306497:doStrCat,[(398,321)(398,314)])
}
BEGIN_SDK
Add(EditMultiEx,370514,21,21)
{
WorkCount=#58:doOperation=Преобразует поступающие байты в Кб, Мб, Гб, Тб|
EventCount=#20:onResult1=Выводит Кб|20:onResult2=Выводит Мб|20:onResult3=Выводит Гб|20:onResult4=Выводит Тб|
VarCount=#2:Mb|
DataCount=#29:Byte=Байты для преобразования|
Width=412
Height=333
link(doOperation,5347339:doEvent1,[(63,27)(63,174)])
link(Mb,12103260:Result,[(27,298)(279,298)])
}
Add(Hub,5347339,106,168)
{
OutCount=4
link(onEvent1,9766072:doOperation,[(186,174)(186,167)])
link(onEvent2,15479595:doOperation,[(182,181)(182,216)])
link(onEvent3,361139:doOperation,[(168,188)(168,258)])
link(onEvent4,4223471:doOperation,[(154,195)(154,300)])
}
Add(Math,4223471,169,294)
{
OpType=3
Op2=1024
link(onResult,6080636:doOperation,[])
link(Op1,361139:Result,[(175,289)(203,289)])
}
Add(Math,361139,197,252)
{
OpType=3
Op2=1024
link(onResult,8390502:doOperation,[])
link(Op1,15479595:Result,[(203,247)(231,247)])
}
Add(Math,15479595,225,210)
{
OpType=3
Op2=1024
link(onResult,12103260:doOperation,[])
link(Op1,9766072:Result,[(231,205)(258,205)])
}
Add(Math,9766072,252,161)
{
OpType=3
Op2=1024
link(onResult,8494877:doOperation,[])
link(Op1,370514:Byte,[(258,94)(27,94)])
}
Add(Math,6080636,217,294)
{
OpType=35
Op2=0.01
link(onResult,370514:onResult4,[(348,300)(348,48)])
}
Add(Math,8390502,245,252)
{
OpType=35
Op2=0.01
link(onResult,370514:onResult3,[(362,258)(362,41)])
}
Add(Math,12103260,273,210)
{
OpType=35
Op2=0.01
link(onResult,370514:onResult2,[(376,216)(376,34)])
}
Add(Math,8494877,301,161)
{
OpType=35
Op2=0.01
link(onResult,370514:onResult1,[(390,167)(390,27)])
}
END_SDK
Add(Label,2394280,548,311)
{
Left=15
Top=75
Width=118
Height=25
Caption="Скачено"
AutoSize=1
Alignment=2
}
Add(Label,12268849,469,308)
{
Left=155
Top=75
Width=94
Height=19
Caption=""
AutoSize=1
Alignment=2
}
Add(StrCat,3306497,406,308)
{
Str2="мб"
link(onStrCat,12268849:doText,[])
}
Add(Copy,14065352,343,133)
{
Count=57
Direction=1
link(onCopy,7823264:doValue,[])
link(Str,6154883:Var3,[(349,117)])
}
Add(GetDataEx,6154883,273,112)
{
link(Data,3559833:Text,[])
}
Add(Memory,7823264,399,133)
{
}
Add(Button,13250037,168,245)
{
Left=90
Top=115
Caption="Стоп"
link(onClick,3175291:doStop,[])
}


Вот с статус баром
Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,21,105)
{
Width=882
Height=213
}
Add(HTTP_Get,3175291,273,238)
{
link(onStatus,11486028:doEvent1,[(338,244)(338,349)])
link(onURLSize,9901860:doEvent1,[])
link(URL,6154883:Var2,[])
link(FileName,7823264:Value,[(286,202)(405,202)])
}
Add(Edit,3559833,273,70)
{
Left=15
Top=10
Width=825
Text="http://b0.ww.np.dl.playstation.net/tppkg/np/BLUS31181/BLUS31181_T38/a6eff409d3a4c771/UP0002-BLUS31181_00-DESTINYPATCH0013-A0113-V0100-PE.pkg "
}
Add(Button,5554548,168,119)
{
Left=20
Top=115
Caption="Скачать"
link(onClick,7683295:doEvent1,[])
}
Add(Label,13847225,595,266)
{
Left=15
Top=50
Width=129
Height=19
Caption="Размер файла"
AutoSize=1
Alignment=2
}
Add(Hub,7683295,217,119)
{
OutCount=3
link(onEvent1,14065352:doCopy,[(264,125)(264,139)])
link(onEvent2,3175291:GetURLSize,[(249,132)(249,258)])
link(onEvent3,3175291:doDownload,[(256,139)(256,244)])
}
Add(Label,9613331,518,259)
{
Left=155
Top=50
Width=94
Height=19
Caption=""
AutoSize=1
Alignment=2
}
Add(MultiElementEx,14828361,392,252)
{
link(onResult2,11778764:doStrCat,[])
}
BEGIN_SDK
Add(EditMultiEx,9087581,21,21)
{
WorkCount=#58:doOperation=Преобразует поступающие байты в Кб, Мб, Гб, Тб|
EventCount=#20:onResult1=Выводит Кб|20:onResult2=Выводит Мб|20:onResult3=Выводит Гб|20:onResult4=Выводит Тб|
VarCount=#2:Mb|
DataCount=#29:Byte=Байты для преобразования|
Width=412
Height=333
link(doOperation,8367768:doEvent1,[(63,27)(63,174)])
link(Mb,14096264:Result,[(27,298)(279,298)])
}
Add(Hub,8367768,106,168)
{
OutCount=4
link(onEvent1,14550461:doOperation,[(186,174)(186,167)])
link(onEvent2,1666719:doOperation,[(182,181)(182,216)])
link(onEvent3,10923544:doOperation,[(168,188)(168,258)])
link(onEvent4,10170532:doOperation,[(154,195)(154,300)])
}
Add(Math,10170532,169,294)
{
OpType=3
Op2=1024
link(onResult,4277121:doOperation,[])
link(Op1,10923544:Result,[(175,289)(203,289)])
}
Add(Math,10923544,197,252)
{
OpType=3
Op2=1024
link(onResult,11137805:doOperation,[])
link(Op1,1666719:Result,[(203,247)(231,247)])
}
Add(Math,1666719,225,210)
{
OpType=3
Op2=1024
link(onResult,14096264:doOperation,[])
link(Op1,14550461:Result,[(231,205)(258,205)])
}
Add(Math,14550461,252,161)
{
OpType=3
Op2=1024
link(onResult,7554705:doOperation,[])
link(Op1,9087581:Byte,[(258,94)(27,94)])
}
Add(Math,4277121,217,294)
{
OpType=35
Op2=0.01
link(onResult,9087581:onResult4,[(348,300)(348,48)])
}
Add(Math,11137805,245,252)
{
OpType=35
Op2=0.01
link(onResult,9087581:onResult3,[(362,258)(362,41)])
}
Add(Math,14096264,273,210)
{
OpType=35
Op2=0.01
link(onResult,9087581:onResult2,[(376,216)(376,34)])
}
Add(Math,7554705,301,161)
{
OpType=35
Op2=0.01
link(onResult,9087581:onResult1,[(390,167)(390,27)])
}
END_SDK
Add(StrCat,11778764,455,259)
{
Str2="мб"
link(onStrCat,9613331:doText,[])
}
Add(MultiElementEx,12467587,406,343)
{
link(onResult2,3306497:doStrCat,[(454,356)(454,349)])
}
BEGIN_SDK
Add(EditMultiEx,370514,21,21)
{
WorkCount=#58:doOperation=Преобразует поступающие байты в Кб, Мб, Гб, Тб|
EventCount=#20:onResult1=Выводит Кб|20:onResult2=Выводит Мб|20:onResult3=Выводит Гб|20:onResult4=Выводит Тб|
VarCount=#2:Mb|
DataCount=#29:Byte=Байты для преобразования|
Width=412
Height=333
link(doOperation,5347339:doEvent1,[(63,27)(63,174)])
link(Mb,12103260:Result,[(27,298)(279,298)])
}
Add(Hub,5347339,106,168)
{
OutCount=4
link(onEvent1,9766072:doOperation,[(186,174)(186,167)])
link(onEvent2,15479595:doOperation,[(182,181)(182,216)])
link(onEvent3,361139:doOperation,[(168,188)(168,258)])
link(onEvent4,4223471:doOperation,[(154,195)(154,300)])
}
Add(Math,4223471,169,294)
{
OpType=3
Op2=1024
link(onResult,6080636:doOperation,[])
link(Op1,361139:Result,[(175,289)(203,289)])
}
Add(Math,361139,197,252)
{
OpType=3
Op2=1024
link(onResult,8390502:doOperation,[])
link(Op1,15479595:Result,[(203,247)(231,247)])
}
Add(Math,15479595,225,210)
{
OpType=3
Op2=1024
link(onResult,12103260:doOperation,[])
link(Op1,9766072:Result,[(231,205)(258,205)])
}
Add(Math,9766072,252,161)
{
OpType=3
Op2=1024
link(onResult,8494877:doOperation,[])
link(Op1,370514:Byte,[(258,94)(27,94)])
}
Add(Math,6080636,217,294)
{
OpType=35
Op2=0.01
link(onResult,370514:onResult4,[(348,300)(348,48)])
}
Add(Math,8390502,245,252)
{
OpType=35
Op2=0.01
link(onResult,370514:onResult3,[(362,258)(362,41)])
}
Add(Math,12103260,273,210)
{
OpType=35
Op2=0.01
link(onResult,370514:onResult2,[(376,216)(376,34)])
}
Add(Math,8494877,301,161)
{
OpType=35
Op2=0.01
link(onResult,370514:onResult1,[(390,167)(390,27)])
}
END_SDK
Add(Label,2394280,604,346)
{
Left=15
Top=75
Width=118
Height=25
Caption="Скачено"
AutoSize=1
Alignment=2
}
Add(Label,12268849,525,343)
{
Left=155
Top=75
Width=94
Height=19
Caption=""
AutoSize=1
Alignment=2
}
Add(StrCat,3306497,462,343)
{
Str2="мб"
link(onStrCat,12268849:doText,[])
}
Add(Copy,14065352,343,133)
{
Count=57
Direction=1
link(onCopy,7823264:doValue,[])
link(Str,6154883:Var3,[(349,117)])
}
Add(GetDataEx,6154883,273,112)
{
link(Data,3559833:Text,[])
}
Add(Memory,7823264,399,133)
{
}
Add(Button,13250037,168,245)
{
Left=90
Top=115
Caption="Стоп"
link(onClick,3175291:doStop,[])
}
Add(GProgressBar,10221290,455,413)
{
Left=5
Top=150
Width=850
Color=12639424
Max=0
Point(doMax)
}
Add(Math,8892864,392,413)
{
OpType=3
Op2=100
link(onResult,10221290:doPosition,[])
}
Add(Math,16640474,343,420)
{
OpType=3
Op2=100
link(onResult,10221290:doMax,[])
}
Add(Hub,9901860,343,252)
{
link(onEvent1,14828361:doOperation,[])
link(onEvent2,16640474:doOperation,[(369,265)(369,327)(330,327)(330,426)])
}
Add(Hub,11486028,371,343)
{
InCount=2
link(onEvent1,12467587:doOperation,[])
link(onEvent2,8892864:doOperation,[(389,356)(389,419)])
}


P.S бывает иногда подтупливает, нужно чуть подождать :)

[in1975]

BaseD, wget быстрее качает, там несколько потоков, а это внутренняя поделка.

[BaseD]

in1975, может и не стоит играться с барами, сделать например отдельной надписью:

Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,196,84)
{
Width=420
Height=462
}
Add(ButtonRush,2841574,273,189)
{
Left=15
Top=6
Width=171
Height=28
Font=[Tahoma,10,1,0,204]
Cursor=2
WinStyle=2
Hint="Сервер HFS"
ColorFrom=-16777203
ColorText=-16777211
BorderColor=8388608
ColorShadow=-16777193
ShadowOffset=1
GradientStyle=0
ColorFromOver=15780518
ColorToOver=-16777214
GradientStyleOver=0
ColorShadowDis=8421504
Caption="тест"
HAlign=0
Glyphs=[]
Point(onMouseEnter)
MakeTrans(Caption)
link(onClick,5186560:doStrCat,[])
}
Add(WinExec,15302783,399,189)
{
RunEvent=1
Point(onConsoleResult)
Point(onConsoleError)
Point(doConsoleExec)
Point(doConsoleTerminate)
link(onConsoleResult,3754267:doAdd,[])
link(onConsoleError,6737056:doSplit,[(450,209)(450,251)(504,251)(504,244)])
}
Add(StrCat,5186560,336,189)
{
Str2="wg.bat"
link(onStrCat,15302783:doConsoleExec,[(384,195)(384,209)])
link(Str1,13239321:CurrentDir,[])
}
Add(Dir,13239321,336,133)
{
}
Add(RichEdit,3754267,637,203)
{
Left=11
Top=46
Width=365
Height=347
Color=15780518
Font=[Times New Roman,9,1,0,204]
KeyPreview=1
WinStyle=1
Name="Консоль"
ModeSp=3
Strings=#34: Make pkg han tool v.3.0|15: |41: Created mod by In1975 for site pspx.ru |41: Modded by & rupor & ErikPshat & BaseD |41: _______________________________________ |1: |1: |
ScrollBars=2
ReadOnly=0
CanDragOle=1
InsertCRLF=1
ParseLinks=0
}
Add(Button,5459886,273,252)
{
Left=210
Top=5
Width=145
Height=30
Caption="закрыть"
link(onClick,15302783:doConsoleTerminate,[(352,258)(352,216)])
}
Add(ConvertorEx,690554,399,301)
{
Mode=1
link(onResult,15816393:doEvent1,[])
}
Add(MultiStrData,6737056,525,238)
{
Char="%"
Count=3
Direct=1
link(onPart1,557625:doText,[(569,244)(569,307)(545,307)(545,370)])
link(onPart2,3194627:doSplit,[])
}
Add(MultiStrData,3194627,588,245)
{
Char=" "
Direct=1
link(onPart1,690554:doConvert,[(637,251)(637,276)(387,276)(387,307)])
}
Add(GProgressBar,12474865,490,301)
{
Top=404
Width=334
Color=-16777214
LightProgress=15780518
}
Add(Label,557625,574,364)
{
Left=335
Top=405
Width=60
Height=20
Caption=""
}
Add(Label,6281968,483,364)
{
Left=135
Top=405
Width=110
Height=25
Color=-16777214
Caption=""
AutoSize=1
}
Add(Hub,15816393,455,301)
{
link(onEvent1,12474865:doPosition,[])
link(onEvent2,3504874:doStrCat,[(481,314)(481,342)(422,342)(422,370)])
}
Add(StrCat,3504874,434,364)
{
Str2="%"
link(onStrCat,6281968:doText,[])
}


P.S еще меня напрягает убивать wget.exe, надо с этим что то придумать.

[in1975]

BaseD, твой вариант тоже виснет (поскольку переполнение в надписях)

вот так вроде норм:

Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,196,84)
{
Width=430
Height=462
}
Add(ButtonRush,2841574,273,189)
{
Left=15
Top=6
Width=171
Height=28
Font=[Tahoma,10,1,0,204]
Cursor=2
WinStyle=2
Hint="Сервер HFS"
ColorFrom=-16777203
ColorText=-16777211
BorderColor=8388608
ColorShadow=-16777193
ShadowOffset=1
GradientStyle=0
ColorFromOver=15780518
ColorToOver=-16777214
GradientStyleOver=0
ColorShadowDis=8421504
Caption="тест"
HAlign=0
Glyphs=[]
Point(onMouseEnter)
MakeTrans(Caption)
link(onClick,5186560:doStrCat,[])
}
Add(WinExec,15302783,399,189)
{
RunEvent=1
Point(onConsoleResult)
Point(onConsoleError)
Point(doConsoleExec)
Point(doConsoleTerminate)
link(onConsoleResult,3754267:doAdd,[])
link(onConsoleError,14966444:doSafeMode,[(450,216)(450,244)])
}
Add(StrCat,5186560,336,189)
{
Str2="wg.bat"
link(onStrCat,15302783:doConsoleExec,[(384,195)(384,209)])
link(Str1,13239321:CurrentDir,[])
}
Add(Dir,13239321,336,133)
{
}
Add(RichEdit,3754267,637,203)
{
Left=11
Top=46
Width=365
Height=347
Color=15780518
Font=[Times New Roman,9,1,0,204]
KeyPreview=1
WinStyle=1
Name="Консоль"
ModeSp=3
Strings=#34: Make pkg han tool v.3.0|15: |41: Created mod by In1975 for site pspx.ru |41: Modded by & rupor & ErikPshat & BaseD |41: _______________________________________ |1: |1: |
ScrollBars=2
ReadOnly=0
CanDragOle=1
InsertCRLF=1
ParseLinks=0
}
Add(Button,5459886,273,252)
{
Left=210
Top=5
Width=145
Height=30
Caption="закрыть"
link(onClick,15302783:doConsoleTerminate,[(352,258)(352,216)])
}
Add(ConvertorEx,690554,462,329)
{
Mode=1
link(onResult,1484116:doPosition,[(510,335)(510,321)])
}
Add(MultiStrData,6737056,525,238)
{
Char="%"
Direct=1
link(onPart1,15476169:doValue,[(583,244)(583,349)])
link(onPart2,3194627:doSplit,[(569,251)(569,244)])
}
Add(MultiStrData,3194627,581,238)
{
Char=" "
Direct=1
link(onPart1,15816393:doEvent1,[(625,244)(625,296)(310,296)(310,349)])
}
Add(Timer,14989380,364,399)
{
Enable=1
link(onTimer,15252420:doEvent1,[])
}
Add(ProgressBarRush,1484116,525,315)
{
Left=550
Top=335
Align=4
}
Add(Memory,11475825,406,329)
{
link(onData,690554:doConvert,[])
}
Add(Hub,15816393,322,343)
{
link(onEvent1,11475825:doValue,[(371,349)(371,335)])
link(onEvent2,5494632:doCase,[(348,356)(348,377)(303,377)(303,405)])
}
Add(Label,557625,665,343)
{
Left=15
Top=340
Width=90
Height=35
Color=15780518
Caption=""
AutoSize=1
}
Add(Memory,15476169,609,343)
{
link(onData,557625:doText,[])
}
Add(Case,5494632,308,399)
{
Value=String(0)
link(onTrue,14989380:doTimer,[(352,412)(352,405)])
}
Add(Hub,15252420,413,399)
{
link(onEvent1,11475825:doClear,[(439,405)(439,370)(394,370)(394,342)])
link(onEvent2,15476169:doClear,[(518,412)(518,356)])
}
Add(SafeMode,14966444,469,238)
{
link(onSafeMode,6737056:doSplit,[])
}


Wget висит только если вылетела прога - если отработала штатно, она закрывается.

Надо подумать как это пристроить к основному модулю.. Через switch ? Потому что у нас 2 статусбара

[BaseD]

in1975, вот еще вариант
Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,196,84)
{
Width=487
Height=462
}
Add(ButtonRush,2841574,273,189)
{
Left=15
Top=6
Width=221
Height=28
Font=[Tahoma,10,1,0,204]
Cursor=2
WinStyle=2
Hint="Сервер HFS"
ColorFrom=-16777203
ColorText=-16777211
BorderColor=8388608
ColorShadow=-16777193
ShadowOffset=1
GradientStyle=0
ColorFromOver=15780518
ColorToOver=-16777214
GradientStyleOver=0
ColorShadowDis=8421504
Caption="тест"
HAlign=0
Glyphs=[]
Point(onMouseEnter)
MakeTrans(Caption)
link(onClick,5186560:doStrCat,[])
}
Add(WinExec,15302783,427,189)
{
RunEvent=1
Point(onConsoleResult)
Point(onConsoleError)
Point(doConsoleExec)
Point(doConsoleTerminate)
link(onConsoleResult,3754267:doAdd,[(475,202)(475,132)])
link(onConsoleError,6737056:doSplit,[])
}
Add(StrCat,5186560,336,189)
{
Str2="wg.bat"
link(onStrCat,15302783:doConsoleExec,[(384,195)(384,209)])
link(Str1,13239321:CurrentDir,[])
}
Add(Dir,13239321,336,133)
{
}
Add(RichEdit,3754267,518,126)
{
Left=1
Top=46
Width=465
Height=347
Color=15780518
Font=[Times New Roman,9,1,0,204]
KeyPreview=1
WinStyle=1
Name="Консоль"
ModeSp=3
Strings=#34: Make pkg han tool v.3.0|15: |41: Created mod by In1975 for site pspx.ru |41: Modded by & rupor & ErikPshat & BaseD |41: _______________________________________ |1: |1: |
ScrollBars=2
ReadOnly=0
CanDragOle=1
InsertCRLF=1
ParseLinks=0
}
Add(Button,5459886,273,252)
{
Left=255
Top=5
Width=205
Height=30
Caption="закрыть"
link(onClick,15302783:doConsoleTerminate,[(352,258)(352,216)])
}
Add(ConvertorEx,690554,399,301)
{
Mode=1
link(onResult,15816393:doEvent1,[])
}
Add(MultiStrData,6737056,511,203)
{
Char="%"
Count=3
Direct=1
link(onPart1,4253600:doSplit,[(576,209)(576,349)])
link(onPart2,3194627:doSplit,[])
}
Add(MultiStrData,3194627,588,210)
{
Char=" "
Direct=1
link(onPart1,690554:doConvert,[(637,216)(637,276)(387,276)(387,307)])
}
Add(Hub,15816393,455,301)
{
link(onEvent1,13778332:doPosPBar,[])
link(onEvent2,3504874:doStrCat,[(481,314)(481,342)])
}
Add(StrCat,3504874,504,336)
{
Str2="%"
link(onStrCat,2688232:doWork3,[])
}
Add(StatusBarEx,13778332,742,287)
{
SizeGrip=1
TextAlign=1
EnablePBar=0
PanelPBar=0
VisiblePBar=0
ColorPBar=-16777203
Ctl3DPBar=1
Panels=#13:Прогресс =150|12:Скачано =100|3:=50|13:Скорость =100|3:=70|0:|
Point(doPosPBar)
link(Text,2688232:Data,[(748,282)(713,282)(713,373)(678,373)])
}
Add(ChanelToIndex,2688232,672,322)
{
Count=5
Point(Data)
link(onIndex,13778332:doText,[(726,328)(726,293)])
}
Add(MultiStrData,4253600,609,343)
{
Char="/"
Direct=1
link(onPart2,2688232:doWork5,[])
}

[in1975]

BaseD, проценты и скорость мне нравиться - а вот прогресс некрасиво совершенно :( дергается все время...

Или пойдет? :)

[BaseD]

in1975, у меня не дергается, попробуй поменять не на сплошную линию, а на прерывистую.
Как размер файла получить? Можно тоже туда добавить.

[in1975]

BaseD, кусок лога: Ты про то сколько скачалось или сколько надо качать?


--12:07:46-- http://b0.ww.np.dl.playstation.net/tppkg/np/BLUS31181/BLUS31181_T38/a6eff409d3a4c771/UP0002-BLUS31181_00-DESTINYPATCH0013-A0113-V0100-PE.pkg
=> `UP0002-BLUS31181_00-DESTINYPATCH0013-A0113-V0100-PE.pkg'
Resolving b0.ww.np.dl.playstation.net... done.
Connecting to b0.ww.np.dl.playstation.net[178.79.212.129]:80... connected.
HTTP request sent, awaiting response... 200 OK
Length: 438,913,648 [application/octet-stream]

0K .......... .......... .......... .......... .......... 0% 48.83 MB/s
50K .......... .......... .......... .......... .......... 0% 48.83 MB/s
100K .......... .......... .......... .......... .......... 0% 48.83 MB/s
150K .......... .......... .......... .......... .......... 0% 48.83 MB/s
200K .......... .......... .......... .......... .......... 0% 48.83 MB/s

[BaseD]

in1975, наверно сколько надо, ведь сколько скачалось показывается процентами и полоской.

[in1975]

BaseD, Тогда в примере это:
Length: 438,913,648

я думаю первых 6 строк надо вообще скопировать в консоль вывода сообщений. Надо подумать как...

[in1975]

Как то так, правда только 1 файл показывает в консоли... :unknw:


Add(MainForm,14886498,301,147)
{
Width=726
Height=462
Position=1
}
Add(ButtonRush,2841574,378,252)
{
Left=15
Top=6
Width=221
Height=28
Font=[Tahoma,10,1,0,204]
Cursor=2
WinStyle=2
Hint="Сервер HFS"
ColorFrom=-16777203
ColorText=-16777211
BorderColor=8388608
ColorShadow=-16777193
ShadowOffset=1
GradientStyle=0
ColorFromOver=15780518
ColorToOver=-16777214
GradientStyleOver=0
ColorShadowDis=8421504
Caption="тест"
HAlign=0
Glyphs=[]
Point(onMouseEnter)
MakeTrans(Caption)
link(onClick,5186560:doStrCat,[])
}
Add(WinExec,15302783,532,252)
{
RunEvent=1
Point(onConsoleResult)
Point(onConsoleError)
Point(doConsoleExec)
Point(doConsoleTerminate)
link(onConsoleResult,714241:doWork2,[(628,272)(628,195)])
link(onConsoleError,7544853:doSearch,[(572,279)(572,293)])
}
Add(StrCat,5186560,441,252)
{
Str2="wg.bat"
link(onStrCat,15302783:doConsoleExec,[(489,258)(489,272)])
link(Str1,13239321:CurrentDir,[])
}
Add(Dir,13239321,441,196)
{
}
Add(RichEdit,3754267,805,182)
{
Left=1
Top=46
Width=700
Height=347
Color=15780518
Font=[Times New Roman,9,1,0,204]
KeyPreview=1
WinStyle=1
Name="Консоль"
ModeSp=3
Strings=#34: Make pkg han tool v.3.0|15: |41: Created mod by In1975 for site pspx.ru |41: Modded by & rupor & ErikPshat & BaseD |41: _______________________________________ |1: |1: |
ScrollBars=2
ReadOnly=0
CanDragOle=1
InsertCRLF=1
ParseLinks=0
}
Add(Button,5459886,378,315)
{
Left=255
Top=5
Width=205
Height=30
Caption="закрыть"
link(onClick,15302783:doConsoleTerminate,[(457,321)(457,279)])
}
Add(ConvertorEx,690554,504,364)
{
Mode=1
link(onResult,15816393:doEvent1,[])
}
Add(MultiStrData,6737056,679,273)
{
Char="%"
Count=3
Direct=1
link(onPart1,4253600:doSplit,[(737,279)(737,412)])
link(onPart2,3194627:doSplit,[(727,286)(727,272)])
}
Add(MultiStrData,3194627,763,266)
{
Char=" "
Direct=1
link(onPart1,690554:doConvert,[(742,272)(742,339)(492,339)(492,370)])
}
Add(Hub,15816393,560,364)
{
OutCount=3
link(onEvent1,13778332:doPosPBar,[])
link(onEvent2,3504874:doStrCat,[(586,377)(586,405)])
link(onEvent3,13778332:doVisible,[(710,384)(710,377)])
}
Add(StrCat,3504874,609,399)
{
Str2="%"
link(onStrCat,2688232:doWork3,[])
}
Add(StatusBarEx,13778332,847,350)
{
SizeGrip=1
Visible=1
TextAlign=1
EnablePBar=0
PanelPBar=0
VisiblePBar=0
Smooth=1
ColorPBar=-16777203
Ctl3DPBar=1
Panels=#13:Прогресс =150|12:Скачано =100|3:=50|13:Скорость =100|3:=70|10:Размер =90|4:=100|0:|0:|0:|
Point(doPosPBar)
Point(doVisible)
link(Text,2688232:Data,[(853,345)(818,345)(818,436)(783,436)])
}
Add(ChanelToIndex,2688232,777,385)
{
Count=7
Point(Data)
link(onIndex,13778332:doText,[(831,391)(831,356)])
}
Add(MultiStrData,4253600,714,406)
{
Char="/"
Direct=1
link(onPart2,2688232:doWork5,[])
}
Add(StrMask,5885694,630,273)
{
Mask="*#%*"
link(onFalse,14481863:doCompare,[(670,279)(670,244)])
link(onTrue,6737056:doSplit,[(670,286)(670,279)])
}
Add(StrMask,14481863,679,238)
{
Mask="*..........*"
link(onFalse,6134041:doWork3,[(767,244)])
}
Add(HubEx,714241,700,189)
{
link(onEvent,6134041:doWork2,[(756,195)(756,188)])
}
Add(BlockFind,7544853,581,287)
{
IncludeBlock=1
StartBlock="Length: "
EndBlock=" ["
link(onSearch,2688232:doWork7,[(695,293)(695,433)])
link(onEndSearch,5885694:doCompare,[(621,300)(621,279)])
}
Add(HubEx,6134041,763,182)
{
link(onEvent,3754267:doAdd,[])
}

[BaseD]

Вот так повеселее выглядит
Make(delphi)
ver(4.05 build 186)
Add(MainForm,14886498,301,133)
{
Width=678
Height=462
Position=1
}
Add(ButtonRush,2841574,378,245)
{
Left=15
Top=6
Width=221
Height=28
Font=[Tahoma,10,1,0,204]
Cursor=2
WinStyle=2
Hint="Сервер HFS"
ColorFrom=-16777203
ColorText=-16777211
BorderColor=8388608
ColorShadow=-16777193
ShadowOffset=1
GradientStyle=0
ColorFromOver=15780518
ColorToOver=-16777214
GradientStyleOver=0
ColorShadowDis=8421504
Caption="тест"
HAlign=0
Glyphs=[]
Point(onMouseEnter)
MakeTrans(Caption)
link(onClick,5186560:doStrCat,[])
}
Add(WinExec,15302783,532,245)
{
RunEvent=1
Point(onConsoleResult)
Point(onConsoleError)
Point(doConsoleExec)
Point(doConsoleTerminate)
link(onConsoleResult,3754267:doAdd,[(628,258)(628,181)(628,181)(756,181)(756,174)])
link(onConsoleError,5885694:doCompare,[])
}
Add(StrCat,5186560,441,245)
{
Str2="wg.bat"
link(onStrCat,15302783:doConsoleExec,[(489,251)(489,265)])
link(Str1,13239321:CurrentDir,[])
}
Add(Dir,13239321,441,189)
{
}
Add(RichEdit,3754267,805,168)
{
Left=1
Top=46
Width=660
Height=347
Color=15780518
Font=[Times New Roman,9,1,0,204]
KeyPreview=1
WinStyle=1
Name="Консоль"
ModeSp=3
Strings=#34: Make pkg han tool v.3.0|15: |41: Created mod by In1975 for site pspx.ru |41: Modded by & rupor & ErikPshat & BaseD |41: _______________________________________ |1: |1: |
ScrollBars=2
ReadOnly=0
CanDragOle=1
InsertCRLF=1
ParseLinks=0
}
Add(Button,5459886,378,308)
{
Left=255
Top=5
Width=205
Height=30
Caption="закрыть"
link(onClick,15302783:doConsoleTerminate,[(457,314)(457,272)])
}
Add(ConvertorEx,690554,504,350)
{
Mode=1
link(onResult,15816393:doEvent1,[])
}
Add(MultiStrData,6737056,679,259)
{
Char="%"
Count=3
Direct=1
link(onPart1,4253600:doSplit,[(737,265)(737,398)])
link(onPart2,3194627:doSplit,[(727,272)(727,258)])
}
Add(MultiStrData,3194627,784,252)
{
Char=" "
Direct=1
link(onPart1,690554:doConvert,[(742,258)(742,325)(492,325)(492,356)])
}
Add(Hub,15816393,560,350)
{
link(onEvent1,13778332:doPosPBar,[])
link(onEvent2,3504874:doStrCat,[(586,363)(586,391)])
}
Add(StrCat,3504874,609,385)
{
Str2="%"
link(onStrCat,2688232:doWork3,[])
}
Add(StatusBarEx,13778332,861,336)
{
SizeGrip=1
TextAlign=1
EnablePBar=0
PanelPBar=0
VisiblePBar=0
Smooth=1
ColorPBar=-16777203
Ctl3DPBar=1
Panels=#13:Прогресс =150|12:Скачано =100|3:=50|13:Скорость =100|3:=70|10:Размер =90|4:=100|0:|0:|0:|
Point(doPosPBar)
Point(doVisible)
link(Text,2688232:Data,[(867,331)(832,331)(832,422)(797,422)])
}
Add(ChanelToIndex,2688232,791,371)
{
Count=7
Point(Data)
link(onIndex,13778332:doText,[(845,377)(845,342)])
}
Add(MultiStrData,4253600,714,392)
{
Char="/"
Direct=1
link(onPart2,2688232:doWork5,[])
}
Add(StrMask,5885694,630,259)
{
Mask="*#%*"
link(onFalse,14481863:doCompare,[(670,265)(670,230)])
link(onTrue,6737056:doSplit,[(670,272)(670,265)])
}
Add(StrMask,14481863,679,224)
{
Mask="*..........*"
link(onFalse,7544853:doSearch,[(723,230)(723,216)])
}
Add(BlockFind,7544853,735,210)
{
IncludeBlock=1
StartBlock="Length: "
EndBlock=" ["
link(onSearch,11180403:doSplit,[])
}
Add(MultiStrPart,11180403,854,210)
{
Char=","
Count=3
link(onSplit,4751007:doString,[(898,216)(898,240)(842,240)(842,265)])
}
Add(FormatStr,4751007,854,259)
{
DataCount=3
Mask="%1%2%3"
link(onFString,12467587:doOperation,[])
link(Str1,11180403:Part1,[])
link(Str2,11180403:Part2,[])
link(Str3,11180403:Part3,[])
}
Add(MultiElementEx,12467587,903,259)
{
link(onResult2,12094657:doStrCat,[(947,272)(947,265)])
}
BEGIN_SDK
Add(EditMultiEx,370514,21,21)
{
WorkCount=#58:doOperation=Преобразует поступающие байты в Кб, Мб, Гб, Тб|
EventCount=#20:onResult1=Выводит Кб|20:onResult2=Выводит Мб|20:onResult3=Выводит Гб|20:onResult4=Выводит Тб|
VarCount=#2:Mb|
DataCount=#29:Byte=Байты для преобразования|
Width=412
Height=333
link(doOperation,5347339:doEvent1,[(63,27)(63,174)])
link(Mb,12103260:Result,[(27,298)(279,298)])
}
Add(Hub,5347339,106,168)
{
OutCount=4
link(onEvent1,9766072:doOperation,[(186,174)(186,167)])
link(onEvent2,15479595:doOperation,[(182,181)(182,216)])
link(onEvent3,361139:doOperation,[(168,188)(168,258)])
link(onEvent4,4223471:doOperation,[(154,195)(154,300)])
}
Add(Math,4223471,169,294)
{
OpType=3
Op2=1024
link(onResult,6080636:doOperation,[])
link(Op1,361139:Result,[(175,289)(203,289)])
}
Add(Math,361139,197,252)
{
OpType=3
Op2=1024
link(onResult,8390502:doOperation,[])
link(Op1,15479595:Result,[(203,247)(231,247)])
}
Add(Math,15479595,225,210)
{
OpType=3
Op2=1024
link(onResult,12103260:doOperation,[])
link(Op1,9766072:Result,[(231,205)(258,205)])
}
Add(Math,9766072,252,161)
{
OpType=3
Op2=1024
link(onResult,8494877:doOperation,[])
link(Op1,370514:Byte,[(258,94)(27,94)])
}
Add(Math,6080636,217,294)
{
OpType=35
Op2=0.01
link(onResult,370514:onResult4,[(348,300)(348,48)])
}
Add(Math,8390502,245,252)
{
OpType=35
Op2=0.01
link(onResult,370514:onResult3,[(362,258)(362,41)])
}
Add(Math,12103260,273,210)
{
OpType=35
Op2=0.01
link(onResult,370514:onResult2,[(376,216)(376,34)])
}
Add(Math,8494877,301,161)
{
OpType=35
Op2=0.01
link(onResult,370514:onResult1,[(390,167)(390,27)])
}
END_SDK
Add(StrCat,12094657,959,259)
{
Str2=" mb"
link(onStrCat,2688232:doWork7,[(1003,265)(1003,342)(779,342)(779,419)])
}


Может ну его нафиг, выводить всю информацию в консоль, достаточно и того что сейчас есть.
Размер файла получен, скорость указывается, проценты тоже есть, разве что получить еще имя PKG...
Лишняя информация враг для простого "юзера".

[in1975]

имя PKG...
Его тоже в эту панель запихнуть? Оно длинное...

[Ang3l42]

разве что получить еще имя PKG...
А на кой? Если:
Лишняя информация враг для простого "юзера".

И вообще эти скаченные патчи нафиг не сдались юзверю после конвертации. Их по хорошему вообще после конвертации сразу удалять надо. А то вопросы всплывают типа "скачалось 100500 патчей, мне в какой последовательности их ставить?"

[in1975]

Может будет все-таки регулировать видимость этой панели? Когда надо включать, когда не надо отключать...

Пока более правильный вариант такой:


Add(ButtonRush,2841574,238,224)
{
Left=15
Top=6
Width=221
Height=28
Font=[Tahoma,10,1,0,204]
Cursor=2
WinStyle=2
Hint="Сервер HFS"
ColorFrom=-16777203
ColorText=-16777211
BorderColor=8388608
ColorShadow=-16777193
ShadowOffset=1
GradientStyle=0
ColorFromOver=15780518
ColorToOver=-16777214
GradientStyleOver=0
ColorShadowDis=8421504
Caption="тест"
HAlign=0
Glyphs=[]
Point(onMouseEnter)
MakeTrans(Caption)
link(onClick,5186560:doStrCat,[])
}
Add(WinExec,15302783,392,224)
{
RunEvent=1
Point(onConsoleResult)
Point(onConsoleError)
Point(doConsoleExec)
Point(doConsoleTerminate)
link(onConsoleResult,1878217:doWork2,[(544,244)(544,153)])
link(onConsoleError,3355939:doEvent1,[])
}
Add(StrCat,5186560,301,224)
{
Str2="wg.bat"
link(onStrCat,15302783:doConsoleExec,[(349,230)(349,244)])
link(Str1,13239321:CurrentDir,[])
}
Add(Dir,13239321,301,168)
{
}
Add(RichEdit,3754267,665,147)
{
Left=1
Top=46
Width=660
Height=347
Color=15780518
Font=[Times New Roman,9,1,0,204]
KeyPreview=1
WinStyle=1
Name="Консоль"
ModeSp=3
Strings=#34: Make pkg han tool v.3.0|15: |41: Created mod by In1975 for site pspx.ru |41: Modded by & rupor & ErikPshat & BaseD |41: _______________________________________ |1: |1: |
ScrollBars=2
ReadOnly=0
CanDragOle=1
InsertCRLF=1
ParseLinks=0
}
Add(Button,5459886,238,287)
{
Left=255
Top=5
Width=205
Height=30
Caption="закрыть"
link(onClick,15302783:doConsoleTerminate,[(317,293)(317,251)])
}
Add(ConvertorEx,690554,364,329)
{
Mode=1
link(onResult,15816393:doEvent1,[])
}
Add(MultiStrData,6737056,581,245)
{
Char="%"
Count=3
Direct=1
link(onPart1,4253600:doSplit,[(653,251)(653,377)])
link(onPart2,3194627:doSplit,[(678,258)(678,237)])
}
Add(MultiStrData,3194627,672,231)
{
Char=" "
Direct=1
link(onPart1,690554:doConvert,[(602,237)(602,304)(352,304)(352,335)])
}
Add(Hub,15816393,420,329)
{
link(onEvent1,13778332:doPosPBar,[])
link(onEvent2,3504874:doStrCat,[(446,342)(446,370)])
}
Add(StrCat,3504874,469,364)
{
Str2="%"
link(onStrCat,2688232:doWork3,[])
}
Add(StatusBarEx,13778332,721,315)
{
SizeGrip=1
TextAlign=1
EnablePBar=0
PanelPBar=0
VisiblePBar=0
Smooth=1
ColorPBar=-16777203
Ctl3DPBar=1
Panels=#13:Прогресс =150|12:Скачано =100|3:=50|13:Скорость =100|3:=70|10:Размер =90|4:=100|0:|0:|0:|
Point(doPosPBar)
Point(doVisible)
link(Text,2688232:Data,[(727,296)(748,296)(748,387)(657,387)])
}
Add(ChanelToIndex,2688232,651,350)
{
Count=7
Point(Data)
link(onIndex,13778332:doText,[(761,356)(761,321)])
}
Add(MultiStrData,4253600,574,371)
{
Char="/"
Direct=1
link(onPart2,2688232:doWork5,[])
}
Add(StrMask,5885694,546,280)
{
Mask="*#%*"
link(onTrue,6737056:doSplit,[(628,293)(628,251)])
}
Add(BlockFind,7544853,490,266)
{
IncludeBlock=1
StartBlock="Length: "
EndBlock=" ["
link(onSearch,11180403:doSplit,[(649,272)(649,195)])
link(onEndSearch,5885694:doCompare,[(534,279)(534,286)])
}
Add(MultiStrPart,11180403,714,189)
{
Char=","
Count=3
link(onSplit,4751007:doString,[(828,195)(828,205)(758,205)(758,244)])
}
Add(FormatStr,4751007,714,238)
{
DataCount=3
Mask="%1%2%3"
link(onFString,12467587:doOperation,[])
link(Str1,11180403:Part1,[])
link(Str2,11180403:Part2,[])
link(Str3,11180403:Part3,[])
}
Add(MultiElementEx,12467587,763,238)
{
link(onResult2,12094657:doStrCat,[(877,251)(877,244)])
}
BEGIN_SDK
Add(EditMultiEx,370514,21,21)
{
WorkCount=#58:doOperation=Преобразует поступающие байты в Кб, Мб, Гб, Тб|
EventCount=#20:onResult1=Выводит Кб|20:onResult2=Выводит Мб|20:onResult3=Выводит Гб|20:onResult4=Выводит Тб|
VarCount=#2:Mb|
DataCount=#29:Byte=Байты для преобразования|
Width=412
Height=333
link(doOperation,5347339:doEvent1,[(63,27)(63,174)])
link(Mb,12103260:Result,[(27,298)(279,298)])
}
Add(Hub,5347339,106,168)
{
OutCount=4
link(onEvent1,9766072:doOperation,[(186,174)(186,167)])
link(onEvent2,15479595:doOperation,[(182,181)(182,216)])
link(onEvent3,361139:doOperation,[(168,188)(168,258)])
link(onEvent4,4223471:doOperation,[(154,195)(154,300)])
}
Add(Math,4223471,169,294)
{
OpType=3
Op2=1024
link(onResult,6080636:doOperation,[])
link(Op1,361139:Result,[(175,289)(203,289)])
}
Add(Math,361139,197,252)
{
OpType=3
Op2=1024
link(onResult,8390502:doOperation,[])
link(Op1,15479595:Result,[(203,247)(231,247)])
}
Add(Math,15479595,225,210)
{
OpType=3
Op2=1024
link(onResult,12103260:doOperation,[])
link(Op1,9766072:Result,[(231,205)(258,205)])
}
Add(Math,9766072,252,161)
{
OpType=3
Op2=1024
link(onResult,8494877:doOperation,[])
link(Op1,370514:Byte,[(258,94)(27,94)])
}
Add(Math,6080636,217,294)
{
OpType=35
Op2=0.01
link(onResult,370514:onResult4,[(348,300)(348,48)])
}
Add(Math,8390502,245,252)
{
OpType=35
Op2=0.01
link(onResult,370514:onResult3,[(362,258)(362,41)])
}
Add(Math,12103260,273,210)
{
OpType=35
Op2=0.01
link(onResult,370514:onResult2,[(376,216)(376,34)])
}
Add(Math,8494877,301,161)
{
OpType=35
Op2=0.01
link(onResult,370514:onResult1,[(390,167)(390,27)])
}
END_SDK
Add(StrCat,12094657,819,238)
{
Str2=" mb"
link(onStrCat,2688232:doWork7,[(933,244)(933,307)(695,307)(695,398)])
}
Add(BlockFind,6830161,490,217)
{
StartBlock="=> `"
EndBlock="'"
link(onSearch,7700349:doStrCat,[])
}
Add(Hub,3355939,448,245)
{
link(onEvent1,6830161:doSearch,[(476,251)(476,223)])
link(onEvent2,7544853:doSearch,[(476,258)(476,272)])
}
Add(StrCat,7700349,546,217)
{
Str2="\r\n"
link(onStrCat,1878217:doWork3,[(599,223)])
}
Add(HubEx,1878217,595,147)
{
link(onEvent,3754267:doAdd,[])
}

[BaseD]

Его тоже в эту панель запихнуть? Оно длинное...
Да, ну его...
Тем более в консоли есть TitleID игры, его вполне хватит.

[BaseD]

in1975, конечно скрывать, сделал видимой пока настраиваем.
Можно еще "осталось мб" добавить?
Еще что думаю, если размер до 1000мб, показывать как МБ, если больше то как ГБ.

[in1975]

если размер до 1000мб, показывать как МБ, если больше то как ГБ.
согласен :)

[BaseD]

У каких игр патчи от 100 до 1000мб, от 1000 и более.
Проверить как будет отбражаться мб и гб, хватит ли длинны ячейки.

Пока так, очень сыро и не доделано
Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,196,84)
{
Width=678
Height=462
}
Add(ButtonRush,2841574,217,210)
{
Left=15
Top=6
Width=221
Height=28
Font=[Tahoma,10,1,0,204]
Cursor=2
WinStyle=2
Hint="Сервер HFS"
ColorFrom=-16777203
ColorText=-16777211
BorderColor=8388608
ColorShadow=-16777193
ShadowOffset=1
GradientStyle=0
ColorFromOver=15780518
ColorToOver=-16777214
GradientStyleOver=0
ColorShadowDis=8421504
Caption="тест"
HAlign=0
Glyphs=[]
Point(onMouseEnter)
MakeTrans(Caption)
link(onClick,5186560:doStrCat,[])
}
Add(WinExec,15302783,371,210)
{
RunEvent=1
Point(onConsoleResult)
Point(onConsoleError)
Point(doConsoleExec)
Point(doConsoleTerminate)
link(onConsoleError,3355939:doEvent1,[(415,230)(415,237)])
}
Add(StrCat,5186560,280,210)
{
Str2="wg.bat"
link(onStrCat,15302783:doConsoleExec,[(328,216)(328,230)])
link(Str1,13239321:CurrentDir,[])
}
Add(Dir,13239321,280,154)
{
}
Add(RichEdit,3754267,644,133)
{
Left=1
Top=46
Width=660
Height=347
Color=15780518
Font=[Times New Roman,9,1,0,204]
KeyPreview=1
WinStyle=1
Name="Консоль"
ModeSp=3
Strings=#34: Make pkg han tool v.3.0|15: |41: Created mod by In1975 for site pspx.ru |41: Modded by & rupor & ErikPshat & BaseD |41: _______________________________________ |1: |1: |
ScrollBars=2
ReadOnly=0
CanDragOle=1
InsertCRLF=1
ParseLinks=0
}
Add(Button,5459886,217,273)
{
Left=255
Top=5
Width=205
Height=30
Caption="закрыть"
link(onClick,15302783:doConsoleTerminate,[(296,279)(296,237)])
}
Add(ConvertorEx,690554,343,315)
{
Mode=1
link(onResult,15816393:doEvent1,[])
}
Add(MultiStrData,6737056,560,231)
{
Char="%"
Count=3
Direct=1
link(onPart1,4253600:doSplit,[(636,237)(636,304)(541,304)(541,363)])
link(onPart2,3194627:doSplit,[(657,244)(657,223)])
}
Add(MultiStrData,3194627,651,217)
{
Char=" "
Direct=1
link(onPart1,690554:doConvert,[(581,223)(581,290)(331,290)(331,321)])
}
Add(Hub,15816393,399,315)
{
link(onEvent1,13778332:doPosPBar,[(585,321)(585,335)])
link(onEvent2,3504874:doStrCat,[(425,328)(425,356)])
}
Add(StrCat,3504874,448,350)
{
Str2="%"
link(onStrCat,2688232:doWork3,[(640,356)(640,370)])
}
Add(StatusBarEx,13778332,756,315)
{
SizeGrip=1
TextAlign=1
EnablePBar=0
PanelPBar=0
VisiblePBar=0
Smooth=1
ColorPBar=-16777203
Ctl3DPBar=1
Panels=#13:Прогресс =150|12:Скачано =100|3:=50|13:Скорость =100|3:=70|10:Размер =90|4:=100|0:|0:|0:|
Point(doPosPBar)
Point(doVisible)
link(Text,2688232:Data,[(762,296)(783,296)(783,387)(706,387)])
}
Add(ChanelToIndex,2688232,700,350)
{
Count=7
Point(Data)
link(onIndex,13778332:doText,[(796,356)(796,321)])
}
Add(MultiStrData,4253600,553,357)
{
Char="/"
Direct=1
link(onPart2,2688232:doWork5,[(629,370)(629,384)])
}
Add(StrMask,5885694,525,266)
{
Mask="*#%*"
link(onTrue,6737056:doSplit,[(607,279)(607,237)])
}
Add(BlockFind,7544853,469,252)
{
IncludeBlock=1
StartBlock="Length: "
EndBlock=" ["
link(onSearch,11180403:doSplit,[(628,258)(628,181)])
link(onEndSearch,5885694:doCompare,[(513,265)(513,272)])
}
Add(MultiStrPart,11180403,693,175)
{
Char=","
Count=3
link(onSplit,4751007:doString,[(807,181)(807,191)(737,191)(737,230)])
}
Add(FormatStr,4751007,693,224)
{
DataCount=3
Mask="%1%2%3"
link(onFString,8493099:In,[])
link(Str1,11180403:Part1,[])
link(Str2,11180403:Part2,[])
link(Str3,11180403:Part3,[])
}
Add(MultiElementEx,12467587,889,224)
{
link(onResult2,2973605:doCompare,[])
link(onResult3,8045216:doValue,[(971,244)(971,279)])
}
BEGIN_SDK
Add(EditMultiEx,370514,21,21)
{
WorkCount=#58:doOperation=Преобразует поступающие байты в Кб, Мб, Гб, Тб|
EventCount=#20:onResult1=Выводит Кб|20:onResult2=Выводит Мб|20:onResult3=Выводит Гб|20:onResult4=Выводит Тб|
VarCount=#2:Mb|
DataCount=#29:Byte=Байты для преобразования|
Width=412
Height=333
link(doOperation,5347339:doEvent1,[(63,27)(63,174)])
link(Mb,12103260:Result,[(27,298)(279,298)])
}
Add(Hub,5347339,106,168)
{
OutCount=4
link(onEvent1,9766072:doOperation,[(186,174)(186,167)])
link(onEvent2,15479595:doOperation,[(182,181)(182,216)])
link(onEvent3,361139:doOperation,[(168,188)(168,258)])
link(onEvent4,4223471:doOperation,[(154,195)(154,300)])
}
Add(Math,4223471,169,294)
{
OpType=3
Op2=1024
link(onResult,6080636:doOperation,[])
link(Op1,361139:Result,[(175,289)(203,289)])
}
Add(Math,361139,197,252)
{
OpType=3
Op2=1024
link(onResult,8390502:doOperation,[])
link(Op1,15479595:Result,[(203,247)(231,247)])
}
Add(Math,15479595,225,210)
{
OpType=3
Op2=1024
link(onResult,12103260:doOperation,[])
link(Op1,9766072:Result,[(231,205)(258,205)])
}
Add(Math,9766072,252,161)
{
OpType=3
Op2=1024
link(onResult,8494877:doOperation,[])
link(Op1,370514:Byte,[(258,94)(27,94)])
}
Add(Math,6080636,217,294)
{
OpType=35
Op2=0.01
link(onResult,370514:onResult4,[(348,300)(348,48)])
}
Add(Math,8390502,245,252)
{
OpType=35
Op2=0.01
link(onResult,370514:onResult3,[(362,258)(362,41)])
}
Add(Math,12103260,273,210)
{
OpType=35
Op2=0.01
link(onResult,370514:onResult2,[(376,216)(376,34)])
}
Add(Math,8494877,301,161)
{
OpType=35
Op2=0.01
link(onResult,370514:onResult1,[(390,167)(390,27)])
}
END_SDK
Add(StrCat,12094657,1022,231)
{
Str2=" Mb"
link(onStrCat,8889090:doEvent1,[(1076,237)(1076,272)])
}
Add(BlockFind,6830161,469,203)
{
StartBlock="=> `"
EndBlock="'"
link(onSearch,7700349:doStrCat,[])
}
Add(Hub,3355939,427,231)
{
link(onEvent1,6830161:doSearch,[(455,237)(455,209)])
link(onEvent2,7544853:doSearch,[(455,244)(455,258)])
}
Add(StrCat,7700349,525,203)
{
Str2="\r\n"
}
Add(If_else,2973605,945,231)
{
Type=1
Op2=String(1000)
link(onTrue,12094657:doStrCat,[])
link(onFalse,13905084:doStrCat,[(999,244)(999,328)])
}
Add(StrCat,13905084,1022,322)
{
Str2=" Gb"
link(onStrCat,8889090:doEvent2,[(1076,328)(1076,279)])
link(Str1,8045216:Value,[])
}
Add(Memory,8045216,1022,273)
{
}
Add(Hub,8889090,1099,266)
{
InCount=2
OutCount=1
link(onEvent1,6488617:In,[])
}
Add(LineBreak,1941245,840,224)
{
link(Out,12467587:doOperation,[])
Primary=[8493099,-98,0]
}
Add(LineBreak,690026,630,392)
{
Caption="размер"
link(Out,2688232:doWork7,[])
Primary=[6488617,497,-126]
}
Add(InfoTip,14237063,833,189)
{
Info=#15:Байты в MB (GB)|
Font=[MS Sans Serif,12,1,0,1]
Width=351
Height=172
}

[in1975]

BaseD, гб пишет в мб.

[BaseD]

Вроде работает
Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,343,147)
{
Width=678
Height=462
}
Add(ButtonRush,2841574,364,273)
{
Left=15
Top=6
Width=221
Height=28
Font=[Tahoma,10,1,0,204]
Cursor=2
WinStyle=2
Hint="Сервер HFS"
ColorFrom=-16777203
ColorText=-16777211
BorderColor=8388608
ColorShadow=-16777193
ShadowOffset=1
GradientStyle=0
ColorFromOver=15780518
ColorToOver=-16777214
GradientStyleOver=0
ColorShadowDis=8421504
Caption="тест"
HAlign=0
Glyphs=[]
Point(onMouseEnter)
MakeTrans(Caption)
link(onClick,5186560:doStrCat,[])
}
Add(WinExec,15302783,518,273)
{
RunEvent=1
Point(onConsoleResult)
Point(onConsoleError)
Point(doConsoleExec)
Point(doConsoleTerminate)
link(onConsoleError,3355939:doEvent1,[(562,293)(562,300)])
}
Add(StrCat,5186560,427,273)
{
Str2="wg.bat"
link(onStrCat,15302783:doConsoleExec,[(475,279)(475,293)])
link(Str1,13239321:CurrentDir,[])
}
Add(Dir,13239321,427,217)
{
}
Add(RichEdit,3754267,791,196)
{
Left=1
Top=46
Width=660
Height=347
Color=15780518
Font=[Times New Roman,9,1,0,204]
KeyPreview=1
WinStyle=1
Name="Консоль"
ModeSp=3
Strings=#34: Make pkg han tool v.3.0|15: |41: Created mod by In1975 for site pspx.ru |41: Modded by & rupor & ErikPshat & BaseD |41: _______________________________________ |1: |1: |
ScrollBars=2
ReadOnly=0
CanDragOle=1
InsertCRLF=1
ParseLinks=0
}
Add(Button,5459886,364,336)
{
Left=255
Top=5
Width=205
Height=30
Caption="закрыть"
link(onClick,15302783:doConsoleTerminate,[(443,342)(443,300)])
}
Add(ConvertorEx,690554,490,378)
{
Mode=1
link(onResult,15816393:doEvent1,[])
}
Add(MultiStrData,6737056,770,294)
{
Char="%"
Count=3
Direct=1
link(onPart1,4253600:doSplit,[(832,300)(832,367)(688,367)(688,426)])
link(onPart2,3194627:doSplit,[(844,307)(844,286)])
}
Add(MultiStrData,3194627,861,280)
{
Char=" "
Direct=1
link(onPart1,690554:doConvert,[(905,286)(905,350)(481,350)(481,384)])
}
Add(Hub,15816393,546,378)
{
link(onEvent1,13778332:doPosPBar,[(732,384)(732,398)])
link(onEvent2,3504874:doStrCat,[(572,391)(572,419)])
}
Add(StrCat,3504874,616,413)
{
Str2="%"
link(onStrCat,2688232:doWork3,[(787,419)(787,433)])
}
Add(StatusBarEx,13778332,903,378)
{
SizeGrip=1
TextAlign=1
EnablePBar=0
PanelPBar=0
VisiblePBar=0
Smooth=1
ColorPBar=-16777203
Ctl3DPBar=1
Panels=#13:Прогресс =150|12:Скачано =100|3:=50|13:Скорость =100|3:=70|10:Размер =90|4:=100|0:|0:|0:|
Point(doPosPBar)
Point(doVisible)
link(Text,2688232:Data,[(909,359)(930,359)(930,450)(853,450)])
}
Add(ChanelToIndex,2688232,847,413)
{
Count=7
Point(Data)
link(onIndex,13778332:doText,[(943,419)(943,384)])
}
Add(MultiStrData,4253600,700,420)
{
Char="/"
Direct=1
link(onPart2,2688232:doWork5,[(776,433)(776,447)])
}
Add(StrMask,5885694,672,315)
{
Mask="*#%*"
link(onTrue,6737056:doSplit,[(737,328)(737,300)])
}
Add(BlockFind,7544853,616,301)
{
IncludeBlock=1
StartBlock="Length: "
EndBlock=" ["
link(onSearch,7249798:In,[])
link(onEndSearch,5885694:doCompare,[(660,314)(660,321)])
}
Add(MultiStrPart,11180403,1043,140)
{
Char=","
Count=4
link(onSplit,4751007:doString,[(1087,146)(1087,170)(1031,170)(1031,195)])
}
Add(FormatStr,4751007,1043,189)
{
DataCount=4
Mask="%1%2%3%4"
link(onFString,8493099:In,[])
link(Str1,11180403:Part1,[])
link(Str2,11180403:Part2,[])
link(Str3,11180403:Part3,[])
link(Str4,11180403:Part4,[])
}
Add(MultiElementEx,12467587,1071,287)
{
link(onResult2,2973605:doCompare,[])
}
BEGIN_SDK
Add(EditMultiEx,370514,21,21)
{
WorkCount=#58:doOperation=Преобразует поступающие байты в Кб, Мб, Гб, Тб|
EventCount=#20:onResult1=Выводит Кб|20:onResult2=Выводит Мб|20:onResult3=Выводит Гб|20:onResult4=Выводит Тб|
VarCount=#2:Mb|
DataCount=#29:Byte=Байты для преобразования|
Width=412
Height=333
link(doOperation,5347339:doEvent1,[(63,27)(63,174)])
link(Mb,12103260:Result,[(27,298)(279,298)])
}
Add(Hub,5347339,106,168)
{
OutCount=4
link(onEvent1,9766072:doOperation,[(186,174)(186,167)])
link(onEvent2,15479595:doOperation,[(182,181)(182,216)])
link(onEvent3,361139:doOperation,[(168,188)(168,258)])
link(onEvent4,4223471:doOperation,[(154,195)(154,300)])
}
Add(Math,4223471,169,294)
{
OpType=3
Op2=1024
link(onResult,6080636:doOperation,[])
link(Op1,361139:Result,[(175,289)(203,289)])
}
Add(Math,361139,197,252)
{
OpType=3
Op2=1024
link(onResult,8390502:doOperation,[])
link(Op1,15479595:Result,[(203,247)(231,247)])
}
Add(Math,15479595,225,210)
{
OpType=3
Op2=1024
link(onResult,12103260:doOperation,[])
link(Op1,9766072:Result,[(231,205)(258,205)])
}
Add(Math,9766072,252,161)
{
OpType=3
Op2=1024
link(onResult,8494877:doOperation,[])
link(Op1,370514:Byte,[(258,94)(27,94)])
}
Add(Math,6080636,217,294)
{
OpType=35
Op2=0.01
link(onResult,370514:onResult4,[(348,300)(348,48)])
}
Add(Math,8390502,245,252)
{
OpType=35
Op2=0.01
link(onResult,370514:onResult3,[(362,258)(362,41)])
}
Add(Math,12103260,273,210)
{
OpType=35
Op2=0.01
link(onResult,370514:onResult2,[(376,216)(376,34)])
}
Add(Math,8494877,301,161)
{
OpType=35
Op2=0.01
link(onResult,370514:onResult1,[(390,167)(390,27)])
}
END_SDK
Add(StrCat,12094657,1204,294)
{
Str2=" Mb"
link(onStrCat,8889090:doEvent1,[(1258,300)(1258,335)])
}
Add(BlockFind,6830161,616,252)
{
StartBlock="=> `"
EndBlock="'"
link(onSearch,7700349:doStrCat,[])
}
Add(Hub,3355939,574,294)
{
link(onEvent1,6830161:doSearch,[(602,300)(602,258)])
link(onEvent2,7544853:doSearch,[])
}
Add(StrCat,7700349,672,252)
{
Str2="\r\n"
}
Add(If_else,2973605,1127,294)
{
Type=1
Op2=String(1000)
link(onTrue,12094657:doStrCat,[])
link(onFalse,13905084:doStrCat,[(1181,307)(1181,391)])
}
Add(StrCat,13905084,1204,385)
{
Str2=" Gb"
link(onStrCat,8889090:doEvent2,[(1258,391)(1258,342)])
link(Str1,8045216:Value,[])
}
Add(Memory,8045216,1204,336)
{
}
Add(Hub,8889090,1281,329)
{
InCount=2
OutCount=1
link(onEvent1,6488617:In,[])
}
Add(LineBreak,7413984,980,315)
{
link(Out,15491903:doEvent1,[])
Primary=[8493099,112,-126]
}
Add(LineBreak,15699461,777,455)
{
Caption="размер"
link(Out,2688232:doWork7,[])
Primary=[6488617,532,-126]
}
Add(InfoTip,14237063,973,252)
{
Info=#15:Байты в MB (GB)|
Font=[MS Sans Serif,12,1,0,1]
Width=491
Height=172
}
Add(MultiElementEx,16776915,1071,322)
{
link(onResult3,8045216:doValue,[])
}
BEGIN_SDK
Add(EditMultiEx,4928570,21,21)
{
WorkCount=#58:doOperation=Преобразует поступающие байты в Кб, Мб, Гб, Тб|
EventCount=#20:onResult1=Выводит Кб|20:onResult2=Выводит Мб|20:onResult3=Выводит Гб|20:onResult4=Выводит Тб|
VarCount=#2:Mb|
DataCount=#29:Byte=Байты для преобразования|
Width=412
Height=333
link(doOperation,6356730:doEvent1,[(63,27)(63,174)])
link(Mb,7027739:Result,[(27,298)(279,298)])
}
Add(Hub,6356730,106,168)
{
OutCount=4
link(onEvent1,4806969:doOperation,[(186,174)(186,167)])
link(onEvent2,10523146:doOperation,[(182,181)(182,216)])
link(onEvent3,11173762:doOperation,[(168,188)(168,258)])
link(onEvent4,16467082:doOperation,[(154,195)(154,300)])
}
Add(Math,16467082,169,294)
{
OpType=3
Op2=1024
link(onResult,15032757:doOperation,[])
link(Op1,11173762:Result,[(175,289)(203,289)])
}
Add(Math,11173762,197,252)
{
OpType=3
Op2=1024
link(onResult,16683784:doOperation,[])
link(Op1,10523146:Result,[(203,247)(231,247)])
}
Add(Math,10523146,225,210)
{
OpType=3
Op2=1024
link(onResult,7027739:doOperation,[])
link(Op1,4806969:Result,[(231,205)(258,205)])
}
Add(Math,4806969,252,161)
{
OpType=3
Op2=1024
link(onResult,14144958:doOperation,[])
link(Op1,4928570:Byte,[(258,94)(27,94)])
}
Add(Math,15032757,217,294)
{
OpType=35
Op2=0.01
link(onResult,4928570:onResult4,[(348,300)(348,48)])
}
Add(Math,16683784,245,252)
{
OpType=35
Op2=0.01
link(onResult,4928570:onResult3,[(362,258)(362,41)])
}
Add(Math,7027739,273,210)
{
OpType=35
Op2=0.01
link(onResult,4928570:onResult2,[(376,216)(376,34)])
}
Add(Math,14144958,301,161)
{
OpType=35
Op2=0.01
link(onResult,4928570:onResult1,[(390,167)(390,27)])
}
END_SDK
Add(Hub,15491903,1029,315)
{
link(onEvent1,16776915:doOperation,[(1061,321)(1061,328)])
link(onEvent2,12467587:doOperation,[(1057,328)(1057,293)])
}
Add(LineBreak,12332657,994,140)
{
Caption="байт"
link(Out,11180403:doSplit,[])
Primary=[7249798,-322,161]
}
Add(InfoTip,13604043,973,112)
{
Info=#15:Размер в байтах|
Font=[MS Sans Serif,12,1,0,1]
Width=162
Height=130
}


P.S да, скорость дергается, вчера не обратил внимания, скачивалось в kb/s, а дома с нормальным инетом увидел :D

[Ang3l42]

А мне больше в мегабайтах нравится. Тикает быстрее - приятнее.

[BaseD]

Ang3l42, да не очень много патчей под "гиг".

[Ang3l42]

BaseD, Ну тогда вообще не понимаю зачем) Когда циферки быстро бегут - это как-то время ожидания ускоряет, как бы бредово не звучало)

[BaseD]

Ang3l42, какие циферки? :D
Там размер патча указывается в мегабайтах (если до 1000мб), или в гигабайтах (если больше 1000мб).
Скорость зависит только от возможностей инета...

P.S ну не красиво смотрится 1534,37 mb, а 1.5 гб как то симпатичней.

[Ang3l42]

какие циферки?
да черт его знает) Это вы тут разрабатываете) Я просто предположил, что будет шкала процентов и еще в ней будут мегабайты скаченные считаться:crazy: А иначе зачем это надо? В процентах норм.

[BaseD]

Ang3l42, так и останется, в процентах удобней.

[Ang3l42]

BaseD, Понятно. То есть просто в окне будет написан размер?

[BaseD]

BaseD, Понятно. То есть просто в окне будет написан размер?
В уголке, в строке состояния...

[in1975]

BaseD, теперь GB правильно пишет. Ну что переносим в основную схему?

[BaseD]

BaseD, теперь GB правильно пишет. Ну что переносим в основную схему?
Ну таки да, только пока мало представляю как оно работать должно :)

[ErikPshat]

А это, нельзя сделать так, чтобы показание скорости обновлялось раз в секунду или в 5 сек, а не раз в миллисекунду?

[BaseD]

А это, нельзя сделать так, чтобы показание скорости обновлялось раз в секунду или в 5 сек, а не раз в миллисекунду?

Ну вот так, как то.
Интервал обновления 500 мс, в 5 секунд показалось очень долго, ну и немного раскидал схему на блоки для удобства.
Кстати, скорость иногда кажет выше положенной.

Make(delphi)
ver(4.05 build 186)
Add(MainForm,3216146,420,357)
{
Width=678
Height=462
}
Add(ButtonRush,2841574,49,77)
{
Left=15
Top=6
Width=221
Height=28
Font=[Tahoma,10,1,0,204]
Cursor=2
WinStyle=2
Hint="Сервер HFS"
ColorFrom=-16777203
ColorText=-16777211
BorderColor=8388608
ColorShadow=-16777193
ShadowOffset=1
GradientStyle=0
ColorFromOver=15780518
ColorToOver=-16777214
GradientStyleOver=0
ColorShadowDis=8421504
Caption="тест"
HAlign=0
Glyphs=[]
Point(onMouseEnter)
MakeTrans(Caption)
link(onClick,5186560:doStrCat,[])
}
Add(WinExec,15302783,203,77)
{
RunEvent=1
Point(onConsoleResult)
Point(onConsoleError)
Point(doConsoleExec)
Point(doConsoleTerminate)
link(onConsoleError,3355939:doEvent1,[(247,97)(247,104)])
}
Add(StrCat,5186560,112,77)
{
Str2="wg.bat"
link(onStrCat,15302783:doConsoleExec,[(160,83)(160,97)])
link(Str1,13239321:CurrentDir,[])
}
Add(Dir,13239321,112,21)
{
}
Add(RichEdit,3754267,539,343)
{
Left=1
Top=46
Width=660
Height=347
Color=15780518
Font=[Times New Roman,9,1,0,204]
KeyPreview=1
WinStyle=1
Name="Консоль"
ModeSp=3
Strings=#34: Make pkg han tool v.3.0|15: |41: Created mod by In1975 for site pspx.ru |41: Modded by & rupor & ErikPshat & BaseD |41: _______________________________________ |1: |1: |
ScrollBars=2
ReadOnly=0
CanDragOle=1
InsertCRLF=1
ParseLinks=0
}
Add(Button,5459886,49,140)
{
Left=255
Top=5
Width=205
Height=30
Caption="закрыть"
link(onClick,15302783:doConsoleTerminate,[(128,146)(128,104)])
}
Add(ConvertorEx,690554,119,224)
{
Mode=1
link(onResult,15816393:doEvent1,[])
}
Add(MultiStrData,6737056,420,126)
{
Char="%"
Count=3
Direct=1
link(onPart1,8185162:In,[])
link(onPart2,3194627:doSplit,[(494,139)(494,118)])
}
Add(MultiStrData,3194627,539,112)
{
Char=" "
Direct=1
link(onPart1,13979603:In,[])
}
Add(Hub,15816393,175,224)
{
link(onEvent1,4344519:In,[])
link(onEvent2,3504874:doStrCat,[(201,237)(201,251)(170,251)(170,265)])
}
Add(StrCat,3504874,182,259)
{
Str2="%"
link(onStrCat,5185838:In,[])
}
Add(StatusBarEx,13778332,441,238)
{
SizeGrip=1
TextAlign=1
EnablePBar=0
PanelPBar=0
VisiblePBar=0
Smooth=1
ColorPBar=-16777203
Ctl3DPBar=1
Panels=#13:Прогресс =150|12:Скачано =100|3:=50|13:Скорость =100|3:=70|10:Размер =90|4:=100|0:|0:|0:|
Point(doPosPBar)
Point(doVisible)
link(Text,2688232:Data,[(447,226)(429,226)(429,301)(391,301)])
}
Add(ChanelToIndex,2688232,385,238)
{
Count=7
Point(Data)
link(onIndex,13778332:doText,[])
}
Add(MultiStrData,4253600,119,343)
{
Char="/"
Direct=1
link(onPart2,346382:doValue,[])
}
Add(StrMask,5885694,357,119)
{
Mask="*#%*"
link(onTrue,6737056:doSplit,[])
}
Add(BlockFind,7544853,301,105)
{
IncludeBlock=1
StartBlock="Length: "
EndBlock=" ["
link(onSearch,7249798:In,[])
link(onEndSearch,5885694:doCompare,[(345,118)(345,125)])
}
Add(MultiStrPart,11180403,574,217)
{
Char=","
Count=4
link(onSplit,4751007:doString,[(618,223)(618,247)(562,247)(562,272)])
}
Add(FormatStr,4751007,574,266)
{
DataCount=4
Mask="%1%2%3%4"
link(onFString,8493099:In,[])
link(Str1,11180403:Part1,[])
link(Str2,11180403:Part2,[])
link(Str3,11180403:Part3,[])
link(Str4,11180403:Part4,[])
}
Add(MultiElementEx,12467587,770,224)
{
link(onResult2,2973605:doCompare,[])
}
BEGIN_SDK
Add(EditMultiEx,370514,21,21)
{
WorkCount=#58:doOperation=Преобразует поступающие байты в Кб, Мб, Гб, Тб|
EventCount=#20:onResult1=Выводит Кб|20:onResult2=Выводит Мб|20:onResult3=Выводит Гб|20:onResult4=Выводит Тб|
VarCount=#2:Mb|
DataCount=#29:Byte=Байты для преобразования|
Width=412
Height=333
link(doOperation,5347339:doEvent1,[(63,27)(63,174)])
link(Mb,12103260:Result,[(27,298)(279,298)])
}
Add(Hub,5347339,106,168)
{
OutCount=4
link(onEvent1,9766072:doOperation,[(186,174)(186,167)])
link(onEvent2,15479595:doOperation,[(182,181)(182,216)])
link(onEvent3,361139:doOperation,[(168,188)(168,258)])
link(onEvent4,4223471:doOperation,[(154,195)(154,300)])
}
Add(Math,4223471,169,294)
{
OpType=3
Op2=1024
link(onResult,6080636:doOperation,[])
link(Op1,361139:Result,[(175,289)(203,289)])
}
Add(Math,361139,197,252)
{
OpType=3
Op2=1024
link(onResult,8390502:doOperation,[])
link(Op1,15479595:Result,[(203,247)(231,247)])
}
Add(Math,15479595,225,210)
{
OpType=3
Op2=1024
link(onResult,12103260:doOperation,[])
link(Op1,9766072:Result,[(231,205)(258,205)])
}
Add(Math,9766072,252,161)
{
OpType=3
Op2=1024
link(onResult,8494877:doOperation,[])
link(Op1,370514:Byte,[(258,94)(27,94)])
}
Add(Math,6080636,217,294)
{
OpType=35
Op2=0.01
link(onResult,370514:onResult4,[(348,300)(348,48)])
}
Add(Math,8390502,245,252)
{
OpType=35
Op2=0.01
link(onResult,370514:onResult3,[(362,258)(362,41)])
}
Add(Math,12103260,273,210)
{
OpType=35
Op2=0.01
link(onResult,370514:onResult2,[(376,216)(376,34)])
}
Add(Math,8494877,301,161)
{
OpType=35
Op2=0.01
link(onResult,370514:onResult1,[(390,167)(390,27)])
}
END_SDK
Add(StrCat,12094657,903,231)
{
Str2=" Mb"
link(onStrCat,8889090:doEvent1,[(957,237)(957,272)])
}
Add(BlockFind,6830161,301,56)
{
StartBlock="=> `"
EndBlock="'"
link(onSearch,7700349:doStrCat,[])
}
Add(Hub,3355939,259,98)
{
link(onEvent1,6830161:doSearch,[(287,104)(287,62)])
link(onEvent2,7544853:doSearch,[])
}
Add(StrCat,7700349,357,56)
{
Str2="\r\n"
}
Add(If_else,2973605,826,231)
{
Type=1
Op2=String(1000)
link(onTrue,12094657:doStrCat,[])
link(onFalse,13905084:doStrCat,[(880,244)(880,328)])
}
Add(StrCat,13905084,903,322)
{
Str2=" Gb"
link(onStrCat,8889090:doEvent2,[(957,328)(957,279)])
link(Str1,8045216:Value,[])
}
Add(Memory,8045216,903,273)
{
}
Add(Hub,8889090,980,266)
{
InCount=2
OutCount=1
link(onEvent1,6488617:In,[])
}
Add(LineBreak,5641924,679,252)
{
link(Out,15491903:doEvent1,[])
Primary=[8493099,-56,14]
}
Add(LineBreak,9719962,315,280)
{
Caption="размер"
link(Out,2688232:doWork7,[])
Primary=[6488617,693,-14]
}
Add(InfoTip,14237063,672,189)
{
Info=#15:Байты в MB (GB)|
Font=[MS Sans Serif,12,1,0,1]
Width=491
Height=172
}
Add(MultiElementEx,16776915,770,259)
{
link(onResult3,8045216:doValue,[])
}
BEGIN_SDK
Add(EditMultiEx,4928570,21,21)
{
WorkCount=#58:doOperation=Преобразует поступающие байты в Кб, Мб, Гб, Тб|
EventCount=#20:onResult1=Выводит Кб|20:onResult2=Выводит Мб|20:onResult3=Выводит Гб|20:onResult4=Выводит Тб|
VarCount=#2:Mb|
DataCount=#29:Byte=Байты для преобразования|
Width=412
Height=333
link(doOperation,6356730:doEvent1,[(63,27)(63,174)])
link(Mb,7027739:Result,[(27,298)(279,298)])
}
Add(Hub,6356730,106,168)
{
OutCount=4
link(onEvent1,4806969:doOperation,[(186,174)(186,167)])
link(onEvent2,10523146:doOperation,[(182,181)(182,216)])
link(onEvent3,11173762:doOperation,[(168,188)(168,258)])
link(onEvent4,16467082:doOperation,[(154,195)(154,300)])
}
Add(Math,16467082,169,294)
{
OpType=3
Op2=1024
link(onResult,15032757:doOperation,[])
link(Op1,11173762:Result,[(175,289)(203,289)])
}
Add(Math,11173762,197,252)
{
OpType=3
Op2=1024
link(onResult,16683784:doOperation,[])
link(Op1,10523146:Result,[(203,247)(231,247)])
}
Add(Math,10523146,225,210)
{
OpType=3
Op2=1024
link(onResult,7027739:doOperation,[])
link(Op1,4806969:Result,[(231,205)(258,205)])
}
Add(Math,4806969,252,161)
{
OpType=3
Op2=1024
link(onResult,14144958:doOperation,[])
link(Op1,4928570:Byte,[(258,94)(27,94)])
}
Add(Math,15032757,217,294)
{
OpType=35
Op2=0.01
link(onResult,4928570:onResult4,[(348,300)(348,48)])
}
Add(Math,16683784,245,252)
{
OpType=35
Op2=0.01
link(onResult,4928570:onResult3,[(362,258)(362,41)])
}
Add(Math,7027739,273,210)
{
OpType=35
Op2=0.01
link(onResult,4928570:onResult2,[(376,216)(376,34)])
}
Add(Math,14144958,301,161)
{
OpType=35
Op2=0.01
link(onResult,4928570:onResult1,[(390,167)(390,27)])
}
END_SDK
Add(Hub,15491903,728,252)
{
link(onEvent1,16776915:doOperation,[(760,258)(760,265)])
link(onEvent2,12467587:doOperation,[(756,265)(756,230)])
}
Add(LineBreak,4353810,525,217)
{
Caption="байт"
link(Out,11180403:doSplit,[])
Primary=[7249798,-168,-112]
}
Add(InfoTip,13604043,504,189)
{
Info=#15:Размер в байтах|
Font=[MS Sans Serif,12,1,0,1]
Width=162
Height=123
}
Add(Memory,346382,189,350)
{
}
Add(Timer,9849977,133,392)
{
Interval=500
link(onTimer,7363037:doData,[])
}
Add(LineBreak,12404117,35,343)
{
Caption="скорость"
link(Out,4253600:doSplit,[])
Primary=[8185162,434,-217]
}
Add(LineBreak,5510543,301,266)
{
Caption="скорость"
link(Out,2688232:doWork5,[])
Primary=[453649,-70,126]
}
Add(InfoTip,16040554,28,315)
{
Info=#19:Скорость скачивания|
Font=[MS Sans Serif,12,1,0,1]
Width=274
Height=130
}
Add(LineBreak,13756116,42,224)
{
Caption="прогресс"
link(Out,690554:doConvert,[])
Primary=[13979603,539,-112]
}
Add(LineBreak,15726996,343,252)
{
link(Out,2688232:doWork3,[])
Primary=[5185838,-112,7]
}
Add(LineBreak,5973193,294,217)
{
link(Out,13778332:doPosPBar,[(386,223)(386,258)])
Primary=[4344519,-91,7]
}
Add(InfoTip,8112873,287,189)
{
Info=#16:Панель прогресса|
Font=[MS Sans Serif,12,1,0,1]
Width=211
Height=123
}
Add(InfoTip,9391597,28,189)
{
Info=#8:Проценты|
Font=[MS Sans Serif,12,1,0,1]
Width=246
Height=116
}
Add(DoData,7363037,189,392)
{
link(onEventData,453649:In,[])
link(Data,346382:Value,[])
}

[ErikPshat]

BaseD, вот это уже красота.
Только у меня на 80% первого скачиваемого файла вылетела программа wget.exe

Ещё бы название скачиваемого файла хотя бы в консоль выводила...

[Ang3l42]

Только у меня на 80% вылетела программа wget.exe
С этим надо что-то делать, а вообще в линуксе wget отличная, так классно отрисовывает в коммандной строке сколько осталось. А по факту, есть же вроде и другие утилиты...

[BaseD]

BaseD, вот это уже красота.
Только у меня на 80% первого скачиваемого файла вылетела программа wget.exe
Ещё бы название скачиваемого файла хотя бы в консоль выводила...
Пробовал в 1.15 скачать патч, рассыпалась на 24%, со второго раза скачалось полностью.

[ErikPshat]

Со второй попытки докачала. Хотя нет, снова где-то на каком-то из последних патчей вылетела.
Что за фигня?

[BaseD]

Со второй попытки докачала. Хотя нет, снова где-то на каком-то из последних патчей вылетела.
Что за фигня?
Возможно сильно нагрузили расчетами?
Вылетает оболочка, сам exe продолжает качать, как я понял.
Наверно нужно упростить схему.
Интересно как будет работать в основной схеме...

[Ang3l42]

Наверно нужно упростить схему.
И убрать нафиг размер файла.

[in1975]

Я уже писал вам по этому поводу, тут происходит переполнение консоли похоже. И предлагал решение. Вы как-то забили на это...

Дело не в нагруженности схемы совершенно.

[in1975]

Вы это, хватит офтопить. Мы тут поделку на hiasm обсуждаем. Только wget из процессов убить не забудьте - он остается, если прога крашится.

Тестируйте лучше:

Add(MainForm,3216146,70,98)
{
Width=678
Height=462
Position=1
}
Add(ButtonRush,2841574,175,91)
{
Left=15
Top=6
Width=221
Height=28
Font=[Tahoma,10,1,0,204]
Cursor=2
WinStyle=2
Hint="Сервер HFS"
ColorFrom=-16777203
ColorText=-16777211
BorderColor=8388608
ColorShadow=-16777193
ShadowOffset=1
GradientStyle=0
ColorFromOver=15780518
ColorToOver=-16777214
GradientStyleOver=0
ColorShadowDis=8421504
Caption="тест"
HAlign=0
Glyphs=[]
Point(onMouseEnter)
MakeTrans(Caption)
link(onClick,5186560:doStrCat,[])
}
Add(WinExec,15302783,329,91)
{
RunEvent=1
Point(onConsoleResult)
Point(onConsoleError)
Point(doConsoleExec)
Point(doConsoleTerminate)
link(onConsoleResult,10206245:doWork2,[(475,111)(475,55)])
link(onConsoleError,3355939:doEvent1,[(373,111)(373,118)])
}
Add(StrCat,5186560,238,91)
{
Str2="wg.bat"
link(onStrCat,15302783:doConsoleExec,[(286,97)(286,111)])
link(Str1,13239321:CurrentDir,[])
}
Add(Dir,13239321,238,35)
{
}
Add(RichEdit,3754267,588,49)
{
Left=1
Top=46
Width=660
Height=347
Color=15780518
Font=[Times New Roman,9,1,0,204]
KeyPreview=1
WinStyle=1
Name="Консоль"
ModeSp=3
Strings=#34: Make pkg han tool v.3.0|15: |41: Created mod by In1975 for site pspx.ru |41: Modded by & rupor & ErikPshat & BaseD |41: _______________________________________ |1: |1: |
ScrollBars=2
ReadOnly=0
CanDragOle=1
InsertCRLF=1
ParseLinks=0
}
Add(Button,5459886,175,154)
{
Left=255
Top=5
Width=205
Height=30
Caption="закрыть"
link(onClick,15302783:doConsoleTerminate,[(254,160)(254,118)])
}
Add(ConvertorEx,690554,245,238)
{
Mode=1
link(onResult,15816393:doEvent1,[])
}
Add(MultiStrData,6737056,546,140)
{
Char="%"
Count=3
Direct=1
link(onPart1,8185162:In,[])
link(onPart2,3194627:doSplit,[(620,153)(620,132)])
}
Add(MultiStrData,3194627,665,126)
{
Char=" "
Direct=1
link(onPart1,13979603:In,[])
}
Add(Hub,15816393,301,238)
{
link(onEvent1,4344519:In,[])
link(onEvent2,3504874:doStrCat,[(327,251)(327,265)(296,265)(296,279)])
}
Add(StrCat,3504874,308,273)
{
Str2="%"
link(onStrCat,5185838:In,[])
}
Add(StatusBarEx,13778332,567,252)
{
SizeGrip=1
TextAlign=1
EnablePBar=0
PanelPBar=0
VisiblePBar=0
Smooth=1
ColorPBar=-16777203
Ctl3DPBar=1
Panels=#13:Прогресс =150|12:Скачано =100|3:=50|13:Скорость =100|3:=70|10:Размер =90|4:=100|0:|0:|0:|
Point(doPosPBar)
Point(doVisible)
link(Text,2688232:Data,[(573,240)(555,240)(555,315)(517,315)])
}
Add(ChanelToIndex,2688232,511,252)
{
Count=7
Point(Data)
link(onIndex,13778332:doText,[])
}
Add(MultiStrData,4253600,245,357)
{
Char="/"
Direct=1
link(onPart2,346382:doValue,[])
}
Add(StrMask,5885694,483,133)
{
Mask="*#%*"
link(onTrue,6737056:doSplit,[])
}
Add(BlockFind,7544853,427,119)
{
IncludeBlock=1
StartBlock="Length: "
EndBlock=" ["
link(onSearch,7249798:In,[])
link(onEndSearch,5885694:doCompare,[(471,132)(471,139)])
}
Add(MultiStrPart,11180403,700,231)
{
Char=","
Count=4
link(onSplit,4751007:doString,[(744,237)(744,261)(688,261)(688,286)])
}
Add(FormatStr,4751007,700,280)
{
DataCount=4
Mask="%1%2%3%4"
link(onFString,8493099:In,[])
link(Str1,11180403:Part1,[])
link(Str2,11180403:Part2,[])
link(Str3,11180403:Part3,[])
link(Str4,11180403:Part4,[])
}
Add(MultiElementEx,12467587,896,238)
{
link(onResult2,2973605:doCompare,[])
}
BEGIN_SDK
Add(EditMultiEx,370514,21,21)
{
WorkCount=#58:doOperation=Преобразует поступающие байты в Кб, Мб, Гб, Тб|
EventCount=#20:onResult1=Выводит Кб|20:onResult2=Выводит Мб|20:onResult3=Выводит Гб|20:onResult4=Выводит Тб|
VarCount=#2:Mb|
DataCount=#29:Byte=Байты для преобразования|
Width=412
Height=333
link(doOperation,5347339:doEvent1,[(63,27)(63,174)])
link(Mb,12103260:Result,[(27,298)(279,298)])
}
Add(Hub,5347339,106,168)
{
OutCount=4
link(onEvent1,9766072:doOperation,[(186,174)(186,167)])
link(onEvent2,15479595:doOperation,[(182,181)(182,216)])
link(onEvent3,361139:doOperation,[(168,188)(168,258)])
link(onEvent4,4223471:doOperation,[(154,195)(154,300)])
}
Add(Math,4223471,169,294)
{
OpType=3
Op2=1024
link(onResult,6080636:doOperation,[])
link(Op1,361139:Result,[(175,289)(203,289)])
}
Add(Math,361139,197,252)
{
OpType=3
Op2=1024
link(onResult,8390502:doOperation,[])
link(Op1,15479595:Result,[(203,247)(231,247)])
}
Add(Math,15479595,225,210)
{
OpType=3
Op2=1024
link(onResult,12103260:doOperation,[])
link(Op1,9766072:Result,[(231,205)(258,205)])
}
Add(Math,9766072,252,161)
{
OpType=3
Op2=1024
link(onResult,8494877:doOperation,[])
link(Op1,370514:Byte,[(258,94)(27,94)])
}
Add(Math,6080636,217,294)
{
OpType=35
Op2=0.01
link(onResult,370514:onResult4,[(348,300)(348,48)])
}
Add(Math,8390502,245,252)
{
OpType=35
Op2=0.01
link(onResult,370514:onResult3,[(362,258)(362,41)])
}
Add(Math,12103260,273,210)
{
OpType=35
Op2=0.01
link(onResult,370514:onResult2,[(376,216)(376,34)])
}
Add(Math,8494877,301,161)
{
OpType=35
Op2=0.01
link(onResult,370514:onResult1,[(390,167)(390,27)])
}
END_SDK
Add(StrCat,12094657,1029,245)
{
Str2=" Mb"
link(onStrCat,8889090:doEvent1,[(1083,251)(1083,286)])
}
Add(BlockFind,6830161,427,70)
{
StartBlock="=> `"
EndBlock="'"
link(onSearch,7700349:doStrCat,[])
}
Add(Hub,3355939,385,112)
{
link(onEvent1,6830161:doSearch,[(413,118)(413,76)])
link(onEvent2,7544853:doSearch,[])
}
Add(StrCat,7700349,483,70)
{
Str2="\r\n"
link(onStrCat,10206245:doWork3,[(543,76)])
}
Add(If_else,2973605,952,245)
{
Type=1
Op2=String(1000)
link(onTrue,12094657:doStrCat,[])
link(onFalse,13905084:doStrCat,[(1006,258)(1006,342)])
}
Add(StrCat,13905084,1029,336)
{
Str2=" Gb"
link(onStrCat,8889090:doEvent2,[(1083,342)(1083,293)])
link(Str1,8045216:Value,[])
}
Add(Memory,8045216,1029,287)
{
}
Add(Hub,8889090,1106,280)
{
InCount=2
OutCount=1
link(onEvent1,6488617:In,[])
}
Add(LineBreak,9589713,805,266)
{
link(Out,15491903:doEvent1,[])
Primary=[8493099,-56,14]
}
Add(LineBreak,3847846,441,294)
{
Caption="размер"
link(Out,2688232:doWork7,[])
Primary=[6488617,693,-14]
}
Add(InfoTip,14237063,798,203)
{
Info=#15:Байты в MB (GB)|
Font=[MS Sans Serif,12,1,0,1]
Width=491
Height=172
}
Add(MultiElementEx,16776915,896,273)
{
link(onResult3,8045216:doValue,[])
}
BEGIN_SDK
Add(EditMultiEx,4928570,21,21)
{
WorkCount=#58:doOperation=Преобразует поступающие байты в Кб, Мб, Гб, Тб|
EventCount=#20:onResult1=Выводит Кб|20:onResult2=Выводит Мб|20:onResult3=Выводит Гб|20:onResult4=Выводит Тб|
VarCount=#2:Mb|
DataCount=#29:Byte=Байты для преобразования|
Width=412
Height=333
link(doOperation,6356730:doEvent1,[(63,27)(63,174)])
link(Mb,7027739:Result,[(27,298)(279,298)])
}
Add(Hub,6356730,106,168)
{
OutCount=4
link(onEvent1,4806969:doOperation,[(186,174)(186,167)])
link(onEvent2,10523146:doOperation,[(182,181)(182,216)])
link(onEvent3,11173762:doOperation,[(168,188)(168,258)])
link(onEvent4,16467082:doOperation,[(154,195)(154,300)])
}
Add(Math,16467082,169,294)
{
OpType=3
Op2=1024
link(onResult,15032757:doOperation,[])
link(Op1,11173762:Result,[(175,289)(203,289)])
}
Add(Math,11173762,197,252)
{
OpType=3
Op2=1024
link(onResult,16683784:doOperation,[])
link(Op1,10523146:Result,[(203,247)(231,247)])
}
Add(Math,10523146,225,210)
{
OpType=3
Op2=1024
link(onResult,7027739:doOperation,[])
link(Op1,4806969:Result,[(231,205)(258,205)])
}
Add(Math,4806969,252,161)
{
OpType=3
Op2=1024
link(onResult,14144958:doOperation,[])
link(Op1,4928570:Byte,[(258,94)(27,94)])
}
Add(Math,15032757,217,294)
{
OpType=35
Op2=0.01
link(onResult,4928570:onResult4,[(348,300)(348,48)])
}
Add(Math,16683784,245,252)
{
OpType=35
Op2=0.01
link(onResult,4928570:onResult3,[(362,258)(362,41)])
}
Add(Math,7027739,273,210)
{
OpType=35
Op2=0.01
link(onResult,4928570:onResult2,[(376,216)(376,34)])
}
Add(Math,14144958,301,161)
{
OpType=35
Op2=0.01
link(onResult,4928570:onResult1,[(390,167)(390,27)])
}
END_SDK
Add(Hub,15491903,854,266)
{
link(onEvent1,16776915:doOperation,[(886,272)(886,279)])
link(onEvent2,12467587:doOperation,[(882,279)(882,244)])
}
Add(LineBreak,15238681,651,231)
{
Caption="байт"
link(Out,11180403:doSplit,[])
Primary=[7249798,-168,-112]
}
Add(InfoTip,13604043,630,203)
{
Info=#15:Размер в байтах|
Font=[MS Sans Serif,12,1,0,1]
Width=162
Height=123
}
Add(Memory,346382,315,364)
{
}
Add(Timer,9849977,259,406)
{
Interval=500
link(onTimer,7363037:doData,[])
}
Add(LineBreak,9671629,161,357)
{
Caption="скорость"
link(Out,4253600:doSplit,[])
Primary=[8185162,434,-217]
}
Add(LineBreak,128516,427,280)
{
Caption="скорость"
link(Out,2688232:doWork5,[])
Primary=[453649,-70,126]
}
Add(InfoTip,16040554,154,329)
{
Info=#19:Скорость скачивания|
Font=[MS Sans Serif,12,1,0,1]
Width=274
Height=130
}
Add(LineBreak,9323931,70,231)
{
Caption="прогресс"
link(Out,13612167:doEvent1,[])
Primary=[13979603,637,-105]
}
Add(LineBreak,3529250,469,266)
{
link(Out,2688232:doWork3,[])
Primary=[5185838,-112,7]
}
Add(LineBreak,1192362,420,231)
{
link(Out,13778332:doPosPBar,[(512,237)(512,272)])
Primary=[4344519,-91,7]
}
Add(InfoTip,8112873,413,203)
{
Info=#16:Панель прогресса|
Font=[MS Sans Serif,12,1,0,1]
Width=211
Height=123
}
Add(InfoTip,9391597,70,203)
{
Info=#8:Проценты|
Font=[MS Sans Serif,12,1,0,1]
Width=330
Height=123
}
Add(DoData,7363037,315,406)
{
link(onEventData,453649:In,[])
link(Data,346382:Value,[])
}
Add(HubEx,10206245,539,49)
{
link(onEvent,3754267:doAdd,[])
}
Add(Memory,11475825,203,231)
{
link(onData,690554:doConvert,[(240,237)(240,244)])
}
Add(Case,5494632,133,287)
{
Value=String(0)
link(onTrue,11475825:doClear,[(184,300)(184,244)])
}
Add(Hub,13612167,147,231)
{
link(onEvent1,11475825:doValue,[])
link(onEvent2,5494632:doCase,[(173,244)(173,265)(128,265)(128,293)])
}

[BaseD]

Я уже писал вам по этому поводу, тут происходит переполнение консоли похоже. И предлагал решение. Вы как-то забили на это...

Дело не в нагруженности схемы совершенно.

Хмм....
Я видно что то пропустил, ты предлагал поменять прогресс бар, что мы и сделали, а что еще?

[in1975]

BaseD, тестируй схему выше. Там память чистить надо. Раньше я еще таймер добавлял, если не хватало чистки при 0%

[ErikPshat]

in1975, а команда очистки консоли как-то может помочь?
Там CLS

[in1975]

ErikPshat, дело в том, что там wget такой поток выдает, можно конечно удалить опцию --progress=dot, но тогда весь фильтр переделывать надо.

[in1975]

Потестили мою схему? я вроде несколько раз пробовал - не крашится.

[ErikPshat]

Потестили мою схему? я вроде несколько раз пробовал - не крашится.
У меня крашанулась после третьего PKG.

А вот в консоли вместо Check path on https://a0.ww.np.dl.playstation.net/tpl/np/BLUS31181/BLUS31181-ver.xml
думаю не следует выводить путь, а достаточно вывести TitleID.

[in1975]

тогда батник wg.bat такой:

и положите param.sfo в папку tools

@echo off
set bt=MAKE PKG HAN TOOLS v3.0
TITLE -= %bt% =-= by PSPx Team =-
::
rem chcp 1251 >NUL
setlocal enabledelayedexpansion
set tls=%cd%\tools
set ts=.\tools\
set conf=!ts!package.conf
set curd=%cd%


:dwnl
set dst=
set flag=1
set title=BLUS31181
for /f "usebackq tokens=*" %%S in (`!ts!sfoprint "!ts!PARAM.SFO" TITLE`) do set tname=%%S
set tname=!tname:~8,60!
if exist !ts!*.xml del /q !ts!*.xml
if exist "%tls%\dwn.txt" del /q "%tls%\dwn.txt"
echo Check path for !title! - !tname!
echo ==============================================
!ts!wget -C on -nc -nv -O !ts!ver.xml https://a0.ww.np.dl.playstation.net/tpl/np/!title!/!title!-ver.xml -o wget-log.txt
set /p dst=<!ts!ver.xml
if not Defined dst (
:not_update
echo Not find game update. Sorry...
set flag=0
goto :fl
)
pushd "%tls%"
for /f "usebackq delims=" %%a in (`powershell -ex bypass .\dwn.ps1 '.'`) do echo.%%~a >>dwn.txt
popd
:fl
if %flag%==0 (
if Defined dst echo Find path for !title!:
type !ts!dwn.txt
echo ==============================================
goto :end
)
echo Downloading Patch for !title! - !tname! please wait...
!ts!wget --input-file=!ts!dwn.txt -C on -c -nc
::--progress=dot
find "File not found" < !ts!dwn.txt && goto :not_update
goto :end

:end
echo ==============================================
echo Download complete

[ErikPshat]

и положите param.sfo в папку tools
Какой param.sfo?