Hi,
wie kann ich denn in Delphi+PHP eine Bild-Datei hochladen?
Die suche hier liefert ein paar brauchbare Ergebnisse, leider funzt das alles nicht, ich bekomme immer die Meldung "Connection closed gracefully" und nix is auf dem server.
Delphi-Code
Delphi-Quellcode:
procedure TForm1.sendfile(filename:string);
var
data: TIdMultiPartFormDataStream;
begin
data := TIdMultiPartFormDataStream.Create;
try
data.AddFile('bilddatei', filename, 'image/jpeg');
data.Position := 0;
Memo1.Lines.Text := IdHTTP1.Post('http://xyz.de/upload.php', data);
finally
data.Free;
end;
end;
PHP-Code
Code:
<?php
$extlimit = "yes"; //Do you want to limit the extensions of files uploaded
$limitedext = array(".gif",".jpg",".png",".jpeg"); //Extensions you want files uploaded limited to.
$sizelimit = "yes"; //Do you want a size limit, yes or no?
$sizebytes = "100000"; //size limit in bytes
if($bilddatei!= "")
{
if (($sizelimit == "yes") && ($bilddatei_size > $sizebytes))
{
echo "Die Bilddateiname ist zu gross, sie darf mamimal $sizebytes bytes sein.";
}
$ext = strrchr($bilddatei_name,'.');
if (($extlimit == "yes") && (!in_array($ext,$limitedext)))
{
echo "Die Bilddateiname hat nicht die richtige Endung.";
}
elseif (file_exists("images/$bilddatei_name"))
{
echo "Die Bilddateiname existiert bereit. Bitte ändere deine Bilddateiname und versuche es nochmal.";
}
else
{
copy($bilddatei,"images/$bilddatei_name");
}
}
?>
Edit: ein anderer PHP-Code sowie ein anderer Webspace haben alle nix geholfen!
Woran könnte es liegen!? Gibts vielleicht ein Set aus Delphi-und PHP-Code das auf jeden fall funktioniert?