Skip to content

Commit 4a1ffe0

Browse files
DarkCoderScDarkCoderSc
committed
Progress day: 20 Sept 2025 : Finished Task Generics
1 parent dc9fdd8 commit 4a1ffe0

12 files changed

Lines changed: 149 additions & 113 deletions

‎Client GUI/ClientGUIGroup.groupproj.local‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,9 +1,9 @@
11
<?xml version="1.0" encoding="utf-8"?>
22
<BorlandProject>
33
<Transactions>
4-
<Transaction>2025/08/15 09:04:51.000.443,C:\Users\jples\Desktop\OptixGate\Client GUI\ClientGUIGroup.groupproj=C:\Users\jples\Documents\Embarcadero\Studio\Projects\ProjectGroup1.groupproj</Transaction>
4+
<Transaction>2025/08/15 09:04:51.000.443,C:\Users\jples\Documents\Embarcadero\Studio\Projects\ProjectGroup1.groupproj=C:\Users\jples\Desktop\OptixGate\Client GUI\ClientGUIGroup.groupproj</Transaction>
55
</Transactions>
66
<Default.Personality>
7-
<Projects ActiveProject="C:\Users\jples\Desktop\OptixGate\Client GUI\Client_GUI.dproj"/>
7+
<Projects ActiveProject="C:\Users\jples\Desktop\OptixGate\Client GUI\Client_GUI_OpenSSL.dproj"/>
88
</Default.Personality>
99
</BorlandProject>

‎Client GUI/Client_GUI.dpr‎

Lines changed: 8 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -62,25 +62,21 @@ uses
6262
Optix.InformationGathering.Helper in '..\Shared\Optix.InformationGathering.Helper.pas',
6363
Optix.Process.Helper in '..\Shared\Optix.Process.Helper.pas',
6464
Optix.Func.SessionInformation in '..\Shared\Functions\Optix.Func.SessionInformation.pas',
65-
Optix.Func.Enum.Process in '..\Shared\Functions\Optix.Func.Enum.Process.pas',
6665
Optix.Protocol.SessionHandler in '..\Client\Units\Threads\Optix.Protocol.SessionHandler.pas',
6766
Optix.Protocol.Client in '..\Client\Units\Threads\Optix.Protocol.Client.pas',
6867
XSuperJSON in '..\Shared\XSuperJSON.pas',
6968
XSuperObject in '..\Shared\XSuperObject.pas',
7069
Optix.WinApiEx in '..\Shared\Optix.WinApiEx.pas',
7170
Optix.System.Helper in '..\Shared\Optix.System.Helper.pas',
7271
Optix.Shared.Types in '..\Shared\Optix.Shared.Types.pas',
73-
Optix.Actions.Process in '..\Client\Units\Actions\Optix.Actions.Process.pas',
7472
Optix.Func.LogNotifier in '..\Shared\Functions\Optix.Func.LogNotifier.pas',
75-
Optix.Func.Enum.FileSystem in '..\Shared\Functions\Optix.Func.Enum.FileSystem.pas',
7673
Optix.Shared.Classes in '..\Shared\Optix.Shared.Classes.pas',
7774
Optix.FileSystem.Helper in '..\Shared\Optix.FileSystem.Helper.pas',
7875
Optix.Protocol.Preflight in '..\Shared\Optix.Protocol.Preflight.pas',
7976
Optix.Protocol.Exceptions in '..\Shared\Optix.Protocol.Exceptions.pas',
8077
Optix.Protocol.Worker.FileTransfer in '..\Client\Units\Threads\Optix.Protocol.Worker.FileTransfer.pas',
8178
Optix.Shared.Protocol.FileTransfer in '..\Shared\Optix.Shared.Protocol.FileTransfer.pas',
8279
Optix.Task.ProcessDump in '..\Shared\Tasks\Optix.Task.ProcessDump.pas',
83-
Optix.Task in '..\Shared\Tasks\Optix.Task.pas',
8480
Optix.Actions.ProcessHandler in '..\Client\Units\Actions\Optix.Actions.ProcessHandler.pas',
8581
Optix.Func.Shell in '..\Shared\Functions\Optix.Func.Shell.pas',
8682
Optix.VCL.Helper in '..\Server\Units\Optix.VCL.Helper.pas',
@@ -90,7 +86,14 @@ uses
9086
uFormMain in 'Units\Forms\uFormMain.pas' {FormMain},
9187
uFormConnectToServer in 'Units\Forms\uFormConnectToServer.pas' {FormConnectToServer},
9288
uFormAbout in '..\Server\Units\Forms\uFormAbout.pas' {FormAbout},
93-
uFormDebugThreads in '..\Server\Units\Forms\uFormDebugThreads.pas' {FormDebugThreads};
89+
uFormDebugThreads in '..\Server\Units\Forms\uFormDebugThreads.pas' {FormDebugThreads},
90+
Optix.Func.Commands.Base in '..\Shared\Functions\Optix.Func.Commands.Base.pas',
91+
Optix.ClassesRegistry in '..\Shared\Optix.ClassesRegistry.pas',
92+
Optix.Func.Commands.FileSystem in '..\Shared\Functions\Optix.Func.Commands.FileSystem.pas',
93+
Optix.Func.Commands.Process in '..\Shared\Functions\Optix.Func.Commands.Process.pas',
94+
Optix.Func.Commands.Shell in '..\Shared\Functions\Optix.Func.Commands.Shell.pas',
95+
Optix.FileSystem.Enum in '..\Shared\Optix.FileSystem.Enum.pas',
96+
Optix.Process.Enum in '..\Shared\Optix.Process.Enum.pas';
9497

