REST Umsetzung eines CURL Befehls nach Delphi

[mischerr]

Hallo.

Ich habe eine Problem dass mich schon seit 2 Tagen verfolgt.
Und zwar muss ich folgenden CURL-Befehl zur Nutzung einer API in Delphi umsetzen welcher mehrere Dateien über ein "files" array überträgt:

Code:

curl -X 'POST' \
  'https://<provider>/Documents/Outbox'
  -H 'accept: application/json'
  -H 'X-Api-Key: My-API-Key'
  -H 'Content-Type: multipart/form-data'
  -F 'files=@testFile.pdf;type=application.pdf'
  -F 'files=@testFile.xml;type=text/xml'

Der CURL-Befehl funktioniert. Die Dateien liegen vor.
Ich habe es per RESTClient wie auch Indy versucht.
Andere Befehle welche per GET JSON Daten austauschen funktionieren einwandfrei.
Jedoch beim POST erhalte ich immer nur ein http/400.

Indy:

Code:

procedure SendFilesIndy(const PdfFile, XmlFile: string);
var HTTP: TIdHTTP;
    FormData: TIdMultiPartFormDataStream;
    Response: string;
begin
  HTTP:= TIdHTTP.Create(nil);
  FormData:= TIdMultiPartFormDataStream.Create;
  try
    HTTP.Request.CustomHeaders.AddValue('Accept', 'application/json');
    HTTP.Request.CustomHeaders.AddValue('X-Api-Key', 'My-API-Key');
    HTTP.Request.CustomHeaders.AddValue('Content-Type', 'multipart/form-data');
    AttachSSLHandler(HTTP, [sslvTLSv1_2]); // Setzt IOHandler
    if PdfFile<>'' then
      FormData.AddFile('files', PdfFile, GetMIMETypeFromFile(PdfFile));
//    FormData.AddFormField('files', ExtractFileName(PdfFile), '', GetMIMETypeFromFile(PdfFile), PdfFile);
    if XmlFile<>'' then
      FormData.AddFile('files', XmlFile, GetMIMETypeFromFile(XmlFile));
