curl mit @ im Dateinamen nach Pascal übersetzen

**philipp.hofmann**

Hi,

bisher hatte ich immer curl-POST abgesetzt, wo ich eine Datei übertragen musste, z.B.

curl -X POST

https://pushinglimits.club/api/oauth/upload_fit_file -H 'Content-Type: multipart/form-data' -H 'Authorization: Bearer ...' -F 'file=/mnt/c/Daten/Philipp/Delphi-Projects/icTrainerBase/programData/myTrainings/Philipp_(SF6KICKR)_20231003_1941_Freies_Training_T raining.fit'

Dazu habe ich folgende Struktur aufgebaut:

zusammenfalten · markieren

Delphi-Quellcode:

			Http: TNetHTTPClient;

formData: TMultipartFormData;

headers: TNetHeaders;

Http:=TNetHTTPClient.create(nil);

formData:=TMultipartFormData.create();

headers:=TNetHeaders.create();

setLength(headers, 2);

headers[0]:=TNameValuePair.create('Content-Type', 'multipart/form-data');

headers[1]:=TNameValuePair.create('Authorization', 'Bearer ' + bearer);

formData.AddFile('files[]', filename);

Http.Post('https://pushinglimits.club/api/oauth/upload_fit_file',formData,nil,headers);

Jetzt muss ich aber ein Array von files übertragen, was im curl-Befehl folgendermaßen aussieht:

curl -X POST

https://pushinglimits.club/api/oauth/upload_fit_file -H 'Content-Type: multipart/form-data' -H 'Authorization: Bearer fa6af31a13e86e586b38d76317349749d0a58a46' -F 'files[]=@/mnt/c/Daten/Philipp/Delphi-Projects/icTrainerBase/programData/myTrainings/Philipp_(SF6KICKR)_20231003_1941_Freies_Training_T raining.fit'

Wie bekommt ich jetzt das '@' in den Befehl via Delphi? Einfach nur
formData.AddFile('files[]', '@'+filename); ist es nicht, dann wird die Datei nicht gefunden.

Vielleicht hat da ja jemand einen Tipp.

Grüße, Philipp

**jaenicke**

Das @ gehört doch nur zu cUrl. Wenn du den Upload selbst macht, gehört das nicht dazu.

**philipp.hofmann**

Yepp, danke. Dann muss es irgendwie an dem erwarteten Array liegen, dass es nicht klappt. Ich bekomme, wenn ich das POST durchführe eine Fehlermeldung zurück:

'<!DOCTYPE html>'#$A'<html lang="en">'#$A'<head>'#$A'<meta charset="utf-8">'#$A'<title>Error</title>'#$A'</head>'#$A'<body>'#$A'<pre>Cannot POST /oauth/upload_fit_file</pre>'#$A'</body>'#$A'</html>'#$A

Da muss ich mal mit dem Schnittstellen-Hersteller quatschen.

**jaenicke**

Aber mit cUrl klappt es?

Dann schicke die Daten doch einfach an einen lokalen Webserver ohne SSL, sprich nur via http. Dann kannst du die beiden Anfragen ganz einfach z.B. in Wireshark vergleichen oder auch in anderen Tools.

**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:

markieren

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:

zusammenfalten · markieren

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:

markieren

Delphi-Quellcode:

			      if pos('https', LowerCase(URL))<>0 then

        Http.SecureProtocols := [THTTPSecureProtocol.TLS12];

ContainsText oder Delphi-Referenz durchsuchen

StartsText

curl mit @ im Dateinamen nach Pascal übersetzen

curl mit @ im Dateinamen nach Pascal übersetzen

AW: curl mit @ im Dateinamen nach Pascal übersetzen

AW: curl mit @ im Dateinamen nach Pascal übersetzen

AW: curl mit @ im Dateinamen nach Pascal übersetzen

AW: curl mit @ im Dateinamen nach Pascal übersetzen

AW: curl mit @ im Dateinamen nach Pascal übersetzen

AW: curl mit @ im Dateinamen nach Pascal übersetzen

AW: curl mit @ im Dateinamen nach Pascal übersetzen

AW: curl mit @ im Dateinamen nach Pascal übersetzen

AW: curl mit @ im Dateinamen nach Pascal übersetzen

Forumregeln

jaenicke Registriert seit: 10. Jun 2003 Ort: Berlin 9.582 Beiträge Delphi 11 Alexandria	#2 AW: curl mit @ im Dateinamen nach Pascal übersetzen 9. Okt 2023, 20:34 Das @ gehört doch nur zu cUrl. Wenn du den Upload selbst macht, gehört das nicht dazu. Sebastian Jänicke Alle eigenen Projekte sind eingestellt, ebenso meine Homepage, Downloadlinks usw. im Forum bleiben aktiv!
	Zitat

philipp.hofmann Registriert seit: 21. Mär 2012 Ort: Hannover 890 Beiträge Delphi 10.4 Sydney	#5 AW: curl mit @ im Dateinamen nach Pascal übersetzen 9. Okt 2023, 22:58 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.
	Zitat

Edelfix Registriert seit: 6. Feb 2015 Ort: Stadtoldendorf 214 Beiträge Delphi 10.4 Sydney	#6 AW: curl mit @ im Dateinamen nach Pascal übersetzen 10. Okt 2023, 10:15 Eventuell hilfreich: markieren Delphi-Quellcode: if pos('https', LowerCase(URL))<>0 then Http.SecureProtocols := [THTTPSecureProtocol.TLS12];
	Zitat

philipp.hofmann Registriert seit: 21. Mär 2012 Ort: Hannover 890 Beiträge Delphi 10.4 Sydney	#7 AW: curl mit @ im Dateinamen nach Pascal übersetzen 10. Okt 2023, 10:39 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. Miniaturansicht angehängter Grafiken
	Zitat

himitsu Registriert seit: 11. Okt 2003 Ort: Elbflorenz 44.062 Beiträge Delphi 12 Athens	#10 AW: curl mit @ im Dateinamen nach Pascal übersetzen 10. Okt 2023, 13:02 Zitat von Edelfix: Eventuell hilfreich: markieren Delphi-Quellcode: if pos('https', LowerCase(URL))<>0 then Http.SecureProtocols := [THTTPSecureProtocol.TLS12]; ContainsText oder StartsText Neuste Erkenntnis: Seit Pos einen dritten Parameter hat, wird PoSex im Delphi viel seltener praktiziert.
	Zitat