How to install PascalSCADA

Contents

1 Introduction
2 What I need before start?
3 Installing…

Introduction

First of all, fell free to send corrections or alternative ways to this method 🙂

The main goal of this page is instruct how to install the latest PascalSCADA snapshot on the latest Lazarus version. Why I don’t explains how install it on Delphi or on a outdated Lazarus version, is question to another page, or feel free to send the instructions to install it on the desired IDE.

Warning: The current PascalSCADA package will install others packages together with PascalSCADA. The packages are:

ZeosLib 7.2
BGRABitmap
BGRAControls

So, if you dislike some of these packages, feel free to create a new package without the undesired package.

BIG Warning 2: The PascalSCADA isn’t like others SCADA systems. It’s a package, plugin or a add-on (you name it) for Lazarus to enable it to create HMI/SCADA applications. So, a wizard with Next, Next then finish buttons will be not available.

What I need before start?

Latest Lazarus version. If you are a Windows user, you can get Lazarus from: http://www.lazarus-ide.org/. If you are a Linux/FreeBSD user, you can get it from your package system.
Latest PascalSCADA: available on this link.
WinRAR or something else that can decompress .bz2 files.

Installing…

Well, the first to be installed is Lazarus. I don’t want explain how to install Lazarus on any OS/platform that exists on this world, because install Lazarus is a very simple task, both on Windows (With wizard next, next and finish) or on Linux (Linux Mint 17.3 here: sudo apt-get install….). At the end of Lazarus install process, you should open it and see something similar to this:

If you see your fresh Lazarus similar to this, you are on the right way. The next step is install the PascalSCADA package. Please forget the Lazarus by a moment. Go to your Downloads folder and find the downloaded PascalSCADA and extract it to a folder of your choice.

After extract your file, return to Lazarus and select the menu bellow:

Click on this menu. A open file dialog will be showed:

Navigate to the folder where you extracted the PascalSCADA. You should see the following files:

pascalscada_common.lpk
pascalscada_full.lpk
pascalscada.lpk
pascalscada_db.lpk
pascalscada_hmi.lpk

If you don’t see one of these files, check your downloaded file, paths. If everything is ok, you should see a screen like this:

Find PascalSCADA on your file system (complete view)

Select the file “pascalscada_full.lpk” then open it. The package window of pascalscada_full file will be displayed:

The last step, is install it into your IDE. To do this, click on button “Use >>” then select install.

Installing PascalSCADA on your Lazarus IDE

The package pascalscada_full is a metapackage, used only to make a complete install of PascalSCADA on your Lazarus. Because of this, you will be bored with some messages:

Metapackage: used to make easy the complete install of PascalSCADA

Click on “Install it, I like the fat” to continue the install. The next screen display a list with all packages that will be installed into your IDE, as displayed below:

List of all packages that will be installed together with PascalSCADA

More detailed view:

Click on OK to continue the install and get the final question, about the IDE recompile process, as you can see below:

To continue, click on “Yes”. The installation process will be started and your IDE will be recompiled. At the end of recompile process, the IDE will restarted. If you have a project with unsaved changes, take care!!

After the restart, depending of your PascalSCADA version, you should see the following component palete on your Lazarus:

PascalSCADA installed: communication port components palette

PascalSCADA installed: communication protocol components palette

PascalSCADA installed: utility components palette

PascalSCADA installed: screen controls palette

PascalSCADA installed: user management and security components palette

PascalSCADA installed: database components palette

PascalSCADA installed: FreePascal components palette

If you see these tabs, congrats, you successfully installed the PascalSCADA on your Lazarus IDE.

29 thoughts on “How to install PascalSCADA”

Rudi Santoso says:

Wednesday August 24th, 2016 at 02:37 PM

How to install Pascal SCADA Latest version in Code Thypon to update Component. And how to install in Delphi RAD Studio Berlin ?

Reply
Fabio Luis Girardi says:

Wednesday August 24th, 2016 at 04:57 PM

To update on Codetyphon: you should remove the pl_pascalscada package first. Then edit the new PascalSCADA packages and replace some dependencies:

** on pascalscada_db package, replace ZComponent dependency by pl_zeosdbo
** on pascalscada_hmi_package, replace the BGRABitmap and BGRAControls by pl_BGRABitmap and pl_BGRAControls.

After this, install the pascalscada_full.lpk

On Delphi RAD Studio Berlin? I don’t know, since I don’t update the packages for Delphi since Delphi XE2. Can you try and explain to us?

Reply
3Picure says:

Sunday September 18th, 2016 at 09:16 AM

Is it possible to install PascalScada on Mac OS X ?

Reply
1. Fabio Luis Girardi says:
  
  Sunday September 18th, 2016 at 02:15 PM
  
  I did no tested PascalSCADA for Mac OS X, but it have no reasons to don’t work. Maybe we can test together?
  
  Reply
