1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

function TForm1.SetChargeLimit(const AccessToken: string; const APIEndpoint: string; const VehicleID: string; ChargeLimit: Integer): Boolean;
var
  URL: string;
  RequestBody: TJSONObject;
  Response: string;
  ResponseJSON: TJSONObject;
  HTTP: TIdHTTP;
begin
  // Konstruieren Sie die API-Endpunkt-URL
  URL := APIEndpoint + 'api/1/vehicles/' + VehicleID + '/command/set_charge_limit';

  // Erstellen Sie den JSON-Request-Body
  RequestBody := TJSONObject.Create;
  RequestBody.AddPair('charge_limit_soc', TJSONNumber.Create(ChargeLimit));

  // Konfigurieren Sie den HTTP-Request
  HTTP := TIdHTTP.Create(nil);
  HTTP.Request.ContentType := 'application/json';
  HTTP.Request.CustomHeaders.Values['Authorization'] := 'Bearer ' + AccessToken;
  HTTP.Request.Accept := 'application/json';

  try
    // Senden Sie den Request an die API-Endpunkt
    Response := HTTP.Post(URL, RequestBody.ToString);
    // Überprüfen Sie die API-Antwort
    ResponseJSON := TJSONObject.ParseJSONValue(Response) as TJSONObject;
    try
      Result := ResponseJSON.GetValue<TJSONValue>('response').GetValue<TJSONPair>('result').JsonValue.GetValue<Boolean>;
      if Result then
        showmessage('Ladeleistung wurde auf ' + IntToStr(ChargeLimit) + 'A erhöht.')
      else
        showmessage('Fehler beim Erhöhen der Ladeleistung.');
    finally
      ResponseJSON.Free;
    end;
  except
    on E: Exception do
    begin
      showmessage('Fehler: ' + E.Message);
      Result := False;
    end;
  end;

  // Freigabe des JSON-Request-Body und HTTP-Objekts
  RequestBody.Free;
  HTTP.Free;
end;					

1:
2:
3:

StrList.Clear;
StrList.add(RequestBody.AsString);
Response := HTTP.Post(URL, StrList);					

1:
2:
3:
4:
5:
6:

IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
IOHandler.SSLOptions.Method := sslvSSLv3 ;
.
.
HTTP := TIdHTTP.Create(nil);
HTTP.IOHandler := IOHandler;