Openai (ChatGPT) from PB

[ricardo]

Hi,

This is just a very simple way to use the well know Openai API from within PB.

Code: Select all

Procedure SendPrompt(sPrompt.s)
  
  sUrl. s ="https://api.openai.com/v1/chat/completions"
  
  NewMap Header$()
  Header$("content-type") = "application/json"
  Header$("Authorization") = "Bearer [API KEY]"
  
 
  nMaxTokens.l = 3500
  sModel.s = "gpt-3.5-turbo"
  sNumberOfResponses = 1
  
  sTemperature.f =0.7
  
  
  sBody.s = "{"
  sBody.s = sBody.s + Chr(34) + "max_tokens" + Chr(34) + ": " + Str(nMaxTokens) + ", "
  sBody.s = sBody.s + Chr(34) + "model" + Chr(34) + ": " + Chr(34) + sModel + Chr(34) + ", "
  sBody.s = sBody.s + Chr(34) + "temperature" + Chr(34) + ": "  + Str(sTemperature) + ", "
  sBody.s + Chr(34) + "n" + Chr(34) + ": " + Str(sNumberOfResponses) + ", "
  sBody.s = sBody.s + Chr(34) + "messages" + Chr(34) + ": [{" +  Chr(34) + "role" + Chr(34) + ": " + Chr(34) + "user" + Chr(34) + ", " + Chr(34) + "content" + Chr(34) + ": " + Chr(34) +  sPrompt + Chr(34) + "}]"
  sBody.s + "}"
  
  Debug sBody
  
  ; Realizar la solicitud a la API de OpenAI
  Define httpReq
  httpReq = HTTPRequest(#PB_HTTP_Post, sUrl, sBody, 0, Header$())
  
  If httpReq
    Debug "StatusCode: " + HTTPInfo(httpReq, #PB_HTTP_StatusCode)
    
    Response$ = HTTPInfo(httpReq, #PB_HTTP_Response)
    Debug "Response: " + Response$

    FinishHTTP(httpReq)
  Else
    Debug "Request creation failed"
  EndIf
  
  
EndProcedure



sPrompt.s = "please write an article about purebasic"

SendPrompt(sPrompt)

[idle]

Thanks for sharing

[Cyllceaux]

Or as Module: viewtopic.php?p=595266

[jak64]

Thank,
I tested, i have error message :

{"max_tokens": 3500, "model": "gpt-3.5-turbo", "temperature": 1, "n": 1, "messages": [{"role": "user", "content": "please write an article about purebasic"}]}
StatusCode: 401
Response: {
"error": {
"message": "Incorrect API key provided: [API KEY]. You can find your API key at https://platform.openai.com/account/api-keys.",
"type": "invalid_request_error",
"param": null,
"code": "invalid_api_key"
}
}

[Caronte3D]

I haven't tested this code, but by that error message, your APIkey is missing or incorrect.
You must use your own APIKey to access ChatGPT.

[Kurzer]

@jak64: As already mentioned here, you have to buy an API Key to use the Open AI API:
https://openai.com/pricing

[jak64]

Hello Kurzer,
Thank you for your answer, I understood but I wanted to have a free solution using ChatGPT 3.5 which is free.

Question :
Can't we simply with Purebasic:

1) Open ChatGPT 3.5 website (https://chat.openai.com/)

2) Send him a query (example, "what is the capital of the USA?")

3) Get his answer in a text variable?

So this is not possible without going through an API key?

On other sites, all you have to do is save the source code of the WEB page and then search in this file to find what you want to retrieve...

[Kurzer]

No.

Already point 1) does not work. the PB web gadget is outdated and cannot display the Open AI page correctly (at least on my computers - Win 7 to Win 11).

Try it for yourself:

Code: Select all

  If OpenWindow(0, 0, 0, 1000, 800, "WebGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) 
    WebGadget(0, 10, 10, 980, 780, "https://chat.openai.com/") 
    Repeat 
    Until WaitWindowEvent() = #PB_Event_CloseWindow 
  EndIf

[jak64]

Thanks Kurzer,
Isn't there another way without using the WEB gadget?

In one of my programs, I use the instructions:

url="http:\\.........................................."
RunProgram(url,"","",0)

[jak64]

HI,
This little program does open the ChatGPT site.

Code: Select all

Global url.s
url="https://chat.openai.com/"
RunProgram(url,"","",0)

On the other hand, I don't know how to send the request in the "Send a message" field or how to retrieve the response in a variable...

[Janni]

Hi jak64,

It really sounds like using the ChatGPT API is the better way for this.

Elements to learn.
ChatGPT: API documentation (and api key)
PureBasic: http request
PureBasic: response in json
PureBasic: fetch whatever from json and write to file.

[jak64]

Ok, got it, thanks Janni

[jak64]

Actually, I wanted to use ChatGPT 3.5 to program a little MCQ like game. I tested ChatGPT (manually), asking it for MCQs of different levels (easy, medium, hard) and it worked very well.
The questions would change each time, so the game would have an infinite lifespan...

[ricardo]

Thank you for your answer, I understood but I wanted to have a free solution using ChatGPT 3.5 which is free.

Question :
Can't we simply with Purebasic:

1) Open ChatGPT 3.5 website (https://chat.openai.com/)

2) Send him a query (example, "what is the capital of the USA?")

3) Get his answer in a text variable?

Using ChatGPT would be really complicated. Instead, use the Openai API (the creators of ChatGPT), it is possible with the example that I showed, but you must pay.

Using the Openai API, you only pay for what you use, it is not a monthly subscription and the use is really very cheap (dollar cents), unless the use is intensive.
The best thing is to monitor what is being spent, which can be done manually on the openai site.

[jak64]

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