Make(delphi) ver(4.05 build 186) Add(Shape,15032757,42,336) { @Group=37508224 Width=204 Height=53 Font=[Arial,10,0,0,204] Color=-16777192 } Add(MainForm,11153267,77,287) { Width=499 Height=226 Caption="UpLoad File on Server" } Add(Button,9542592,147,287) { Left=385 Top=10 Width=80 Caption="Обзор..." link(onClick,16763806:doExecute,[]) } Add(HTTP_FileUpload,3024452,301,336) { Name="my_file" link(onBuild,8204047:doEvent1,[]) link(FileName,7614253:Text,[(307,327)(265,327)]) link(URL,15204020:Text,[]) AddHint(43,-20,47,13,Name) } Add(Hub,8204047,350,336) { OutCount=3 link(onEvent1,15429759:doClose,[(389,342)(389,377)(438,377)(438,356)]) link(onEvent2,3095139:doIPByHost,[]) link(onEvent3,15429759:doSend,[(382,356)(382,384)(445,384)(445,363)]) } Add(TCP_Client,15429759,462,343) { Port=80 } Add(Edit,7614253,259,287) { Left=120 Top=10 Width=255 Text="" } Add(Host,3095139,399,336) { link(onIPByHost,15429759:doOpen,[]) link(HostName,8741098:Text,[]) } Add(Label,8524049,63,217) { Left=15 Top=60 Width=60 Height=17 Caption="Имя хоста:" } Add(Edit,8741098,406,287) { @Hint=#13:Адрес сервера|34:(например: www.mysite.example.com)| Left=120 Top=55 Width=165 Text="localhost" AddHint(-287,-71,183,26,@Hint) } Add(Label,3311355,70,224) { Left=15 Top=90 Width=90 Height=17 Caption="Путь к странице:" } Add(Label,558966,77,231) { Left=15 Top=15 Width=64 Height=17 Caption="Имя файла:" } Add(Button,11953298,252,336) { Left=20 Top=145 Width=125 Height=30 Caption="Upload" link(onClick,3024452:doBuild,[]) } Add(ODialog,16763806,203,287) { Title="Укажите файл для загрузки" FileName="" link(onExecute,7614253:doText,[]) } Add(InfoTip,8476350,42,336) { @Group=37508224 Info=#29:Не забудьте указать имя поля,|19:в котором страница |21:ожидает получить файл| Font=[Arial,10,0,0,204] Width=204 Height=53 } Add(InfoTip,11085833,511,56) { Info=#39:Пример страницы на PHP, обрабатывающей |16:загрузку файлов.|0:|43:Сохраните следующий текст в файл upload.php|42:и разместите его в корне вашего локального|18:тестового сервера.|0:|6:|6:
|41: