hallo!
ich betreibe einen uploadservice und möchte dafür gerne ein uploadtool erstellen.
Da ich jedoch (noch) kaum was von delphi verstehe bin ich jetzt auf Hilfe angewiesen.
Ich weiss das dieses Thema schon oft und lange durchgekaut worden ist, dennoch kapier ich es einfach nicht und hoffe das es mir hilft wenn jemand ganz speziell auf meinen fall hilfestellung gibt,
also das hier ist der code:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
StringStream: TStringStream;
PostVars: TStringList;
FileStream: TFileStream;
begin
PostVars := TStringList.Create;
StringStream := TStringStream.Create('');
FileStream := TFileStream.Create(listbox1.Items[0], fmOpenRead or fmShareDenyWrite);
try
//IdHTTP1.Connect;
StringStream.CopyFrom(FileStream, FileStream.Size);
PostVars.Values['file'] := IdEncoderMIME1.Encode(StringStream.DataString);
Application.ProcessMessages;
IdHTTP1.Post('http://upload.bla.de/upload.php', PostVars, StringStream);
memo2.Text := StringStream.DataString;
finally
StringStream.Free;
PostVars.Free;
FileStream.Free;
end;
end;
und das hier ist das script das die datei entgegen nehmen soll:
Delphi-Quellcode:
<?
$datei = $_POST['file'];
if (isset($_POST['file']))
{
echo "zumindest ist die file variable gesetzt";
}
copy($datei, "dateien/$datei");
?>
Kann vielleicht mal jemand das script bei sich ausprobieren? oder mir vielleicht auch so schon sagen wo der fehler liegt? danke!
p.s. das script nimmt nicht die variable entgegen