А я схемку сделал  Но не пропадать же добру:
Add(MainForm,11153267,315,280) { Width=629 Height=486 } Add(Button,9542592,315,406) { Left=525 Top=10 Caption="Select..." link(onClick,16763806:doExecute,[]) } Add(HTTP_FileUpload,3024452,469,525) { Name="filename" link(onBuild,8204047:doEvent1,[]) link(FileName,7614253:Text,[]) link(URL,15204020:Text,[]) AddHint(67,15,54,13,Name) } Add(Hub,8204047,623,525) { OutCount=4 link(onEvent1,15429759:doClose,[(674,531)(674,508)(825,508)(825,545)]) link(onEvent2,3095139:doIPByHost,[]) link(onEvent3,15429759:doSend,[(674,545)(674,581)(825,581)(825,552)]) link(onEvent4,7208556:doAdd,[(658,552)(658,664)]) } Add(TCP_Client,15429759,875,532) { Port=80 } Add(Memo,7208556,742,658) { Left=30 Top=150 Width=560 Height=275 ScrollBars=3 } Add(Edit,7614253,469,406) { Left=65 Top=10 Width=450 Text="" } Add(Edit,15204020,476,462) { Left=320 Top=55 Width=195 Text="/upload.php" } Add(Host,3095139,721,525) { link(onIPByHost,15429759:doOpen,[]) link(HostName,8741098:Text,[]) } Add(Label,8524049,315,189) { Left=35 Top=60 Width=29 Height=17 Caption="Host:" } Add(Edit,8741098,728,427) { Left=65 Top=55 Width=195 Text="localhost" } Add(Label,3311355,371,189) { Left=280 Top=60 Width=32 Height=17 Caption="Page:" } Add(Label,558966,315,126) { Left=15 Top=15 Width=49 Height=17 Caption="Filename:" } Add(Button,11953298,399,525) { Left=65 Top=100 Width=125 Height=30 Caption="Upload" link(onClick,3024452:doBuild,[]) } Add(ODialog,16763806,385,406) { Title="Select file for upload" FileName="" link(onExecute,7614253:doText,[]) }
|