From time to time we get asked to provide an example for ChatGPT. Since this is just another web service, we can just handle it with the MBS Xojo CURL Plugin. But since we don’t like to block the user interface while ChatGPT processes the request, we use our CURLSMultiMBS class to run it in the background. Later when finished, it performs a delegate to call our Finished method to process the result.
The request is build with the JSONItem class to fill in the various values. We include a system message with the request, e.g. “Please translate text to English.” and then pass the text to translate in the user role. This way the user should not be able to provide instructions to the LLM in their text.
To test the project, please get an account for OpenAI. In the headers we need to pass your organization ID from and the bearer token you got there. Each query will use some tokens, but we limit the answer to 100 tokens.
Here is the full method to start the query:
Sub RunQuery()
Dim curl As New CURLSMBS
dim MessageSystem as new JSONItem
MessageSystem.Value("role") = "system"
MessageSystem.Value("content") = SystemField.Text
dim MessageUser as new JSONItem
MessageUser.Value("role") = "user"
MessageUser.Value("content") = UserField.Text
dim messages as new JSONItem
messages.Add MessageSystem
messages.Add MessageUser
dim j as new JSONItem
j.Value("model") = "gpt-4o-mini"
j.Value("max_tokens") = 100
j.Value("messages") = messages
curl.SetOptionHTTPHeader _
array(_
"OpenAI-Organization: " +OrganizationField.text, _
"Authorization: Bearer " +BearerTokenField.text, _
"Content-Type: application/json" )
curl.OptionPostFields = j.ToString
curl.OptionURL = "https://api.openai.com/v1/chat/completions"
call CURLSMultiMBS.SharedInstance.AddCURL curl, AddressOf Finished
End Sub
Here is the finished method, which gets called when the transfer is done. The script parameter is the CURL session reference number. We query debug messages and the result as JSON. We can then pick the output message from the JSON and show it in the field:
Sub Finished(curl as CURLSMBS, ErrorCode as Integer)
// we got a result asynchronously
ResultLabel.Text = ErrorCode.ToString+" "+curl.LastErrorText
DebugField.Text = curl.DebugMessages
ResultField.Text = curl.OutputData
RunButton.Enabled = true
Dim j As New JSONItem(curl.OutputData)
If j.HasKey("choices") Then
Dim choices As JSONItem = j.Value("choices")
Dim choice As JSONItem = choices.ChildAt(0)
Dim message As JSONItem = choice.Value("message")
Dim content As String = message.Value("content")
ResultField.Text = content
End If
Exception je As JSONException
// handle?
End Sub
Please try and see whether this can help you add ChatGPT to the projects. Translation is a good thing and you can even specify whether you like formal or informal text. We will include the example file with the next plugin for you to use.
