B4X

OpenAI (ChatGPT) Upload JSON String

See more OpenAI ChatGPT Examples

Demonstrate how to upload a file (from a JSON string) to a OpenAI user's organization. B4X

Dim success As Boolean = False

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

Dim http As ChilkatHttp
http.Initialize("http")

'  Implements the following CURL command:

'  curl https://api.openai.com/v1/files \
'    -H "Authorization: Bearer $OPENAI_API_KEY" \
'    -F purpose="fine-tune" \
'    -F file="@mydata.jsonl"

'  Use the following online tool to generate HTTP code from a CURL command
'  Convert a cURL Command to HTTP Source Code

Dim req As ChilkatHttpRequest
req.Initialize
req.HttpVerb = "POST"
req.Path = "/v1/files"
req.ContentType = "multipart/form-data"
req.AddParam("purpose", "fine-tune")

'  { "prompt": "aa", "completion": "bb" }
'  { "prompt": "cc", "completion": "dd" }
Dim sbJsonData As ChilkatStringBuilder
sbJsonData.Initialize
sbJsonData.AppendLine("{ " & Chr(34) & "prompt" & Chr(34) & ": " & Chr(34) & "aa" & Chr(34) & ", " & Chr(34) & "completion" & Chr(34) & ": " & Chr(34) & "bb" & Chr(34) & " }", True)
sbJsonData.AppendLine("{ " & Chr(34) & "prompt" & Chr(34) & ": " & Chr(34) & "cc" & Chr(34) & ", " & Chr(34) & "completion" & Chr(34) & ": " & Chr(34) & "dd" & Chr(34) & " }", True)
success = req.AddStringForUpload2("file", "mydata2.jsonl", sbJsonData.GetAsString, "utf-8", "application/octet-stream")

'  This is NOT a real key.  Change the "sk-vi...." to your own key.
req.AddHeader("Authorization", "Bearer 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")
req.AddHeader("Expect", "100-continue")

Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpSReq("api.openai.com", 443, True, req, resp)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


Dim sbResponseBody As ChilkatStringBuilder
sbResponseBody.Initialize
resp.GetBodySb(sbResponseBody)

Dim jResp As ChilkatJsonObject
jResp.Initialize
jResp.LoadSb(sbResponseBody)
jResp.EmitCompact = False

Log("Response Body:")
Log(jResp.Emit)

Dim respStatusCode As Int = resp.StatusCode
Log("Response Status Code = " & respStatusCode)
If respStatusCode >= 400 Then
    Log("Response Header:")
    Log(resp.Header)
    Log("Failed.")
    Return
End If


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

'  {
'    "id": "file-XjGxS3KTG0uNmNOK362iJua3",
'    "object": "file",
'    "bytes": 140,
'    "created_at": 1613779121,
'    "filename": "mydata2.jsonl",
'    "purpose": "fine-tune"
'  }

'  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 id As String = jResp.StringOf("id")
Dim v_object As String = jResp.StringOf("object")
Dim v_bytes As Int = jResp.IntOf("bytes")
Dim created_at As Int = jResp.IntOf("created_at")
Dim filename As String = jResp.StringOf("filename")
Dim purpose As String = jResp.StringOf("purpose")