Add(MainForm,2953706,308,168)
{
 Width=871
 Height=356
}
Add(WebBrowser,10900816,392,175)
{
 Left=10
 Top=10
 Width=840
 Height=250
 URL="http://yandex.ru/yandsearch?text=%D0%BF%D1%80%D0%BE%D0%B3%D1%80%D0%B0%D0%BC%D0%BC%D1%8B%20%D0%B4%D0%BB%D1%8F%20%D1%81%D0%BE%D0%BA%D1%80%D1%8B%D1%82%D0%B8%D1%8F%20%D0%B8%D0%BD%D1%84%D0%BE%D1%80%D0%BC%D0%B0%D1%86%D0%B8%D0%B8& lr=43& suggest_reqid=132864170142410807206135501858023& csg=0%2C0%2C0%2C0%2C0%2C1%2C0"
 Point(PHandle)
}
Add(Button,9682091,343,238)
{
 Left=405
 Top=280
 link(onClick,4881792:doClick ,[])
}
Add(InlineCode,4881792,406,238)
{
 WorkPoints=#8:doClick |
 EventPoints=#7:onError|5:onURL|
 DataPoints=#2:ph|5:value|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|40:uses kol,Share,Debug,ActiveX,KOLSHDocVw;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|18:    ph: THI_Event;|21:    value: THI_Event;|23:    onError: THI_Event;|21:    onUrl: THI_Event;|4:    |51:    procedure doClick(var _Data:TData; Index:Word);|5: end;|0:|14:implementation|0:|4:type|31:  TKOLWebBrowser = PWebBrowser;|31:  PKOLWebBrowser = PWebBrowser;|0:|0:|0:|30:procedure THiAsmClass.doClick;|3:var|15:  pc: PControl;|12:  s: string;|13:  n: integer;|5:begin|37:  pc := PControl(ToIntegerEvent(ph));|33:  if not Assigned(pc) then exit; |74:  for n:= 0 to PKOLWebBrowser(pc).OleObject.Document.links.Length - 1 do  |8:   begin|73:     s:= PKOLWebBrowser(pc).OleObject.Document.links.Item(n).InnerText;  |42:     if s = ReadString(_Data, value) then |97:       _hi_onEvent(onUrl, String(PKOLWebBrowser(pc).OleObject.Document.links.Item(n).outerHTML));|7:   end;|39:  //PKOLWebBrowser(pc).Navigate(mylnk);|4:end;|0:|4:end.|
 link(onURL,3198697:doSearch,[])
 link(ph,10900816:PHandle,[])
 link(value,10674332:Value,[(419,222)(447,222)])
}
Add(Message,7979610,567,245)
{
}
Add(BlockFind,3198697,462,245)
{
 IncludeBlock=1
 StartBlock="(this, 
 EndBlock=)"
 link(onSearch,10248060:doStrCat,[])
}
Add(StrCat,10248060,518,245)
{
 Str1="http:"
 link(onStrCat,7979610:doMessage,[])
}
Add(Memory,10674332,441,175)
{
 Default=String(juk-soft.ru)
}

Add(WebBrowser,14281269,357,175)
{
 Left=20
 Top=15
 Width=720
 Height=405
 URL=""
 link(URL,6081627:Var2,[])
}
Add(Button,3890627,273,210)
{
 Left=335
 Top=440
 Width=85
 Height=40
 Caption="Найти"
 link(onClick,8303975:doEvent1,[])
}
Add(MainForm,2953706,273,161)
{
 Width=786
 Height=607
 Caption="Downloader"
}
Add(Edit,9797136,630,238)
{
 Left=95
 Top=441
 Width=235
 Text="http://juk-soft.ru/"
}
Add(HTTP_Get,3284981,413,189)
{
 link(onDownload,825475:doConvert,[(458,202)(458,167)])
 link(onStop,12413474:doEvent1,[])
 link(URL,6081627:Var3,[(419,131)])
}
Add(Convertor,825475,469,161)
{
 Mode=11
 link(onResult,10417748:doAdd,[])
}
Add(Memory,15198379,357,84)
{
 Default=String(http://yandex.ru/yandsearch?text=%D0%BF%D1%80%D0%BE%D0%B3%D1%80%D0%B0%D0%BC%D0%BC%D1%8B%20%D0%B4%D0%BB%D1%8F%20%D1%81%D0%BE%D0%BA%D1%80%D1%8B%D1%82%D0%B8%D1%8F%20%D0%B8%D0%BD%D1%84%D0%BE%D1%80%D0%BC%D0%B0%D1%86%D0%B8%D0%B8& lr=43& suggest_reqid=132864170142410807206135501858023& csg=0%2C0%2C0%2C0%2C0%2C1%2C0)
}
Add(GetDataEx,6081627,357,126)
{
 link(Data,15198379:Value,[])
}
Add(Hub,8303975,322,210)
{
 link(onEvent1,14281269:doNavigate,[(346,216)(346,181)])
 link(onEvent2,3284981:doDownload,[(396,223)(396,195)])
}
Add(ArrayEnum,11512164,581,217)
{
 link(onItem,12149514:doSearch,[(672,223)(672,293)])
 link(Array,10417748:Array,[])
}
Add(Hub,12413474,469,210)
{
 link(onEvent1,6820790:doString,[(564,216)(564,300)])
 link(onEvent2,11512164:doEnum,[])
}
Add(BlockFind,12149514,707,287)
{
 Delete=0
 EndBlock="onmousedown="
 Point(doStartBlock)
 link(onSearch,13237361:doSearch,[])
}
Add(BlockFind,13237361,770,287)
{
 StartBlock="href=""
 EndBlock="onmousedown="
 link(onSearch,14636309:doReplace,[])
}
Add(Replace,14636309,826,287)
{
 SubStr="href=""
 link(onReplace,78906:doReplace,[])
}
Add(Replace,78906,882,287)
{
 SubStr="" onmousedown="
 link(onReplace,5576462:doText,[])
}
Add(FormatStr,6820790,630,294)
{
 DataCount=1
 Mask="<a class="link serp-url__link" target="_blank" href="%1""
 link(onFString,12149514:doStartBlock,[])
 link(Str1,9797136:Text,[])
}
Add(Edit,5576462,931,287)
{
 Left=85
 Top=465
 Width=245
}
Add(Label,498446,350,238)
{
 Left=25
 Top=465
 Width=56
 Height=17
 Caption="Результат"
}
Add(Label,11925150,357,238)
{
 Left=25
 Top=440
 Width=68
 Height=17
 Caption="Поиск сайта"
}
Add(StrList,10417748,567,161)
{
}