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
Grüße,
Denis