Per indy mehre Datein als Multipart über https versenden.

[Kostas]

Hi HolgerX,

dank deiner Hilfe funktioniert es jetzt bei mir und zwar so:

Delphi-Quellcode:

procedure TfrMain.Button2Click(Sender: TObject);
var
  IdHTTP: TIdHTTP;
  FPutData: TIdMultipartFormDataStream;

begin

  IdHTTP := TIdHTTP.Create(nil);
  try

    FPutData := TIdMultipartFormDataStream.Create;
    FPutData.AddFile('image1', 'F:\Bilder\A02-6176_1.jpg', 'image/jpeg');
    FPutData.AddFile('image2', 'F:\Bilder\A02-6176_2.jpg', 'image/jpeg');
    FPutData.AddFile('image3', 'F:\Bilder\A02-6176_3.jpg', 'image/jpeg');


    try
      IdHTTP.ProxyParams.ProxyServer := 'api.sandbox.XY.de';
      IdHTTP.ProxyParams.ProxyPort := 8080;

      IdHTTP.Request.Accept := 'application/data.XY.api+json';
      IdHTTP.Request.ContentType := FPutData.RequestContentType;   <<< Das ist erforderlich
      IdHTTP.Request.BasicAuthentication := true;
      IdHTTP.Request.Host := 'services.XY.de';
      IdHTTP.Request.Username := 'User';
      IdHTTP.Request.Password := 'password';


      Memo1.Lines.Add(IdHTTP.put('https://services.XY.de/api/1580/ad/358943/images',FPutData));

    finally
      FPutData.Free;
    end;
  finally
    IdHTTP.Free;
  end;

end;

Herzlichen Dank und einen schönen Tag.

Gruß Kostas