//    FormData.AddFormField('files', ExtractFileName(XmlFile), '', GetMIMETypeFromFile(XmlFile), XmlFile);
    Response:= HTTP.Post('https://<provider>/Documents/Outbox', FormData);
    // ...
  except
    on E: EIdHTTPProtocolException do begin
      OutputDebugStr(pchar('HTTP-Fehler: '+E.ErrorMessage+#13#10+'Antwort des Servers: '+E.Message));
    end;
    on E: Exception do
      OutputDebugStr(pchar('Allgemeiner Fehler: '+E.Message));
  end;
  FormData.Free;
  HTTP.Free;
end;

RESTClient:

Code:

procedure SendFilesREST(const PdfFile, XmlFile: string);
var RESTClient:= TRESTClient;
    RESTRequest:= TRESTRequest;
    RESTResponse:= TRESTResponse;
    MultipartData: TMultipartFormData;
begin
  RESTClient:= TRESTClient.Create(nil);
  RESTRequest:= TRESTRequest.Create(nil);
  RESTResponse:= TRESTResponse.Create(nil);
  RESTRequest.Client:= RESTClient;
  RESTRequest.Response:= RESTResponse;
  RESTRequest.Method:= rmPost;
  RESTRequest.ConnectTimeout:= -1;
  RESTRequest.ReadTimeout:= -1
  RESTRequest.Params.AddHeader('Accept', 'application/json');
  RESTRequest.Params.AddHeader('X-Api-Key', 'My-API-Key');
  RESTRequest.Params.AddHeader('Content-Type', 'multipart/form-data');
  MultipartData:= TMultipartFormData.Create;
  try
    FRESTClient.BaseURL:= 'https://<provider>/Documents/Outbox';
    FRESTRequest.Method:= rmPOST;
    if PdfFile<>'' then
      MultipartData.AddFile('files', PdfFile, GetMIMETypeFromFile(PdfFile));
    if XmlFile<>'' then
      MultipartData.AddFile('files', XmlFile, GetMIMETypeFromFile(XmlFile));
    FRESTRequest.AddBody(MultipartData);
    FRESTRequest.Execute;
    if FRESTResponse.Status.Success then begin
      // ...
    end;
  finally
    RESTClient.Free;
    RESTRequest.Free;
    RESTResponse.Free;
    MultipartData.Free;
  end;
end;

Hat evtl. jemand sowas schon mal erfolgreich versucht und einen Tip für mich?

[Rollo62]

Schon mit RestDebugger versucht, der kann nach korrekter Verbindung direkt die voreingestellten Komponenten erzeugen.
https://www.youtube.com/watch?v=RoBd68tMi7s

[gubbe]

Schau Dir den Code mit dem Restclient nochmal genauer an.

Du erstellt zwar in der Funktion einen lokalen RESTClient und einen RESTRequest, referenziert dann aber globale FRESTClient und FRESTRequest.

Das kann nicht klappen.

[Bbommel]

Falls das, was gubbe geschrieben hat, nur ein Tippfehler hier im Forum war, hab ich mal in meinem Code gewühlt, weil ich so grob etwas ähnliches schon gebastelt hatte. Bei mir musste ein JSON gefolgt von einem PDF gesendet werden. Ich habe das damals so gelöst (erzeugen der ganzen REST-Objekte passierte außerhalb der hier gezeigten Funktion, hier wird nur der RESTRequest zusammengesetzt, aber sollte für den Kern reichen):

Delphi-Quellcode:

function SendInvoiceAndPDFToCRM (aRestReq: TRESTRequest; aInvoice: TecsDataCustomerInvoice; aExcelWriter: TinvoiceExcelWriter; var oErrorMsg: string): boolean;
begin
  Result:=true;
  aRestReq.Body.Add(TJson.ObjectToJsonObject(aInvoice),ooREST);
  if (aExcelWriter.PDFName<>'') and FileExists(aExcelWriter.PDFName) then
    // wir müssen die Datei hier mit Params.AddItem hinzufügen, sonst können wir sie nicht als pkFILE
    // kennzeichnen und wenn wir das nicht machen, dann rafft Delphi die Sache mit den Multiparts nicht
    // (Bug in REST.Client -> TCustomRESTRequest.ContentType seit Delphi 11.2)
    aRestReq.Params.AddItem('invoiceFile',TFileStream.Create(aExcelWriter.PDFName,fmOpenRead),pkFILE,[poDoNotEncode],ctAPPLICATION_PDF,ooREST);
  aRestReq.Method:=rmPOST;
  aRestReq.Resource:='/updateInvoice';
  try
    aRestReq.Execute;
  except
    on e: Exception do begin
      oErrorMsg:='Fehler beim Senden einer neuen Rechnung. '+e.Message;
      Result:=false;
    end;
  end;
  [...]
end;

So hat es problemlos funktioniert. Wichtig ist dabei sicherlich mein Kommentar. Ich muss allerdings auch sagen, dass ich damals bei meinen Versuchen nicht über "TMultipartFormData" gestolpert bin. Lese ich hier gerade zum ersten Mal, man lernt ja nie aus. ;-) Vielleicht wäre das auch in meinem Fall damit irgendwie besser/eleganter gegangen, aber das oben ist jedenfalls eine (für mich) funktionierende Lösung.

[mischerr]

@Rollo62
Ja, ich kenne den REST-Debugger. Aber leider finde ich keine Infos dazu, wie ich die Dateien dort anhängen kann.

@gubbe
Ja, hast Recht - hatte ich übersehen beim Erstellen des Codes hier in Forum.
Normalerweise sind das Elemente der Klasse.

@Bbommel
Danke für den Code. Leider bekomme ich aber noch immer ein http/400. :(
Da "AddItem" nicht mehrere gleichlautenden Parameter zulässt, habe ich das zum Test "MultipartData" entfernt und wie folgt geändert

Code:

if PdfFile<>'' then begin
  RESTParam:= RESTRequest.Params.AddItem;
  RESTParam.Name:= 'files';
  RESTParam.SetStream(TFileStream.Create(PdfFile, fmOpenRead), ooREST);
  RESTParam.Kind:= pkFILE;
  RESTParam.Options:= [poDoNotEncode];
  RESTParam.ContentType:= GetMIMETypeFromFile(PdfFile);
end;

Selbes für die 2te Datei.

Der Anbieter der API schreibt das die Dateien als "files" und als "array" zu übertragen sind - ist das damit gegeben?
Ober übersehe ich eine Methode um mehrere Dateien mit identischem "Schlüssel" zu übertragen?

[Uwe Raabe]

Zitat:

Zitat von mischerr (Beitrag 1543589)

Der Anbieter der API schreibt das die Dateien als "files" und als "array" zu übertragen sind

Am besten fragst du mal nach einem Beispiel.

[gubbe]

Ich habe meinen Code mal durchsucht nach einem RestRequest mit Dateiübertragung.
Dabei habe ich auch einfach "Request.addfile" verwendet, aber das war nur eine Datei.
Das Problem ist vielleicht wirklich der Dateiname "files". Hast Du es schon einmal mit Varianten probiert wie files[0] und files[1]?

Ansonsten, wenn es mit Curl funktioniert, würde ich mir mal die HTTP-Kommunikation in einem "Debugging Proxy" anschauen. z.B. mit mitmproxy, fiddler oder Charles.
Dann kannst Du vergleichen und gezielt die Unterschiede ausbügeln.

[gubbe]

Wenn Du bei Curl noch "--trace -" bzw. "--trace-ascii -" dranhängst, siehst Du auch, wie es versendet wird. Vielleicht gibt das schon einen Hinweis darauf, wie es aussehen sollte.

Probiere auch mal "files[]" als Dateiname.

[mischerr]

Also wenn ich unter Postman den Request simuliere (funktioniert) und anschließend eine "Mock collection" starte sehe ich, dass mein von Delphi an die Mock Adresse gesendeter Request für den Content-Typ keine "boundary" enthält.

Anhang 57262

Anhang 57263

Hätte nicht gedacht dass sdas so kompliziert wird.
Werde wohl versuchen vom Anbieter ein Beispiel zu bekommen.

BTW: Es müssen keine 2 Dateien versendet werden - eine reicht auch. Dennoch immer nur 404...

[Uwe Raabe]

Ich empfehle auch die Bordmittel (RESTRequest.AddFile) zu verwenden. Dabei werden sowohl der ContentType als auch die Boundary entsprechend gesetzt. Eine dementsprechend korrigierte Version deines Codes könnte dann so aussehen:

Delphi-Quellcode:

procedure SendFilesREST(const PdfFile, XmlFile: string);
var RESTClient: TRESTClient;
    RESTRequest: TRESTRequest;
    RESTResponse: TRESTResponse;
begin
  RESTRequest:= TRESTRequest.Create(nil);
  try
    RESTClient:= TRESTClient.Create(RESTRequest);
    RESTResponse:= TRESTResponse.Create(RESTRequest);
    RESTRequest.Client:= RESTClient;
    RESTRequest.Response:= RESTResponse;
    RESTRequest.Method:= rmPost;
    RESTRequest.ConnectTimeout:= -1;
    RESTRequest.ReadTimeout:= -1;
    RESTRequest.Accept := TRESTContentType.ctAPPLICATION_JSON;
    RESTRequest.AddAuthParameter('X-Api-Key', 'My-API-Key', TRESTRequestParameterKind.pkHTTPHEADER);
    RESTClient.BaseURL:= 'https://<provider>/Documents/Outbox';
    RESTRequest.Method:= rmPOST;
    if PdfFile<>'' then
      RESTRequest.AddFile('files', PdfFile, TRESTContentType.ctAPPLICATION_PDF);
    if XmlFile<>'' then
      RESTRequest.AddFile('files', XmlFile, TRESTContentType.ctTEXT_XML);
    RESTRequest.Execute;
    if RESTResponse.Status.Success then begin
      // ...
    end;
  finally
    RESTRequest.Free;
  end;
end;