Delphi-PRAXiS - Delphi Upload über idHTTP

Hallo,

ich habe vor für meinen Upload-Service auf mehrfachen Wunsch ein kleines Upload-Tool zu schreiben. Sollte ja eigentlich kein Problem sein...

Ich habe nun einen kleinen Code im Netz gefunden, und eintprechend angepasst:

Delphi-Quellcode:

			procedure TfrmMain.btnUploadClick(Sender: TObject);

var

  StringStream: TStringStream;

  PostVars: TStringList;

  FileStream: TFileStream;

begin

  PostVars := TStringList.Create;

  StringStream := TStringStream.Create('');

  FileStream := TFileStream.Create(OpenDialog1.FileName, fmOpenRead or fmShareDenyWrite);

  try

    //IdHTTP1.Connect;

    StringStream.CopyFrom(FileStream, FileStream.Size);

    PostVars.Values['file'] := IdEncoderMIME1.Encode(StringStream.DataString);

    Application.ProcessMessages;

    IdHTTP1.Post('http://mediacache.de/uploadtool.php?pDatei=upload.tmp', PostVars, StringStream);

    Memo1.Text := StringStream.DataString;

  finally

    StringStream.Free;

    PostVars.Free;

    FileStream.Free;

  end;

end;

Das Uploaden klappt auch soweit ganz gut. Nun habe ich allerdings das Problem, dass nach dem Upload in der Memo1 nur das hier erscheint:

Zitat:

ÿØÿà

Die PHP Datei sieht folgendermaßen aus:

Zitat:

<?
include('config.php');
include('include/functions.php');
make_dir($uploaddir);
$datei = base64_decode($file);
$fp = fopen($HTTP_GET_VARS['pDatei'], "w");
fwrite($fp, $uploaddir.$datei);
fclose($fp);
echo $uploaddir;
?>

Zum Test gibt er erstmal nur das Verzeichnis zurück, in welches die Datei hochgeladen wurde...
Ich habe echt keinen Plan wo da der Fehler sein soll :oops:

Grüße,
Denis