PTyTb/ttw_fmx_v10
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

исправил оповещения, теперь работают четко

Browse Source
This commit is contained in:
PC1\PTyTb
2025-08-16 22:42:29 +03:00
parent 2386d14b86
commit fd1c6b6bb8
17 changed files with 968 additions and 928 deletions
Download Patch File Download Diff File Expand all files Collapse all files
utils/uWebServerKandinsky.pas
+3 -3
View File
@@ -28,7 +28,7 @@ uses
procedure GenerationError(Sender: TObject; const ErrorMessage: string);
procedure GenerationUpdate(Sender: TObject; const Message: string);
public
constructor Create(aKey:string; aSecret:string);
constructor Create(aKey:string; aSecret:string; aPort:integer);
destructor Destroy;
procedure generate(prompt:string; aNick:string);
procedure ActiveServer(aEn: boolean);
@@ -51,10 +51,10 @@ begin
end;
end;
constructor TKandinsky_Web.Create(aKey:string; aSecret:string);
constructor TKandinsky_Web.Create(aKey:string; aSecret:string; aPort:integer);
begin
IdHTTPServer1 := TIdHTTPServer.Create;
IdHTTPServer1.DefaultPort := 8087;
IdHTTPServer1.DefaultPort := aPort;
IdHTTPServer1.OnCommandGet := IdHTTPServer1CommandGet;
ka:=TFusionBrainAPI.Create(nil,aKey, aSecret);
ka.OnGenerationDone := GenerationDone;