SQL Server
SQL Server
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.Chilkat SQL Server Downloads
-- Important: See this note about string length limitations for strings returned by sp_OAMethod calls.
--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
DECLARE @hr int
-- Important: Do not use nvarchar(max). See the warning about using nvarchar(max).
DECLARE @sTmp0 nvarchar(4000)
DECLARE @success int
SELECT @success = 0
-- This example assumes the Chilkat API to have been previously unlocked.
-- See Global Unlock Sample for sample code.
DECLARE @http int
EXEC @hr = sp_OACreate 'Chilkat.Http', @http OUT
IF @hr <> 0
BEGIN
PRINT 'Failed to create ActiveX component'
RETURN
END
-- 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.
EXEC sp_OASetProperty @http, 'AuthToken', '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'
DECLARE @sbResponseBody int
EXEC @hr = sp_OACreate 'Chilkat.StringBuilder', @sbResponseBody OUT
EXEC sp_OAMethod @http, 'QuickGetSb', @success OUT, 'https://api.openai.com/v1/models', @sbResponseBody
IF @success = 0
BEGIN
EXEC sp_OAGetProperty @http, 'LastErrorText', @sTmp0 OUT
PRINT @sTmp0
EXEC @hr = sp_OADestroy @http
EXEC @hr = sp_OADestroy @sbResponseBody
RETURN
END
DECLARE @jResp int
EXEC @hr = sp_OACreate 'Chilkat.JsonObject', @jResp OUT
EXEC sp_OAMethod @jResp, 'LoadSb', @success OUT, @sbResponseBody
EXEC sp_OASetProperty @jResp, 'EmitCompact', 0
PRINT 'Response Body:'
EXEC sp_OAMethod @jResp, 'Emit', @sTmp0 OUT
PRINT @sTmp0
DECLARE @respStatusCode int
EXEC sp_OAGetProperty @http, 'LastStatus', @respStatusCode OUT
PRINT 'Response Status Code = ' + @respStatusCode
IF @respStatusCode >= 400
BEGIN
PRINT 'Response Header:'
EXEC sp_OAGetProperty @http, 'LastHeader', @sTmp0 OUT
PRINT @sTmp0
PRINT 'Failed.'
EXEC @hr = sp_OADestroy @http
EXEC @hr = sp_OADestroy @sbResponseBody
EXEC @hr = sp_OADestroy @jResp
RETURN
END
-- 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
DECLARE @id nvarchar(4000)
DECLARE @created int
DECLARE @owned_by nvarchar(4000)
DECLARE @root nvarchar(4000)
DECLARE @parent nvarchar(4000)
DECLARE @j int
DECLARE @count_j int
DECLARE @allow_create_engine int
DECLARE @allow_sampling int
DECLARE @allow_logprobs int
DECLARE @allow_search_indices int
DECLARE @allow_view int
DECLARE @allow_fine_tuning int
DECLARE @organization nvarchar(4000)
DECLARE @group nvarchar(4000)
DECLARE @is_blocking int
DECLARE @v_object nvarchar(4000)
EXEC sp_OAMethod @jResp, 'StringOf', @v_object OUT, 'object'
DECLARE @i int
SELECT @i = 0
DECLARE @count_i int
EXEC sp_OAMethod @jResp, 'SizeOfArray', @count_i OUT, 'data'
WHILE @i < @count_i
BEGIN
EXEC sp_OASetProperty @jResp, 'I', @i
EXEC sp_OAMethod @jResp, 'StringOf', @id OUT, 'data[i].id'
EXEC sp_OAMethod @jResp, 'StringOf', @v_object OUT, 'data[i].object'
EXEC sp_OAMethod @jResp, 'IntOf', @created OUT, 'data[i].created'
EXEC sp_OAMethod @jResp, 'StringOf', @owned_by OUT, 'data[i].owned_by'
EXEC sp_OAMethod @jResp, 'StringOf', @root OUT, 'data[i].root'
EXEC sp_OAMethod @jResp, 'StringOf', @parent OUT, 'data[i].parent'
SELECT @j = 0
EXEC sp_OAMethod @jResp, 'SizeOfArray', @count_j OUT, 'data[i].permission'
WHILE @j < @count_j
BEGIN
EXEC sp_OASetProperty @jResp, 'J', @j
EXEC sp_OAMethod @jResp, 'StringOf', @id OUT, 'data[i].permission[j].id'
EXEC sp_OAMethod @jResp, 'StringOf', @v_object OUT, 'data[i].permission[j].object'
EXEC sp_OAMethod @jResp, 'IntOf', @created OUT, 'data[i].permission[j].created'
EXEC sp_OAMethod @jResp, 'BoolOf', @allow_create_engine OUT, 'data[i].permission[j].allow_create_engine'
EXEC sp_OAMethod @jResp, 'BoolOf', @allow_sampling OUT, 'data[i].permission[j].allow_sampling'
EXEC sp_OAMethod @jResp, 'BoolOf', @allow_logprobs OUT, 'data[i].permission[j].allow_logprobs'
EXEC sp_OAMethod @jResp, 'BoolOf', @allow_search_indices OUT, 'data[i].permission[j].allow_search_indices'
EXEC sp_OAMethod @jResp, 'BoolOf', @allow_view OUT, 'data[i].permission[j].allow_view'
EXEC sp_OAMethod @jResp, 'BoolOf', @allow_fine_tuning OUT, 'data[i].permission[j].allow_fine_tuning'
EXEC sp_OAMethod @jResp, 'StringOf', @organization OUT, 'data[i].permission[j].organization'
EXEC sp_OAMethod @jResp, 'StringOf', @group OUT, 'data[i].permission[j].group'
EXEC sp_OAMethod @jResp, 'BoolOf', @is_blocking OUT, 'data[i].permission[j].is_blocking'
SELECT @j = @j + 1
END
SELECT @i = @i + 1
END
EXEC @hr = sp_OADestroy @http
EXEC @hr = sp_OADestroy @sbResponseBody
EXEC @hr = sp_OADestroy @jResp
END
GO