Openai (ChatGPT) from PB

[Caronte3D]

Try to create an APIkey with a free account, I think in the past it was possible (don't know actually).

[ricardo]

Thanks for the info Ricardo.
Have a nice day (even if the Argentinian beat France at football, I'm French)

Yoiu are welcome!!

That was a very nice soccer game!!

[jak64]

Hello Ricardo,
Indeed, good game.
See you soon

[Fig]

Hi,
I tried it...
How long does it take to get an answer ?

It very very slow... more than 10 minutes !!
Can we get the answer letter by letter like in chatgpt instead of the whole long one ?

[ricardo]

Hi,
I tried it...
How long does it take to get an answer ?

It very very slow... more than 10 minutes !!
Can we get the answer letter by letter like in chatgpt instead of the whole long one ?

}
Now you can connect using

Code: Select all

sModel.s = "gpt-3.5-turbo-1106"

That is fast.
You receive a JSON with the response.

The only problem is that, as happens with ChatGPT, you may receive uncertain information and that often does not follow the prompt instructions to the letter.


You can also use

Code: Select all

sModel = "dall-e-3"

And you will be able to prompt for images. Images are not as good as MidJourney, but its the start for something that may in the future create better images.

In the dall-e-3 model you will receive also a JSON response with the url of the image created.

[ricardo]

Here is the code for generate images.

Code: Select all

          Procedure.s SendPrompt(sPrompt.s)
            sUrl.s = "https://api.openai.com/v1/images/generations"
            
            NewMap Header$()
            Header$("content-type") = "application/json"
            Header$("Authorization") = "Bearer YOURAPIKEY "
            
            nMaxTokens.l = 5000
            sModel.s = "dall-e-3"
            sNumberOfResponses = 1
            
            sTemperature.f = 0.9

            
            sBody.s = "{"
            sBody.s = sBody.s + Chr(34) + "model" + Chr(34) + ": " + Chr(34) + sModel + Chr(34) + ", "
            sBody + Chr(34) + "prompt" + Chr(34) + ": " + Chr(34) + sPrompt + Chr(34) + ", "
            sBody.s + Chr(34) + "n" + Chr(34) + ": " + Str(sNumberOfResponses) + ", "
            sBody + Chr(34) + "quality" + Chr(34) + ": " + Chr(34) + "hd" + Chr(34) + ", "
            sBody + Chr(34) + "size" + Chr(34) + ": " + Chr(34) + "1024x1024" + Chr(34)
            sBody.s + "}"
            
            ; Debug sBody
            

            Define httpReq
            
            httpReq = HTTPRequest(#PB_HTTP_Post, sUrl, sBody, 0, Header$())

            If httpReq

              Response$ = Trim(HTTPInfo(httpReq, #PB_HTTP_Response))
              Debug Response$
            EndIf
            
          EndProcedure
          
          lKeyword$= "Create and hipperrealistic image of a cat in the floor of a beautiful kitchen drinking milk in the sunsent hour HD"
          SendPrompt(lKeyword$)