Hi HolgerX,
der Fremdserver benötigt das senden über PUT als Multipart.
So sieht der aktuell Umbau aus. Doch leider bekommen ich damit die Fehlermeldung "HTTP/1.1 400 Bad Request."
Der Anbieter meinte ich sende nicht als Multipart.
Sicherlich hat er recht. Kannst du erkennen was hier schief laufen könnte?
Delphi-Quellcode:
procedure TfrMain.Button2Click(Sender: TObject);
var
IdHTTP: TIdHTTP;
PostData: TIdMultipartFormDataStream;
PostResponse:
String;
begin
IdHTTP := TIdHTTP.Create(
nil);
try
PostData := TIdMultipartFormDataStream.Create;
try
IdHTTP.ProxyParams.ProxyServer := '
api.sandbox.XY.de';
IdHTTP.ProxyParams.ProxyPort := 8080;
IdHTTP.Request.Accept := '
application/data.XY.api+json';
IdHTTP.Request.ContentType := '
multipart/form-data';
IdHTTP.Request.BasicAuthentication := true;
IdHTTP.Request.Host := '
services.XY.de';
IdHTTP.Request.Username := '
User';
IdHTTP.Request.Password := '
password';
PostData.AddFile('
image2', '
F:\Bilder\A02-6176_2.jpg');
Memo1.Lines.Add(IdHTTP.put('
https://services.XY.de/api/1580/ad/358943/images',PostData));
finally
PostData.Free;
end;
finally
IdHTTP.Free;
end;
end;
Gruß Kostas