9598
{$R *.res}
9699
{$R ..\Server\data.res}

‎Client GUI/Client_GUI.dproj‎

Lines changed: 8 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -4,7 +4,7 @@
44
<ProjectVersion>20.1</ProjectVersion>
55
<FrameworkType>VCL</FrameworkType>
66
<Base>True</Base>
7-
<Config Condition="'$(Config)'==''">Release</Config>
7+
<Config Condition="'$(Config)'==''">Debug</Config>
88
<Platform Condition="'$(Platform)'==''">Win32</Platform>
99
<ProjectName Condition="'$(ProjectName)'==''">Client_GUI</ProjectName>
1010
<TargetedPlatforms>3</TargetedPlatforms>
@@ -156,25 +156,21 @@
156156
<DCCReference Include="..\Shared\Optix.InformationGathering.Helper.pas"/>
157157
<DCCReference Include="..\Shared\Optix.Process.Helper.pas"/>
158158
<DCCReference Include="..\Shared\Functions\Optix.Func.SessionInformation.pas"/>
159-
<DCCReference Include="..\Shared\Functions\Optix.Func.Enum.Process.pas"/>
160159
<DCCReference Include="..\Client\Units\Threads\Optix.Protocol.SessionHandler.pas"/>
161160
<DCCReference Include="..\Client\Units\Threads\Optix.Protocol.Client.pas"/>
162161
<DCCReference Include="..\Shared\XSuperJSON.pas"/>
163162
<DCCReference Include="..\Shared\XSuperObject.pas"/>
164163
<DCCReference Include="..\Shared\Optix.WinApiEx.pas"/>
165164
<DCCReference Include="..\Shared\Optix.System.Helper.pas"/>
166165
<DCCReference Include="..\Shared\Optix.Shared.Types.pas"/>
167-
<DCCReference Include="..\Client\Units\Actions\Optix.Actions.Process.pas"/>
168166
<DCCReference Include="..\Shared\Functions\Optix.Func.LogNotifier.pas"/>
169-
<DCCReference Include="..\Shared\Functions\Optix.Func.Enum.FileSystem.pas"/>
170167
<DCCReference Include="..\Shared\Optix.Shared.Classes.pas"/>
171168
<DCCReference Include="..\Shared\Optix.FileSystem.Helper.pas"/>
172169
<DCCReference Include="..\Shared\Optix.Protocol.Preflight.pas"/>
173170
<DCCReference Include="..\Shared\Optix.Protocol.Exceptions.pas"/>
174171
<DCCReference Include="..\Client\Units\Threads\Optix.Protocol.Worker.FileTransfer.pas"/>
175172
<DCCReference Include="..\Shared\Optix.Shared.Protocol.FileTransfer.pas"/>
176173
<DCCReference Include="..\Shared\Tasks\Optix.Task.ProcessDump.pas"/>
177-
<DCCReference Include="..\Shared\Tasks\Optix.Task.pas"/>
178174
<DCCReference Include="..\Client\Units\Actions\Optix.Actions.ProcessHandler.pas"/>
179175
<DCCReference Include="..\Shared\Functions\Optix.Func.Shell.pas"/>
180176
<DCCReference Include="..\Server\Units\Optix.VCL.Helper.pas"/>
@@ -193,6 +189,13 @@
193189
<DCCReference Include="..\Server\Units\Forms\uFormDebugThreads.pas">
194190
<Form>FormDebugThreads</Form>
195191
</DCCReference>
192+
<DCCReference Include="..\Shared\Functions\Optix.Func.Commands.Base.pas"/>
193+
<DCCReference Include="..\Shared\Optix.ClassesRegistry.pas"/>
194+
<DCCReference Include="..\Shared\Functions\Optix.Func.Commands.FileSystem.pas"/>
195+
<DCCReference Include="..\Shared\Functions\Optix.Func.Commands.Process.pas"/>
196+
<DCCReference Include="..\Shared\Functions\Optix.Func.Commands.Shell.pas"/>
197+
<DCCReference Include="..\Shared\Optix.FileSystem.Enum.pas"/>
198+
<DCCReference Include="..\Shared\Optix.Process.Enum.pas"/>
196199
<BuildConfiguration Include="Base">
197200
<Key>Base</Key>
198201
</BuildConfiguration>

