Запрос к нейросети ChatGPT

Пример Http запроса и получения ответа от нейросети ChatGPT (OpenAI)

//Описание API https://beta.openai.com/docs/api-reference/

Процедура ЗапросКChatGPT(Текст)
	
	Соединение = Новый HTTPСоединение("api.openai.com",,,,,,Новый ЗащищенноеСоединениеOpenSSL());
		
	Заголовки=Новый Соответствие();
	Заголовки.Вставить("Content-Type", "application/json");
	Заголовки.Вставить("Authorization", "Bearer <Ваш API-Key>");
	
	Запрос = Новый HTTPЗапрос();
	Запрос.АдресРесурса = "v1/completions";
	Запрос.Заголовки = Заголовки;
		
    ТелоЗапроса = 
    "
	|{
  |""model"": ""text-davinci-003"",
  |""prompt"": """ + Текст+ """,
  |""max_tokens"": 100,
  |""temperature"": 0,
  |""top_p"": 1,
  |""n"": 1,
  |""stream"": false,
  |""logprobs"": null,
  |""stop"": "".""
  |}";
	
	Запрос.УстановитьТелоИзСтроки(ТелоЗапроса);
	
	Ответ=Соединение.ОтправитьДляОбработки(Запрос);
	
	КодСостояния=Ответ.КодСостояния;
	СтрокаОтвета=Ответ.ПолучитьТелоКакСтроку();
	
	Если КодСостояния=200 Тогда
		//Ответ в виде Json
		Сообщить(СтрокаОтвета);
	Иначе
		//Ошибка при выполнении запроса
	КонецЕсли;		
    
КонецПроцедуры

//Описание API https://beta.openai.com/docs/api-reference/

Процедура ЗапросКChatGPT(Текст)
	
	Соединение = Новый HTTPСоединение("api.openai.com",,,,,,Новый ЗащищенноеСоединениеOpenSSL());
		
	Заголовки=Новый Соответствие();
	Заголовки.Вставить("Content-Type", "application/json");
	Заголовки.Вставить("Authorization", "Bearer <Ваш API-Key>");
	
	Запрос = Новый HTTPЗапрос();
	Запрос.АдресРесурса = "v1/completions";
	Запрос.Заголовки = Заголовки;
		
    ТелоЗапроса = 
    "
	|{
  |""model"": ""text-davinci-003"",
  |""prompt"": """ + Текст+ """,
  |""max_tokens"": 100,
  |""temperature"": 0,
  |""top_p"": 1,
  |""n"": 1,
  |""stream"": false,
  |""logprobs"": null,
  |""stop"": "".""
  |}";
	
	Запрос.УстановитьТелоИзСтроки(ТелоЗапроса);
	
	Ответ=Соединение.ОтправитьДляОбработки(Запрос);
	
	КодСостояния=Ответ.КодСостояния;
	СтрокаОтвета=Ответ.ПолучитьТелоКакСтроку();
	
	Если КодСостояния=200 Тогда
		//Ответ в виде Json
		Сообщить(СтрокаОтвета);
	Иначе
		//Ошибка при выполнении запроса
	КонецЕсли;		
    
КонецПроцедуры