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:

zusammenfalten · markieren

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

Grüße,
Denis

Upload über idHTTP

Upload über idHTTP

Forumregeln