Make(delphi)
ver(4.01 build 174)
Add(MainForm,7272375,308,84)
{
 Width=917
 Height=600
 Caption="http"
 BorderStyle=1
 DragForm=0
 TransparentColor=16711935
 Position=1
 Point(doTop)
 Point(doLeft)
}
Add(Button,11118746,532,371)
{
 Left=5
 Top=130
 Width=65
 Caption="отправить"
 Flat=0
 link(onClick,11397624:doSend,[(583,377)(583,349)])
}
Add(Edit,11416744,532,105)
{
 Left=5
 Top=5
 Width=405
 Ctl3D=1
 Text="http://ya.ru/"
}
Add(MultiElementEx,11397624,602,336)
{
 link(onRead,7869258:doAdd,[])
 link(onConnect,5891187:In,[(649,349)(649,377)])
 link(onDisconnect,6962124:In,[(646,356)(646,398)])
 link(Url,11416744:Text,[(608,236)(538,236)])
 link(Accept,15578446:Text,[(615,233)(580,233)])
 link(Accept-Language,11497402:Text,[])
 link(User-Agent,6925470:Text,[(629,233)(664,233)])
 link(Connection,5606946:Text,[(636,236)(706,236)])
}
BEGIN_SDK
  Add(EditMultiEx,14273051,21,21)
  {
   WorkCount=#25:doGen=Генерировать запрос|23:doSend=Отправить запрос|
   EventCount=#28:onRead=Приём данных из порта|71:onConnect=Событие происходит при успешном соединении клиента с сервером|67:onDisconnect=Событие происходит при отсоединении клиента от сервера|
   VarCount=#25:Host IP=содержит IP хоста|24:SendData=Содержит запрос|65:Active=Содержит 1 если соединение активно, и 0 в противном случае|
   DataCount=#48:Url=Вместе с http:// пример http://www.google.lv|25:Accept=Например text/html|27:Accept-Language=например ru|70:User-Agent=Например Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)|40:Connection=Например Close или Keep-Alive|
   Width=860
   Height=445
   link(doGen,1184221:doEvent1,[(24,27)(24,195)])
   link(doSend,7173150:doEvent1,[(24,34)(24,377)])
   link(Host IP,15483361:Var1,[(27,317)])
   link(SendData,2671981:Var1,[(34,324)])
   link(Active,13954329:Active,[(41,434)(580,434)])
  }
  Add(FormatStr,15866197,238,196)
  {
   DataCount=1
   Mask="GET %1 HTTP/1.1"
   link(onFString,5303860:doEvent1,[])
   link(Str1,1733901:Result,[])
  }
  Add(Hub,1184221,70,189)
  {
   OutCount=8
   link(onEvent1,13798836:doEvent1,[(95,195)(95,132)])
   link(onEvent2,15866197:doString,[])
   link(onEvent3,6341026:doString,[])
   link(onEvent4,12988138:doString,[])
   link(onEvent5,3929282:doString,[])
   link(onEvent6,4876176:doString,[])
   link(onEvent7,2048515:doString,[])
   link(onEvent8,9355736:doData,[(245,244)(245,286)])
  }
  Add(Host,3325502,721,133)
  {
   link(onIPByHost,1593286:doValue,[])
   link(HostName,6062359:Var3,[(734,107)])
  }
  Add(FormatStr,4876176,378,224)
  {
   DataCount=1
   Mask="Host: %1"
   link(onFString,5303860:doEvent5,[])
   link(Str1,6062359:Var2,[(384,158)(202,158)])
  }
  Add(Hub,5303860,497,196)
  {
   InCount=7
   OutCount=1
   link(onEvent1,9225825:doAdd,[])
  }
  Add(Memory,1593286,819,140)
  {
  }
  Add(Hub,8659068,434,133)
  {
   link(onEvent1,13410994:In,[(476,139)(476,83)])
   link(onEvent2,3325502:doIPByHost,[])
  }
  Add(LineBreak,5100544,721,175)
  {
   Caption="Clear"
   link(Out,1593286:doClear,[(800,181)(800,153)])
   Primary=[13410994,-217,-98]
  }
  Add(StrList,9225825,581,196)
  {
  }
  Add(LineBreak,2436842,483,273)
  {
   Caption="doClear"
   link(Out,9225825:doClear,[(557,279)(557,209)])
   Primary=[3476637,-301,-105]
  }
  Add(Hub,13798836,119,126)
  {
   OutCount=3
   link(onEvent1,15654823:doSplit,[(158,132)(158,117)(44,117)(44,62)])
   link(onEvent2,8659068:doEvent1,[])
   link(onEvent3,3476637:In,[(136,146)(136,174)])
  }
  Add(StrPart,15654823,56,56)
  {
   Char="/"
   Point(Right)
   link(onSplit,6203359:doSplit,[])
   link(Str,14273051:Url,[(62,49)(27,49)])
  }
  Add(StrPart,6203359,98,56)
  {
   Char="/"
   Point(Right)
   link(onSplit,3657353:doSplit,[])
  }
  Add(StrPart,3657353,196,56)
  {
   Char="/"
   Point(Left)
   link(onSplit,1733901:doStrCat,[])
  }
  Add(StrCat,1733901,238,56)
  {
   Str1="/"
  }
  Add(GetDataEx,6062359,189,98)
  {
   link(Data,3657353:Left,[])
  }
  Add(FormatStr,6341026,273,203)
  {
   DataCount=1
   Mask="Accept: %1"
   link(onFString,5303860:doEvent2,[])
   link(Str1,14273051:Accept,[(279,43)(34,43)])
  }
  Add(FormatStr,12988138,308,210)
  {
   DataCount=1
   Mask="Accept-Language: %1"
   link(onFString,5303860:doEvent3,[])
   link(Str1,14273051:Accept-Language,[(314,37)(41,37)])
  }
  Add(FormatStr,3929282,343,217)
  {
   DataCount=1
   Mask="User-Agent: %1"
   link(onFString,5303860:doEvent4,[])
   link(Str1,14273051:User-Agent,[(349,31)(48,31)])
  }
  Add(FormatStr,2048515,413,231)
  {
   DataCount=1
   Mask="Connection: %1"
   link(onFString,5303860:doEvent6,[])
   link(Str1,14273051:Connection,[(419,26)(55,26)])
  }
  Add(TCP_Client,13954329,574,371)
  {
   Port=80
   Point(onError)
   Point(onProgress)
   link(onRead,14273051:onRead,[(649,377)(649,27)])
   link(onConnect,4490901:doEvent1,[])
   link(onDisconnect,14273051:onDisconnect,[(649,391)(649,41)])
   link(IP,15483361:Var2,[(580,346)(552,346)])
   link(Data,2671981:Var2,[])
  }
  Add(LineBreak,13752735,819,182)
  {
   Caption="ip"
   Type=1
   link(Data,1593286:Value,[])
   Primary=[13677633,-273,105]
  }
  Add(Hub,7173150,462,371)
  {
   link(onEvent1,13954329:doOpen,[])
  }
  Add(GetDataEx,15483361,539,308)
  {
   link(Data,13677633:Var,[])
  }
  Add(GetDataEx,2671981,574,315)
  {
   link(Data,9225825:Text,[])
  }
  Add(Hub,4490901,672,378)
  {
   link(onEvent1,14273051:onConnect,[(700,384)(700,34)])
   link(onEvent2,13954329:doSend,[(698,391)(698,424)(534,424)(534,391)])
  }
  Add(Icon,434646,830,413)
  {
   @Hint=#5:#main|
   Icon=[ZIPA669010078DAEC7C056054D7D6F589BB4E84E04E12E242DC5D887BB0B87B42840482865034901025B8132C102190E05A9C62A54871D73648BBFF7DEEBD0943A17DFDBEFFBDF6BDF731747146CECCDC7BD6DA6BEF7DEE5042048838D1D323CCB8569690198490FEFDB9C7E284E8C811222FCF3E8E1721E43B55428A8BE9E3FE445D5C8058F721DCFBFB93B54308891D22C0BD1F1FE3FB643D04488F1EECE3991284EC0C17E03EAF3F891726C43A4680A8E377E247907184FD1EE626413EDE0438D0C19C905