(imagem)<\/p>\n
Algo muito importante a se notar nestes componentes \u00e9 que eles s\u00e3o feitos para serem chamados exclusivamente via c\u00f3digo. Portanto, n\u00e3o h\u00e1 maneiras gr\u00e1ficas (ou f\u00e1ceis) de proteger seus recursos que necessitam acesso exclusivo.<\/p>\n
Por fim, para dar acesso exclusivo a um recurso ou fazer o sincronismo entre v\u00e1rios processos que est\u00e3o rodando diferentes esta\u00e7\u00f5es, \u00e9 necess\u00e1rio fazer o uso da classe TMutexClient em cada uma das aplica\u00e7\u00f5es que concorrentes. Portanto, se uma aplica\u00e7\u00e3o n\u00e3o fizer o uso desta classe, comportamento inesperados podem acontecer.<\/p>\n
Quando devo usar as classes TMutexServer e TMutexClient<\/h5>\n
\u00c9 recomendado usar as classes TMutexServer e TMutexClient nas seguintes situa\u00e7\u00f5es:<\/p>\n
- \n
- Quando a integridade de v\u00e1rias escritas devem ser garantidas, evitando que uma aplica\u00e7\u00e3o sobrescreva os dados enviados por outra.<\/li>\n
- Quando se deseja acesso exclusivo a um recurso (CLP) quando determinadas a\u00e7\u00f5es estejam sendo executadas em um ambiente com m\u00faltiplas aplica\u00e7\u00f5es.<\/li>\n<\/ul>\n
Onde encontro as classes TMutexServer e TMutexClient<\/h5>\n
Ambas as classes s\u00e3o disponibilizadas quando \u00e9 instalado o pacote pascalscada.lpk.<\/p>\n
Uma vez instalado este pacote, dois itens na paleta \u201cPascalSCADA utils\u201d ser\u00e3o exibidos, conforme a figura abaixo:<\/p>\n
![\"Captura](\"http:\/\/www.pascalscada.com\/wp-content\/uploads\/2016\/08\/Captura-de-tela-de-2016-11-29-191818.png\")
<\/a><\/p>\nComo configurar uma aplica\u00e7\u00e3o para usar as classes TMutexServer e TMutexClient<\/h5>\n
Esta configura\u00e7\u00e3o \u00e9 feita em duas etapas, uma do lado servidor e outra no lado da(s) aplica\u00e7\u00e3o(\u00f5es) cliente(s)<\/p>\n
No servidor:<\/h6>\n
Na aplica\u00e7\u00e3o ou servi\u00e7o que ir\u00e1 arbitrar o sincronismo\/acesso ao recurso s\u00e3o necess\u00e1rias alguns poucos passos:<\/p>\n
- \n
- Insira no seu projeto uma instancia da classe TMutexServer para cada recurso com acesso exclusivo que deseja proteger;<\/li>\n
- Configure a porta TCP\/IP que este servidor de mutex ir\u00e1 atender as requisi\u00e7\u00f5es clientes. Este n\u00famero n\u00e3o pode repetir caso v\u00e1rias inst\u00e2ncias da classe TMutexServer estejam inseridas e habilitadas na sua aplica\u00e7\u00e3o\/servi\u00e7o. A porta informada tamb\u00e9m deve estar dispon\u00edvel, pois a classe TMutexServer ir\u00e1 abri-l\u00e1 para aceitar conex\u00f5es. Portanto, modifica\u00e7\u00f5es no seu firewall podem ser necess\u00e1rias.
\n![\"Sele\u00e7\u00e3o_447\"](\"http:\/\/www.pascalscada.com\/wp-content\/uploads\/2016\/08\/Sele\u00e7\u00e3o_447.png\")
\n<\/a><\/li>\n- Ative o Mutex server, alterando a propriedade Active para true:
![\"Sele\u00e7\u00e3o_448\"](\"http:\/\/www.pascalscada.com\/wp-content\/uploads\/2016\/08\/Sele\u00e7\u00e3o_448.png\")
<\/a><\/li>\n- Rode sua aplica\u00e7\u00e3o\/servi\u00e7o. Se estiver fazendo isto em um sistema operacional Windows, a primeira vez que rodar seu servi\u00e7o, uma pergunta do firewall querendo saber se voc\u00ea autoriza a abertura da porta ser\u00e1 exibida. Em sistemas derivados do Unix (e no Windows tamb\u00e9m), basta usar o utilit\u00e1rio netstat<\/em> para verificar quais portas est\u00e3o abertas:
\n
\n<\/a>![\"Sele\u00e7\u00e3o_449\"](\"http:\/\/www.pascalscada.com\/wp-content\/uploads\/2016\/08\/Sele\u00e7\u00e3o_449.png\")
<\/a><\/li>\n<\/ol>\nNas aplica\u00e7\u00f5es clientes<\/h6>\n
A configura\u00e7\u00e3o das aplica\u00e7\u00f5es clientes se resumem a duas etapas b\u00e1sicas, sendo elas a configura\u00e7\u00e3o da conex\u00e3o com o servidor mutex e ap\u00f3s isso, a altera\u00e7\u00e3o do c\u00f3digo para verifica\u00e7\u00e3o de acesso exclusivo ao recurso.<\/p>\n
A configura\u00e7\u00e3o da conex\u00e3o do mutex client \u00e9 muito semelhante a configura\u00e7\u00e3o do mutex server, sendo necess\u00e1rio configurar duas propriedades extras: a primeira \u00e9 o endere\u00e7o IPv4 do mutex server. Aten\u00e7\u00e3o: somente endere\u00e7os IPv4 s\u00e3o aceitos! N\u00e3o tente inserir endere\u00e7os IPv6 ou nome de hosts!<\/strong> A segunda configura\u00e7\u00e3o que precisa ser feita \u00e9 dizer qual \u00e9 o comportamento do Mutex Client caso este esteja tendo dificuldades em conectar no mutex server, sendo a configura\u00e7\u00e3o de negar acesso o seu padr\u00e3o. Acompanhe as imagens que seguem:<\/p>\n
- \n
- Insira na sua aplica\u00e7\u00e3o uma inst\u00e2ncia da classe TMutexClient. Neste exemplo, ser\u00e3o inseridas duas inst\u00e2ncias da classe para que seja poss\u00edvel reproduzir uma situa\u00e7\u00e3o de concorr\u00eancia.
![\"Sele\u00e7\u00e3o_451\"](\"http:\/\/www.pascalscada.com\/wp-content\/uploads\/2016\/08\/Sele\u00e7\u00e3o_451.png\")
<\/a><\/li>\n- Configure o endere\u00e7o dos mutex clients para que estes encontrem o mutex server, que \u00e9 quem ir\u00e1 arbitrar quem ter\u00e1 acesso ao recurso exclusivo. Lembre-se: somente IPv4 \u00e9 aceito!<\/strong>
\n![\"Sele\u00e7\u00e3o_452\"](\"http:\/\/www.pascalscada.com\/wp-content\/uploads\/2016\/08\/Sele\u00e7\u00e3o_452.png\")
<\/a><\/li>\n- Informe a porta do mutex server para os clientes. No nosso exemplo mantivemos o padr\u00e3o.
\n![\"Sele\u00e7\u00e3o_453\"](\"http:\/\/www.pascalscada.com\/wp-content\/uploads\/2016\/08\/Sele\u00e7\u00e3o_453.png\")
<\/a><\/li>\n- Configure a propriedade DefaultBehavior<\/em> , pois \u00e9 ela quem configura o comportamento padr\u00e3o quando o mutex client n\u00e3o consegue conex\u00e3o com o mutex server. Esta configura\u00e7\u00e3o estando com o valor False<\/em> , ir\u00e1 negar acesso ao recurso caso o mutex client esteja desconectado.Caso o esta propriedade seja True e<\/em> o cliente esteja desconectado do mutex server, uma tentativa de acesso feita nesse momento resultar\u00e1 na libera\u00e7\u00e3o de acesso ao recurso. Use com cuidado!<\/strong><\/li>\n
- Por \u00faltimo, basta ativar a conex\u00e3o para que os clientes conectem no mutex server configurado.
\n![\"Sele\u00e7\u00e3o_454\"](\"http:\/\/www.pascalscada.com\/wp-content\/uploads\/2016\/08\/Sele\u00e7\u00e3o_454.png\")
\n<\/a><\/li>\n- Rode a aplica\u00e7\u00e3o e verifique se as conex\u00f5es com o mutex server foram estabelecidas usando o netstat.
\n![\"Sele\u00e7\u00e3o_456\"](\"http:\/\/www.pascalscada.com\/wp-content\/uploads\/2016\/08\/Sele\u00e7\u00e3o_456.png\")
<\/a><\/li>\n<\/ol>\nIrei neste exemplo, adicionar dois panels quer ir\u00e3o funcionar como bot\u00f5es (sim Panels, pelo simples fato que as classes de bot\u00f5es nativas n\u00e3o aceitam o valor da propriedade color), que no primeiro clique ir\u00e3o solicitar o recurso ao mutex server e no clique seguinte ir\u00e1 liberar acesso. Caso o bot\u00e3o clicado obtenha o recurso, ele ir\u00e1 trocar a cor do bot\u00e3o.
![\"Sele\u00e7\u00e3o_459\"](\"http:\/\/www.pascalscada.com\/wp-content\/uploads\/2016\/08\/Sele\u00e7\u00e3o_459.png\")
<\/a>
\n<\/a>
\n<\/a><\/p>\nD\u00ea dois cliques no primeiro bot\u00e3o e insira o seguinte c\u00f3digo no evento OnClick:<\/p>\n
procedure TForm1.Button1Click(Sender: TObject);\nbegin\n if Button1.Color = clLime then begin\n if MutexClient1.Leave then\n Button1.Color := clDefault;\n end else begin\n if MutexClient1.TryEnter then begin\n Button1.Color := clLime;\n end;\n end;\nend;<\/pre>\n
Repita o procedimento e insira este c\u00f3digo no evento OnClick do objeto Button2:<\/p>\n
procedure TForm1.Button2Click(Sender: TObject);\nbegin\n if Button2.Color = clLime then begin\n if MutexClient2.Leave then\n Button2.Color := clDefault;\n end else begin\n if MutexClient2.TryEnter then begin\n Button2.Color := clLime;\n end;\n end;\nend;<\/pre>\n
O video de funcionamento deste exemplo pode ser visto aqui:<\/p>\n
- Configure o endere\u00e7o dos mutex clients para que estes encontrem o mutex server, que \u00e9 quem ir\u00e1 arbitrar quem ter\u00e1 acesso ao recurso exclusivo. Lembre-se: somente IPv4 \u00e9 aceito!<\/strong>
- Ative o Mutex server, alterando a propriedade Active para true:
![\n<\/a>](\"http:\/\/www.pascalscada.com\/wp-content\/uploads\/2016\/08\/Sele\u00e7\u00e3o_457.png\"){kind=link}
![\n<\/a><\/p>\nD\u00ea dois cliques no primeiro bot\u00e3o e insira o seguinte c\u00f3digo no evento OnClick:<\/p>\nprocedure TForm1.Button1Click(Sender: TObject);\nbegin\n if Button1.Color = clLime then begin\n if MutexClient1.Leave then\n Button1.Color := clDefault;\n end else begin\n if MutexClient1.TryEnter then begin\n Button1.Color := clLime;\n end;\n end;\nend;<\/pre>\nRepita o procedimento e insira este c\u00f3digo no evento OnClick do objeto Button2:<\/p>\nprocedure TForm1.Button2Click(Sender: TObject);\nbegin\n if Button2.Color = clLime then begin\n if MutexClient2.Leave then\n Button2.Color := clDefault;\n end else begin\n if MutexClient2.TryEnter then begin\n Button2.Color := clLime;\n end;\n end;\nend;<\/pre>\nO video de funcionamento deste exemplo pode ser visto aqui:<\/p>\n](\"http:\/\/www.pascalscada.com\/wp-content\/uploads\/2016\/08\/Sele\u00e7\u00e3o_455.png\"){kind=link}