ChatGPT from OpenAi is a HOT Topic now at days and I know people are looking for ways interact with OpenAI using Livecode.
The following code will help you to get started on your development and to get more ideas.
If somebody else has already a library to do this better, please share it here..
on mouseUp pMouseButton
put "https://api.openai.com/v1/chat/completions" into tURL
put "XXXXXXXXXXXXXXXXXXXXXX" into tKey
put "Content-Type: application/json;charset=utf-8" & return into tHeader
put "Authorization: Bearer " & tKey & return after tHeader
--put "OpenAI-Organization: XXXXXXXXXXXXXXXXX" & return after tHeader
set the httpHeaders to tHeader
put "gpt-3.5-turbo" into tModel
put "user" into tRole
put fld"Question" into tContent
put merge("{""e&"role""e&": ""e&"[[tRole]]""e&", "& \
quote&"content""e&": ""e&"[[tContent]]""e&"}") into tMessage
put merge("{ ""e&"model""e&": ""e&"[[tModel]]""e&","& \
quote&"messages""e&": [ [[tMessage]] ], ""e&"temperature"& \
quote&": 1, ""e&"max_tokens""e&": 256, ""e&"top_p""e&": 1, "& \
quote&"frequency_penalty""e&": 0, ""e&"presence_penalty""e&": 0 }") into tPayload
post tPayload to url tURL
put textDecode(it,"UTF-8") into it
put jsonimport(it) into tArray
put tArray["choices"][1]["message"]["content"] into BotAnswer
put BotAnswer into fld"answer"
end mouseUp
The following code will help you to get started on your development and to get more ideas.
If somebody else has already a library to do this better, please share it here..
on mouseUp pMouseButton
put "https://api.openai.com/v1/chat/completions" into tURL
put "XXXXXXXXXXXXXXXXXXXXXX" into tKey
put "Content-Type: application/json;charset=utf-8" & return into tHeader
put "Authorization: Bearer " & tKey & return after tHeader
--put "OpenAI-Organization: XXXXXXXXXXXXXXXXX" & return after tHeader
set the httpHeaders to tHeader
put "gpt-3.5-turbo" into tModel
put "user" into tRole
put fld"Question" into tContent
put merge("{""e&"role""e&": ""e&"[[tRole]]""e&", "& \
quote&"content""e&": ""e&"[[tContent]]""e&"}") into tMessage
put merge("{ ""e&"model""e&": ""e&"[[tModel]]""e&","& \
quote&"messages""e&": [ [[tMessage]] ], ""e&"temperature"& \
quote&": 1, ""e&"max_tokens""e&": 256, ""e&"top_p""e&": 1, "& \
quote&"frequency_penalty""e&": 0, ""e&"presence_penalty""e&": 0 }") into tPayload
post tPayload to url tURL
put textDecode(it,"UTF-8") into it
put jsonimport(it) into tArray
put tArray["choices"][1]["message"]["content"] into BotAnswer
put BotAnswer into fld"answer"
end mouseUp
Statistics: Posted by joseggarza — Fri Oct 06, 2023 8:19 pm