Delphi Отправка Файла На Сервер Через Http (delphi)

[Sascha]

Решение:

procedure TForm1.btn1Click(Sender: TObject);
var FileName: string;response: string;
var formData: TIdMultiPartFormDataStream;
begin
FileName := 'D:\xLog.txt';
formData := TIdMultiPartFormDataStream.Create;
formData.AddFile('myfile',fileName,'application/octet-stream');
formData.AddFormField('param1', 'value1');
response := idhtp1.Post('http://sait.ru/upload/gate.php',formData);
mmo1.Lines.Text:= response ;
formData.Free;
end;

gate.php

<?
    $myfile = $_FILES['myfile']['tmp_name'];
    $name = basename($_FILES['myfile']['name']);
    if (!file_exists($myfile))
    {
        echo "error";
    }
    else
    {
        move_uploaded_file($myfile, $name);
        echo "ok";
    }
?>

Атрибуты на папку upload 777,на gate.php 644.
После сохранения,файлы появляются в окне браузера ftp не сразу.

 

[Ярослав]

Решение:

procedure TForm1.btn1Click(Sender: TObject);
var FileName: string;response: string;
var formData: TIdMultiPartFormDataStream;
begin
FileName := 'D:\xLog.txt';
formData := TIdMultiPartFormDataStream.Create;
formData.AddFile('myfile',fileName,'application/octet-stream');
formData.AddFormField('param1', 'value1');
response := idhtp1.Post('http://sait.ru/upload/gate.php',formData);
mmo1.Lines.Text:= response ;
formData.Free;
end;

gate.php

<?
    $myfile = $_FILES['myfile']['tmp_name'];
    $name = basename($_FILES['myfile']['name']);
    if (!file_exists($myfile))
    {
        echo "error";
    }
    else
    {
        move_uploaded_file($myfile, $name);
        echo "ok";
    }
?>

Атрибуты на папку upload 777,на gate.php 644.
После сохранения,файлы появляются в окне браузера ftp не сразу.

У меня не роботает не компилируеться ошибка "[Error] Unit1.pas(30): Undeclared identifier: 'TIdMultiPartFormDataStream'"

 

[Ярослав]

а всё зароботало надо было в user дописать IdMultipartFormData;