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

pas2jsdsgn: stop on server error

Browse Source
This commit is contained in:
mattias 2022-04-11 11:00:09 +02:00
parent 19d03a5ea8
commit 511afcb021
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/pas2js/pjscontroller.pp
View File

@ -324,6 +324,8 @@ begin
aServer:=SimpleWebServerController.AddProjectServer(aProject,ServerPort,WebDir,true);
if aServer=nil then
exit(mrCancel);
if aServer.ErrorDesc<>'' then
exit(mrCancel);
// start browser
HTMLFilename:=GetHTMLFilename(aProject,true);