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

[in1975]

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

Length: 438,913,648

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

[in1975]

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

код

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]

Сообщение от BaseD имя PKG...

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

[Ang3l42]

Сообщение от BaseD разве что получить еще имя PKG...

А на кой? Если:

Сообщение от BaseD Лишняя информация враг для простого "юзера".

И вообще эти скаченные патчи нафиг не сдались юзверю после конвертации. Их по хорошему вообще после конвертации сразу удалять надо. А то вопросы всплывают типа "скачалось 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]

Сообщение от in1975 Его тоже в эту панель запихнуть? Оно длинное...

Да, ну его...
Тем более в консоли есть TitleID игры, его вполне хватит.

[BaseD]

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

[in1975]

Сообщение от BaseD если размер до 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, а дома с нормальным инетом увидел

[Ang3l42]

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

[BaseD]

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

[Ang3l42]

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

[BaseD]

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

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

[Ang3l42]

Сообщение от BaseD какие циферки?

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

[BaseD]

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

[Ang3l42]

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

[BaseD]

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

В уголке, в строке состояния...