PascalSCADA - HMI/SCADA for developers

PascalSCADA 0.7.3

2012-01-31T00:13:00.000-03:00

PascalSCADA 0.7.3 está chegando. As principais mudanças são o suporte a Delphi 2009+ (2009, 2010, XE and XE2, somente 32 bits), melhorias de desempenho e suporte inicial a gerenciamento de usuários, incluindo gerenciamento de usuários integrado ao SIMATIC WinCC.

In english

PascalSCADA 0.7.3 is coming. The main goal is the Delphi 2009+ support (2009, 2010, XE and XE2, only 32 bits), performance improvements and the initial support for user management, including a user management integrated with SIMATIC WinCC.

WinCC User Management integration

2012-01-05T01:27:00.000-03:00

Foi finalizado esta noite, o componente que permite ao PascalSCADA validar usuários usando o sistema de gerenciamento de usuários do Siemens WinCC. Para isso, várias melhorias no sistema de gerenciamento interno de usuários do PascalSCADA foram feitas.

Alguns de vocês pode perguntar: Mas para que isto serve? Explico: Em alguns casos, é necessário trabalhar com uma aplicação PascalSCADA integrada a uma aplicação do WinCC (meu caso atualmente). Então não faz sentido ter dois gerenciamentos de usuários distintos. Então, para simplificar, cadastre as permissões e usuários no WinCC e faça uso destes na sua aplicação PascalSCADA.

Ainda faltam alguns detalhes, como algumas traduções e acertos para funcionar com Delphi. Conto com o feedback de vocês.

In english

Has been finished this night, the component that allows PascalSCADA check the user permissions using the Siemens WinCC User Management. To do that, a lot of improvements on the internal user management of PascalSCADA has been made.

Somebody can ask: What's the utility of this? I'll explain: in certain circumstances, you may need work with a PascalSCADA application integrated with a WinCC application (my case currently). Makes no sense have two user management separately. So, to simplify, add users and authorizations on user manager of WinCC and use it on your PascalSCADA application.

Some issues are not solved yet, like translations and Delphi support. I hope your feedback!

Final de ano/End of year

2011-11-28T21:23:00.001-03:00

Peço desculpas a todos que acompanham o projeto PascalSCADA de uma forma ou outra. Sei que ando relaxado e demorando muito para responder, mas o volume de trabalho que acumulou para este final de ano está me tirando o sono. Aviso que o projeto não esta parado, está apenas mais devagar. Estou tendo que focar por necessidade no recurso de banco de dados, mais especificamente na parte de gerenciamento de usuários. Porem outros recursos estão em andamento, como suporte a Windows CE (servirá para muitas IHM's disponíveis no mercado). Fora isso, tenho recebido mensagens orientando uma implementação do protocolo Profibus (nativo) e OPC-UA.

In English

I apologize to everyone that follow the project PascalSCADA. I'm very relaxed and slow to respond, but the work load this end of year make me lose sleep (I don't know how write this :) ). I'm writing this to tell that the project is walking, slow but it walks. I'm focused on develop on database piece of PascalSCADA, more specifically on User Management. However others features has been developed, like Windows CE support (PascalSCADA will be enabled to develop apps for a lot of HMI's available on market). Together, I'm receiving messages guiding a implementation of a Profibus and OPC-UA drivers.

ZeosLib SVN

2011-10-10T10:19:00.002-03:00

Um aviso aos desenvolvedores que utilizam ZeosLib: o repositorio SVN hospedado em

svn://zeos.firmos.at/zeos
mudou para
https://zeoslib.svn.sourceforge.net/svnroot/zeoslib

Fica a dica para desavisados como eu.

In english

A notification to developers that uses ZeosLib: The SVN repository which was hosted at

svn://zeos.firmos.at/zeos
now is hosted at
https://zeoslib.svn.sourceforge.net/svnroot/zeoslib

Windows CE: primeiros passos/first steps

2011-09-19T09:23:00.000-03:00

Em conjunto com Andrea Buono, a primeira versão do PascalSCADA para Windows CE está quase pronto. Foram identificados dois bugs que impediam programas multi-tarefas (inclui-se o PascalSCADA) funcionarem nesta plataforma. Enviei duas correções aos projetos Lazarus e FreePascal, e após estas serem feitas, o PascalSCADA rodou perfeitamente nesta plataforma.Agora, com mais alguns bugfixes, a versão 0.7.3 sairá com suporte a esta plataforma.

In english

Together with Andrea Buono, the first version of PascalSCADA that support Windows CE is coming. Has been identified two bugs that breaks multi-threading applications (including the PascalSCADA) on this platform. I sent two patches to projects Lazarus and FreePascal, and after this patches are applied, the PascalSCADA runs fine on this platform. With some more bugfixes, the version 0.7.3 will come with support to this platform.

PascalSCADA 0.7.2 liberado/released

2011-08-06T10:30:00.002-03:00

O PascalSCADA 0.7.2 foi liberado. Esta é apenas uma versão de correção de alguns bugs, entre os quais podemos citar:

Congelamento de aplicações em sistemas Windows Vista e 7 usando porta serial.
Melhorias no gerenciamento de eventos de conexão.
Correções no driver ISOTCP que agora pode gerenciar tags com endereço ou tamanho maiores que 8191 bytes
Tradução da documentação para o inglês.
Inclusão da ZeosLib 7.0 como camada de banco de dados.
Alterações na instalação do PascalSCADA para Delphi para poder incluir a ZeosLib.

As instruções de como instalar o PascalSCADA em http://www.pascalscada.com

Para fazer o download do PascalSCADA, clique aqui.

In english

PascalSCADA 0.7.2 is released. It's a bug fix release, that fixes the following issues:

Applications using the Serial port under Windows Vista/7 can freeze.
Improvements on connection event handling.
ISOTCP now can handle tags with address or size bigger than 8191 bytes.
Translation of class documentation to english.
Added the ZeosLib 7.0 as database layer.
Changes in PascalSCADA package for Delphi to include ZeosLib.

The instructions of how install PascalSCADA at http://www.pascalscada.com.

To download the PascalSCADA, click here.

PascalSCADA 0.8 will break the compatibility with older versions

2011-07-12T08:22:00.000-03:00

Recently, I started a application using the PascalSCADA, that will uses a lot of tags (more than 10000). To make me sad, the current implementation of PascalSCADA, where all tags are descendants of TComponent, can't be handled fastest on Lazarus and Delphi. Inserting 1000 tags, takes 52 seconds on my laptop, and 4000 tags, freezes Lazarus for at least 15 minutes.

So, to solve this, I'm studying a way to handle a lot of tags on any IDE. And all solutions will change the current tag behavior on existent applications, breaking the compatibility with older applications.

Translation status

2011-06-22T11:37:00.001-03:00

In english only

Somebody can tell me if can understand my translation of PascalSCADA?

I didn't receive any feedback yet...

Open Source implementation of Profibus/Profinet?

2011-06-20T16:17:00.001-03:00

Estava procurando por projetos Profibus/Profinet Open Source. Para minha tristeza, encontrei os seguintes links (em inglês):

http://pbmaster.org/en/index.pl?action=patents

e

http://www.engineeringtalk.com/news/pro/pro101.html

Triste não?

In english

I was searching about Profibus/Profinet open source projects on web. I found some links that made me sad (english only):

http://pbmaster.org/en/index.pl?action=patents

AND

http://www.engineeringtalk.com/news/pro/pro101.html

Sad... no?

A tradução começou/The translation was started

2011-05-30T19:35:00.000-03:00

A tradução do PascalSCADA para inglês começou! Todos os comentários do código fonte vão ficar assim

{$IFDEF PORTUGUES}
//: Comentário em português
{$ELSE}
//: Comentário em inglês
{$ENDIF}

Escolhi deixar o comentário em inglês próximo ao código, pois o inglês consegue chegar a um número maior de pessoas.

Este padrão também serve para gerar a documentação das classes em ambas línguas.

Se você tem interesse em ajudar na tradução, envie os códigos traduzidos para o e-mail fabio@pascalscada.com ou para https://sourceforge.net/apps/mantisbt/pascalscada/view.php?id=38

In english

The translation process of PascalSCADA has been started! All source code comments will be something like this:

{$IFDEF PORTUGUES}

//: Portuguese comment

{$ELSE}

//: English comment

{$ENDIF}

I put the comments in English near of the code because many people speaks English

This pattern will be used to generate the class documentation on both languages.

If are you interested in translate, send your translation to fabio@pascalscada.com or to https://sourceforge.net/apps/mantisbt/pascalscada/view.php?id=38

Chamado para suportar OPC/Request to support OPC

2011-05-26T11:01:00.003-03:00

Estou requisitando ajuda para suportar OPC-DA no PascalSCADA. Como o projeto visa manter suporte a múltiplas plataformas, estou pensando em portar as bibliotecas JInterop e Utgard (que funcionam em várias plataformas) para pascal. Se você tem interesse e conhece bem java e pascal, entre em contato comigo (fabio@pascalscada.com)!

Lembro mais uma vez, que daqui alguns dias o novo site do projeto PascalSCADA será o www.pascalscada.com (que está em construção ainda).

In english

I'm requesting help to support OPC-DA on PascalSCADA. As the target of PascalSCADA is keep the support to multiples platforms, I'm thinking to convert the libraries JInterop and Utgard (that works on multiples platforms) to pascal. If are you interested and knows java and pascal, please contact-me (fabio@pascalscada.com)!

Hint: in a few days, the new site of PascalSCADA project will be the www.pascalscada.com (under construction yet).

O novo site do PascalSCADA está chegando/New PascalSCADA website is comming

2011-05-07T10:23:00.000-03:00

O nova página do PascalSCADA está chegando. O futuro endereço será www.pascalscada.com. O que anda faltando é tempo para faze-lá :)

In english

The new home page of PascalSCADA is comming. The new address will be www.pascalscada.com. The unique thing that is missing is time to do it :)

Windows Vista deadlock

2011-04-25T10:57:00.000-03:00

