1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

var                
  Data: TIDMultiPartFormDataStream;
  dir: string;
begin
  Data := TIdMultiPartFormDataStream.Create;
  Getdir(0,dir);
  dir:=dir+'/ergebnisse/ergebnisse.ini';
try
    IdHTTP1.Request.ContentType := 'inifile/x-www-form-urlencoded';
    Data.AddFile('archive', dir, 'application/ini');
    Data.Position := 0;
  upload_beschreibung.Text := IdHTTP1.Post('http://meineseite/upload.php',Data);
finally
  Data.Free;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

<?php
$uploaddir = 'upload/';
$uploadfile = $uploaddir. $_FILES['archive']['name'];
move_uploaded_file($_FILES['archive']['name'], $uploadfile);
if (move_uploaded_file($_FILES['archive']['name'], $uploadfile)) {
    print "File is valid, and was successfully uploaded. ";
    print "Here's some more debugging info:\n";
    print_r($_FILES);
} else {
    print "Possible file upload attack!  Here's some debugging info:\n";
    print_r($uploadfile);
}					

1:
2:

Possible file upload attack!  Here's some debugging info:
upload/					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button1Click(Sender: TObject);
begin
IdFTP1.Host:= 'FUNPIC-Adresse';
IdFTP1.Port:= (21);
IdFTP1.Username:= 'USERNAME';
IdFTP1.Password:= 'PASSWORD';
IdFTP1.Connect;
IdFTP1.ChangeDir('Upload');
IdFTP1.Put('test.ini', ExtractFileName('test.ini'));
IdFTP1.Disconnect;
end;