‎Client GUI/Client_GUI_OpenSSL.dpr‎

Lines changed: 8 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -62,25 +62,21 @@ uses
6262
Optix.InformationGathering.Helper in '..\Shared\Optix.InformationGathering.Helper.pas',
6363
Optix.Process.Helper in '..\Shared\Optix.Process.Helper.pas',
6464
Optix.Func.SessionInformation in '..\Shared\Functions\Optix.Func.SessionInformation.pas',
65-
Optix.Func.Enum.Process in '..\Shared\Functions\Optix.Func.Enum.Process.pas',
6665
Optix.Protocol.SessionHandler in '..\Client\Units\Threads\Optix.Protocol.SessionHandler.pas',
6766
Optix.Protocol.Client in '..\Client\Units\Threads\Optix.Protocol.Client.pas',
6867
XSuperJSON in '..\Shared\XSuperJSON.pas',
6968
XSuperObject in '..\Shared\XSuperObject.pas',
7069
Optix.WinApiEx in '..\Shared\Optix.WinApiEx.pas',
7170
Optix.System.Helper in '..\Shared\Optix.System.Helper.pas',
7271
Optix.Shared.Types in '..\Shared\Optix.Shared.Types.pas',
73-
Optix.Actions.Process in '..\Client\Units\Actions\Optix.Actions.Process.pas',
7472
Optix.Func.LogNotifier in '..\Shared\Functions\Optix.Func.LogNotifier.pas',
75-
Optix.Func.Enum.FileSystem in '..\Shared\Functions\Optix.Func.Enum.FileSystem.pas',
7673
Optix.Shared.Classes in '..\Shared\Optix.Shared.Classes.pas',
7774
Optix.FileSystem.Helper in '..\Shared\Optix.FileSystem.Helper.pas',
7875
Optix.Protocol.Preflight in '..\Shared\Optix.Protocol.Preflight.pas',
7976
Optix.Protocol.Exceptions in '..\Shared\Optix.Protocol.Exceptions.pas',
8077
Optix.Protocol.Worker.FileTransfer in '..\Client\Units\Threads\Optix.Protocol.Worker.FileTransfer.pas',
8178
Optix.Shared.Protocol.FileTransfer in '..\Shared\Optix.Shared.Protocol.FileTransfer.pas',
8279
Optix.Task.ProcessDump in '..\Shared\Tasks\Optix.Task.ProcessDump.pas',
83-
Optix.Task in '..\Shared\Tasks\Optix.Task.pas',
8480
Optix.Actions.ProcessHandler in '..\Client\Units\Actions\Optix.Actions.ProcessHandler.pas',
8581
Optix.Func.Shell in '..\Shared\Functions\Optix.Func.Shell.pas',
8682
Optix.VCL.Helper in '..\Server\Units\Optix.VCL.Helper.pas',
@@ -101,7 +97,14 @@ uses
10197
uFormCertificatesStore in '..\Server\Units\Forms\uFormCertificatesStore.pas' {FormCertificatesStore},
10298
uFormGenerateNewCertificate in '..\Server\Units\Forms\uFormGenerateNewCertificate.pas' {FormGenerateNewCertificate},
10399
uFormTrustedCertificates in '..\Server\Units\Forms\uFormTrustedCertificates.pas' {FormTrustedCertificates},
104-
Optix.Config.TrustedCertificatesStore in '..\Server\Units\Configs\Optix.Config.TrustedCertificatesStore.pas';
100+
Optix.Config.TrustedCertificatesStore in '..\Server\Units\Configs\Optix.Config.TrustedCertificatesStore.pas',
101+
Optix.Func.Commands.Base in '..\Shared\Functions\Optix.Func.Commands.Base.pas',
102+
Optix.ClassesRegistry in '..\Shared\Optix.ClassesRegistry.pas',
103+
Optix.Func.Commands.FileSystem in '..\Shared\Functions\Optix.Func.Commands.FileSystem.pas',
104+
Optix.Func.Commands.Process in '..\Shared\Functions\Optix.Func.Commands.Process.pas',
105+
Optix.Func.Commands.Shell in '..\Shared\Functions\Optix.Func.Commands.Shell.pas',
106+
Optix.FileSystem.Enum in '..\Shared\Optix.FileSystem.Enum.pas',
107+
Optix.Process.Enum in '..\Shared\Optix.Process.Enum.pas';
105108