Alguns dias atras, detectei que o PascalSCADA rodando sobre Windows Vista pode travar sem motivo aparente. Após algumas buscas descobri que ocorreram mudança no gerenciamento de tarefas desse sistema operacional ( http://en.wikipedia.org/wiki/Scheduling_(computing)#Windows ) o que pode ser a explicação para o problema. Uma correção será disponibilizada em breve.

In english

Some days ago, I detected that PascaSCADA running over Windows Vista can freeze without an explication. After searching on web, I discover that Windows Vista scheduler has changed ( http://en.wikipedia.org/wiki/Scheduling_(computing)#Windows ) that can be the origin of the issue. A fix will be available soon.

Um relato de uso do PascalSCADA - A usage story of the PascalSCADA

2011-04-06T16:46:00.000-03:00

Only in english:

"Application was created for visualisation and parameter changing of a gravimetric scale supplying the extruder. It is working with Siemens S7-224 xp over Modbus RTU via RS 485. Scale is using some unusual algorithms to work, so there's quite a few parameters to monitor and visualisation allows to follow them all, along with every step done by the machine. There is also recipies database included in SCADA program, made partially with Zeos library. Main constraint in designing a layout was for it to be as plain and simple as possible. Current state of the process can be observed graphicaly (every step, i.e. mixing, has its own animation) or with a "led panel". Application does some arithmetic calculations for PLC on few ocasions and is logging the data when parameters change. It was done using the version 0.6.4d of the PascalSCADA. I think and from what i've heard it's working without any problems."

Relato de Adam Kochan da Polônia - Story by Adam Kochan from Poland

Is not included on this story that the application was made on Lazarus 0.9.28 with FPC 2.2.4 over Windows XP SP3.

Notas para acessar S7-200 via ethernet/Notes to access a S7-200 via ethernet

2011-04-06T10:57:00.001-03:00

Se você está tentando acessar um S7-200 via ethernet (CP-243) com o PascalSCADA, aqui vão algumas dicas que repasso por experiência :

A controladora ethernet do S7-200 aparenta aceitar somente uma conexão na porta 102 (isotcp). Então se você tentar acessar de mais de uma máquina simultaneamente, somente um deles poderá trocar dados com o CLP.
Algumas vezes quando a conexão está sendo estabelecida, a controladora ethernet do CLP demora para responder ao primeiro pedido, ocasionando a perda da conexão da porta TCP. Então, quando a porta TCP for desconectada ou tiver um erro na sua abertura (usando os eventos presentes na porta TCPUDPPort), espere um tempo e mande ela reconectar em seguida. Isso até eu implementar uma rotina de reconexão automática na porta TCP.

In english

If are you trying to access an S7-200 via ethernet (CP-243) using the PascalSCADA, see some tips that I experienced:

The CP-243 of the S7-200 appears accept only one connection on the port 102 (isotcp). So, if you are trying access the PLC from more than one machine simultaneously, only one machine will exchange data with the PLC.
Sometimes when the connection is being estabilished, the CP-243 delays to reply the first request, losing the connection. So, when you detect a connection lost or a error when open the tcp/ip port (using the events present in TCPUPDPort), wait some time and active the TCP port again. This is necessary while I don't implement a automatic reconnection routine on the TCPUDPPort port.

Requisição de screenshots de aplicações/screenshots of applications

2011-03-25T11:49:00.000-03:00

Se você tem alguma aplicação desenvolvida com o PascalSCADA, por favor, envie algumas imagens de telas para mim com uma breve descrição da sua aplicação, pois estou montando uma apresentação do projeto. Meu e-mail é fluisgirardi aroba gmail ponto com. Obrigado!

In english

If you have some application developed using PascalSCADA, please, send-me some screenshots of your application to me with a small description of your application, because I'm creating a presentation of the project PascalSCADA. My e-mail is fluisgirardi at gmail dot com. Thanks!

Suporte a WindowsCE_arm - WindowsCE_arm support

2011-03-25T11:24:00.000-03:00

Nas últimas revisões que estão disponíveis no SVN, é possível rodar sua aplicação em dispositivos ARM rodando Windows CE. O detalhe é que ainda está muito instável e precisa de (muitas) melhorias. Se você quer testar, clique aqui para fazer download da versão do SVN. Outro detalhe é que suporte a porta serial ainda não está feito. Outro detalhe é que só fiz testes usando simuladores pois não tenho nenhum dispositivo para teste. Se encontrar problemas, por favor reporte os bugs aqui.

In english

On the latest revision that are available on the SVN, is possible run your application on ARM devices with Windows CE as operating system. But the problem is some instabilities and it needs (a lot of) improvements. If you want test, click here to download the latest SVN revision. Another thing that don't work yet, is the serial port, that isn't done. My tests are done using simulators. If you found bugs, please report here.

PascalSCADA 0.7.1 liberado/released

2011-03-10T23:28:00.000-03:00

Após alguns dias da liberação do PascalSCADA 0.7, uma nova versão foi liberada. O motivo é um problema que só aparece com quem usa o FPC 2.5.1 com sistema operacional Windows. Estes usuários não conseguem compilar o PascalSCADA 0.7 usando essa configuração. A versão 0.7.1 do PascalSCADA corrige esse problema. Ela inclui também a ferramenta para edição de estruturas usando o tag TPLCStruct. Para fazer download dessa nova versão clique aqui.

In english

Some days after the release of the PascalSCADA 0.7, a new version is released. Because of an configuration bug that appears only when PascalSCADA 0.7 is compiled on Windows with FPC 2.5.1 this version is broken with this configuration. The version 0.7.1 fixes this mistake. It includes too a structure editor for the tag TPLCStruct. To download it click here.

Notas para acessar o S7-1200/Notes to access an S7-1200

2011-03-09T09:23:00.000-03:00

Se você está tentando acessar um CLP da linha S7-1200 e está encontrando algumas dificuldades para acessar DB's, verifique se quando você cria o DB, a opção "Symbolic access only" está desmarcada. Quando um db é criado com essa opção, ele é tratado de maneira totalmente diferente pelo CLP (e pelos protocolos de comunicação).

In english

If are you trying to access an Siemens S7-1200 PLC and found some troubles to access DB's data, check if when you create the DB, the option "Symbolic access only" is unchecked. When a DB is created with this option checked, the PLC manages the DB's in a different way (and the communication protocols too).

PascalSCADA 0.7 liberado/released

2011-03-03T22:48:00.000-03:00

A versão 0.7 do PascalSCADA foi liberada. Entre mais de 20 correções, estão presentes nessa versão algumas caracteristicas que merecem destaque como:

Siemens ISOTCP driver plenamente funcional, incluindo o TagBuilder.
Nova rotina de atualização dos tags. A maneira antiga utilizava um temporizador por tag para atualizá-lo. Agora a thread de atualização lista todos os tags que devem ser atualizados e os atualiza parando o driver apenas uma vez, evitando varias trocas de contexto, melhorando a performance.
Duas propriedades foram duplicadas por causa que seus nomes estavam errados: RefreshTime irá se chamar ScanRate e PLCHack irá se chamar PLCRack. Esta versão terá ambas propriedades. Em uma próxima versão as propriedades com nomes errados vão ser removidas.
THMIControlDislocator, um componente para animar controles na janela, fazendo que estes se movam.
Dois novos tags: TPLCStruct e TPLCStructItem podem ser usados para mapear estruturas com tipos de dados heterogêneos na sua aplicação.

Clique aqui para ver a lista de correções ou clique aqui para fazer download da versão 0.7 do PascalSCADA.

In english:

PascalSCADA 0.7 is released. At least 20 bugs are fixed on this version and some features are added:

Siemens ISOTCP driver are working.
New scan routine. The oldest way uses timers in each tag to refresh it. Now the update scan thread lists all tags that must be updated and update it, avoiding a lot of context switch, improving the performace.
Two properties are duplicate because their names are wrong: RefreshTime will be called ScanRate and PLCHack will be called PLCRack. This version will have all properties. On a next release, the wrong properties will be removed.
THMIControlDislocator, a component to animate controls on window, moving it.
New tags: TPLCStruct and TPLCStructItem to map Siemens S7 structures on your application.

Click here to see the changelog or click here to download the PascalSCADA 0.7.

Pascal 0.6.4d liberado/released

2010-11-08T21:09:00.001-03:00

Foi liberado a alguns dias, a última versão antes da versão 0.7 do PascalSCADA. Esta é uma versão de correção de bugs. Ao todo 16 bugs foram corrigidos, alguns sendo falhas criticas que podem travar sua aplicação. Recursos foram aprimorados. Para baixar o PascalSCADA clique aqui. Para ver a lista de correções clique aqui.

A partir de agora, os exemplos e a documentação irão vir em arquivos separados dos fontes necessários para instalar o PascalSCADA na sua IDE favorita.

In English

Was released some days ago, the last version before the PascalSCADA 0.7. This is a bugfix release. Is fixed 16 bugs, some of this bugs can freeze your application. Some features has been improved. To download the PascalSCADA click here. To see the complete changelog, click here.

From now, examples and the documentation will come in separated package and you can download only the source files needed to install it on your favorite IDE.

Em viagem...

2010-11-05T00:06:00.000-03:00

Para quem mora em Brasilia e redondezas, estarei na cidade entre os dias 01/11/2010 e no mínimo até o 13/11/2010. Então se você está com algum problema ou quer simplesmente trocar ideias, essa é a hora.

In english

If you live in Brasilia or near of, I'll be in town between days 01/11/2010 and at least until 13/11/2010. So if you have some problem or simply want to exchange ideas, this is the time.

Como criar seu primeiro driver de protocolo/How create your fist protocol driver

2010-11-04T20:21:00.001-03:00

Goto English version

Antes de sair escrevendo códigos como um louco, vou repassar minha visão de driver de protocolo e como fiz a sua base.

Um driver de protocolo é o objeto gerencia os tags dentro de sua aplicação. Ele atualiza os tags de acordo com a sua taxa de atualização, organiza blocos e evita a duplicação de pedido de leituras dessas memórias. Sua organização interna pode variar de acordo com o protocolo, que pode oferecer leituras em bloco ou individualizadas por memória. Tudo isso feito em nome da performance.

Os tags no PascalSCADA, são cópias dos valores de uma outra área de memória gerenciada pelo driver. É através desta área interna que o driver gerencia a sua varredura. A organização dessa área de memória varia de acordo com a organização interna do equipamento. Um CLP fictício poderia ter uma área de registradores, entradas e saidas digitais todos de 8 bits, sendo este CLP com endereçamento simples de 1 a 255 (assim como o modbus). Todas as áreas suportam leitura/escritas em bloco (atualizar vários tags em uma unica requisição). A representação deste CLP ficaria da seguinte forma:

TDummyPLC = record
   PLCAddress:Byte;
   Inputs:TPLCMemoryManager; //este será o MemReadFunction=1
   Outputs:TPLCMemoryManager;   //este será o MemReadFunction=2
   Registers:TPLCMemoryManager; //este será o MemReadFunction=3
end;

TDummyPLCs = array of TDummyPLC;

Note que foi usado uma classe chamada TPLCMemoryManager. O que ela faz? Ela organiza memórias de uma mesma área em blocos contínuos do maior tamanho possível, evitando a duplicação de memórias e otimizando sua comunicação.  Ele tem duas propriedades que controlam todo o seu comportamento. São elas:

MaxHole: controla quantas memórias podem faltar para manter um único bloco. Digamos que sejam adicionadas as memórias endereços [1, 2, 5, 6]. Com MaxHole=0, irá ser formado dois blocos, o primeiro com as memórias [1, 2] e o segundo com as memórias [5, 6]. Mas com MaxHole=2, irá ser formado um único bloco com os endereços [1,2,3,4,5,6]. Note que os endereços 3 e 4 são adicionados para manter a continuidade do bloco, fazendo com que este seja lido com somente um pedido pelo driver de protocolo, melhorando a performance.
MaxBlockSize: Controla o tamanho máximo do blocos. Se for adicionar as [1,2,3,4,5,6] com MaxBlockSize=3, será formado dois blocos, o primeiro contendo os endereços [1,2,3] e o segundo com os endereços [4,5,6]. Esta propriedade é util em protocolos que limitam o tamanho máximo do pedido, como por exemplo o ModBus.

Note também que adicionei um comentário a respeito de cada área de memória. Eu escolhi a propriedade MemReadFunction do tag para escolher a área de dados (Entradas, Saidas e Registradores). O valor 1 identifica as Entradas digitais, 2 as Saidas digitais e 3 Identifica os Registradores. Mas onde efetivamente isso vai ser feito é um pouco mais adiante. Feito a estrutura que representa o seu equipamento, o primeiro passo é criar uma classe herdeira de TProtocolDriver. Só isso? Não. Os tags precisam ser adicionados ao scan do driver para serem lidos. E como faço isso? Simples. Sobrescreva o método:

procedure DoAddTag(TagObj:TTag; TagValid:Boolean);

Ele irá adicionar tags a área de memória gerenciada pelo driver. Faça as devidas verificações do tag (exemplo: faixa de endereços correta, tipo correto) nesse método e caso ele seja um tag válido, chame o método herdado com

  inherited DoAddTag(TagObj, TheTagIsValid);

para adicionar o tag na classe base para que este seja atualizado de acordo com a sua taxa de scan.

No nosso exemplo de CLP o método ficaria parecido com isso (vou tratar somente tags blocos)

procedure TDummyProtocol.DoAddTag(TagObj:TTag; TagValid:Boolean);
var
  Valido:Boolean;
  clp:Integer;
  clpencontrado:Boolean
begin
   Valido := false;
   clpencontrado := false;

   //como eu disse, será tratado somente tags bloco neste exemplo.
   if TagObj is TPLCBlock then
   with TagObj as TPLCBlock do
   begin

   //verifica o endereco do clp
   //se esta na faixa aceita (entre 1 e 255)
   //e se esta, procura para ver se
   //ele já não está cadastrado na area de memória
   //gerenciada pelo driver.
   if PLCStation in [1..255] then
   for clp := 0 to High(FCLPs) do
   if FCLPs[clp].PLCAddress=PLCStation then
   begin
   clpencontrado:=true
   break;
   end;

   //se não encontrou o CLP adiciona ele.
   if not clpencontrado then
   begin
   clp:=Length(FCLPs);
   SetLength(FCLPs,clp+1);
   FCLPs[clp].PLCAddress:=PLCStation;
     FCLPs[clp].Inputs:=TPLCMemoryManager.Create;
     FCLPs[clp].Outputs:=TPLCMemoryManager.Create;
     FCLPs[clp].Registers:=TPLCMemoryManager.Create;
     clpencontrado := true;
   end;

   //verifica o tag está valido
   //(associado com alguma área)
     if clpencontrado and (MemReadFunction in [1..3]) then
   Valido:=true;

   //adiciona o tag a area de memoria gerenciada pelo
   //driver de protocolo
   if Valido then
     case MemReadFunction of
   1:
   FCLPs[clp].Inputs.AddAddress(MemAddres, TagSizeOnProtocol, 1, RefreshTime); //propriedades do tag
   2:
   FCLPs[clp].Outputs.AddAddress(MemAddres, TagSizeOnProtocol, 1, RefreshTime);
   3:
   FCLPs[clp].Registers.AddAddress(MemAddres, TagSizeOnProtocol, 1, RefreshTime);
     end;
   end;

  //adiciona o tag a classe base
  inherited DoAddTag(TagObj,Valido)
end;

Pronto, seu tag está validado e adicionado ao driver. E ele faz o scan sozinho? Não, mas poderia, porem seria ineficiente quando se procura performance, pois como a base não conhece a estrutura do driver, a maneira de se fazer isso seria passar tag a tag solicitando-os para o dispositivo e, caso existisse um tag duplicado (mesma área de memória de um mesmo plc) ele seria solicitado duas vezes. Para fazer a rotina de scan melhorada é necessário que sejam sobrescritos dois métodos. São eles:

procedure DoGetValue(TagObj:TTagRec; var values:TScanReadRec);

Lembram que os tags são cópias de uma área de memória gerenciada pelo driver? Pois é, este é o método que realiza essa cópia. A maneira de se implementar ele é simples, basta procurar a sua memória na organização interna de tags do protocolo. No nosso driver fictício ficaria mais ou menos assim:

procedure TDummyProtocol.DoGetValue(TagObj:TTagRec; var values:TScanReadRec);
var
  clp:Integer;
begin

  //vare os clps e caso encontre o clp procurado
  //solicita ao gerenciador de blocos da area
  //desejada os valores do tag.
  for clp:=0 to High(FCLPs) do
   if FCLPs[clp].PLCAddress=TagObj.Station then
   with TagObj do
   case MemReadFunction of
   1: FCLPs[clp].Inputs.GetValues(Address, Size, 1,values.values, values.LastQueryResult, values.ValuesTimestamp);

   2: FCLPs[clp].Outputs.GetValues(Address, Size, 1,values.values,values.LastQueryResult,values.ValuesTimestamp);

   3: FCLPs[clp].Registers.GetValues(Address, Size, 1, values.values,values.LastQueryResult,values.ValuesTimestamp);
   end;
end;

Perfeito, mas quem lê os dados do meu equipamento e atualiza os valores dessas áreas de memória? Quem faz isso é o método

procedure DoScanRead(Sender:TObject; var NeedSleep:Integer);

Este procedimento é chamado para verificar se há algum tag necessitando ser lido. Ele faz isso varendo a a área de memória gerenciada pelo driver. Ao final, basta informar a thread de scan o que foi feito, usando a variável NeedSleep que informa a Thread de scan o que ela deve fazer ao seu final.

Caso NeedSleep=0, a Thread segue sua execução normal. Retorne 0 sempre que o driver executar alguma ação de E/S, pois estas atuam como um "atraso natural", evitando o consumo alto de CPU.
Caso NeedSleep<0, a Thread de scan irá forçar uma troca de contexto de threads (SwitchThread or ThreadSwitch) retornando assim que possível. Você pode optar por retornar esse valor sempre que o seu driver não fizer nada.
Caso NeedSleep>0, a Thread irá dormir NeedSleep milisegundos. Você pode optar por retornar esse valor sempre que o seu driver não fizer nada.

Para não trabalhar dobrado montando pacotes de dados para enviar ao dispositivo, sobrescreva o método

function DoRead (const tagrec:TTagRec; var Values:TArrayOfDouble; Sync:Boolean):TProtocolIOResult;

Pois é ele quem executa as leituras síncronas (solicitadas pelo método Read do tag) e assincronas (pedidos feitos pelo driver de protocolo). A montagem do pacote do pedido da memória e a decodificação do pacote retornado contendo os valores das memórias deve ser feita aqui. O Parametro TagRec contem as informações do tag (endereço do equipamento, endereço da memória) enquanto a variável Values irá receber os valores decodificados do pacote recebido lidos do dispositivo. O parâmetro Sync não é mais usado.

A rotina de scan do nosso driver fictício ficaria parecida com esta (note que ele usa o DoRead):

procedure TDummyProtocol.DoScanRead(Sender:TObject; var NeedSleep:Integer);
var
  clp, bloco:Integer;
  tagrec:TTagRec;
  ReadResult:TProtocolIOResult;
  Values:TArrayOfDouble;
begin
  //vare os CLP's
  for clp:=0 to High(FCLPs) do begin
   //Vare os blocos formados das entradas digitais.
   for bloco := 0 to High(FCLPs[clp].Inputs.Blocks) do
   //caso o bloco necessite ser atualizado...
   if FCLPs[clp].Inputs.Blocks[bloco].NeedRefresh then begin

   //preenche os campos da estrutura
   //TTagRec com os principais campos que importam
   //para o protocolo (ou para a funcao DoRead)
   tagrec.Station:=FCLPs[clp].PLCAddress;
   tagrec.MemReadFunction := 1;
   tagrec.Address := FCLPs[clp].Inputs.Blocks[bloco].AddressStart;
   tagrec.Size := FCLPs[clp].Inputs.Blocks[bloco].Size;

   //Realiza a leitura usando a função DoRead
   ReadResult := DoRead(tagrec, values, false);


   if ReadResult=ioOk then
   FCLPs[clp].Inputs.SetValues(tagrec.Address, tagrec.Size, 1, values, ReadResult)
   else
   FCLPs[clp].Inputs.SetFault(tagrec.Address, tagrec.Size, 1, ReadResult);
   end;


   //repete o procedimento acima para as saidas digitais
   //e para os registradores...
  end;
end;

Bom já consigo ler meus tags e como faço para escrever valores no seu dispositivo? O procedimento DoWrite existe para isso, bastando sobrescreve-lo montando o pacote e enviando este ao seu dispositivo.

function DoWrite(const tagrec:TTagRec; const Values:TArrayOfDouble; Sync:Boolean):TProtocolIOResult;

É este método quem executa as escritas de valores síncronas (usando o tag com AutoWrite=false e posteriormente chamando o procedimento Write) e assíncronas dos tags (quando é atribuido algum valor a propriedade Value com AutoWrite=true) no equipamento. O Parâmetro TagRec contem as informações do tag (endereço do equipamento, endereço da memória) enquanto a variável Values contém os valores a serem escritos no dispositivo. O parâmetro Sync não é mais usado.

Bom, mas meu equipamento tem os registradores sendo Words e as entradas e saidas digitais são endereçadas como bytes. Como especifico isso? Simples. Os tags fazem uma série de conversões de tipo, mas o protocolo precisa informar que tipo de dados ele está fornecendo para o tag para que ele possa fazer as devidas conversões. Para fazer isto sobrescreva

function SizeOfTag(Tag:TTag; isWrite:Boolean; var ProtocolTagType:TProtocolTagType):BYTE;

Pois é esta a função responsável por informar o tamanho da palavra em bits que o tag está referenciando e o tipo da dela (byte, shortint, word, smallint, cardinal, integer ou real). Para retornar o tamanho da palavra use o Result da função e para retornar o tipo utilize a variável ProtocolTagType.

Em nosso driver fictício ficaria assim (mais uma fez vou tratar somente os blocos, cabe a você tratar os demais tags) e vou assumir que entradas e saidas digitais são bytes e registradores são words.

function TDummyProtocol.SizeOfTag(Tag:TTag; isWrite:Boolean; var ProtocolTagType:TProtocolTagType):BYTE;
begin
  if Tag is TPLCBlock then
   with Tag as TPLCBlock do begin
   case MemReadFunction of
   1,2: begin
   Result := 8;
   ProtocolTagType := pttByte;
   end;

3: begin

Result := 16;

ProtocolTagType := pttWord;

end;

   end;
   end;
end;

Bom, já li demais. Quero apagar meus tags fechar essa página e ir embora... Calma, para o seu tag ser apagado e removido do scan do driver sobrescreva um último método:

procedure DoDelTag(TagObj:TTag);
Sobrescreva este procedimento para remover tags do scan do driver. Não esqueça de chamar o método herdado.

  inherited DoDelTag(TagObj)
para remover o tag da classe base.

O código ficaria muito semelhante ao de DoAddTag exceto pelo fato que o tag irá ser removido da área gerenciada pelo driver.

Vale lembrar que o seu driver precisa ter uma porta de comunicação setada e ativa para os tags estarem sendo atualizados. Esta é uma condição para o driver de protocolo atualizar os tags.

Espero que eu tenha conseguido repassar como os drivers funcionam no PascalSCADA. Criticas, sugestões, melhorias e principalmente correções, usem os comentários.

Atenciosamente

Fabio

In english

Firstly, I'll explain my idea of an protocol driver and how I implemented it. I´ll put small pieces of code as example of each part.

The protocol driver is a object that manage tags into your application. It updates the tags respecting the scan rate, organizes the tags in blocks and avoid an memory to be read twice (or more times) on a single cycle. Your internal organization can vary from an protocol to another, can read a single tag or a block of tags on a single request. Everything in the name of the performance.

The tags in PascalSCADA are copies of the values that are stored in another area managed by the driver. In this area the protocol driver manages the scan. The organization of this area can vary from a device to another and with the device memory organization too. To demostrate, I'll use a fictitious PLC that will be addressed like a modbus device (address from 1 to 255) and it contains registers, inputs and outputs, all 8 bits sized. All memory areas supports block operations (read/write multiple values on a single request). The representation of this fictitious PLC will be something like this:

TDummyPLC = record

PLCAddress:Byte;

Inputs:TPLCMemoryManager; //this area will be the MemReadFunction=1

Outputs:TPLCMemoryManager; //this area will be the MemReadFunction=2

Registers:TPLCMemoryManager; //this area will be the MemReadFunction=3

end;

TDummyPLCs = array of TDummyPLC;

Note that I used the class TPLCMemoryManager. What it does? It organizes the tags in blocks biggest size as possible, avoiding the duplication of tags and optimizing the communication (10 tags of the same address will be read one time on the scan cycle). This class have two properties that control your behavior:

MaxHole: control how many memory can be missing to avoid break the block in two or more parts. Example: you added the memory addresses [1, 2, 5, 6]. With MaxHole=0, will be created two blocks, the first with the memory addresses [1, 2] and the second with the memory addresses [5, 6]. But with MaxHole=2, will be created only one block with the memory addresses [1,2,3,4,5,6]. Note that memory addresses 3 and 4 are added to avoid the break of the block in two parts, and it will be read with only one request to the device, improving the performance.
MaxBlockSize: Control the max size of the block. If you added the memory addresses [1,2,3,4,5,6] with MaxBlockSize=3, will be created two blocks, the first with the memory addresses [1,2,3] and the second with memory addresses [4,5,6]. This property is very useful in protocols that have size limits in theirs requests, like modbus that allow requests with size less than 125 words.

Note that I added an comment about each memory area. I choosed the MemReadFunction property of the tags to allow the developers to choose the memory area (Inputs, Outputs and registers). The value 1 identify the Digital Inputs, the value 2 identify the digital outputs and 3 identify the registers. But this will be done later. With the structure that represents your PLC done, the next step is create a new class that inherits from TProtocolDriver. Is only this? No. The tags must be added to the scan cycle of the your driver. And How do this? Simple. Override the procedure:

procedure DoAddTag(TagObj:TTag; TagValid:Boolean);

It will add your tags in the memory managed by the protocol driver. Check if the tag to be added is correct (in this example, MemReadFunction must be between 1 and 3 and the PLCStation must be between 1 and 255), and if it's ok, call the inherited procedure with

inherited DoAddTag(TagObj, TheTagIsValid);

to add the tag in the base class and to allow it to be updated.

In the example of fictitious PLC, the procedure will be something like this (I'll handle only PLCBlocks, you must check other tag classes of the other tags)

procedure TDummyProtocol.DoAddTag(TagObj:TTag; TagValid:Boolean);

var

Valid:Boolean;

plc:Integer;

plcfound:Boolean

begin

Valid := false;

plcfound := false;

//As I said, I will handle only TPLCBlock on this example.

if TagObj is TPLCBlock then

with TagObj as TPLCBlock do

begin

//Check if the address of the PLC is

//in the valid range (from 1 to 255)

//And if it's ok, find the memory (register, input, output)
//to check if it's already managed by the driver.

if PLCStation in [1..255] then

for plc := 0 to High(FPLCs) do

if FPLCs[plc].PLCAddress=PLCStation then

begin

plcfound:=true

break;

end;

//se não encontrou o CLP adiciona ele.

if (not plcfound) and (PLCStation in [1..255]) then

begin

plc:=Length(FPLCs);

SetLength(FPLCs,plc+1);

FPLCs[plc].PLCAddress:=PLCStation;

FPLCs[plc].Inputs:=TPLCMemoryManager.Create;

FPLCs[plc].Outputs:=TPLCMemoryManager.Create;

FPLCs[plc].Registers:=TPLCMemoryManager.Create;
plcfound:=true;

end;

//check if tag is ok

//(associated with one memory manager of one PLC)

if plcfound and (MemReadFunction in [1..3]) then

Valid:=true;

//add the tag in the memory managed by the

//protocol driver

if Valid then

case MemReadFunction of

FPLCs[plc].Inputs.AddAddress(MemAddres, TagSizeOnProtocol, 1, RefreshTime); //propriedades do tag

FPLCs[plc].Outputs.AddAddress(MemAddres, TagSizeOnProtocol, 1, RefreshTime);

FPLCs[plc].Registers.AddAddress(MemAddres, TagSizeOnProtocol, 1, RefreshTime);

end;

//add the tag in the base class
//to make it updatable.

inherited DoAddTag(TagObj,Valid)

end;

Ok, my tag is correct and it´s added in the scan cycle of the protocol driver. The driver does the scan alone? No, but it can, but write how your driver will do the scan cycle is a way to optimize the performance, because you can avoid read the same memory address twice (the base don't know the memory organization of the your plc and if a tag have the same address of another) and you can do one or more reads in the same request (like siemens protocol) if protocol supports it. To do a Scan optimized, overwrite two procedures. They are:

procedure DoGetValue(TagObj:TTagRec; var values:TScanReadRec);

You remember that I said before, that tags are copies of an area managed by the driver. So, this is the procedure that copy the values from this managed area to the tag. The way to implement this is very simple. Find the PLC and the memory area where your tag is stored and do something like this:

procedure TDummyProtocol.DoGetValue(TagObj:TTagRec; var values:TScanReadRec);

var

plc:Integer;

begin

//find the plc in the array of PLCs and the memory
//and copy the values from the respective memory area.

for plc:=0 to High(FPLCs) do

if FPLCs[plc].PLCAddress=TagObj.Station then

with TagObj do

case MemReadFunction of

1: FPLCs[plc].Inputs.GetValues(Address, Size, 1,values.values, values.LastQueryResult, values.ValuesTimestamp);

2: FPLCs[plc].Outputs.GetValues(Address, Size, 1,values.values,values.LastQueryResult,values.ValuesTimestamp);

3: FPLCs[plc].Registers.GetValues(Address, Size, 1, values.values,values.LastQueryResult,values.ValuesTimestamp);

end;

Ok, but how the protocol driver read the values from the device? Who does this is the procedure:

procedure DoScanRead(Sender:TObject; var NeedSleep:Integer);

This procedure is called to check if exists something that needs to be read. It does this checking the memory managed by the protocol driver. When it finishes, you must inform what the scan cycle thread will do, using the variable NeedSleep. It can assume 3 values:

When NeedSleep=0, the thread continues normally. Write 0 in NeedSleep every time that your protocol driver do any I/O action. These I/O actions acts as a natural delay, avoiding the high CPU loads.
When NeedSleep<0, the scan thread will force a context switch (SwitchThread or ThreadSwitch), returning soon as possible (when scheduler wakeup the scan cycle thread again). You can return this value when your protocol driver do anything.
When NeedSleep>0, the scan thread will sleep NeedSleep milliseconds. You can return this value when your protocol driver do anything.

To avoid do the same job twice, building data packets to send to your device, overwrite the procedure

function DoRead (const tagrec:TTagRec; var Values:TArrayOfDouble; Sync:Boolean):TProtocolIOResult;

Because is this procedure that read the data of your PLC, in synchronous mode (requested by the procedure Read of each tag) and asynchronous (requests of the scan cycle of the protocol driver). You must build the request packet and the decode the received packet here. The parameter TagRec is a structure that contains information about the tag (plc address, memory type, memory address) and parameter Values will store the values decoded of the received packet from the device. The parameter Sync is obsolete and will be removed in future.

With this, the scan of the example driver will be something like this (note that it uses DoRead procedure)

procedure TDummyProtocol.DoScanRead(Sender:TObject; var NeedSleep:Integer);

var

plc, block:Integer;

taginfo:TTagRec;

ReadResult:TProtocolIOResult;

Values:TArrayOfDouble;

begin

//look at each PLC

for plc:=0 to High(FPLCs) do begin

//Scan the digital inputs blocks built

for block := 0 to High(FPLCs[plc].Inputs.Blocks) do

//if the block must be updated...

if FPLCs[plc].Inputs.Blocks[block].NeedRefresh then begin

//fill the fields of the taginfo structure
//with informations to DoRead do your job of

//code and decode packets.

taginfo.Station:=FCLPs[clp].PLCAddress;

taginfo.MemReadFunction := 1;

taginfo.Address := FPLCs[plc].Inputs.Blocks[bloco].AddressStart;

taginfo.Size := FPLCs[plc].Inputs.Blocks[bloco].Size;

//Read the data using DoRead procedure.

ReadResult := DoRead(taginfo, values, false);

if ReadResult=ioOk then

FPLCs[plc].Inputs.SetValues(taginfo.Address, taginfo.Size, 1, values, ReadResult)

else

FPLCs[plc].Inputs.SetFault(taginfo.Address, taginfo.Size, 1, ReadResult);

end;

//repeat the code above to the other areas (outputs and registres)

end;

Now I can read my tags, but how do I write values into the device? The procedure DoWrite exists to do this, you must overwrite it, and build the packet with the data to send to your device here.

function DoWrite(const tagrec:TTagRec; const Values:TArrayOfDouble; Sync:Boolean):TProtocolIOResult;

This is the procedure that write values in your plc, in synchronous mode (when tag.AutoWrite=false and procedure write is called) and asynchronous mode (when tag.AutoWrite=true and a value is attributed in the property Value). The parameter TagRec contains informations about the tag (like plc address, memory type and memory address) and the parameter Values contais the values to be written into your device. The parameter Sync is obsolete and will be removed in future.

Ok, now I can read and write values using my protocol driver, but and If my device have areas with different word sizes? Simple. The tags does a lot of type conversions, but the protocol must inform what's the type of the data that it's providing to the tag. With this information, the tag can convert the data to others formats. To do this overwrite the procedure

function SizeOfTag(Tag:TTag; isWrite:Boolean; var ProtocolTagType:TProtocolTagType):BYTE;

Because is this function that informs the word size in bits and the type (byte, shortint, word, smallint, cardinal, integer or real) of the tag. To return the size of the word, use the variable Result of the function and to return the type, use the variable ProtocolTagType.

In the example protocol, it will be something like the piece bellow. I said before that registers are bytes, but here I'll assume that registers are words. I'll handle only PLCBlocks.

function TDummyProtocol.SizeOfTag(Tag:TTag; isWrite:Boolean; var ProtocolTagType:TProtocolTagType):BYTE;

begin

if Tag is TPLCBlock then

with Tag as TPLCBlock do begin

case MemReadFunction of

1,2: begin

Result := 8;

ProtocolTagType := pttByte;

end;

3: begin

Result := 16;

ProtocolTagType := pttWord;

end;

And how a I remove the tag that I added into the protocolo driver. To remove your tag from the scan cycle of the protocol driver, overwrite the latest procedure:

procedure DoDelTag(TagObj:TTag);

And don't forget of call the inherited procedure with:

inherited DoDelTag(TagObj)

to remove the tag from the base class.

The code of this procedure is like that DoAddTag, except because this removes tags from the area managed by the protocol driver.

Well, is this. If you have reviews, sugestions, improvements and corrections, please contact-me.

Note: You must have a port set and activated on your protocol driver to update tags.

Regards,

Fabio

Banco de dados em memória com ZeosLib e SQLite/In Memory Database with ZeosLib and SQLite

2010-09-26T23:07:00.000-03:00

Em alguns casos precisamos criar tabelas em memória, por motivos que dependem de cada aplicação. No meu caso, eu estava a pesquisar como fazer um sistema de alarmes para o PascalSCADA que ficasse indenpendente de existir um gerenciador de bando de dados instalado no computador onde a aplicação fosse instalada. Comecei a pesquisar e encontrei uma solução simples e rápida escrevendo pouco código usando ZeosLib e SQLite

A primeira coisa a fazer é inserir um TZConnection na sua aplicação. Configure o driver da ZConnection criada para sqlite-3 e o database para ":memory:" sem as aspas e connecte-o. Explico: o SQLite suporta a criação de banco de dados em memória. A função sqlite3_open tem dois parametros, o primeiro é o caminho do arquivo do banco de dados e o segundo é um ponteiro da conexão criada. A string :memory: orienta o SQLite a criar/abrir o seu "arquivo" na memória.

Aqui está um screenshot da configuração do ZConnection em Lazarus:

Feito a configuração da conexão, basta fazer a criação das tabelas. No meu teste eu coloquei um botão e fiz no evento OnClick a criação da tabela em memória. Para isso adicionei também um ZQuery para poder executar a consulta de criação da tabela. A única coisa a fazer no ZQuery é dizer que conexão ele irá usar. No evento clique do botão coloque o seguinte código:

  ZQuery1.SQL.Clear;
  ZQuery1.SQL.Add('CREATE TABLE [alarmes]'+
  '('+
  ' [idAlarme] INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT,'+
  ' [idTag] INTEGER NOT NULL,'+
  ' [dtEntrada] DATETIME NOT NULL,'+
  ' [dtSaida] DATETIME,'+
  ' [stMessage] VARCHAR(70),'+
  ' [stUser] VARCHAR(30)'+
  ');');
  ZQuery1.ExecSQL;

Antes de rodar, certifique-se que a dll sqlite3.dll está na pasta da aplicação ou na pasta System32 da sua instalação do Windows, ou devidamente configurada na sua distribuição linux. No Ubuntu você precisa ter o pacote libsqlite3-dev instalado.

Pronto, basta rodar a sua aplicação e clicar no botão para criar a tabela em memória. Porem para ter certeza que isso foi criado, adicione um TZTable, TDataSource e um TDBGrid. Configure o DBGrid para usar o DataSource criado. Configure também DataSource para usar o ZTable criado. Para finalizar adicione essas linhas ao final do codigo usado para criar a tabela em memória:

  ZTable1.TableName:='alarmes';
  ZTable1.Open;

Rode sua apliação e veja a tabela rodando na memória.

Você pode copiar este exemplo aqui.

In english

Some times, is needed create tables in memory, by the reason that will depend of your application. In my case, I was researching how do the alarm system in PascalSCADA independently of the existence of a database server installed in computer where the application will be installed. I started my research and I found a very simple solution, writing little pieces of code using ZeosLib and SQLite.

First, add the TZConnection in your application. Configure it to use the driver sqlite-3 and the database of the conection to use ":memory:". I'll explain: the SQLite supports the creation of an database in memory. The function sqlite3_open has two parameters, the first is the path of the file that contains the database and the second is a pointer that will store the connection created. The string :memory: guides the SQLite to create/open your "database file" in memory.

Here an screenshot of the configuration of the ZConnection in Lazarus:

Connection done, now you need create tables. I put a button and do this in OnClick event. I added too a TZQuery to execute the query that creates the table. The unique configuration that you'll do in ZQuery is set the connection that it will use. In button OnClick event put this code:

ZQuery1.SQL.Clear;

ZQuery1.SQL.Add('CREATE TABLE [alarmes]'+

'('+

' [idAlarme] INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT,'+

' [idTag] INTEGER NOT NULL,'+

' [dtEntrada] DATETIME NOT NULL,'+

' [dtSaida] DATETIME,'+

' [stMessage] VARCHAR(70),'+

' [stUser] VARCHAR(30)'+

');');

ZQuery1.ExecSQL;

Before run, make sure that sqlite3.dll is located on application folder or in System32 of your Windows installation, or properly configured in your Linux distribution. In Ubuntu you need the libsqlite3-dev package installed.

Run your application and click in the button to create your table in memory. But, to be sure that the table is created, add a TZTable, TDataSource and a TDBGrid. Configure the DBGrid to use the created Datasource and configure the datasource to use the created TZTable. To finalize, add this lines at the end of the code used to create tables in memory:

ZTable1.TableName:='alarmes';

ZTable1.Open;

Run your application again and see your table in memory.

You can download this example here.

PascalSCADA Mantis Bug Tracker

2010-09-23T11:12:00.002-03:00

A tempo venho pedindo a quem usa o PascalSCADA a reportar falhas para melhorá-lo ainda mais. Porem esqueci que para isso acontecer como esperado era necessário ter o Bug Tracker funcionando. Então ontem tirei um tempo e fiz ele funcionar adequadamente. Obrigado Mark Daems do projeto ZeosLib por ter me ajudado com minhas dúvidas estúpidas por falta de atenção!

Clique aqui para ir para o Bug Tracker do PascalSCADA.

Vale lembrar que, para reportar falhas, é necessário estar registrado no Sourceforge.

In english

Since Some time ago, I request to everybody that uses the PascalSCADA to report bugs to improve it. But I forgot to make it happens, was needed the Bug Tracker working. So yesterday I made the Bug Tracker works, Thank you Mark Daems of ZeosLib project for help-me with my stupid questions!

Click here to go to PascalSCADA Bug Tracker.

Remember that to report bugs, you must be registered in Sourceforge.

PascalSCADA 0.6.4c liberado/released

2010-09-22T14:02:00.002-03:00

Uma pequena falha que afeta usuários do Delphi 2009-2010 foi encontrada devido alterações da Unicode dessas versões. A porta TCP_UDP não conseguia resolver nomes sejam eles hosts ou endereços IP's. Mas isso já esta corrigido na versão 0.6.4c. Mais uma vez, obrigado pelo feedback e continuem reportando erros e falhas encontradas!

O download da versão 0.6.4 pode ser feito na pagina do PascalSCADA no Sourceforge.

In english

A bug that affects Delphi 2009-2010 users has been found. The TCP_UDP port don't resolve host names because this versions of delphi now supports Unicode, but it's fixed on version 0.6.4c. Thanks by your feedback. Please continue reporting errors!

You can download the version 0.6.4c in PascalSCADA page at Sourceforge.

PascalSCADA 0.6.4b liberado/released

2010-09-21T22:56:00.005-03:00

Uma pequena correção para Lazarus com FPC 2.2.x que impossibilitava a compilação do PascalSCADA foi liberada. Obrigado pelo feedback e continuem reportando erros!

Para quem baixou a versão 0.6.4a, abra o arquivo ubitmapper.pas. Logo nas primeiras linhas está escrito:

unit ubitmapper;

{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}

interface

uses
Messages, SysUtils, Variants, Classes,...

Adicione "{$IFDEF FPC}LCLIntf, LResources,{$ENDIF}" antes da unit Messages, de modo que fique assim:

unit ubitmapper;

{$IFDEF FPC}

{$MODE Delphi}

{$ENDIF}

interface

uses

{$IFDEF FPC}LCLIntf, LResources,{$ENDIF}Messages, SysUtils, Variants, Classes...

Outra maneira de resolver esse problema é baixar a versão 0.6.4b que está disponível no SourceForge.

Lembrem que são versão de testes!! Ainda existem problemas a resolver!

In english

An small fix for Lazarus with FPC 2.2.x that breaks the compilation of PascalSCADA is released. Thanks by the feedback and continue reporting errors!

If you downloaded the version 0.6.4a, open the file ubitmapper.pas. In the first lines is wrote:

unit ubitmapper;

{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}

interface

uses
Messages, SysUtils, Variants, Classes,...

Add "{$IFDEF FPC}LCLIntf, LResources,{$ENDIF}" before of the unit Messages, like this:

unit ubitmapper;

{$IFDEF FPC}

{$MODE Delphi}

{$ENDIF}

interface

uses

{$IFDEF FPC}LCLIntf, LResources,{$ENDIF}Messages, SysUtils, Variants, Classes...

Other way to solve this is download the version 0.6.4b that is available in Sourceforge.

Remember that this is a testing version. Other things must be corrected yet!

OPC, Can Open, Profibus, Profinet, EthernetIP and others...

2010-09-21T16:45:00.000-03:00

Estou atualmente (enquanto escrevo o PascalSCADA) pesquisando sobre barramentos e protocolos de comunicação atuais. Li muito sobre OPC, CanOpen e Profinet, e ando estudando a possibilidade de ser membro de algumas dessas organizações para poder ter acesso a documentos e exemplos. Então se você pode ajudar, doe componentes eletrônicos e de software relacionados a essas tecnologias, para que eu possa continuar oferecendo inovações e facilidades no PascalSCADA.

In english

Actually (while I write the PascalSCADA) I'm researching recent communication protocols and bus. I read a lot about OPC, CanOpen and Profinet, and now I'm studying the possibility of become a member of some of this organizations to access documents and code examples. So, if you can help, donate hardware and software related to these technologies, to provide innovations and facilities in PascalSCADA.

PascalSCADA 0.6.4a liberado/released

2010-09-21T11:00:00.008-03:00

A versão 0.6.4a (testes) foi liberada. Faça download e reporte qualquer falha no BugTracker do PascalSCADA. Está disponível para Lazarus (0.9.28 a 0.9.29) ou Delphi (7 a 2010) sobre Windows, Linux e FreeBSD (32 e 64 bits).

As principais novidades da versão são:

Tags Estruturais;
Tipos de dados no tags (byte, word, ShortInt, DWord, Integer e Float);
Suporte ao Siemens IsoTCP para comunicar com S7-1200, S7-300 e S7-400;
TagBuilder, uma ferramenta para facilitar a criação de tags nos principais drivers;
Element Mapper para facilitar a criação de elementos de bloco.
Bit Mapper para facilitar a criação de bits.
Muitas melhorias de desempenho, principalmente em ModBusTCP.
Notificações de eventos de Porta (aberta, fechada, desconectada e erros de comunicação)
Um novo componente para animação de objetos em tela, o THMIControlDislocatorAnimation.
Simplificação da API de drivers de protocolo e portas.
Modificado o modo de atualização dos tags (removido timers).

In english

The version 0.6.4a (testing) is released. Download it and report bugs in PascalSCADA BugTracker. It's available for Lazarus (0.9.28 and 0.9.29) and Delphi (7 to 2010) under Windows, Linux and FreeBSD (32 and 64 bits).

The newest features of this version:

Structure Tags;
Tag data types (byte, word, ShortInt, DWord, Integer e Float);
Siemens IsoTCP protocol to communicate with S7-1200, S7-300 e S7-400;
TagBuilder, a tool to make easy the creation of new tags;
Element Mapper to make easy the creation of block elements;
Bit Mapper to make easy the creation of bits.
A lot of performance improvements, mainly in ModBusTCP.
Port event notifications (open, closed, disconnected and communications errors)
A new component to animate window controls, the THMIControlDislocatorAnimation.
Protocol and Port driver API simplification.
Modified how tags are refreshed (removed timers).

0.6.4: O que falta/What's missing

2010-09-01T09:12:00.004-03:00

A versão 0.6.4 está prestes a sair com muitos recursos novos, tal como o driver IsoTCP para a familia Siemens S7 e tags struturais. Mas para isso faltam ser resolvidos e criados algumas coisas:

TagBuilder para o novo IsoTCP driver e para o ~~driver West6100+~~ ASCII para facilitar a criação de tags.
~~Melhoria do sistema de notificação de eventos (porta aberta, fechada, desconectada e erros de comunicação) para as portas e para os drivers de protocolo.~~
~~Melhoria na detecção de problemas de rede da porta TCP/UDP.~~
~~Melhorias de estabilidade no IsoTCP.~~
Editor de tags estruturais.
Outras melhorias de estabilidade relacionada a uma mudança de funcionamento em tempo de desenvolvimento.

Feito isso a versão 0.6.4 do PascalSCADA será lançada.

In english

The version 0.6.4 is near to be done with a lot of new features, as the IsoTCP driver for the Siemens S7 and the structure tags. But to do it, some issues must be solved/created:

TagBuilder tool for the new IsoTCP driver ~~and for the West6100+ ASCII driver~~ to make easy the creation of new tags.
~~Improve the events notifications system (port opened, closed, disconnected and communications errors) for the ports and for the protocol drivers.~~
~~Improve the detection of network problems of the TCP/UDP port.~~
~~Improve the stability of the IsoTCP.~~
Structure editor.
Others stability improvements related with the change of how PascalSCADA works in design time.

When it's done, PascalSCADA 0.6.4 will be released.

Progresso do ISOTCP/ISOTCP Progress

2010-07-19T21:33:00.001-03:00

O driver ISOTCP para a família Siemens S7 esta quase pronto. Já e possível ler DB's, Flags, Entradas e Saídas. Outras áreas estão sendo testadas. Após testar todas as áreas a escrita vai ser feita.

Este novo protocolo estará disponível na versão 0.6.4 do PascalSCADA, junto com os tags com a nova propriedade TagType e os tags estruturais.

02/Agosto: Agora já é possível escrever em Flags, DBs e Saidas com o driver ISOTCP.

In English

The ISOTCP driver for Siemens S7 family is near to be done. Now is possible to read DB's, Flags, Inputs and Outputs. Other areas will be tested. After test all areas the Write will be implemented.

This new protocol will be available in version 0.6.4 of the PascalSCADA, together
with the new Tag property called TagType and the Structure Tags.

02/August: Now is possible write in Flags, DBs and Outputs with ISOTCP driver.

Tags estruturais/Structure tags

2010-06-30T23:47:00.001-03:00

Está disponível no trunk do SVN o mais novo recurso o PascalSCADA: Tags de estruturas. Para isso foi adicionado dois novos componentes, um chamado TPLCStruct que é usado para mapear toda a estrutura e também o TPLCStructItem que é usado para mapear itens isolados da estrutura. O comportamento é semelhante ao tag bloco porem a diferença é que os elementos podem ter os mais variados tamanhos, desde bytes até floats e inteiros de 32 bits.

In english

Is available on SVN trunk new PascalSCADA resources: Structure Tags. To do this, is available two new components, one called TPLCStruct that represents then entire structure and the TPLCStructItem that represents isolated items of the structure. The behavior is like of the TPLCBlock but the difference is that each TPLCStructItem can have any size, from byte to integers and floats of 32 bits sized.

Tipo de dados do Tag/Tag data type

2010-06-21T16:29:00.007-03:00

Seguindo a sugestão de Jorge López, está disponível no controle de versões do PascalSCADA o suporte a tipo de dados dos tags. Para isso foi acrescentado aos tags três novas propriedades (SwapBytes, SwapWords e TagType). As duas primeiras propriedades são para controle em PLC's iguais aos da Siemens (que inverte a ordem de tudo) e a última diz propriamente o tipo do tag.

Baixem, divirtam-se e caso encontre algum problema, reporte!

Atenção (24/jun): mexendo e testando essa nova funcionalidade, eu descobri um pequeno problema quando você cria um tipo menor (por exemplo um tag byte) quando o protocolo somente oferece tipos maiores (como words, dwords e floats). Ao fechar a aplicação um erro é mostrado. Já estou investigando o motivo disso. Usem com cuidado a versão do SVN.

A revisão 204 do SVN contém a correção.

In english:

Following the suggestion of Jorge López, is available at PascalSCADA SVN the data type support in tags. For this, tag now have three new properties (SwapBytes, SwapWords and TagType). SwapBytes and SwapWords is available to read tag in CLP's like Siemens (that invert everthing) and the last is the type of the tag.

Download it and have fun... and if you found some problem, report it!

Warning (24/jun): testing this new functionality, I found a problem when you create a tag with size less than the supported sizes in protocol (an example is when you map tag bytes in modbus that only offers words). When you close your application, an exception is raised. I'm searching this. The SVN version must be used with careful.

The SVN revision number 204 contains the correction for this bug. Please test it!

Protocolos da familia Siemens S7 / Protocols of Siemens S7 family

2010-06-05T10:18:00.002-03:00

Conforme a enquete, o protocolo mais votado foi os da familia Siemens S7. A implementação destes já está em andamento. Meus planos é que dentro de um mês teremos o ISOTCP em funciomanento, já que ele atende os CLP's existentes e a nova linha S7-1200.

Estes protocolos serão baseados na biblioteca libnodave. Sugestões são bem vindas!

In english

According to the poll, the Siemens S7 protocol is the winner. I'm working to get it ready soon as possible. My plans are that the ISOTCP will be ready in the next month, because it works with current PLC's and with the new S7-1200.

This protocols will be based in libnodave library. Sugestions are welcome!

Próxima familia de protocolos / Next protocol family

2010-04-17T09:53:00.003-03:00

Por favor votem na enquete ao lado sobre qual familia de CLP's que desejam ver na versão 0.7 do PascalSCADA.

In english

Please vote on panel at left about wich the next PLC's family that you want see in
version 0.7 of PascalSCADA.

Lazarus 0.9.28

2010-04-16T10:35:00.006-03:00

Recentemente recebi um e-mail de Yves GUILLET, informando sobre um problema de compilação da unit uModBusTagBuilder.pas no Lazarus 0.9.28.2. Resolvi pesquisar e descobri que o problema (se isso chega a ser um problema) está relacionado ao novo sistema de Resources que estará presente no Lazarus 0.9.30 (atualmente estou usando a versão 0.9.29 com FPC 2.5.1). A correção para este pequeno problema já está no trunk do SVN e também aqui. Se você fizer download do arquivo de correção, descompacte ele na pasta do PascalSCADA sobre-escrevendo os arquivos existentes.

In english

Recently I received an e-mail from Yves GUILLET, asking why the unit uModBusTagBuilder.pas doesn't compiles in Lazarus 0.9.28.2. So I researched and the problem (if it is a problem) is the new resource system that will come in Lazarus 0.9.30 (actualy I'm using the version 0.9.29 with FPC 2.5.1). The fix for this small problem is available at SVN trunk and here. If you downloaded the fix file, please decompress it in the PascalSCADA folder, overwriting the existing files.

PascalSCADA 0.6.3 liberado/released

2010-04-07T20:36:00.002-03:00

Como anunciado anteriormente, descobri um serio bug na versão 0.6.2 que se o tag não estivesse no inicio ou no fim do bloco de tags gerenciado pela classe TPLCMemoryManager ele não conseguia ser atualizado. Também foi descoberto um deadlock quando a aplicação era finalizada.

Para resolver esses dois problemas, foi liberado no Sourceforge.net a versão 0.6.3 do PascalSCADA. Clique aqui para fazer o download.

In english

As previously announced, I found a critical bug in version 0.6.2 when the tag that don't stay at the begin or at the end of a block of tags managed by TPLCMemoryManager class, it isn't updated. I also found a deadlock when the application is terminated.

To resolve these problems, was released in the Sourceforge.net version 0.6.3 of PascalSCADA. Click here to download.

Nova Correção / New fix

2010-04-01T13:46:00.004-03:00

Olá a todos!

Dias atras trabalhando com o PascalSCADA, descobri outro problema sério com a biblioteca. A versão 0.6.2 só consegue atualizar tags que estão no inicio ou no fim do bloco mantido pelo classe TPLCMemoryManager. A correção já está no SVN. Sugiro a todos atualizarem para a versão do SVN até que a versão 0.6.3 seja liberada no SourceForge.

In english:

Some days ago, while I work with the PascalSCADA, I discovered other bug. The version 0.6.2 can only update tags in the start or on the end of the block managed by the class TPLCMemoryManager. The fix is in the SNV trunk. Please update to this version until that the version 0.6.3 is released in the SourceForge.

0.6.2 versão de correção/0.6.2 fix update

2010-02-27T08:59:00.006-03:00

Dias atraz conversando com Rafael (que está me ajudando a testar o PascalSCADA) acabamos por descobrir uma falha no TPLCMemoryManager no uso do procedimento Move. Sugiro a todos atualizar suas versões para a última revisão do SVN ou que faça download da versão 0.6.2 que está disponivel no SourceForge.net. Vale lembrar que a versão 0.6.1 está inutilizável por causa deste bug.

In english:

Some days ago while talking with Rafael (he are testing the PascalSCADA) we discover a bug in TPLCMemoryManager in Move procedure. I suggest to everyone to update to the latest SVN revision or download the version 0.6.2 that is available on SourceForge.net. Note that the version 0.6.1 is unusable because of this bug.

PascalSCADA 0.6.1 liberado / released

2010-01-23T10:18:00.002-03:00

PascalSCADA 0.6.1 foi lançado. Faça download em https://sourceforge.net/projects/pascalscada/files/.

Somente uma pequena falha continua nessa versão:

THMIRadioButton não está disponível para Lazarus (temporariamente).

Melhorias dessa versão:

Melhorias de velocidade em TPLCMemoryMananger. Agora ele é pelo menos duas vezes mais rápido que a versão 0.6
Notificação de eventos dos tags. Agora qualquer objeto dependente de um tag é notificado das escritas com falha, escritas com sucesso, leituras com sucesso e leituras com falha.

Outras coisas relacionadas:

Geração automatizada de resources para Delphi e Lazarus.
Exemplos.
Documentação (somente em português) está inclusa.

In english:

PascalScada 0.6.1 is released. Download it from https://sourceforge.net/projects/pascalscada/files/.

Only one issue remain in this version:

THMIRadioButton isn't available for Lazarus (temporarily).

Improvements on this version:

TPLCMemoryMananger speed enhancements. It's at least 2x fastest.
Tag event notification. Now controls or any tag dependent will be notified of write success, write failure, read success or read failure.

Other things related:

Automated resource creator for Lazarus and Delphi.
Examples.
Documentation (only in Portuguese) is included.

Icones da palheta de componentes - Icons of the palette of components

2009-12-30T08:03:00.010-03:00

Antes de lançar a versão 0.6.1 do PascalSCADA, eu não estava gostando muito dos ícones que estavam no delphi (desatualizados), e estava gostando menos ainda da ideia de abrir cada arquivo SVG, exportar para PNG, abrir no GIMP e salvar como BMP para dai ir para o Windows, abrir um editor de Resource e adicionar cada um dos arquivos BMP no arquivo RES do delphi.

O processo do Lazarus é um pouco menos complicado, pois ele suporta PNG, então cortaria a parte de ir para o Gimp e salvar como BMP.

Um pouco complicado, não? Pois bem, eu também acho isso e pensei: Por que não existe um script que faz todo esse processo de geração de ícones e resources? Então pesquisando e conhecendo algo:

Inkscape pode gerar o png a partir de um SVG pela linha de comando.
No Linux, existe o ImageMagick. Este contem o utilitário CONVERT que manipula imagens e salva em vários formatos.
O Lazarus tem um utilitário (lazres) para criação de LRS em linha de comando.

Porem não havia nenhum utilitário de linha de comando que compilava um arquivo DCR/RES para Delphi. Então pesquisando mais um pouco, descobri que o FreePascal tem units para a criação de arquivos RES. Então com um pouco de esforço construí um utilitário para a geração de arquivos RES para delphi na linha de comando diretamente do linux.

O resultado disso é que agora temos um sistema automatizado de geração de Resources para Delphi e Lazarus. Para um novo componente basta você desenhar o ícone dele em SVG e rodar o script e você terá os arquivos RES/LRS atualizados.

O utilitário está disponível no SVN e na versão 0.6.1 do PascalSCADA.

In english:

Before release the PascalSCADA 0.6.1, I was not pleased with the component icons in Delphi (outdated). Worse is to open each SVG file, export to PNG, open the PNG in GIMP, save as BMP, start the Windows, open the resource editor and add each BMP into the RES file of Delphi. The process to make a resource for Lazarus is a little less complicated.

A little complicated, not? I also think that and thought: Why don't exist a script that makes this whole process of generation of icons and resources? So researching:

The inkscape can export the PNG file from the command line.
On Linux, exist the ImageMagick that contains the CONVERT utility that manipulates and saves images in many formats.
The Lazarus has a utility (lazres) that creates LRS files from the command line.

But I don't know any utility to create DCR/RES from the command line. So researching a little more, I discovered that FPC has units to manipulate RES files. So I created an command line utility to make RES files for Delphi under Linux.

Now we have an automated process of creation of icons for Delphi and Lazarus. When you create a new component, draw the icon on Inkscape, run the script and you will have the RES/LRS files updated.

This utility is available in SVN trunk and in PascalSCADA 0.6.1

ZeosLib 64 bits

2009-11-10T08:46:00.002-03:00

Se você estava desesperado pelo fato da ZeosLib não funcionar adequadamente em 64 bits, se acalme. Enviei para Mark Daems (gerente da ZeosLib) o quinto patch que corrige este problema. Testado em todas nas versões do Delphi 7 até a versão 2009 e no Lazarus/FPC com MySQL e Postgres e está tudo funcionando bem. A revisão da ZeosLib que contem a correção é a 717.

Agora é possível sonhar com históricos e receitas na versão 0.7 do PascalSCADA.

Divirtam-se!

In english:

If are you desperate because ZeosLib doesn't work correctly in 64 bits, don't worry! I sent to Mark Daems (manager of ZeosLib) the fifth patch that solves this problem. It was tested with versions of Delphi 7, 2006, 2007, 2009 and Lazarus/FPC with MySQL and Postgres and is everything working fine. The revision of ZeosLib with this patch is 717.

Now is possible to dream with historic and recipes in the version 0.7 of PascalSCADA.

PascalScada v0.6.1

2009-11-04T19:37:00.002-03:00

Em breve estará disponível para download a versão 0.6.1 do PascalScada. Esta é uma versão de correção da versão 0.6. As novidades ficam por alguns exemplos e pela documentação que irá acompanhar os proximos pacotes.

In english:

The version 0.6.1 of PascalScada will be available to download soon. This is a bug fix release. The news are some example applications and the documentation.

PascalScada v0.6 liberado/released

2009-10-06T08:51:00.003-03:00

O PascalScada 0.6 está liberado para download. Você pode fazer download desta versão em

https://sourceforge.net/projects/pascalscada/files/.

Ficaram nessa versão apenas quatro pequenos detalhes/falhas:

THMIScrollBar não funciona em GTK 2 e QT. Para contornar isso, habilite a propriedade UpdateOnMove para true.
THMICheckBox não está funcionando no Lazarus/FPC. A LCL do Lazarus está sob constantes alterações, e pelo que pude perceber algumas delas mudaram a forma como o controle pai (TCheckBox) trabalha, consequentemente quebrando o THMICheckBox.
THMIRadioButton não está mais disponível para Lazarus (temporariamente). Como citado no item anterior, THMIRadioButton é uma classe filha de THMICheckBox, e por questões de implementação LCL, isso não é mais possível.
Na versão 0.5 você tinha TModbusMasterDriver. Devido a criação do Modbus TCP o nome dessa classe mudou para TModbusRTUDriver. Ela continua com as mesmas configurações e propriedades da classe anterior.

Bom era isso. Divirtam-se!

In english:

PascalScada 0.6 is released. Download it from https://sourceforge.net/projects/pascalscada/files/.

Four small issues/bugs still remain in this version:

THMIScrollBar doesn't work under GTK 2 and QT. A workaround is set UpdateOnMove=true.
THMICheckBox doesn't work under Lazarus/FPC. The Lazarus team is working a lot in the LCL, doing a lot of changes, and some of this changes have changed the way of TCheckBox works, breaking the THMICheckBox.
THMIRadioButton isn't available for Lazarus (temporarily). The cause is the same of item 2. THMIRadioButton is a child class of THMICheckBox, and this isn't possible anymore.
In version 0.5 is available the TModbusMasterDriver class. Due creation of Modbus TCP, the name of this class was changed to TModbusRTUDriver. This class has the same properties and methods of TModbusMasterDriver.

PascalScada v0.6 SVN

2009-09-25T20:12:00.003-03:00

Já está disponível para download no svn a versão 0.6 do PascalScada. Cole a url abaixo no tortoise ou no seu cliente svn preferido para fazer o download.

https://pascalscada.svn.sourceforge.net/svnroot/pascalscada/tags/0.6/

Em breve estará disponível para download no Sourceforge.

In english:

Is available to download in the svn the version 0.6 of PascalScada. Paste the url above in your favorite svn client to download it.

The packages will be available in Sourceforge too.

PascalScada v0.6 está chegando/PascalScada v0.6 is comming soon

2009-09-25T01:27:00.004-03:00

A versão 0.6 do PascalScada está chegando. Com ela muitas melhorias de estabilidade e desempenho chegam junto. As novidades ficam pelos drivers TCP_UDPPort e pelo driver de protocolo ModBus TCP. Estava planejado para esta versão históricos e receitas, mas devido ao fato da ZeosLib não estar disponível para ambientes 64 bits, isto foi adiado para a próxima versão.

Até o próximo final de semana os pacotes da versão 0.6 estarão disponíveis para download no Sourcefoget.net.

In english:

The version 0.6 of PascalScada is comming soon. This release have a lot of improvements of stability and performance. The new features is the TCP_UDPPort and the ModBusTCP protocol driver. It was planned to this release Historic and Recipes, but the ZeosLib isn't done for 64 bits environments. This will be available in the next release of PascalScada. In the next days the packages of version 0.6 will be available to download in the Sourceforge.net.

Acertos/Fixes

2009-09-18T20:23:00.004-03:00

Os novos drivers TCP_UDPPort e o ModBusTCP já estão quase prontos. Porem nesses últimos testes acabei por encontrar alguns problemas de instabilidade que afetam todos os drivers.

Recomendo a todos que estão usando o PascalSCADA atualizarem suas cópias.

In english:

The new drivers TCP_UDPPort and the ModBusTCP are almost done. But in the last tests, I found some stability issues that affects all drivers.

Please update your copy to avoid problems.

Porta TCP/UDP e ModBusTCP/ TCP/UDP port and ModBusTCP

2009-09-15T00:44:00.003-03:00

Está disponível no svn do PascalSCADA dois novos drivers.

O primeiro driver dá suporte a comunicações TCP/UDP sobre IPv4. Este era o primeiro passo para suportar CLP's modernos de vários fabricantes, tais como Siemens, Allen Bradley e Schneider.

O segundo driver da suporte ao ModBus TCP usado em CLP's da Schneider.

Ambos estão em fase de testes e precisam de melhorias e otimizações.

In english:

Are available in the svn trunk of PascalSCADA two new drivers.

First driver enable TCP/UDP over IPv4 communications. This is the first step to support the last generation PLC's of many manufactures, like Siemens, Allen Bradley and Schneider.

The second driver is the ModBus TCP, used in PLC's of Schneider.

Both are in test and need fixes and optimizations.

Dependências / Dependency

2009-08-12T09:05:00.003-03:00

Nesses últimos tempos sem notícia alguma estive trabalhando na parte de histórico/receitas do PascalSCADA (o que requer banco de dados). Nesse tempo analisei várias bibliotecas de banco de dados e a que mais se acertou com a proposta do projeto foi a ZeosLib. Porem como uso uma plataforma 64 bits (Ubuntu 9.04) verifiquei que o ZeosLib não está pronto para a plataforma 64 bits. Então comecei um esforço para torna-la segura nesses ambientes. Progresso pode ser visto no ZeosBugs e no Forum da ZeosLib.

Nesse meio tempo também foram iniciados os drivers de porta TCP/UDP para futuramente dar suporte a drivers de protocolo tais como ISOTCP utilizado pela Siemens e o ModbusTCP utilizado pela Schneider.

In english:

In the last time without any new, I was worked with historic/recipes of PascalScada (that needs Database access). I analyzed many components of database access and the library with better works with PascalScada is the ZeosLib. But ZeosLib aren't done for the 64 bits environments. So, I started a force to make ZeosLib safe in these environments. The progress can be viewed in ZeosBugs and in ZeosLib Forum.

I started too a TCP/UDP Port driver to support protocol drivers like ISOTCP (Siemens) and ModbusTCP (Schneider).

Drivers e boas noticias/ Drivers and good news

2009-04-29T15:15:00.008-03:00

Desculpem a demora em dar novas noticias.

Tenho varias noticias a respeito do PascalSCADA:

Um novo driver foi criado e está em fase de testes. É o TIBoxDriver, usado para comunicar com módulos de refrigeração, usado em camaras frias de caminhões. Eu sei que ele não tem nada haver com automação industrial, mas fica ai o driver para quem estiver precisando comunicar com modulos de refrigeração.
A primeira aplicação foi desenvolvida com a biblioteca PascalSCADA. Foi desenvolvida pela empresa SITEC - Soluções em Tecnologia Industrial LTDA, de Chapecó, Santa Catarina, Brasil. A aplicação foi feita usando o Delphi 2006/2007. A aplicação controla estufas de resfriamento de salsichas. Screenshots da aplicação em desenvolvimento e funcionando vão estar em breve disponiveis no site do projeto PascalSCADA no SourceForge.
O PascalSCADA precisa de ajuda. Para isso foram abertas vagas para desenvolvedores e testers. Se você se julga apto visite o site do PascalSCADA no SourceForge e veja como ajudar!

In english:

Sorry by the long delay between posts.

I have many news of PascalSCADA:

New driver is done and it is under tests. It's called TIBoxDriver, used to communicate with refrigeration modules, used in cold chambers of trucks. I know that don't have anything related with industrial automation, but if you need to communicate with the refrigeration modules you have at least one way to do this.
The first application has been made with PascalScada. It was developed by the company SITEC - Soluções em Tecnologia Industrial LTDA, from Chapecó, Santa Catarina, Brasil. The application has been developed with Delphi 2006/2007 and control the cooling of sausages. Screenshots of the application in developement stage and running will be available shortly in the PascalSCADA site in the SourceForge.
The PascalSCADA need help. For this are opened some positions for developers and testers. If you have some skills in development or testing, visit PascalSCADA on SourceForge and see how to help!

West N6100 Ascii

2009-03-25T00:19:00.003-03:00

Dias atras anunciei o novo driver para controladores de processos West N6100. Agora mais uma boa notícia. Ele está quase 100% testado e com boa funcionalidade. Veja nos postagens anteriores como baixar e usar esse novo recurso...

In english:

Some days ago, I announced the new protocol driver for the West N6100. Now, I have another good new. It is 100% tested and are working well. See in the previous posts how to download and to use this new driver...

Novo Driver: WEST6100Ascii / New driver: WEST6100Ascii

2009-03-21T02:38:00.007-03:00

Já está disponivel no trunk do svn do PascalSCADA o driver WEST6100 Ascii para comunicar com os controladores WEST 6100 e 6100+. Salientando que está é uma versão ainda em fase de testes!

Se você achar algum problema com este driver, por favor reporte ele no bugtracking do pascalscada ou envie um comentário/email detalhando.

IN ENGLISH:

Is available in SVN trunk of PascalSCADA the WEST6100 Ascii driver to communicate with controllers WEST 6100 and 6100+. To remember, this driver still in testing yet.

If you have some problems with this driver, please report it using the pascalSCADA bugtracking or send-me a e-mail or a comment in this blog.

TEvent no Unix IV / TEvent under Unix episode IV

2009-03-02T14:52:00.007-03:00

Lembram dos episódios passados com a classe TEvent no Unix (http://pascalscada.blogspot.com/2007/10/eventos-no-unix-episdio-iii.html). Pois bem, isso agora chega ao fim. Após muito conversar com Jonas Maebe do FreePascal, eu mesmo escrevi a solução para esse problema (com algumas melhorias sugeridas pelo Jonas). Eu já havia feito algo para o projeto PascalSCADA e chamei de TCrossEvent, então resolvi compartilhar a solução. No unix os eventos são emulados, e por isso entre um SetEvent e a continuação de uma thread após um WaitFor levava em torno de 400ms (muito para uma comunicação). Após a reimplementação isso leva 0ms (igual em todos os sistemas operacionais).

Por enquanto a solução está somente na versão desenvolvimento do FreePascal (versão 2.3.1), mas creio eu que estará disponível na próxima versão estável do compilador...

O histórico da resolução está em
http://bugs.freepascal.org/view.php?id=9895

In english:

You remember of past episodes with the class TEvent under Unix (http://pascalscada.blogspot.com/2007/10/eventos-no-unix-episdio-iii.html). After talk a lot with Jonas Maebe, developer of FreePascal, I wrote the solution for this problem (with some improvements sugested by Jonas). I did something like this for PascalSCADA, called TCrossEvent, then I shared this. Under Unix, Events are emulated and between a SetEvent and a thread wake up this take about a 400ms (many time for communications). After reimplementation this take about of 0ms (in all operating systems).

At moment, this solution is avaliable in the development version of FreePascal(version 2.3.1), but I think that it will be available in the next stable version of FreePascal.

The historic:
http://bugs.freepascal.org/view.php?id=9895

PascalSCADA: Instalação/Installation

2009-02-20T16:01:00.021-03:00

Para facilitar a instalação do PascalSCADA, aqui vão algumas dicas.

Primeiro baixe o PascalSCADA (Veja nas postagens anteriores como proceder) e descompacte o PascalSCADA em uma pasta de sua preferência;

Usuários de Delphi:

Vá em File -> Open e navegue até a pasta onde você baixou o PascalSCADA e selecione o arquivo "pacalscada.dpk";
Se você usa Delphi 7 clique no botão Install, se você usa Delphi 2005 em diante, clique com o botão direito sobre o pacote pascalscada.bpl no gerenciador de projetos e selecione a opção Install;
Agora vá no menu Tools -> Options e procure algo relacionado a Library. Adicione o path do PascalSCADA e clique em OK.
Seja feliz!

Usuários do Lazarus:

Vá no menu Package -> Open package file (.lpk) e navegue até a pasta onde você baixou o PascalSCADA e selecione o arquivo "pascalscada.lpk".
Clique no botão Install e seja feliz!

Nota: você pode optar por baixar a versão em desenvolvimento, que dependendo das modificações poderá não funcionar. Clique aqui para baixar esta versão.

In english:

To facility the installation of PascalSCADA, I wrote some tips:

First, download the PascalSCADA (see previous post to see how to do) and unzip the PascalSCADA on a folder of your choice.

Delphi users:

Select File -> Open and go to the folder that you have downloaded the PascalSCADA and select the file "pascalscada.dpk";
If you use Delphi 7 click on button Install. If you use Delphi 2005 or later right click in package pascalscada.bpl on the project manager and select Install on popup menu.
So, select menu Tools -> Options and search something like Library and add the folder of the PascalSCADA and click OK.
Be happy!

Lazarus users:

Select menu Package -> Open package file (.lpk) and go to the folder that you have downloaded the PascalSCADA and select the file "pascalscada.lpk".
Click on button Install and be happy!

Note: you can download the development version, that can work or not depending of the modifications on it. Click here to download this version.

PascalSCADA SVN

2009-02-05T21:48:00.008-03:00

URL para baixar a versão desenvolvimento do PascalSCADA (via SVN):

Usuários do windows devem instalar o TortoiseSVN (http://tortoisesvn.net/downloads). Após isso devem criar uma pasta vazia e dentro dela clicar com o botão direito e escolher "SVN Checkout"

No dialogo que aparece cole a URL abaixo no campo "URL of repository":

https://pascalscada.svn.sourceforge.net/svnroot/pascalscada/trunk

Usuários de Linux/FreeBSD é só digitar em um console:

svn co https://pascalscada.svn.sourceforge.net/svnroot/pascalscada/trunk pascalscada

Você pode colaborar relatando bugs ou sugerindo ideias em:

http://apps.sourceforge.net/mantisbt/pascalscada/my_view_page.php

In english:

URL to download the development version of PascalSCADA (SVN):

Windows users must install the TortoiseSVN (http://tortoisesvn.net/downloads). So create a empty folder and then right click into and choose "SVN Checkout" in the menu.

In dialog box, paste the url bellow in the field "URL of repository":

https://pascalscada.svn.sourceforge.net/svnroot/pascalscada/trunk

Linux/FreeBSD users execute in a console the command bellow:

svn co https://pascalscada.svn.sourceforge.net/svnroot/pascalscada/trunk pascalscada

You can collaborate relating bugs or suggesting ideas in:

http://apps.sourceforge.net/mantisbt/pascalscada/my_view_page.php

PascalSCADA Open-Source

2009-02-05T11:29:00.005-03:00

Olá a todos!

Talvez a notícia que todos aguardavam! O PascalSCADA vai se tornar um projeto Open-Source. Estou apenas aguardando a aprovação do SourceForge.net para hospedar o projeto lá.

Então, se você quiser colaborar, seja com codigos, testes ou ideias, seja bem vindo!

In english:

The new that everyone is waiting! The PascalSCADA will be a open-source project. I'm waiting the approval of SourceForge.net to host the project there.

So, if you wants to work, with codes, tests or ideas, you are welcome!

Lazarus Resource (LRS)

2009-01-29T23:29:00.005-03:00

Após algum tempo sem nenhuma notícia, venho com duas novidades.

A primeira é que já está disponível o tag Bit, que é responsável por gerar valores com determinados bits de uma palavra de outro tag.

A outra é que devido ao fato de ter de criar um novo ícone para este tag e ter de recriar o arquivo lrs que armazena os icones dos componentes, acabei criando uma ferramenta gráfica para facilitar esta tarefa.

O download dessa ferramenta eu irei disponibilizar assim que possível.

In english:

After a long time without news, i have two good news:

First, is that I created the Tag Bit, to map bits of other tags.

The second is a small graphic tool that I created to manage lazarus resources easily,
This tool will be avaliable shortly...

FreePascal FreeBSD x86_64 snapshots...

2008-09-19T08:41:00.007-03:00

Nas últimas semanas, verifiquei que o FPC não tinha suporte para a plataforma FreeBSD x86_64... Mas nessa semana, saiu o primeiro snapshot da versão... Esta semana vão sair os primeiros testes do PascalScada no FreeBSD x86_64. O link para baixar o snapshot do FPC FreeBSD x86_64 está abaixo.

In english:

Last week, I see that FPC don't have support for FreeBSD x86_64. But in this week, the first snapshot of this version was released. This week I will do the first tests of PascalScada under FreeBSD x86_64. See bellow the link to download FPC FreeBSD x86_64 snapshot.

FPC FreeBSD x86_64 download:

http://www.stack.nl/~marcov/snapshot-freebsd-x86_64-r11798.tar.bz2

Documentação do projeto/Project Documentation

2008-08-05T13:49:00.019-03:00

Dias atrás, enquanto depurava alguns recursos do driver driver de protocolo, tive a necessidade de saber como um método de uma classe funcionava. Porém como não havia muito (para não dizer nenhum comentário) tive que ir ler o código... fiquei um tanto frustrado com isso, e pensei: poderia haver um comentário ou algum documento explicando. Ai me perguntei novamente: será que não há alguma ferramenta que retire dos comentários do código-fonte a documentação?

Então fui no santo Google procurei sobre isso e para minha surpresa, há varias ferramentas usadas para esse fim. Testei várias, entre as quais posso citar RoboDoc e PasDoc, este último escrito totalmente em pascal.

Escolhi para documentar o projeto PascalScada o PasDoc, por produzir uma documentação fácil de se entender e por ser voltado a linguagem Pascal.

Semana passada, foram alinhados os segmentos de desenvolvimento (que era o mais adiantado), documentação e arte. A partir de agora, desenvolvimento, arte e documentação serão feitos juntos. Nos próximos dias, coloco a disposição as imagens dos componentes.

In English:

Some days ago, while I´m debugging the protocol component, I needed to know how a procedure works. But I don´t wrote many comments in the code, so I have to read the code to learn how it works. I was frustrated and ask to myself: Could be exists some comment in source code or some documentation. I asked-me again: Exists some tool that compiles the documentation from the comments in the source code?

Then, I looked on Google about this and to my surprise, exists many tools to do that. I did some tests with Robodoc and Pasdoc, the last entirely wrote in Pascal.

I chose to document the PascalScada the PasDoc, to produce a documentation simple to understand and to be focused in Pascal language.

Last week, documentation and art are finished, and from now, develpment, art and documentation will be done all together.

Furthermore, I will post the component icons in some days.

PascalScada sobre/on Linux x86_64

2008-07-23T14:44:00.005-03:00

Um screenshot do PascalScada rodando em Linux x86_64. Veja aqui.

In english:

Screenshot of PascalScada running on Linux x86_64. See here.

FreeBSD amd64

2008-07-21T20:41:00.008-03:00

Em português:

Duas notícias, uma boa e outra ruim. A primeira é a que o PascalScada é compatível com Linux x86_64 (64 bits). Instalei hoje o Slamd64, não tendo problemas para rodar o FPC 2.2.2 rc2, Lazarus 0.9.25 snapshot 20080721 e o PascalScada em plataforma 64 bits. Muito rápido e estável.

A má notícia é que após muito empenho, descobri que ainda não há suporte do FPC para FreeBSD AMD64. Partes escritas em assembler não foram escritas para o FreeBSD x86_64, o que me obriga adiar os testes em FreeBSD 64bits.

In english:

I have two news, an good and other bad. The first news is that PascalScada is ready for Linux x86_64 (64 bits). I installed Slamd64 today and runs without problems FPC 2.2.2 rc2, Lazarus 0.9.25 snapshot 20080721 and the PascalScada on 64 bits platform. Very fast and stable.

The bad news is that FPC isn't ready for FreeBSD AMD64. Sources wrote in assembler is not ported to FreeBSD x86_64 yet, delaying my tests on FreeBSD 64 bits.

Ser ou não ser... Ter ou não ter...

2008-06-25T13:25:00.008-03:00

Bom, tenho recebido através dos comentários, uma pergunta um tanto frequente: é open source ou não?
Bom, logo no inicio desse projeto me fiz essa mesma pergunta. Mas por enquanto, não vou tornar o projeto aberto. Minha idéia é acabar os componentes básicos, ver como anda a sua utilização e ai dependendo os resultados eu irei decidir se será ou não aberto.

Bom, já que estamos esclarecendo as coisas, vale lembrar que quando comecei não pensei em apenas componentes de comunicação. Eu pensei em uma biblioteca de desenvolvimento. Ela serve tanto para desenvolvedores de aplicações HMI/Scada tanto para quem desenvolve drivers de porta e/ou de protocolos para esses sistemas. Como assim? É simples: através da orientação a objetos, para criar um novo driver, é necessário apenas sobrescrever alguns métodos e criar as propriedades respectivas ao seu driver e ele está pronto! Criei isso vendo a possibilidade de fazer algo melhor.

Após concluir todos os componentes básicos (alarmes, receitas, objetos de tela, segurança) pretendo criar drivers para os seguintes fabricantes de PLC:

Siemens
Allen Bradley
Telemecanique

Mas não se assuste, não falta muito não. Hoje estão disponíveis para uso os seguintes componentes:

TSerialPortDriver
TModBusMasterDriver
TPIPE
TUserScale
TLinearScale
TPLCTagNumber
TPLCBlock
TPLCBlockElement
TPLCString
THMIEdit
THMILabel
THMICheckBox
THMIRadioButton
THMITrackBar
THMIProgressBar
THMIRadioGroup
THMIUpDown
THMIScrollBar
THMIAnimation
THMIText

Todos eles rodando em Windows/Linux e FreeBSD.

Linux para trabalho e diversão

2008-06-24T22:12:00.003-03:00

Após alguns dias quebrando a cabeça com alguns problemas muito dos malucos no Ubuntu 7.10 i386 que existe no laboratório da faculdade onde estudo, resolvi (com muito esforco) instalar o slackware 10.2 (muito desatualizado) no meu PC em casa. Nele fiz todo o necessário para instalar o PascalScada (instalar e configurar FPC e Lazarus) e para minha surpresa não acontece um único problema sequer... O único problema visível foi uma pequena perda de desempenho (nada alarmante) que creio eu estar atrelado ao kernel 2.4. Assim que possível vou tentar instalar o Ubuntu 8.04 i386 e o Slackware 12.1 i386 para tirar dúvidas.

Como disse um amigo meu, Ubuntu é para abrir o Firefox e deu! :D

FreeBSD ULE Scheduler...

2008-05-30T09:01:00.005-03:00

Recentemente foram lançadas as novas versões do FreeBSD: 6.3 e a 7.0. Com elas muitas mudanças foram implementadas no gerenciamento de processos para obter melhores desempenhos com sistemas multiprocessados. Porem com essa alteração no scheduler do FreeBSD, algumas aplicações multi-tarefa que rodavam em processadores simples que utilizavam zonas criticas para sincronização de threads pararam de funcionar, incluisive aplicações construidas com a biblioteca PascalScada. Porem, na última noite esse e outros problemas foram corrigidos e toda a biblioteca foi testada por mais de oito horas diretas sem problemas, em FreeBSD e Windows.

Suporte a Linux??? Claro que sim!

2008-05-16T13:14:00.004-03:00

Após um longo tempo escrevendo componentes do pacote HMI, resolvi tirar um tempo para testar a biblioteca no Linux, e o melhor de tudo é que foi preciso muito pouco para ter ela funcionando no Ubuntu 7.10. Assim como no FreeBSD e no Windows, a comunicação está rápida e os componentes estão estáveis.

Fora essa grande notícia, vale ressaltar que o pacote Scada já está quase completo, falta somente alarmes, receitas, histórios e o componente gerenciador de aplicação.
Já o pacote HMI falta somente mais dois componentes THMIButton e THMIGraph para ficar completo.

Após a escrita desses, será iniciado os testes para as plataformas de 64 bits (FreeBSD, Windows e Linux).

Não, ele não está parado

2007-12-18T07:26:00.001-03:00

O projeto continua vivo, só resolvendo alguns outros problemas relacionados... Veja: http://www.nabble.com/Lazarus--2B-Qt4-in-FreeBSD-to13909682.html

Ele vive!

2007-11-14T07:29:00.000-03:00

Bom dia!

Após quase um mes sem uma misera notícia, veio a melhor de todas: o PascalScada roda em Unix!

Ele já estava rodando faz quase 20 dias (tive que criar uma classe para manipular eventos sob Unix já que os eventos fornecidos pelo FreePascal não me atendiam na integra). A comunicação está veloz (falta eu escrever uma rotina que limpe os buffers TX e RX da porta serial no Unix). Porem essa versão de 20 dias atraz criava um deadlock quando a aplicação era finalizada. Ontem, após ser rescrito boa parte dos componentes centrais usando a filosofia KISS (Keep It Simple, Stupid = Mantenha-o simples, estupido) onde passei a usar Sessões Críticas ao invés de mensagens, eventos e suspensões de threads (as suspensões de threads não sao suportadas no Unix), e pela primeira vez, a aplicação se comportou da maneira esperada. Hoje vou fazer mais alguns acertos e escrever a rotina de limpeza de buffers e teremos uma versão estável multi-plataforma.

Att.

Fabio Luis Girardi

Ps. até deixei de mecher no motor do meu vecão pra ver esse negócio rodando ontem a noite, to podre de sono por ter ido dormir passado das 2 da manha, mas to feliz feliz!

Eventos no Unix, Episódio III

2007-10-08T21:54:00.000-03:00

Boa noite!

Tenho pouco a dizer, por enquanto. Hoje venho com duas notícias, uma boa e outra ruim. A boa notícia é que os primeiros pacotes do protocolo MODBUS já começam a circular no unix. A má notícia é que diferente do windows esses pacotes só acontecem a aproximadamente 1 segundo, isso devido a sinalização das threads que estão esperando um evento ocorrer, que leva até 500ms (0.5 segundos) entre a sinalização (setevent) e a liberação da thread (WaitFor)...

Um bug já esta sendo submetido ao pessoal do FreePascal... Vamos ver no que dá...

Fabio Luis Girardi

Progresso no Unix.

2007-10-03T13:57:00.000-03:00

Boa tarde!!

Noite passada, as primeiras linhas do componente de porta serial foram escritas para o Unix. Já estão escritas as rotinas de abertura, fechamento, leitura e escrita de valores na porta serial para os sistemas unix-like. Faltam algumas poucas rotinas que checam se a configuração está ok, verifique a existência da porta serial em questão e que faça a devida limpeza dos buffers em caso de falhas.

Até sábado, a pretendo ter a primeira versão rodando no meu FreeBSD.

Fabio Luis Girardi

Eventos no Unix, PARTE 2

2007-09-28T22:36:00.000-03:00

Boa noite!!

Depois de perder algumas noites de sono para descobrir como compilar o Freepascal no FreeBSD, duas ÓTIMAS notícias vieram. A primeira é que consegui finalmente compilar o FreePascal 2.3.1 no FreeBSD. A segunda é que recentemente o problema na classe TEvent no Freepascal (lembra aquela classe de sincronização de threads que não suportava timeouts?) Pois bem esse problema foi resolvido na revisão 8545 do FPC, e eu compilei a revisão 8646 no FreeBSD. O que isso quer dizer? Que agora temos o projeto Pascal Scada dando seus primeiros passos no Unix...

Bom, cheguei a reiniciar o PC, entrar no ruindows pra postar essa noticia... então calcule a felicidade do menininho... :D

Semana que vem tem mais notícias...

Fabio Luis Girardi

Eventos no Unix

2007-09-24T23:34:00.000-03:00

Bom, eu esperava uma boa notícia, até tentei implementar uma classe Cross de eventos que em windows utilizava a classe TEvent e no Unix os métodos RTLEvent*, mas eu comprovei o que o pessoal do desenvolvimento do FreePascal falou. Os eventos implementados com RTLEvent* no Unix não são persistentes, ou seja, toda a vez que um evento entra em espera, ele necessita um SetEvent para cada vez que entrar em espera, mesmo que nenhum ResetEvent tenha sido acionado...

Bom isso vai adiar meus planos para o Unix por uns dias, até que um conjunto de métodos/classes que consigam manipular eventos de maneira compatível com a existente no freepascal windows seja disponibilizado no Unix.

FPC 2.2 e Linux/Unix

2007-09-16T16:34:00.001-03:00

Recentemente foi lançada uma nova versão do FreePascal, a esperada versão 2.2.0 e com elas vieram várias melhorias e suportes, tais como uma compilação mais veloz em ambientes Windows e suporte a Windows 64 bits entre outros.

Veio também uma ótima notícia para o projeto Pascal Scada, o suporte de eventos com timeout em ambientes Unix, que até então não funcionava nessas plataformas. Testei hoje em um FreeBSD 6.2 com FreePascal 2.2 e com FreePascal 2.0.4 e pra minha alegria, os timeouts funcionaram perfeitamente quando compilados em FreePascal 2.2. Mas como nem tudo é perfeito, a classe TEvent continua com o mesmo problema da versão 2.0.4. A minha solução é implementar uma nova classe que usa a classe TEvent em ambientes Windows e que usa os métodos disponíveis na RTL do freepascal quando em Unix.

Bom era isso... Essa semana tem mais noticias (boas eu espero)

Pascal HMI/SCADA

2007-09-12T19:18:00.003-03:00

O projeto Pascal HMI/SCADA é um conjunto de componentes e controles visuais feitos para Delphi e Lazarus. Seu foco é facilitar o desenvolvimento de aplicações de supervisão, controle de processos e aquisição de dados de maneira integrada com qualquer gerenciador de banco de dados.

O desenvolvimento de uma aplicação no Pascal HMI/SCADA é semelhante as ferramentas HMI/Scada disponíveis hoje no mercado.

Como ainda é um projeto em desenvolvimento, não estão disponíveis todas as funcionalidades de um sistema HMI/Scada descente, como por exemplo receitas, históricos e controle de segurança. As funcionalidade disponíveis são:

Driver de porta de comunicação serial
Driver de protocolo MODBUS RTU (funções 1, 2, 3, 4, 5, 6, 7, 16)
Tag PLC Number
Tag Bloco
Tag Elemento de Bloco
Tag PLC String (suporta strings no formato C e Siemens)
Controle de tela HMI RadioButton
Controle de tela HMI CheckBox
Controle de tela HMI Edit
Controle de tela HMI Label
Controle de tela HMI TrackBar
Escalonador linear para os tags elemento de bloco e plc number

Atualmente esses recursos estão disponíveis somente para Windows. Os motivos para que estes não estarem disponíveis para Linux/FreeBSD é a deficiência das classes de sincronização de threads no FreePascal nesses ambientes. Componentes que não usam threads funcionam, alguns totalmente, outros parcialmente nesses ambientes. Os que funcionam parcialmente é devido a peculiaridades de interface gráfica. Admito que posso estar enganado a respeito das thread em ambientes Linux, pois ainda não instalei um sistema operacional linux descente e compilado um Lazarus/FreePascal nesse sistema em minha casa.

Bom, por enquanto é só.

Att.

Fabio Luis Girardi