{"id":14291,"url":"\/distributions\/14291\/click?bit=1&hash=257d5375fbb462be671b713a7a4184bd5d4f9c6ce46e0d204104db0e88eadadd","hash":"257d5375fbb462be671b713a7a4184bd5d4f9c6ce46e0d204104db0e88eadadd","title":"\u0420\u0435\u043a\u043b\u0430\u043c\u0430 \u043d\u0430 Ozon \u0434\u043b\u044f \u0442\u0435\u0445, \u043a\u0442\u043e \u043d\u0438\u0447\u0435\u0433\u043e \u0442\u0430\u043c \u043d\u0435 \u043f\u0440\u043e\u0434\u0430\u0451\u0442","buttonText":"","imageUuid":""}

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

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

В этом блоге мы узнаем, как использовать 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.

0
11 комментариев
Написать комментарий...
Victor Nikonov

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

Ответить
Развернуть ветку
HemulGM
Автор

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

Ответить
Развернуть ветку
зашёл засТУПиться

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

Ответить
Развернуть ветку
HemulGM
Автор

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

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

Ответить
Развернуть ветку
зашёл засТУПиться

ну он пять раз не менялся

Ответить
Развернуть ветку
HemulGM
Автор

Делфи?

Ответить
Развернуть ветку
зашёл засТУПиться

ага

Ответить
Развернуть ветку
HemulGM
Автор

Он очень поменялся за последние 5 лет. И обновления каждые четверть года выходят

Ответить
Развернуть ветку
зашёл засТУПиться

а ещё его продали раз десять да каждый владелец лепит своё представление об паскалях

Ответить
Развернуть ветку
HemulGM
Автор

Один из раз он был подан. Борландом. Дальше рулит Эмбаркадеро. Уже лет 15-18

Ответить
Развернуть ветку
зашёл засТУПиться

это если кратко

Ответить
Развернуть ветку

Комментарий удален модератором

Развернуть ветку
8 комментариев
Раскрывать всегда