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

procedure UploadFile(Filename: string);
var
  Stream: TIdMultiPartFormDataStream;
  StringStream: TStringStream;

begin
Stream := TIdMultiPartFormDataStream.Create;
StringStream := TStringStream.Create('');
try
  Stream.AddFile('datei',Filename, '');
  form1.IdHTTP1.Post(uploadurl, Stream, StringStream);
  uploadform.Memo1.lines.add ('Serverantwort: '+StringStream.DataString);
  uploadform.Memo1.lines.add ('Datei erfolgreich übertragen');
finally
  Stream.Free;
  StringStream.Free;
end;
end;                    

1:
2:
3:
4:
5:

<?php
$file = $_SERVER[DOCUMENT_ROOT] . "/omgware/" . $_FILES['datei']['name'];
if (!move_uploaded_file($_FILES['datei']['tmp_name'], $file))
 die("cp not able");
?>