2. Fabio Luis Girardi says:
  
  Sunday September 18th, 2016 at 04:05 PM
  
  What’s your Mac OS X?
  
  Reply
3. Fabio Luis Girardi says:
  
  Tuesday September 20th, 2016 at 12:02 PM
  
  I set a virtual machine to test PascalSCADA on Mac OS X El captain. I found some issues related with constants and units that are not defined/available for Mac. I’m fixing theses issues. When it’s done I’ll notify you.
  
  Reply
4. Fabio Luis Girardi says:
  
  Tuesday September 20th, 2016 at 09:12 PM
  
  3Picure: I finished the changes for Mac OS X today. Can you download the latest revision from SVN and test?
  
  Reply
  1. 3Picure says:
    
    Wednesday September 21st, 2016 at 09:13 PM
    
    ok I do test in few day… I’m on mavericks OS 10.9
    Thanks
    
    Reply
3Picure says:

Wednesday September 21st, 2016 at 09:47 PM

I download today and summary test!
It look like work :o)
great
thanks

Reply
1. Fabio Luis Girardi says:
  
  Wednesday September 21st, 2016 at 11:16 PM
  
  You are welcome!
  
  Reply
kirio says:

Saturday September 24th, 2016 at 03:44 PM

Its possible set digital input bit using pascalscada?

Reply
1. Fabio Luis Girardi says:
  
  Saturday September 24th, 2016 at 06:45 PM
  
  Yes and No. I need to known your architecture to answer your question. Please tell-me, whats your PLC?
  
  Reply
robin says:

Tuesday March 7th, 2017 at 09:47 AM

Hi,

When i try to install the package in Lazarus i get alot of errors:

