Xbase++

OpenAI (ChatGPT) List Models

See more OpenAI ChatGPT Examples

Show how to list available OpenAI models and shows how to parse the JSON model information. Xbase++

LOCAL nSuccess
LOCAL oHttp
LOCAL oSbResponseBody
LOCAL oJResp
LOCAL nRespStatusCode
LOCAL cId
LOCAL nCreated
LOCAL cOwned_by
LOCAL cRoot
LOCAL cParent
LOCAL j
LOCAL nCount_j
LOCAL nAllow_create_engine
LOCAL nAllow_sampling
LOCAL nAllow_logprobs
LOCAL nAllow_search_indices
LOCAL nAllow_view
LOCAL nAllow_fine_tuning
LOCAL cOrganization
LOCAL cGroup
LOCAL nIs_blocking
LOCAL cV_object
LOCAL i
LOCAL nCount_i

nSuccess := 0

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

oHttp := CreateObject("Chilkat.Http")

//  Implements the following CURL command:

//  curl https://api.openai.com/v1/models \
//    -H "Authorization: Bearer $OPENAI_API_KEY"

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

//  Adds the "Authorization: Bearer $OPENAI_API_KEY" header.
//  This is NOT a real key.  Change the "sk-vi...." to your own key.
oHttp:AuthToken := "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"

oSbResponseBody := CreateObject("Chilkat.StringBuilder")
nSuccess := oHttp:QuickGetSb("https://api.openai.com/v1/models", oSbResponseBody)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oSbResponseBody:destroy()
    RETURN
ENDIF

oJResp := CreateObject("Chilkat.JsonObject")
oJResp:LoadSb(oSbResponseBody)
oJResp:EmitCompact := 0

? "Response Body:"
? oJResp:Emit()

nRespStatusCode := oHttp:LastStatus
? "Response Status Code = " + Str(nRespStatusCode)
IF (nRespStatusCode >= 400)
    ? "Response Header:"
    ? oHttp:LastHeader
    ? "Failed."
    oHttp:destroy()
    oSbResponseBody:destroy()
    oJResp:destroy()
    RETURN
ENDIF

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

//  {
//    "object": "list",
//    "data": [
//      {
//        "id": "babbage",
//        "object": "model",
//        "created": 1649358449,
//        "owned_by": "openai",
//        "permission": [
//          {
//            "id": "modelperm-49FUp5v084tBB49tC4z8LPH5",
//            "object": "model_permission",
//            "created": 1669085501,
//            "allow_create_engine": false,
//            "allow_sampling": true,
//            "allow_logprobs": true,
//            "allow_search_indices": false,
//            "allow_view": true,
//            "allow_fine_tuning": false,
//            "organization": "*",
//            "group": null,
//            "is_blocking": false
//          }
//        ],
//        "root": "babbage",
//        "parent": null
//      },
//      {
//        "id": "davinci",
//        "object": "model",
//        "created": 1649359874,
//        "owned_by": "openai",
//        "permission": [
//          {
//            "id": "modelperm-U6ZwlyAd0LyMk4rcMdz33Yc3",
//            "object": "model_permission",
//            "created": 1669066355,
//            "allow_create_engine": false,
//            "allow_sampling": true,
//            "allow_logprobs": true,
//            "allow_search_indices": false,
//            "allow_view": true,
//            "allow_fine_tuning": false,
//            "organization": "*",
//            "group": null,
//            "is_blocking": false
//          }
//        ],
//        "root": "davinci",
//        "parent": null
//      },
//  ...
//  ...

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

cV_object := oJResp:StringOf("object")
i := 0
nCount_i := oJResp:SizeOfArray("data")
DO WHILE i < nCount_i
    oJResp:I := i
    cId := oJResp:StringOf("data[i].id")
    cV_object := oJResp:StringOf("data[i].object")
    nCreated := oJResp:IntOf("data[i].created")
    cOwned_by := oJResp:StringOf("data[i].owned_by")
    cRoot := oJResp:StringOf("data[i].root")
    cParent := oJResp:StringOf("data[i].parent")
    j := 0
    nCount_j := oJResp:SizeOfArray("data[i].permission")
    DO WHILE j < nCount_j
        oJResp:J := j
        cId := oJResp:StringOf("data[i].permission[j].id")
        cV_object := oJResp:StringOf("data[i].permission[j].object")
        nCreated := oJResp:IntOf("data[i].permission[j].created")
        nAllow_create_engine := oJResp:BoolOf("data[i].permission[j].allow_create_engine")
        nAllow_sampling := oJResp:BoolOf("data[i].permission[j].allow_sampling")
        nAllow_logprobs := oJResp:BoolOf("data[i].permission[j].allow_logprobs")
        nAllow_search_indices := oJResp:BoolOf("data[i].permission[j].allow_search_indices")
        nAllow_view := oJResp:BoolOf("data[i].permission[j].allow_view")
        nAllow_fine_tuning := oJResp:BoolOf("data[i].permission[j].allow_fine_tuning")
        cOrganization := oJResp:StringOf("data[i].permission[j].organization")
        cGroup := oJResp:StringOf("data[i].permission[j].group")
        nIs_blocking := oJResp:BoolOf("data[i].permission[j].is_blocking")
        j := j + 1
    ENDDO
    i := i + 1
ENDDO

oHttp:destroy()
oSbResponseBody:destroy()
oJResp:destroy()