ChatGPT — это мощный инструмент, который позволяет разработчикам создавать диалоговых агентов и чат-ботов с использованием обработки естественного языка (NLP) и машинного обучения (ML). Он использует вариант языковой модели GPT (Generative Pre-trained Transformer) для генерации ответов на вводимые пользователем данные в диалоговом контексте.
На Delphi
uses OpenAI, OpenAI.Completions;
begin
// Replace YOUR_API_KEY with your OpenAI API key
var openai := TOpenAI.Create(nil, 'YOUR_API_KEY');
// задаем модель и промпт
var model_engine := 'text-davinci-003';
var prompt := 'Write poem about how cool readers of uproger website';
// задаем макс кол-во слов
var max_tokens := 128;
//# генерируем ответ
var completion := openai.Completion.create(
procedure(Params: TCompletionParams)
begin
Params.Model(model_engine);
Params.Prompt(prompt);
Params.MaxTokens(max_tokens);
Params.Temperature(0.5);
end);
// выводим ответ
Writeln(completion.choices[0].text);
end.