Compile package BGRABitmapPack 8.8.4: Exit code 1, Errors: 50, Hints: 38
bgracanvas2d.pas(370,21) Error: Operator is not overloaded: “TPointF” + “TPointF”
bgracanvas2d.pas(371,21) Error: Operator is not overloaded: “TPointF” + “TPointF”
bgracanvas2d.pas(386,34) Error: Incompatible type for arg no. 3: Got “TYPES.TPointF”, expected “BGRABITMAPTYPES.TPointF”
bgratransform.pas(872,38) Hint: Found declaration: Fit(TPointF;TPointF;TPointF);
bgracanvas2d.pas(446,71) Error: Incompatible type for arg no. 4: Got “TYPES.TPointF”, expected “BGRABITMAPTYPES.TPointF”
bgragradientscanner.pas(1077,34) Hint: Found declaration: constructor Create(TBGRACustomGradient;TGradientType;TPointF;TPointF;Boolean=”FALSE”;Boolean=”FALSE”);
bgragradientscanner.pas(1045,34) Hint: Found declaration: constructor Create(TBGRAPixel;TBGRAPixel;TGradientType;TPointF;TPointF;Boolean=”TRUE”;Boolean=”FALSE”);
bgracanvas2d.pas(451,9) Error: Incompatible types: got “BGRABITMAPTYPES.TPointF” expected “TYPES.TPointF”
bgracanvas2d.pas(452,9) Error: Incompatible types: got “BGRABITMAPTYPES.TPointF” expected “TYPES.TPointF”
bgracanvas2d.pas(665,24) Error: function header doesn’t match any method of this class “GetShadowOffset:;”
bgracanvas2d.pas(109,14) Error: Found declaration: GetShadowOffset:;
bgracanvas2d.pas(667,13) Error: Incompatible types: got “BGRABITMAPTYPES.TPointF” expected “TYPES.TPointF”
bgracanvas2d.pas(900,25) Error: function header doesn’t match any method of this class “FillPoly(const {Open} Array Of TPointF);”
bgracanvas2d.pas(125,15) Error: Found declaration: FillPoly(const {Open} Array Of TPointF);
bgracanvas2d.pas(905,38) Error: Incompatible type for arg no. 1: Got “{Open} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgracanvas2d.pas(141,15) Hint: Found declaration: DrawShadow(const {Open} Array Of TPointF;const {Open} Array Of TPointF);
bgracanvas2d.pas(913,63) Error: Incompatible type for arg no. 2: Got “{Open} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapolygon.pas(498,11) Hint: Found declaration: FillPolyAntialiasWithTexture(TBGRACustomBitmap;{Open} Array Of TPointF;IBGRAScanner;Boolean;Boolean=”FALSE”);
bgracanvas2d.pas(915,61) Error: Incompatible type for arg no. 2: Got “{Open} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapolygon.pas(472,11) Hint: Found declaration: FillPolyAliasedWithTexture(TBGRACustomBitmap;{Open} Array Of TPointF;IBGRAScanner;Boolean;TDrawMode);
bgracanvas2d.pas(925,67) Error: Incompatible type for arg no. 2: Got “{Open} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapolygon.pas(498,11) Hint: Found declaration: FillPolyAntialiasWithTexture(TBGRACustomBitmap;{Open} Array Of TPointF;IBGRAScanner;Boolean;Boolean=”FALSE”);
bgracanvas2d.pas(927,65) Error: Incompatible type for arg no. 2: Got “{Open} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapolygon.pas(472,11) Hint: Found declaration: FillPolyAliasedWithTexture(TBGRACustomBitmap;{Open} Array Of TPointF;IBGRAScanner;Boolean;TDrawMode);
bgracanvas2d.pas(932,67) Error: Incompatible type for arg no. 2: Got “{Open} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapolygon.pas(498,11) Hint: Found declaration: FillPolyAntialiasWithTexture(TBGRACustomBitmap;{Open} Array Of TPointF;IBGRAScanner;Boolean;Boolean=”FALSE”);
bgracanvas2d.pas(934,65) Error: Incompatible type for arg no. 2: Got “{Open} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapolygon.pas(472,11) Hint: Found declaration: FillPolyAliasedWithTexture(TBGRACustomBitmap;{Open} Array Of TPointF;IBGRAScanner;Boolean;TDrawMode);
bgracanvas2d.pas(940,54) Error: Incompatible type for arg no. 2: Got “{Open} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapolygon.pas(485,11) Hint: Found declaration: FillPolyAntialias(TBGRACustomBitmap;{Open} Array Of TPointF;TBGRAPixel;Boolean;Boolean;Boolean=”FALSE”);
bgracanvas2d.pas(942,52) Error: Incompatible type for arg no. 2: Got “{Open} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapolygon.pas(459,11) Hint: Found declaration: FillPolyAliased(TBGRACustomBitmap;{Open} Array Of TPointF;TBGRAPixel;Boolean;Boolean;TDrawMode);
bgracanvas2d.pas(947,25) Error: function header doesn’t match any method of this class “FillStrokePoly(const {Open} Array Of TPointF;Boolean);”
bgracanvas2d.pas(126,15) Error: Found declaration: FillStrokePoly(const {Open} Array Of TPointF;Boolean);
bgracanvas2d.pas(966,28) Error: Incompatible type for arg no. 1: Got “{Open} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapolygon.pas(638,33) Hint: Found declaration: AddPolygon(const {Open} Array Of TPointF;IBGRAScanner);
bgrapolygon.pas(631,33) Hint: Found declaration: AddPolygon(const {Open} Array Of TPointF;TBGRAPixel);
bgracanvas2d.pas(974,32) Error: Incompatible type for arg no. 1: Got “{Open} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapolygon.pas(638,33) Hint: Found declaration: AddPolygon(const {Open} Array Of TPointF;IBGRAScanner);
bgrapolygon.pas(631,33) Hint: Found declaration: AddPolygon(const {Open} Array Of TPointF;TBGRAPixel);
bgracanvas2d.pas(976,32) Error: Incompatible type for arg no. 1: Got “{Open} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapolygon.pas(638,33) Hint: Found declaration: AddPolygon(const {Open} Array Of TPointF;IBGRAScanner);
bgrapolygon.pas(631,33) Hint: Found declaration: AddPolygon(const {Open} Array Of TPointF;TBGRAPixel);
bgracanvas2d.pas(979,72) Error: Incompatible type for arg no. 2: Got “TBGRAPixel”, expected “IBGRAScanner”
bgrapolygon.pas(638,33) Hint: Found declaration: AddPolygon(const {Open} Array Of TPointF;IBGRAScanner);
bgrapolygon.pas(631,33) Hint: Found declaration: AddPolygon(const {Open} Array Of TPointF;TBGRAPixel);
bgracanvas2d.pas(984,48) Error: Incompatible type for arg no. 1: Got “{Open} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapen.pas(761,10) Hint: Found declaration: ComputeWidePolylinePoints(const {Open} Array Of TPointF;Single;TBGRAPixel;TFPPenEndCap;TFPPenJoinStyle;const TBGRAPenStyle;TBGRAPolyLineOptions;Single=”2″;TComputeArrowHeadProc=”nil”;Single=”0″;TComputeArrowHeadProc=”nil”;Single=”0″):{Dynamic} Array Of TP
bgracanvas2d.pas(993,31) Error: Incompatible type for arg no. 1: Got “{Dynamic} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapolygon.pas(638,33) Hint: Found declaration: AddPolygon(const {Open} Array Of TPointF;IBGRAScanner);
bgrapolygon.pas(631,33) Hint: Found declaration: AddPolygon(const {Open} Array Of TPointF;TBGRAPixel);
bgracanvas2d.pas(1000,76) Error: Incompatible type for arg no. 2: Got “TBGRAPixel”, expected “IBGRAScanner”
bgrapolygon.pas(638,33) Hint: Found declaration: AddPolygon(const {Open} Array Of TPointF;IBGRAScanner);
bgrapolygon.pas(631,33) Hint: Found declaration: AddPolygon(const {Open} Array Of TPointF;TBGRAPixel);
bgracanvas2d.pas(1002,33) Error: Incompatible type for arg no. 1: Got “{Dynamic} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapolygon.pas(638,33) Hint: Found declaration: AddPolygon(const {Open} Array Of TPointF;IBGRAScanner);
bgrapolygon.pas(631,33) Hint: Found declaration: AddPolygon(const {Open} Array Of TPointF;TBGRAPixel);
bgracanvas2d.pas(1004,48) Error: Incompatible type for arg no. 2: Got “{Dynamic} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgracanvas2d.pas(141,15) Hint: Found declaration: DrawShadow(const {Open} Array Of TPointF;const {Open} Array Of TPointF);
bgracanvas2d.pas(1006,40) Error: Incompatible type for arg no. 1: Got “{Open} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgracanvas2d.pas(141,15) Hint: Found declaration: DrawShadow(const {Open} Array Of TPointF;const {Open} Array Of TPointF);
bgracanvas2d.pas(1091,25) Error: function header doesn’t match any method of this class “SetShadowOffset(const TPointF);”
bgracanvas2d.pas(134,15) Error: Found declaration: SetShadowOffset(const TPointF);
bgracanvas2d.pas(1128,25) Error: function header doesn’t match any method of this class “StrokePoly(const {Open} Array Of TPointF);”
bgracanvas2d.pas(140,15) Error: Found declaration: StrokePoly(const {Open} Array Of TPointF);
bgracanvas2d.pas(1135,46) Error: Incompatible type for arg no. 1: Got “{Open} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapen.pas(761,10) Hint: Found declaration: ComputeWidePolylinePoints(const {Open} Array Of TPointF;Single;TBGRAPixel;TFPPenEndCap;TFPPenJoinStyle;const TBGRAPenStyle;TBGRAPolyLineOptions;Single=”2″;TComputeArrowHeadProc=”nil”;Single=”0″;TComputeArrowHeadProc=”nil”;Single=”0″):{Dynamic} Array Of TP
bgracanvas2d.pas(1138,39) Error: Incompatible type for arg no. 1: Got “{Dynamic} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgracanvas2d.pas(141,15) Hint: Found declaration: DrawShadow(const {Open} Array Of TPointF;const {Open} Array Of TPointF);
bgracanvas2d.pas(1146,63) Error: Incompatible type for arg no. 2: Got “{Dynamic} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapolygon.pas(498,11) Hint: Found declaration: FillPolyAntialiasWithTexture(TBGRACustomBitmap;{Open} Array Of TPointF;IBGRAScanner;Boolean;Boolean=”FALSE”);
bgracanvas2d.pas(1148,61) Error: Incompatible type for arg no. 2: Got “{Dynamic} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapolygon.pas(472,11) Hint: Found declaration: FillPolyAliasedWithTexture(TBGRACustomBitmap;{Open} Array Of TPointF;IBGRAScanner;Boolean;TDrawMode);
bgracanvas2d.pas(1158,54) Error: Incompatible type for arg no. 2: Got “{Dynamic} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapolygon.pas(485,11) Hint: Found declaration: FillPolyAntialias(TBGRACustomBitmap;{Open} Array Of TPointF;TBGRAPixel;Boolean;Boolean;Boolean=”FALSE”);
bgracanvas2d.pas(1160,52) Error: Incompatible type for arg no. 2: Got “{Dynamic} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapolygon.pas(459,11) Hint: Found declaration: FillPolyAliased(TBGRACustomBitmap;{Open} Array Of TPointF;TBGRAPixel;Boolean;Boolean;TDrawMode);
bgracanvas2d.pas(1165,65) Error: Incompatible type for arg no. 2: Got “{Dynamic} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapolygon.pas(498,11) Hint: Found declaration: FillPolyAntialiasWithTexture(TBGRACustomBitmap;{Open} Array Of TPointF;IBGRAScanner;Boolean;Boolean=”FALSE”);
bgracanvas2d.pas(1167,63) Error: Incompatible type for arg no. 2: Got “{Dynamic} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapolygon.pas(472,11) Hint: Found declaration: FillPolyAliasedWithTexture(TBGRACustomBitmap;{Open} Array Of TPointF;IBGRAScanner;Boolean;TDrawMode);
bgracanvas2d.pas(1172,25) Error: function header doesn’t match any method of this class “DrawShadow(const {Open} Array Of TPointF;const {Open} Array Of TPointF);”
bgracanvas2d.pas(141,15) Error: Found declaration: DrawShadow(const {Open} Array Of TPointF;const {Open} Array Of TPointF);
bgracanvas2d.pas(1185,29) Error: Incompatible type for arg no. 1: Got “TYPES.TPointF”, expected “BGRABITMAPTYPES.TPointF”
geometrytypes.inc(797,10) Hint: Found declaration: isEmptyPointF(const TPointF):Boolean;
bgracanvas2d.pas(1203,13) Error: Incompatible types: got “BGRABITMAPTYPES.TPointF” expected “TYPES.TPointF”
bgracanvas2d.pas(1224,15) Error: Incompatible types: got “BGRABITMAPTYPES.TPointF” expected “TYPES.TPointF”
bgracanvas2d.pas(1233,51) Error: Incompatible type for arg no. 2: Got “TBGRAPixel”, expected “IBGRAScanner”
Compile package pascalscript 0.0.0.1: Aborted
Compile package IDEIntf 1.0: Aborted
Compile package zparsesql 7.2: Success
Compile package zdbc 7.2: Aborted, Warnings: 4
ZDbcCache.pas(3224,54) Warning: Symbol “PBOOLEAN” is deprecated
ZDbcCache.pas(3237,56) Warning: Symbol “PBOOLEAN” is deprecated
ZDbcCache.pas(4641,54) Warning: Symbol “PBOOLEAN” is deprecated
ZDbcCache.pas(4654,56) Warning: Symbol “PBOOLEAN” is deprecated

