sguruapp@gmail.com
facebook vk instagram Одноклассники youtube

Загрузка файла на сайт - Delphi


uses IdMultipartFormData;


Для начала создаем приложение на делфи вот с такими минимальными параметрами:

var
// Для работы с формой отправки
Stream: TIdMultipartFormDataStream;

begin
Stream := TIdMultipartFormDataStream.Create;

try
Stream.AddFile('myfile', 'C:\b.bmp', '');

Memo1.text:=IdHTTP1.Post('http://ваш_сайт/skript.php', Stream );
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 так как в приложении путь прописали до этого-же имени файла.

Возврат к списку

обучись профессии будущего

Хочешь стать успешным разработчиком
приложений? Тогда добро пожаловать к нам.

обучись профессии будущего