HemulGM

+8
с 2020
1 подписчик
27 подписок

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

1

Сейчас кстати, добавили работу именно с настроенной нейросетью gpt-turbo3.5, так что теперь можно в точности так же как на сайте общаться.
Я даже приложение сделал в стиле сайта

Это именно сервис чата не работает в России, а вот API и работа с GPT через API доступна без VPN

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

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

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

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

На 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.

2