I am running Windows 10.

Any suggestions?

Reply
1. Fabio Luis Girardi says:
  
  Tuesday March 7th, 2017 at 10:59 AM
  
  Hi Robin!
  
  What’s the source of your PascalSCADA? Download? SVN?
  
  Reply
robin says:

Tuesday March 7th, 2017 at 11:03 AM

Hi,

Thank you for quick reply 🙂

i downloaded pascalscada_0.7.3_20160726.tar

Best regards

Reply
1. Fabio Luis Girardi says:
  
  Tuesday March 7th, 2017 at 07:00 PM
  
  Hi Robin!
  
  See my Reply to @Goran
  
  Test and report things that goes wrong.
  
  Thanks by your feedback!
  
  Reply
Goran says:

Tuesday March 7th, 2017 at 05:43 PM

I have the similar errors. I install lazarus-1.6.4-fpc-3.0.2-win32.exe and pascalscada_0.7.3_20160726.tar.bz2 on windows XP sp2 and try the same files on windows 10 and I got the same errors:

Compile package BGRABitmapPack 8.8.4: Exit code 1, Errors: 50, Hints: 38
bgracanvas2d.pas(370,21) Error: Operator is not overloaded: “TPointF” + “TPointF”
bgracanvas2d.pas(371,21) Error: Operator is not overloaded: “TPointF” + “TPointF”
bgracanvas2d.pas(386,34) Error: Incompatible type for arg no. 3: Got “TYPES.TPointF”, expected “BGRABITMAPTYPES.TPointF”
bgratransform.pas(872,38) Hint: Found declaration: Fit(TPointF;TPointF;TPointF);
bgracanvas2d.pas(446,71) Error: Incompatible type for arg no. 4: Got “TYPES.TPointF”, expected “BGRABITMAPTYPES.TPointF”
bgragradientscanner.pas(1077,34) Hint: Found declaration: constructor Create(TBGRACustomGradient;TGradientType;TPointF;TPointF;Boolean=”FALSE”;Boolean=”FALSE”);
bgragradientscanner.pas(1045,34) Hint: Found declaration: constructor Create(TBGRAPixel;TBGRAPixel;TGradientType;TPointF;TPointF;Boolean=”TRUE”;Boolean=”FALSE”);
bgracanvas2d.pas(451,9) Error: Incompatible types: got “BGRABITMAPTYPES.TPointF” expected “TYPES.TPointF”
bgracanvas2d.pas(452,9) Error: Incompatible types: got “BGRABITMAPTYPES.TPointF” expected “TYPES.TPointF”
bgracanvas2d.pas(665,24) Error: function header doesn’t match any method of this class “GetShadowOffset:;”
bgracanvas2d.pas(109,14) Error: Found declaration: GetShadowOffset:;
bgracanvas2d.pas(667,13) Error: Incompatible types: got “BGRABITMAPTYPES.TPointF” expected “TYPES.TPointF”
bgracanvas2d.pas(900,25) Error: function header doesn’t match any method of this class “FillPoly(const {Open} Array Of TPointF);”
bgracanvas2d.pas(125,15) Error: Found declaration: FillPoly(const {Open} Array Of TPointF);
bgracanvas2d.pas(905,38) Error: Incompatible type for arg no. 1: Got “{Open} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgracanvas2d.pas(141,15) Hint: Found declaration: DrawShadow(const {Open} Array Of TPointF;const {Open} Array Of TPointF);
bgracanvas2d.pas(913,63) Error: Incompatible type for arg no. 2: Got “{Open} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapolygon.pas(498,11) Hint: Found declaration: FillPolyAntialiasWithTexture(TBGRACustomBitmap;{Open} Array Of TPointF;IBGRAScanner;Boolean;Boolean=”FALSE”);
bgracanvas2d.pas(915,61) Error: Incompatible type for arg no. 2: Got “{Open} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapolygon.pas(472,11) Hint: Found declaration: FillPolyAliasedWithTexture(TBGRACustomBitmap;{Open} Array Of TPointF;IBGRAScanner;Boolean;TDrawMode);
bgracanvas2d.pas(925,67) Error: Incompatible type for arg no. 2: Got “{Open} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapolygon.pas(498,11) Hint: Found declaration: FillPolyAntialiasWithTexture(TBGRACustomBitmap;{Open} Array Of TPointF;IBGRAScanner;Boolean;Boolean=”FALSE”);
bgracanvas2d.pas(927,65) Error: Incompatible type for arg no. 2: Got “{Open} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapolygon.pas(472,11) Hint: Found declaration: FillPolyAliasedWithTexture(TBGRACustomBitmap;{Open} Array Of TPointF;IBGRAScanner;Boolean;TDrawMode);
bgracanvas2d.pas(932,67) Error: Incompatible type for arg no. 2: Got “{Open} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapolygon.pas(498,11) Hint: Found declaration: FillPolyAntialiasWithTexture(TBGRACustomBitmap;{Open} Array Of TPointF;IBGRAScanner;Boolean;Boolean=”FALSE”);
bgracanvas2d.pas(934,65) Error: Incompatible type for arg no. 2: Got “{Open} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapolygon.pas(472,11) Hint: Found declaration: FillPolyAliasedWithTexture(TBGRACustomBitmap;{Open} Array Of TPointF;IBGRAScanner;Boolean;TDrawMode);
bgracanvas2d.pas(940,54) Error: Incompatible type for arg no. 2: Got “{Open} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapolygon.pas(485,11) Hint: Found declaration: FillPolyAntialias(TBGRACustomBitmap;{Open} Array Of TPointF;TBGRAPixel;Boolean;Boolean;Boolean=”FALSE”);
bgracanvas2d.pas(942,52) Error: Incompatible type for arg no. 2: Got “{Open} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapolygon.pas(459,11) Hint: Found declaration: FillPolyAliased(TBGRACustomBitmap;{Open} Array Of TPointF;TBGRAPixel;Boolean;Boolean;TDrawMode);
bgracanvas2d.pas(947,25) Error: function header doesn’t match any method of this class “FillStrokePoly(const {Open} Array Of TPointF;Boolean);”
bgracanvas2d.pas(126,15) Error: Found declaration: FillStrokePoly(const {Open} Array Of TPointF;Boolean);
bgracanvas2d.pas(966,28) Error: Incompatible type for arg no. 1: Got “{Open} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapolygon.pas(638,33) Hint: Found declaration: AddPolygon(const {Open} Array Of TPointF;IBGRAScanner);
bgrapolygon.pas(631,33) Hint: Found declaration: AddPolygon(const {Open} Array Of TPointF;TBGRAPixel);
bgracanvas2d.pas(974,32) Error: Incompatible type for arg no. 1: Got “{Open} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapolygon.pas(638,33) Hint: Found declaration: AddPolygon(const {Open} Array Of TPointF;IBGRAScanner);
bgrapolygon.pas(631,33) Hint: Found declaration: AddPolygon(const {Open} Array Of TPointF;TBGRAPixel);
bgracanvas2d.pas(976,32) Error: Incompatible type for arg no. 1: Got “{Open} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapolygon.pas(638,33) Hint: Found declaration: AddPolygon(const {Open} Array Of TPointF;IBGRAScanner);
bgrapolygon.pas(631,33) Hint: Found declaration: AddPolygon(const {Open} Array Of TPointF;TBGRAPixel);
bgracanvas2d.pas(979,72) Error: Incompatible type for arg no. 2: Got “TBGRAPixel”, expected “IBGRAScanner”
bgrapolygon.pas(638,33) Hint: Found declaration: AddPolygon(const {Open} Array Of TPointF;IBGRAScanner);
bgrapolygon.pas(631,33) Hint: Found declaration: AddPolygon(const {Open} Array Of TPointF;TBGRAPixel);
bgracanvas2d.pas(984,48) Error: Incompatible type for arg no. 1: Got “{Open} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapen.pas(761,10) Hint: Found declaration: ComputeWidePolylinePoints(const {Open} Array Of TPointF;Single;TBGRAPixel;TFPPenEndCap;TFPPenJoinStyle;const TBGRAPenStyle;TBGRAPolyLineOptions;Single=”2″;TComputeArrowHeadProc=”nil”;Single=”0″;TComputeArrowHeadProc=”nil”;Single=”0″):{Dynamic} Array Of TP
bgracanvas2d.pas(993,31) Error: Incompatible type for arg no. 1: Got “{Dynamic} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapolygon.pas(638,33) Hint: Found declaration: AddPolygon(const {Open} Array Of TPointF;IBGRAScanner);
bgrapolygon.pas(631,33) Hint: Found declaration: AddPolygon(const {Open} Array Of TPointF;TBGRAPixel);
bgracanvas2d.pas(1000,76) Error: Incompatible type for arg no. 2: Got “TBGRAPixel”, expected “IBGRAScanner”
bgrapolygon.pas(638,33) Hint: Found declaration: AddPolygon(const {Open} Array Of TPointF;IBGRAScanner);
bgrapolygon.pas(631,33) Hint: Found declaration: AddPolygon(const {Open} Array Of TPointF;TBGRAPixel);
bgracanvas2d.pas(1002,33) Error: Incompatible type for arg no. 1: Got “{Dynamic} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapolygon.pas(638,33) Hint: Found declaration: AddPolygon(const {Open} Array Of TPointF;IBGRAScanner);
bgrapolygon.pas(631,33) Hint: Found declaration: AddPolygon(const {Open} Array Of TPointF;TBGRAPixel);
bgracanvas2d.pas(1004,48) Error: Incompatible type for arg no. 2: Got “{Dynamic} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgracanvas2d.pas(141,15) Hint: Found declaration: DrawShadow(const {Open} Array Of TPointF;const {Open} Array Of TPointF);
bgracanvas2d.pas(1006,40) Error: Incompatible type for arg no. 1: Got “{Open} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgracanvas2d.pas(141,15) Hint: Found declaration: DrawShadow(const {Open} Array Of TPointF;const {Open} Array Of TPointF);
bgracanvas2d.pas(1091,25) Error: function header doesn’t match any method of this class “SetShadowOffset(const TPointF);”
bgracanvas2d.pas(134,15) Error: Found declaration: SetShadowOffset(const TPointF);
bgracanvas2d.pas(1128,25) Error: function header doesn’t match any method of this class “StrokePoly(const {Open} Array Of TPointF);”
bgracanvas2d.pas(140,15) Error: Found declaration: StrokePoly(const {Open} Array Of TPointF);
bgracanvas2d.pas(1135,46) Error: Incompatible type for arg no. 1: Got “{Open} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapen.pas(761,10) Hint: Found declaration: ComputeWidePolylinePoints(const {Open} Array Of TPointF;Single;TBGRAPixel;TFPPenEndCap;TFPPenJoinStyle;const TBGRAPenStyle;TBGRAPolyLineOptions;Single=”2″;TComputeArrowHeadProc=”nil”;Single=”0″;TComputeArrowHeadProc=”nil”;Single=”0″):{Dynamic} Array Of TP
bgracanvas2d.pas(1138,39) Error: Incompatible type for arg no. 1: Got “{Dynamic} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgracanvas2d.pas(141,15) Hint: Found declaration: DrawShadow(const {Open} Array Of TPointF;const {Open} Array Of TPointF);
bgracanvas2d.pas(1146,63) Error: Incompatible type for arg no. 2: Got “{Dynamic} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapolygon.pas(498,11) Hint: Found declaration: FillPolyAntialiasWithTexture(TBGRACustomBitmap;{Open} Array Of TPointF;IBGRAScanner;Boolean;Boolean=”FALSE”);
bgracanvas2d.pas(1148,61) Error: Incompatible type for arg no. 2: Got “{Dynamic} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapolygon.pas(472,11) Hint: Found declaration: FillPolyAliasedWithTexture(TBGRACustomBitmap;{Open} Array Of TPointF;IBGRAScanner;Boolean;TDrawMode);
bgracanvas2d.pas(1158,54) Error: Incompatible type for arg no. 2: Got “{Dynamic} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapolygon.pas(485,11) Hint: Found declaration: FillPolyAntialias(TBGRACustomBitmap;{Open} Array Of TPointF;TBGRAPixel;Boolean;Boolean;Boolean=”FALSE”);
bgracanvas2d.pas(1160,52) Error: Incompatible type for arg no. 2: Got “{Dynamic} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapolygon.pas(459,11) Hint: Found declaration: FillPolyAliased(TBGRACustomBitmap;{Open} Array Of TPointF;TBGRAPixel;Boolean;Boolean;TDrawMode);
bgracanvas2d.pas(1165,65) Error: Incompatible type for arg no. 2: Got “{Dynamic} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapolygon.pas(498,11) Hint: Found declaration: FillPolyAntialiasWithTexture(TBGRACustomBitmap;{Open} Array Of TPointF;IBGRAScanner;Boolean;Boolean=”FALSE”);
bgracanvas2d.pas(1167,63) Error: Incompatible type for arg no. 2: Got “{Dynamic} Array Of TPointF”, expected “{Open} Array Of TPointF”
bgrapolygon.pas(472,11) Hint: Found declaration: FillPolyAliasedWithTexture(TBGRACustomBitmap;{Open} Array Of TPointF;IBGRAScanner;Boolean;TDrawMode);
bgracanvas2d.pas(1172,25) Error: function header doesn’t match any method of this class “DrawShadow(const {Open} Array Of TPointF;const {Open} Array Of TPointF);”
bgracanvas2d.pas(141,15) Error: Found declaration: DrawShadow(const {Open} Array Of TPointF;const {Open} Array Of TPointF);
bgracanvas2d.pas(1185,29) Error: Incompatible type for arg no. 1: Got “TYPES.TPointF”, expected “BGRABITMAPTYPES.TPointF”
geometrytypes.inc(797,10) Hint: Found declaration: isEmptyPointF(const TPointF):Boolean;
bgracanvas2d.pas(1203,13) Error: Incompatible types: got “BGRABITMAPTYPES.TPointF” expected “TYPES.TPointF”
bgracanvas2d.pas(1224,15) Error: Incompatible types: got “BGRABITMAPTYPES.TPointF” expected “TYPES.TPointF”
bgracanvas2d.pas(1233,51) Error: Incompatible type for arg no. 2: Got “TBGRAPixel”, expected “IBGRAScanner”
Compile package lhelpcontrolpkg 0.2: Aborted, Warnings: 1
lhelpcontrol.pas(238,18) Warning: Symbol “CommandLine” is deprecated

