Инструкция как использовать ChatGPT с Delphi!

ChatGPT — это мощный инструмент, который позволяет разработчикам создавать диалоговых агентов и чат-ботов с использованием обработки естественного языка (NLP) и машинного обучения (ML). Он использует вариант языковой модели GPT (Generative Pre-trained Transformer) для генерации ответов на вводимые пользователем данные в диалоговом контексте.

Инструкция как использовать ChatGPT с Delphi!

В этом блоге мы узнаем, как использовать Chat GPT API с Delphi для создания умного чат-бота. Вам понадобится ключ OpenAI для использования API. Вы можете подписаться на бесплатную пробную версию на веб-сайте OpenAI. Ссылка на ключи API здесь! Это руководство написано для Delphi 10.4, поэтому на вашем компьютере должен быть установлен Delphi 10.4. Библиотека OpenAI. Вы можете установить её из встроенного менеджера пакетов GetIt.

Настройка окружения

Первое, давайте импортируем необходимые библиотеки и настроим ключ

uses OpenAI, OpenAI.Completions; // Замените YOUR_API_KEY вашим токеном для OpenAI API var openai := TOpenAI.Create(nil, 'YOUR_API_KEY');

Отправка запроса API

Теперь, когда у нас есть ключ API, мы можем начать делать запросы к API. Мы будем использовать функцию openai.Completion.Create() со следующими параметрами:
model_engine: имя модели, которую вы хотите использовать. В этом уроке мы будем использовать модель "text-davinci-003". Это самая мощная модель gpt-3. Подробнее здесь.
prompt: prompt или контекст для разговора. Это может быть одна строка текста или многострочное описание, разделенное символами новой строки.
max_tokens: максимальное количество токенов (слов и знаков препинания) для генерации в ответе. Минимум 1, максимум 4096.
И еще несколько параметров, которые вы можете использовать для настройки ответа.

Вот пример того, как задать вопрос API: Вот пример того, как задать вопрос API: (Мы попросили написать стихи о крутости читателей сайта VC.RU)

// задаем модель и промпт var model_engine := 'text-davinci-003'; var prompt := 'Write poem about how cool readers of VC.RU 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);

На этом все. Вы можете использовать chatgpt легко и просто в своих проектах на Delphi.

33
11 комментариев

Ещё бы пример работы программы :)

Ответить

Вот такой клиент на Делфи сделал. Работает на Win/Android/Mac/iOS/Linux
https://github.com/HemulGM/ChatGPT

1
Ответить

пока дельфи вспомнишь питон выучишь

Ответить

Эта статья сделана на основе аналогичной статьи про питон. Найди её. Увидишь, что весь код строчка в строчку одинаков) этим я хотел показать, что он не сложнее и не более многословен, если добавить столько же сахара, что и в питон)

Вдобавок, питон на 4 года старше Делфи)

Ответить