paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 08:09:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix AV, substitute %s with URL

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-04-23 11:28:17 +02:00
parent 4999767a00
commit 98dd30e80a
1 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
components/simplewebservergui/simplewebsrvcontroller.pas
View File

@ -91,12 +91,14 @@ type
{ TSWSInstance }
TSWSInstance = class(TPersistent)
Private
FParams: TStrings;
procedure SetParams(AValue: TStrings);
public
Controller: TSimpleWebServerController;
Exe: string; // may contain macros and not expanded
ExeUsed: string; // resolved macros, expanded filename
Params: TStrings;
Port: word;
Path: string; // path on disk, can contain macros
@ -107,8 +109,9 @@ type
State: TSWebServerState;
Thread: TSWServerThread;
ExitCode: integer;
constructor Create;
destructor Destroy; override;
Property Params : TStrings Read FParams Write SetParams;
end;
TSWServerLogEvent = procedure(Sender: TObject; OutLines: TStrings) of object;
@ -332,9 +335,20 @@ end;
{ TSWSInstance }
procedure TSWSInstance.SetParams(AValue: TStrings);
begin
if FParams=AValue then Exit;
FParams.Assign(AValue);
end;
constructor TSWSInstance.Create;
begin
FParams:=TStringList.Create;
end;
destructor TSWSInstance.Destroy;
begin
FreeAndNil(Params);
FreeAndNil(FParams);
inherited Destroy;
end;
@ -1908,6 +1922,7 @@ begin
else
begin
FindDefaultBrowser(Result,Cmd);
Cmd:=Format(Cmd,[URL]);
SplitCmdLineParams(Cmd,Params);
end;
end;