any idea?

Reply
1. Fabio Luis Girardi says:
  
  Tuesday March 7th, 2017 at 06:56 PM
  
  I think that this is caused because I used development versions of BGRABitmap and BGRAControls. Now I use stable versions of these libs. I’ll publish a new snapshot today. I did some tests with Lazarus 1.6.0 + FPC 3.0.0 Win32 and everything appears to be OK.
  
  Please test it. The updated snapshot file name is pascalscada_0.7.3_20170307.tar.bz2
  
  I’m uploading it now.
  
  Reply
  1. Goran says:
    
    Wednesday March 8th, 2017 at 05:09 AM
    
    it works now on win10
    thx
    
    Reply
robin says:

Wednesday March 8th, 2017 at 04:35 AM

Hi Fabio,

Thank you.

It is working now 🙂

best regards
Robin

Reply
robin says:

Wednesday March 8th, 2017 at 04:41 AM

Do you have any tutorial/manual on how to do alarming with this packages?

I would really like to see how this is done with modbus tcp.

Best regards
Robin

Reply
Fabio says:

Wednesday March 8th, 2017 at 08:55 AM

This should be done via source code because alarming is missing feature in PascalSCADA yet, because I’m not a skilled developer across multiple databases. So, write these components is a big problem to me.

But in my applications, I use a TPLCBlock to read all alarms together. The write on database occurs on event OnValueChange. On this event handler I declare a array of strings, where each array element represents the message of each alarm of TPLCBLock. Each active alarm receive a identifier, on this case it’s the auto increment key of the alarms database table and it’s stored on the application during all the life of this alarm. When a alarm is finished, I use this alarm identifier to finish it on database. After finish it on database, the value 0 (zero) is assigned to the variable that stores the alarm identifier on application.