106109
{$R *.res}
107110
{$R ..\Server\data.res}

‎Client GUI/Client_GUI_OpenSSL.dproj‎

Lines changed: 8 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -4,7 +4,7 @@
44
<ProjectVersion>20.1</ProjectVersion>
55
<FrameworkType>VCL</FrameworkType>
66
<Base>True</Base>
7-
<Config Condition="'$(Config)'==''">Release</Config>
7+
<Config Condition="'$(Config)'==''">Debug</Config>
88
<Platform Condition="'$(Platform)'==''">Win32</Platform>
99
<ProjectName Condition="'$(ProjectName)'==''">Client_GUI_OpenSSL</ProjectName>
1010
<TargetedPlatforms>3</TargetedPlatforms>
@@ -149,25 +149,21 @@
149149
<DCCReference Include="..\Shared\Optix.InformationGathering.Helper.pas"/>
150150
<DCCReference Include="..\Shared\Optix.Process.Helper.pas"/>
151151
<DCCReference Include="..\Shared\Functions\Optix.Func.SessionInformation.pas"/>
152-
<DCCReference Include="..\Shared\Functions\Optix.Func.Enum.Process.pas"/>
153152
<DCCReference Include="..\Client\Units\Threads\Optix.Protocol.SessionHandler.pas"/>
154153
<DCCReference Include="..\Client\Units\Threads\Optix.Protocol.Client.pas"/>
155154
<DCCReference Include="..\Shared\XSuperJSON.pas"/>
156155
<DCCReference Include="..\Shared\XSuperObject.pas"/>
157156
<DCCReference Include="..\Shared\Optix.WinApiEx.pas"/>
158157
<DCCReference Include="..\Shared\Optix.System.Helper.pas"/>
159158
<DCCReference Include="..\Shared\Optix.Shared.Types.pas"/>
160-
<DCCReference Include="..\Client\Units\Actions\Optix.Actions.Process.pas"/>
161159
<DCCReference Include="..\Shared\Functions\Optix.Func.LogNotifier.pas"/>
162-
<DCCReference Include="..\Shared\Functions\Optix.Func.Enum.FileSystem.pas"/>
163160
<DCCReference Include="..\Shared\Optix.Shared.Classes.pas"/>
164161
<DCCReference Include="..\Shared\Optix.FileSystem.Helper.pas"/>
165162
<DCCReference Include="..\Shared\Optix.Protocol.Preflight.pas"/>
166163
<DCCReference Include="..\Shared\Optix.Protocol.Exceptions.pas"/>
167164
<DCCReference Include="..\Client\Units\Threads\Optix.Protocol.Worker.FileTransfer.pas"/>
168165
<DCCReference Include="..\Shared\Optix.Shared.Protocol.FileTransfer.pas"/>
169166
<DCCReference Include="..\Shared\Tasks\Optix.Task.ProcessDump.pas"/>
170-
<DCCReference Include="..\Shared\Tasks\Optix.Task.pas"/>
171167
<DCCReference Include="..\Client\Units\Actions\Optix.Actions.ProcessHandler.pas"/>
172168
<DCCReference Include="..\Shared\Functions\Optix.Func.Shell.pas"/>
173169
<DCCReference Include="..\Server\Units\Optix.VCL.Helper.pas"/>
@@ -205,6 +201,13 @@
205201
<DCCReference Include="..\Server\Units\Configs\Optix.Config.TrustedCertificatesStore.pas">
206202
<Form>$R *.res</Form>
207203
</DCCReference>
204+
<DCCReference Include="..\Shared\Functions\Optix.Func.Commands.Base.pas"/>
205+
<DCCReference Include="..\Shared\Optix.ClassesRegistry.pas"/>
206+
<DCCReference Include="..\Shared\Functions\Optix.Func.Commands.FileSystem.pas"/>
207+
<DCCReference Include="..\Shared\Functions\Optix.Func.Commands.Process.pas"/>
208+
<DCCReference Include="..\Shared\Functions\Optix.Func.Commands.Shell.pas"/>
209+
<DCCReference Include="..\Shared\Optix.FileSystem.Enum.pas"/>
210+
<DCCReference Include="..\Shared\Optix.Process.Enum.pas"/>
208211
<BuildConfiguration Include="Base">
209212
<Key>Base</Key>
210213
</BuildConfiguration>

