code_31165.txt
------------ Дoбавленo в 11.21:
Netspirit писал(а):
iarspider, так ему вроде upload нужен.Да, мне именно загрузка файла на сервер нужна... с сервера все грузится без проблем и примеры не нужны особо...
------------ Дoбавленo в 11.38:
Я тут еще один компонент нашел )) Только примера в нем нет, к сожалению...
Как-то така должно быть?
Make(delphi)
ver(4.04 build 185)
Add(MainForm,2953706,21,105)
{
Width=766
Height=589
}
Add(Browse,12598600,203,161)
{
BrowseObj=3
link(onBrowse,6268515:doValue,[(254,167)(254,146)])
}
Add(Memory,6268515,280,140)
{
}
Add(Button,9542592,147,161)
{
Left=125
Top=160
link(onClick,12598600:doBrowse,[])
}
Add(HTTP_FileUpload,3024452,280,224)
{
link(onBuild,8204047:doEvent1,[])
link(FileName,6268515:Value,[])
link(URL,7614253:Text,[(293,188)(419,188)])
}
Add(Hub,8204047,343,224)
{
OutCount=3
link(onEvent1,15429759:doOpen,[])
link(onEvent2,15429759:doSend,[(367,237)(367,244)])
link(onEvent3,7208556:doAdd,[(362,244)(362,279)])
}
Add(TCP_Client,15429759,378,224)
{
Port=80
link(IP,15204020:Text,[(384,216)(461,216)])
}
Add(Memo,7208556,378,273)
{
Left=135
Top=235
Width=585
Height=275
}
Add(Edit,7614253,413,119)
{
Left=125
Top=55
Width=525
}
Add(InfoTip,4200899,343,119)
{
Info=#11:URL Script?|
Height=25
}
Add(Edit,15204020,455,175)
{
Left=125
Top=105
Width=525
}
Add(InfoTip,15669119,497,175)
{
Info=#10:IP Server?|
Height=18
}
Вот скрипт приема файла:
<html>
<head>
<title>Результат загрузки файла</title>
</head>
<body>
<?php
if($_FILES["filename"]["size"] > 1024*3*1024)
{
echo ("Размер файла превышает три мегабайта");
exit;
}
// Проверяем загружен ли файл
if(is_uploaded_file($_FILES["filename"]["tmp_name"]))
{
// Если файл загружен успешно, перемещаем его
// из временной директории в конечную
move_uploaded_file($_FILES["filename"]["tmp_name"], "/srv/www/vhosts/cubarium.com/soft/cloaks/".$_FILES["filename"]["name"]);
} else {
echo("Ошибка загрузки файла");
}
?>
</body>
</html>
Все, разобрался, спасибо... нужно было имя запроса указать и хост отдельно от ссылки
Поиск
Друзья
Администрация