-
-
Notifications
You must be signed in to change notification settings - Fork 50
/
Copy pathChatGPT.dpr
85 lines (80 loc) · 3.93 KB
/
ChatGPT.dpr
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
program ChatGPT;
{$IF DEFINED(ANDROID) OR DEFINED(IOS) OR DEFINED(IOS64)}
{$DEFINE MOBILE}
{$ENDIF}
uses
System.StartUpCopy,
FMX.Forms,
FMX.Types,
FMX.Skia,
ChatGPT.Main in 'ChatGPT.Main.pas' {FormMain},
OpenAI.API.Params in 'DelphiOpenAI\OpenAI.API.Params.pas',
OpenAI.API in 'DelphiOpenAI\OpenAI.API.pas',
OpenAI.Completions in 'DelphiOpenAI\OpenAI.Completions.pas',
OpenAI.Edits in 'DelphiOpenAI\OpenAI.Edits.pas',
OpenAI.Embeddings in 'DelphiOpenAI\OpenAI.Embeddings.pas',
OpenAI.Engines in 'DelphiOpenAI\OpenAI.Engines.pas',
OpenAI.Errors in 'DelphiOpenAI\OpenAI.Errors.pas',
OpenAI.Files in 'DelphiOpenAI\OpenAI.Files.pas',
OpenAI.FineTunes in 'DelphiOpenAI\OpenAI.FineTunes.pas',
OpenAI.Images in 'DelphiOpenAI\OpenAI.Images.pas',
OpenAI.Models in 'DelphiOpenAI\OpenAI.Models.pas',
OpenAI.Moderations in 'DelphiOpenAI\OpenAI.Moderations.pas',
OpenAI in 'DelphiOpenAI\OpenAI.pas',
ChatGPT.FrameChat in 'ChatGPT.FrameChat.pas' {FrameChat: TFrame},
ChatGPT.FrameMessage in 'ChatGPT.FrameMessage.pas' {FrameMessage: TFrame},
OpenAI.Chat in 'DelphiOpenAI\OpenAI.Chat.pas',
OpenAI.Audio in 'DelphiOpenAI\OpenAI.Audio.pas',
OpenAI.Utils.ChatHistory in 'DelphiOpenAI\OpenAI.Utils.ChatHistory.pas',
ChatGPT.FrameImagePreview in 'ChatGPT.FrameImagePreview.pas',
ChatGPT.FrameImage in 'ChatGPT.FrameImage.pas',
ChatGPT.FrameCode in 'ChatGPT.FrameCode.pas' {FrameCode: TFrame},
ChatGPT.Classes in 'ChatGPT.Classes.pas',
ChatGPT.FrameSVG in 'ChatGPT.FrameSVG.pas' {FrameSVG: TFrame},
ChatGPT.FramePlainText in 'ChatGPT.FramePlainText.pas' {FrameText},
DarkModeApi.Consts in 'WindowDarkMode\DarkModeApi.Consts.pas',
DarkModeApi.FMX in 'WindowDarkMode\DarkModeApi.FMX.pas',
DarkModeApi in 'WindowDarkMode\DarkModeApi.pas',
DarkModeApi.Types in 'WindowDarkMode\DarkModeApi.Types.pas',
ChatGPT.Overlay in 'ChatGPT.Overlay.pas' {FrameOveraly: TFrame},
ChatGPT.Settings in 'ChatGPT.Settings.pas' {FrameSettings: TFrame},
ChatGPT.ChatSettings in 'ChatGPT.ChatSettings.pas' {FrameChatSettings: TFrame},
ChatGPT.FrameUIMessage in 'ChatGPT.FrameUIMessage.pas' {FrameUIMessage: TFrame},
ChatGPT.Code.Pascal in 'Code\ChatGPT.Code.Pascal.pas',
ChatGPT.Code in 'ChatGPT.Code.pas',
ChatGPT.Code.Python in 'Code\ChatGPT.Code.Python.pas',
ChatGPT.Code.MarkDown in 'Code\ChatGPT.Code.MarkDown.pas',
HGM.FMX.Image in 'HGM.FMX.Image.pas',
HGM.FMX.Ani in 'HGM.FMX.Ani.pas',
ChatGPT.Code.JSON in 'Code\ChatGPT.Code.JSON.pas',
ChatGPT.About in 'ChatGPT.About.pas' {FrameAbout: TFrame},
ChatGPT.SoundRecorder in 'ChatGPT.SoundRecorder.pas',
ChatGPT.Android in 'ChatGPT.Android.pas',
OpenAI.Chat.Functions in 'DelphiOpenAI\OpenAI.Chat.Functions.pas',
OpenAI.Chat.Functions.Samples in 'DelphiOpenAI\OpenAI.Chat.Functions.Samples.pas',
ChatGPT.Functions in 'ChatGPT.Functions.pas',
ChatGPT.Code.SQL in 'Code\ChatGPT.Code.SQL.pas',
ChatGPT.Functions.External in 'ChatGPT.Functions.External.pas',
ChatGPT.Functions.External.Intf in 'ChatGPT.Functions.External.Intf.pas',
ChatGPT.LoadedFunctions in 'ChatGPT.LoadedFunctions.pas' {FrameLoadedFunctions: TFrame},
ChatGPT.TextEditor in 'ChatGPT.TextEditor.pas' {FrameTextEditor},
ChatGPT.ImportExport in 'ChatGPT.ImportExport.pas' {FrameImportExport: TFrame},
OpenAI.FineTuning in 'DelphiOpenAI\OpenAI.FineTuning.pas',
ChatGPT.Manager in 'ChatGPT.Manager.pas' {Manager: TDataModule},
OpenAI.Types in 'DelphiOpenAI\OpenAI.Types.pas',
OpenAI.Utils.Base64 in 'DelphiOpenAI\OpenAI.Utils.Base64.pas',
OpenAI.Utils.ObjectHolder in 'DelphiOpenAI\OpenAI.Utils.ObjectHolder.pas',
OpenAI.Assistants in 'DelphiOpenAI\OpenAI.Assistants.pas';
{$R *.res}
begin
//{$IFDEF MOBILE}
GlobalUseSkia := True;
GlobalUseSkiaRasterWhenAvailable := False;
GlobalPreferredFramesPerSecond := 120;
//GlobalDisableSkiaCodecsReplacement := True;
//{$ENDIF}
Application.Initialize;
Application.CreateForm(TManager, Manager);
Application.CreateForm(TFormMain, FormMain);
Application.Run;
end.