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=[ZIPA669010078DAEC7C056054D7D6F589BB4E84E04E12E242DC5D887BB0B87B42840482865034901025B8132C102190E05A9C62A54871D73648BBFF7DEEBD0943A17DFDBEFFBDF6BDF731747146CECCDC7BD6DA6BEF7DEE5042048838D1D323CCB8569690198490FEFDB9C7E284E8C811222FCF3E8E1721E43B55428A8BE9E3FE445D5C8058F721DCFBFB93B54308891D22C0BD1F1FE3FB643D04488F1EECE3991284EC0C17E03EAF3F891726C43A4680A8E377E247907184FD1EE626413EDE0438D0C19C905C717192A7284DF2959448619F81A470E8505268AC4F04DD8588AA171E70803891F79323725E3C221EA64894427A124D173162132C413483FB12FDC0BE44244E95C88FE311C1ACDE44C363281916AC45CC42CD896C6A7FA29A389448E40D26CAB91AA4CF047DA23B6E043189B52643F24610C751E22476A432C9CE5225CEE14389EB282B121E664562523448768C3A891DAF436C525D887BB43BF18976239E7901242C338C4CC80921D14531A444428294C9C890598A12A4BC873459DC439EAC101726EB95C548F51029B278A81259334C9C2C3395244D861264A5810A99A539804C3334240B6D6CC8666B3DB2D65184B47B8991864071B2354C866C705126DB42D5C89C241E9939418D5414F6248D91E2A42956956CF5D2207BC66AE17BF448ABBB21694F1D4CF624D89043D1D2645F881ED99FA74ECE4C1C4E0EA6589143E34DC899227DB2C8CB9DCCC91845A6142592EA09F1644F5E0C692B2A240713ECC9D16C67F25DBE0B395C104C4E4D8C26E29335896A8931193ACD92882CD724929BAC88F4161BD2A7C28EE8963A10831217A23DDF89982E1A49AC4A7D884955309169B0258A08A56D6EA4674B2019BED18B0C68F422162B0388E6CE40A2BF7B3419D21E412CDAA289736528C9ADB127D9B541C479D52892B7D28F844E8D20DE55D124A12485E4CE1A4F726A8A88DBAA08E2BF2E9ED8ED49203E6D3164D4E64C12DE3A9E246D482631ADB124B339912437A493A2A5E92466C70492B33387C8EFF325FA1D6388FAE17862723891681ECD24A6C772C8C0F305C4E4F424E2DC914C3C0F6693A003E349E4C10292B737973494599363B32CC83775EE64E3622F326F452059B92A98CC298E252D257164D68648327F5D3499B63D85CC6ACE2365AD8564FD9A28B26B432269DE92425AB66690730BBCC88B054EE47E79187951359A5C5AEA472ECE8921571727906BD579E476751C79593F8E3C5E3C9E9CD898402EAF8A23D7B746906BCBB3C90F3BF2C99D9509E456730AB9BF3A8FBC5853407EDC9947EEEDCB27716D5349767B29D1F96E0AD1BF3C83049E9C4A5C2ECC26D147A790CCC32524E1723549FB7E05C9B8B294C4DF5E4BD21E6C21050F7790BCA71D64CBBCC9646EDB6452D33E8D2C6B9D4ACEB794927B1BA693FBDB4B49E7F6B9E4496B2579B1BB8A3CD9BD94D41EAB2025A72B49C9B74BC9BA2B2BC9D24B3BC8B4272DE4FC8145E4EE811272FF480D79B5B7863C3B57464E9DDE4C1E1D59415E1C5A4B1E9E5D439E7FDF405E9E68248F2F6C272FBF6B26AF6EB690AA07FB48CDCF17C8CDCB1DE4CD95C3A4F387D3E4A7BBE7C987578FC9DF7F9B9134F57F327D5A4C6C49D19F9F3E252626362F2FFDCF4ED78EE9A51C5B94969632FD4F4DD7ECA5AC1C73EA685A4A6A7FBD7F3C7BBAA6B2B272EFD9E5754792E352FBEBFCC333EDABCC53569B5D9E90505716D7A74FCFE17F3C5D4795C7E3D1E989F8866FFAF4EEDDB3C71F9DC4709C2EC3A3D3F1965037B3674F9E6C8FDF3DA6E9435464646494D9E9F80D8975256A3C9EAC8AD6EFCC1F3504A7739F9E9095480FA9089F911D3AEACBF37565642465661724242430D3B3F0CE922249494985F02F4E5F2325292E33AB203E3321338B1E4E665666427C5D9AB8A4A4E2E82FCD97C0E96555D939D909990938350B87EC9CC4D345E2E292832F7E3E5D4C5C52E9F6BD6FBFFD3627811E117E4B42C2846F6B2AEF15894B0E08FE6C7A98A180F8DD9F4E9F3D7BF6C4F85C7AE8CCFC9AAAAACA0B4502F2DBD7FE76BE81BEF44F3F9F3B7FFEFCB913B5B5B505CC5BE22B8E1F3F76ACFABB0CB91D8DBF992EAA2FB8E0D6FC850BE7CFF9F124CEAF2D2DCCCF4E48185F92476F473476EC68FE74BE9081A1BE20BDE9FF70B98A995F5A58B068E0087DBC090A36B636EEFA64BA8DA0304E15D4D73