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

[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