Vielen Dank an SirThornberry, der meinen Beitrag im alten Thread direkt gelöscht hat, obwohl ich diesen, direkt nachdem ich ihn abgeschickt hatte, gemeldet hatte, mit der Bitte, ihn zu verschieben (nein, es gab keinen roten Kasten)
Zum Glück war er noch im Cache
Zitat von
Namenlozer:
Zitat von
Larsi:
Wie dann?
Mit POST:
Delphi-Quellcode:
procedure UploadFile(
URL, FileName:
string);
var
FormData: TIdMultiPartFormDataStream;
HTTP: TIdHTTP;
begin
FormData := TIdMultiPartFormDataStream.Create;
HTTP := TIdHTTP.Create;
try
FormData.AddFormField('
FileName',ExtractFilename(FileName));
FormData.AddFile('
Content',FileName, '
');
// FormData.Position := 0; Bin mir gard nicht sicher, ob das nötig ist
HTTP.Request.ContentType := FormData.RequestContentType;
HTTP.post(
URL,FormData)
finally
HTTP.Free;
FormData.Free;
end;
end;