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

[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 бывает иногда подтупливает, нужно чуть подождать