Visual Basic 6.0

Shopware 6 - Store API Authentication

See more Shopware 6 Examples

Each sales channel has an accessKey, which can be generated in the administration or over the admin api. This accessKey is used for the authentication by providing it in the sw-access-key

You can test the authentication by sending a request to the store-api/v1/context endpoint

Note: This example only serves to test authentication. It returns a "token". This may lead you to believe that the returned token is what is required to authentication with subsequent Store API requests. This is NOT the case. The Store API requests simply authentication with the sw-access-key, just as this request does. The returned "token" is a context token which can be used to switch the different values of your current "session" like active language, currency or shipping location.

Furthermore, Store API requests don't actually require an OAuth2 access token. The OAuth2 access token is needed for API requests (i.e. "/api/v3/..." as opposed to "/store-api/v3/...")

Visual Basic 6.0

Dim success As Long
success = 0

' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

Dim http As New ChilkatHttp

' Sends the following request

' GET http://shopware.development/store-api/v3/context
' --header sw-access-key SWSCYKQZODFVTVHJEHI0RFN0RG
' 
' {
'     "includes": {
'         "sales_channel_context": ["token"]
'     }
' }

' Use this online tool to generate code from sample JSON:
' Generate Code to Create JSON

Dim json As New ChilkatJsonObject
success = json.UpdateString("includes.sales_channel_context[0]","token")

' Put the access token in the sw-access-key request header.
http.SetRequestHeader "sw-access-key","<sales-channel-api-access-key>"

' The sales channel API access key is obtained from your Shopware 6 admin portal:
' (image:https://example-code.com/images/shopware_sales_channel.jpg/endImage)

Dim url As String
url = "https://my-shopware-6-shop.de/store-api/v3/context"
Dim resp As New ChilkatHttpResponse
success = http.HttpJson("GET",url,json,"application/json",resp)
If (success = 0) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Dim sbResponseBody As New ChilkatStringBuilder
success = resp.GetBodySb(sbResponseBody)
Dim jResp As New ChilkatJsonObject
success = jResp.LoadSb(sbResponseBody)
jResp.EmitCompact = 0

Debug.Print "Response Body:"
Debug.Print jResp.Emit()

' If we get a 401 response, it may be that our access token expired and we need to fetch a new one.
Dim respStatusCode As Long
respStatusCode = resp.StatusCode
Debug.Print "Response Status Code = " & respStatusCode
If (respStatusCode >= 400) Then
    Debug.Print "Response Header:"
    Debug.Print resp.Header
    Debug.Print "Failed."
    Exit Sub
End If

' Sample JSON response:
' (Sample code for parsing the JSON response is shown below)

' {
'     "token": "OCqj5ZEnpS0W9KgseOofPLqGArVjd5CE",
'     "apiAlias": "sales_channel_context"
'     ...
' }

' Sample code for parsing the JSON response...
' Use the following online tool to generate parsing code from sample JSON:
' Generate Parsing Code from JSON

Dim token As String
token = jResp.StringOf("token")
Dim apiAlias As String
apiAlias = jResp.StringOf("apiAlias")