‎Client GUI/Client_GUI_OpenSSL.res‎

92.4 KB
Binary file not shown.

‎Client/Units/Threads/Optix.Protocol.SessionHandler.pas‎

Lines changed: 19 additions & 19 deletions
Original file line numberDiff line numberDiff line change
@@ -202,6 +202,25 @@ procedure TOptixSessionHandlerThread.PollTasks();
202202
end;
203203
end;
204204

205+
{ TOptixSessionHandlerThread.RegisterAndStartNewTask }
206+
procedure TOptixSessionHandlerThread.RegisterAndStartNewTask(const AOptixTask : TOptixTask);
207+
begin
208+
if not Assigned(AOptixTask) or not Assigned(FTasks) then
209+
Exit();
210+
///
211+
212+
var ATaskId := TGUID.NewGuid();
213+
214+
AOptixTask.SetTaskId(ATaskId);
215+
216+
AddPacket(TOptixTaskCallback.Create(AOptixTask));
217+
218+
AOptixTask.Start();
219+
220+
///
221+
FTasks.Add(AOptixTask);
222+
end;
223+
205224
{ TOptixSessionHandlerThread.PollShellInstances }
206225
procedure TOptixSessionHandlerThread.PollShellInstances();
207226
begin
@@ -308,25 +327,6 @@ procedure TOptixSessionHandlerThread.PollActions();
308327
// -------------------------------------------------------------------------------------------------------------------
309328
end;
310329

311-
{ TOptixSessionHandlerThread.RegisterAndStartNewTask }
312-
procedure TOptixSessionHandlerThread.RegisterAndStartNewTask(const AOptixTask : TOptixTask);
313-
begin
314-
if not Assigned(AOptixTask) or not Assigned(FTasks) then
315-
Exit();
316-
///
317-
318-
var ATaskId := TGUID.NewGuid();
319-
320-
AOptixTask.SetTaskId(ATaskId);
321-
322-
AddPacket(TOptixTaskCallback.Create(AOptixTask));
323-
324-
AOptixTask.Start();
325-
326-
///
327-
FTasks.Add(AOptixTask);
328-
end;
329-
330330
{ TOptixSessionHandlerThread.InitializeFileTransferOrchestratorThread }
331331
procedure TOptixSessionHandlerThread.InitializeFileTransferOrchestratorThread();
332332
begin

‎Server/Units/Forms/Control/uControlFormTasks.dfm‎

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -84,6 +84,8 @@ object ControlFormTasks: TControlFormTasks
8484
Left = 160
8585
Top = 64
8686
object Action1: TMenuItem
87+
Caption = 'Action'
88+
OnClick = Action1Click
8789
end
8890
end
8991
end

‎Server/Units/Forms/Control/uControlFormTasks.pas‎