I’ll write a example showing how implement this.

Reply
1. robin says:
  
  Thursday March 9th, 2017 at 10:26 AM
  
  Dear Fabio,
  
  Thank you for good information!! 🙂
  
  I would like to see the example on how to implement this. Please let me know when you have an example ready 🙂
  
  I really like PascalScada, you have done a great job.
  
  Reply
Fabio Luis Girardi says:

Tuesday March 14th, 2017 at 11:40 PM

I finished a small example of how implement a simple alarming system.
You can take a look at:

https://sourceforge.net/p/pascalscada/code/HEAD/tree/trunk/examples/laz_alarming/

Reply
1. robin says:
  
  Wednesday March 15th, 2017 at 12:01 PM
  
  Hi Fabio,
  
  Thank you for the example 🙂
  Looks great!
  
  I managed to change it to modbus tcp and mysql.
  Now i need to figure out how to implement an acknowledge to the PLC. Keeping the alarm in the alarm list until it is acknowledged and normal status.
  
  Best regards
  
  Reply
Fabio Luis Girardi says:

Wednesday March 15th, 2017 at 07:28 PM

To keep alarms in alarm list while it’s not acknowledge is simple, change the where on active alarm list from:

WHERE dt_finished IS NULL;

To

WHERE dt_finished IS NULL OR dt_ack IS NULL;

Reply
1. robin says:
  
  Thursday March 16th, 2017 at 07:25 AM
  
  Hi,
  
  Thank you!
  Yes, i figured out that 🙂
  
  But how can I at the same time update the ack column for the alarm in the database send an acknowledge value to a certain holding register (same index as alarm but in a higher range) in the PLC by selecting one alarm from the DBGrid and pressing an ACK button?
  
  What are the limitations on TPLCBlock? How many arrays can I have in one TPLCBlock? And how many TPLCBlocks can i have in my project before it gets to slow or crashes?
  
  Best regards
  
  Reply

PascalSCADA

How to install PascalSCADA

Introduction

What I need before start?

Installing…

29 thoughts on “How to install PascalSCADA”

Leave a Reply Cancel reply

HMI/SCADA for developers