#pas
Make(delphi)
ver(4.03 build 181)
Add(MainForm,2953706,21,105)
{
 Width=329
 Height=281
}
Add(Image,11196824,189,91)
{
 Left=10
 Top=10
 Width=300
 Height=230
 Picture=
}
Add(ChildForm,11938567,189,133)
{
 link(onEvent1,6342047:doWork1,[])
 link(Data1,11196824:ImageBitmap,[])
}
BEGIN_SDK
  Add(EditMulti,5267006,21,21)
  {
   EventCount=1
   WorkCount=4
   DataCount=1
   link(doWork1,15421837:doClose,[(28,27)(28,139)])
   link(doWork2,15421837:doVisible,[(28,34)(28,146)])
   link(doWork3,2439096:doCreate,[(63,41)(63,90)])
   link(doWork4,14753221:doBuild,[(95,48)(95,146)])
  }
  Add(HTTP_FileUpload,14753221,168,140)
  {
   URL="/papka/upload.php"
   Host="lohotronov.net.ru"
   Name="upl"
   VarsList=#10:thumb_size|3:xxx|
   Point(VarsValue)
   link(onBuild,12473465:doEvent1,[])
   link(FileName,2439096:TempFName,[])
   link(VarsValue,9686501:GetData,[(188,128)(223,128)])
  }
  Add(TCP_Client,11070753,238,140)
  {
   Port=80
   IP="68.168.220.18"
   Point(onError)
   link(onRead,5267006:onEvent1,[(296,146)(296,27)])
  }
  Add(Hub,12473465,210,140)
  {
   link(onEvent1,11070753:doOpen,[])
   link(onEvent2,11070753:doSend,[(231,153)(231,160)])
  }
  Add(MultiElementEx,9686501,217,84)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,14127821,21,21)
    {
     VarCount=#7:GetData|
     DataCount=#4:Data|5:Data1|
     link(GetData,1260066:GetData,[(27,151)(55,151)])
    }
    Add(DoData,12053862,147,49)
    {
     Data=Integer(0)
     link(onEventData,1224693:doWork2,[])
    }
    Add(HubEx,1224693,287,56)
    {
     Angle=3
     link(onEvent,1260066:doData,[(291,42)(43,42)(43,55)])
    }
    Add(EventFromData,1260066,49,49)
    {
     link(onEvent,9081596:doCompare,[])
    }
    Add(If_else,9081596,98,49)
    {
     Op2=String(xxx)
     link(onTrue,12053862:doData,[])
     link(onFalse,6300632:doCompare,[(138,62)(138,104)])
    }
    Add(If_else,6300632,147,98)
    {
     Op2=String(thumb_size)
     link(onTrue,10512379:doData,[])
    }
    Add(DoData,10512379,196,98)
    {
     Data=String(500)
     link(onEventData,1224693:doWork3,[(291,104)])
    }
  END_SDK
  Add(TempFileStream,2439096,168,84)
  {
   Prefix=""
   link(Stream,5267006:Data1,[(174,52)(27,52)])
  }
  Add(MainForm,15421837,42,112)
  {
   Left=35
   Top=105
   Width=726
   Height=149
   Visible=1
   Caption="IMG-Life"
   Point(onClose)
   Point(doVisible)
  }
END_SDK
Add(ChildForm,6342047,231,133)
{
}
BEGIN_SDK
  Add(EditMulti,710163,21,21)
  {
   EventCount=1
   WorkCount=2
   link(doWork1,9278531:doEvent1,[(45,27)(45,48)])
  }
  Add(BlockFind,4225996,196,112)
  {
   IncludeBlock=1
   StartBlock="</a>"><br><br><font>Прямой адрес картинки:</font><br><input class='form' type="text" size="60" onclick="this.select()" value=""
   EndBlock=""><br><br>  </center>"
   link(onSearch,7819454:doText,[])
  }
  Add(Edit,7819454,252,112)
  {
   Left=5
   Top=5
   Width=625
   Font=[aRIAL,10,0,0,1]
   Text=""
  }
  Add(Hub,9278531,70,42)
  {
   link(onEvent1,15421837:doVisible,[(84,62)])
   link(onEvent2,4225996:doSearch,[(140,55)(140,118)])
  }
  Add(MainForm,15421837,175,28)
  {
   Left=35
   Top=105
   Width=645
   Height=62
   Visible=1
   Caption="IMG-Life"
   Point(onClose)
   Point(doVisible)
   link(onActivate,710163:onEvent1,[(264,34)(264,27)])
  }
END_SDK
Add(Button,7713513,84,147)
{
 Left=235
 Top=180
 Width=70
 Height=55
 Caption="Отправить"
 link(onClick,9564973:doEvent1,[])
}
Add(Hub,9564973,140,147)
{
 link(onEvent1,11938567:doWork3,[])
 link(onEvent2,11938567:doWork4,[])
}