Lines changed: 26 additions & 21 deletions
Original file line numberDiff line numberDiff line change
@@ -87,14 +87,14 @@ TControlFormTasks = class(TBaseFormControl)
8787
procedure VSTCompareNodes(Sender: TBaseVirtualTree; Node1, Node2: PVirtualNode; Column: TColumnIndex;
8888
var Result: Integer);
8989
procedure FormDestroy(Sender: TObject);
90-
procedure VSTMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private
90+
procedure VSTMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
91+
procedure Action1Click(Sender: TObject);
9192
{ Private declarations }
9293
private
9394
{@M}
9495
function GetNodeByTaskId(const ATaskId : TGUID) : PVirtualNode;
9596
function GetSelectedTaskCallBack(const AFilterState : TOptixTaskStates = []) : TOptixTaskCallBack;
9697
function GetSelectedSucceededTaskCallBack() : TOptixTaskCallBack;
97-
procedure DownloadProcessDumpFile(Sender : TObject);
9898
public
9999
{@M}
100100
procedure ReceivePacket(const AClassName : String; const ASerializedPacket : ISuperObject); override;
@@ -160,46 +160,51 @@ function TControlFormTasks.GetSelectedSucceededTaskCallBack() : TOptixTaskCallBa
160160
result := GetSelectedTaskCallBack([otsSuccess]);
161161
end;
162162

163-
procedure TControlFormTasks.DownloadProcessDumpFile(Sender : TObject);
163+
procedure TControlFormTasks.Action1Click(Sender: TObject);
164164
begin
165165
var ACallBack := GetSelectedSucceededTaskCallBack();
166-
if not Assigned(ACallBack) or not Assigned(ACallBack.Result) and (ACallBack.Result is TOptixProcessDumpTaskResult) then
166+
if not Assigned(ACallBack) or not Assigned(ACallBack.Result) then
167167
Exit();
168168
///
169169

170-
var ADirectory := '';
170+
// -------------------------------------------------------------------------------------------------------------------
171+
if ACallBack.Result is TOptixProcessDumpTaskResult then begin
172+
var ADirectory := '';
171173

172-
if not SelectDirectory('Select destination', '', ADirectory) then
173-
Exit();
174+
if not SelectDirectory('Select destination', '', ADirectory) then
175+
Exit();
174176

175-
RequestFileDownload(
176-
TOptixProcessDumpTaskResult(ACallBack.Result).OutputFilePath,
177-
IncludeTrailingPathDelimiter(ADirectory) + TOptixProcessDumpTaskResult(ACallBack.Result).DisplayName + '.dmp',
178-
'Process Dump'
179-
);
177+
RequestFileDownload(
178+
TOptixProcessDumpTaskResult(ACallBack.Result).OutputFilePath,
179+
IncludeTrailingPathDelimiter(ADirectory) + TOptixProcessDumpTaskResult(ACallBack.Result).DisplayName + '.dmp',
180+
'Process Dump'
181+
);
182+
end;
183+
// -------------------------------------------------------------------------------------------------------------------
180184
end;
181185

182186
procedure TControlFormTasks.PopupMenuPopup(Sender: TObject);
183187
begin
184188
Action1.Visible := False;
185-
Action1.Caption := '';
186-
Action1.OnClick := nil;
187189
///
188190

189-
var ACallBack := GetSelectedTaskCallBack([]);
190-
if not Assigned(ACallBack) then
191+
var ACallBack := GetSelectedSucceededTaskCallBack();
192+
if not Assigned(ACallBack) or not Assigned(ACallBack.Result) then
191193
Exit();
192194

193195
case ACallBack.State of
194196
otsPending :;
195197
otsRunning :;
196198
otsFailed :;
197199
otsSuccess : begin
198-
if ACallBack.TaskClassName = TOptixProcessDumpTask.ClassName then begin
199-
Action1.Visible := True;
200-
Action1.Caption := 'Download Process Dump File';
201-
Action1.OnClick := DownloadProcessDumpFile;
202-
end;
200+
Action1.Visible := True;
201+
// ---------------------------------------------------------------------------------------------------------------
202+
if ACallBack.Result is TOptixProcessDumpTaskResult then
203+
Action1.Caption := 'Download Process Dump File'
204+
// ---------------------------------------------------------------------------------------------------------------
205+
else
206+
Action1.Visible := False;
207+
// ---------------------------------------------------------------------------------------------------------------
203208
end;
204209
end;
205210
end;

‎Server/Units/Forms/uFormMain.pas‎

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -189,8 +189,6 @@ TFormMain = class(TForm)
189189

190190
implementation
191191

192-
do generic commands server side
193-
194192
// ---------------------------------------------------------------------------------------------------------------------
195193
uses
196194
System.DateUtils,

0 commit comments

Comments
 (0)