Загрузка файла на сайт - Delphi
uses IdMultipartFormData;
Для начала создаем приложение на делфи вот с такими минимальными параметрами:
var
// Для работы с формой отправки
Stream: TIdMultipartFormDataStream;
begin
Stream := TIdMultipartFormDataStream.Create;
try
Stream.AddFile('myfile', 'C:\b.bmp', '');
finally
Stream.Free;
end;
end;
Далее создаем на своем сервере
php-файл который считает параметры приложения и сохранит ваш файл на сервере в папку, в моем случае я создал папку upload
<?php
$file1 = $_FILES['myfile']['tmp_name'];
$name = basename($_FILES['myfile']['name']);
$dir='upload/';
if (!file_exists($file1))
{
echo "Ошибка, файл не загружен";
}
else
{
move_uploaded_file($file1, $dir.$name);
echo "Файл загружен в папку upload";
}
?>
Назовем файл
skript.php так как в приложении путь прописали до этого-же имени файла.
Возврат к списку