curl mit @ im Dateinamen nach Pascal übersetzen

[philipp.hofmann]

Schaue ich mir morgen mal genauer an. Am Array liegt es nicht. Der Status-Code ist übrigens 404, obwohl es via cURL geht. Da muss irgendwas an den http-Settings schräg sein.
Der gleiche Code klappt an anderer Stelle mit x anderen Upload-Anbietern.

[Edelfix]

Eventuell hilfreich:

Delphi-Quellcode:

      if pos('https', LowerCase(URL))<>0 then
        Http.SecureProtocols := [THTTPSecureProtocol.TLS12];

[philipp.hofmann]

Das TLS 1.2 passiert automatisch, dies habe ich auch schon im Hintergrund gecheckt. Ich habe jetzt auch mal TMultipartFormData.GenerateBoundary so angepasst, dass die gleiche Boundary aufgebaut wird, das ist es aber auch nicht.

[Kas Ob.]

I am afraid that there is no easy way (ready to be used API), and these files should be manually formed into a body request.

This show the structure
https://microsoft.public.winhttp.nar...part-form-data

The most important is the Content-Disposition to be filled right, and you must fill the "Content-Type: multipart/form-data; boundary=" not leaving it to be filled automatically.

Also you don't need that much of '-', in "boundary=" it is shorter by '-', in fact you don't need them at all in in the HTTP header, only in the body as separator you need 2 dashes "--".

[philipp.hofmann]

Mit dem folgenden Code geht es erfolgreich via Indy:

Delphi-Quellcode:

      with TIdHTTP.Create(nil) do
      try
        var FIdSSLIOHandlerSocketOpenSSL:TIdSSLIOHandlerSocketOpenSSL:=TIdSSLIOHandlerSocketOpenSSL.Create(nil);
        var Params: TIdMultiPartFormDataStream;
        filename:=StringReplace(Training.filename, '.ictt', '.fit', [rfIgnoreCase]);
        FIdSSLIOHandlerSocketOpenSSL.SSLOptions.Method := sslvTLSv1_2;
        FIdSSLIOHandlerSocketOpenSSL.SSLOptions.SSLVersions := [sslvTLSv1_2];
        IOHandler := FIdSSLIOHandlerSocketOpenSSL;
        Request.ContentType := 'multipart/form-data';
        Request.CustomHeaders.add('Authorization: Bearer ' + bearer);
        Params := TIdMultiPartFormDataStream.Create;
        try
          params.AddFile('file', filename, GetMIMETypeFromFile(filename));
          ResponseStr := Post('https://pushinglimits.club/api/oauth/upload_single_fit_file', Params);
        finally
          Params.Free;
        end;
      finally
        Free;
      end;

Macht von außen betrachtet, genau das gleiche, aber irgendwie scheint die interne Formatierung anders zu sein.

[himitsu]

Zitat von Edelfix:

Eventuell hilfreich:

Delphi-Quellcode:

      if pos('https', LowerCase(URL))<>0 then
        Http.SecureProtocols := [THTTPSecureProtocol.TLS12];

ContainsText oder StartsText