PSPx форум
Страница 4 из 8 1 2 3 4 5 6 7 8
Показывать 40 сообщений этой темы на одной странице

PSPx форум (https://www.pspx.ru/forum/index.php)
-   Программирование для ПК (https://www.pspx.ru/forum/forumdisplay.php?f=474)
-   -   HiAsm – среда визуального программирования (https://www.pspx.ru/forum/showthread.php?t=107986)

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

ErikPshat 22.08.2018 23:03
in1975, это же чистый HTML, даже править ничего не надо.
  1. Пишешь на форуме сообщение, оформляешь как тебе нравится, там с цветами, листами и прочими ББ-кодами.
  2. Делаешь предварительный просмотр.
  3. Инспектируешь страницу правой кнопкой "Просмотреть код".
  4. В коде снова правой кнопкой в теле сообщения "Edit as HTML".
  5. Выделяешь всё в чистом виде и вставляешь в редактор CHM между тегами BODY.
  6. Там только картинки добавляешь в папки редактора к "Файлам" и в код на свои места.
Там я забыл путь указать к картинке кнопки :triangle-ps3: и верхнюю картину надо было стилями укоротить по ширине окна.

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

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

Переработал батник, теперь программа должна работать в любой дурной директории - с кириллицей, пробелами и прочими извращениями :)

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

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

BaseD 25.08.2018 15:43
Цитата:
Сообщение от ErikPshat (Сообщение 1151137)
in1975, эмм, я не понял, все остальные файлы и папку "tools" к программе ты собираешься так же россыпью оставлять рядом с экзешником?
Что за бред и палево?

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

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

in1975 25.08.2018 18:54
Цитата:
Сообщение от BaseD (Сообщение 1151138)
окну "о программе" надо запретить разворачиваться на весь экран.
легко. http://transfiles.ru/dad9g

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

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

in1975 28.08.2018 12:58
Проблема - wget нам крашит прогу. тестовый манекен
Пока нашел несколько вариантов "кривого решения":
  1. Добавлять любой из этих ключей к wget
    • wget -q
    • wget -b
    • wget -nv
  2. Направлять команду не на точку doConsoleExec, а на doExec
При обеих вариантах вывод прогресса скачивания мы не добьемся. Разве что при ключе -b (скачивание в бекграунде) читать прогресс из файла, но... хз как...

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

http://transfiles.ru/x0g60

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

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

in1975 29.08.2018 09:25
BaseD, ты это юзаешь?

BaseD 29.08.2018 09:38
in1975, да последний вариант.

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

BaseD 29.08.2018 10:05
И, что должно быть?

https://preview.ibb.co/ctR2Xp/29_08_2018_100414.jpg

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

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

in1975 29.08.2018 10:16
BaseD, брандмаузер настрой

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

in1975 29.08.2018 10:34
Антивирус еще посмотри
код
Код:
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 29.08.2018 10:41
Первым делом на него обратил внимания, хз куда еще копать :scratch_one-s_head:

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

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

Содержимое лог.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 29.08.2018 11:07
Нормально качаются патчи. Правда со второй попытки. В первый раз прога ругнулась на 21%. Вообщем крашится в любой момент.

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

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

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

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

BaseD 29.08.2018 13:07
in1975,
Вот окно консоли

https://preview.ibb.co/fLgxXp/29_08_2018_130529.jpg

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

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

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

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

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

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

BaseD 29.08.2018 14:34
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 29.08.2018 15:57
BaseD, wget быстрее качает, там несколько потоков, а это внутренняя поделка.

BaseD 29.08.2018 17:02
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 30.08.2018 09:58
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 30.08.2018 10:20
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 30.08.2018 10:41
BaseD, проценты и скорость мне нравиться - а вот прогресс некрасиво совершенно :( дергается все время...

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

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

in1975 30.08.2018 11:10
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 30.08.2018 11:14
in1975, наверно сколько надо, ведь сколько скачалось показывается процентами и полоской.


Текущее время: 03:27. Часовой пояс GMT +3.
Страница 4 из 8 1 2 3 4 5 6 7 8
Показывать 40 сообщений этой темы на одной странице

Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2025, vBulletin Solutions, Inc. Перевод: zCarot
PSPx Forum - Сообщество фанатов игровых консолей.