From eb5a1f32e976ec549bb64bebd42c4263f3fdaab2 Mon Sep 17 00:00:00 2001
From: harpiain@gmail.com <harpiain@gmail.com>
Date: Tue, 2 Jul 2013 04:04:18 +0000
Subject: [PATCH] - atualizado contexto de acesso a novo ws

---
 installcacic/uInstallCACIC.dfm | 4 ++--
 installcacic/uInstallCACIC.pas | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/installcacic/uInstallCACIC.dfm b/installcacic/uInstallCACIC.dfm
index d67bd68..fe26339 100644
--- a/installcacic/uInstallCACIC.dfm
+++ b/installcacic/uInstallCACIC.dfm
@@ -1,10 +1,10 @@
 object frmInstallCACIC: TfrmInstallCACIC
   Left = 409
   Top = 3
-  Width = 600
-  Height = 620
   BorderIcons = [biSystemMenu]
   Caption = 'InstallCACIC'
+  ClientHeight = 586
+  ClientWidth = 592
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
diff --git a/installcacic/uInstallCACIC.pas b/installcacic/uInstallCACIC.pas
index c4fd7dc..12fc716 100644
--- a/installcacic/uInstallCACIC.pas
+++ b/installcacic/uInstallCACIC.pas
@@ -912,7 +912,7 @@ begin
 
         informaProgresso('Efetuando comunicação com o endereço informado...');
 
-        strCommResponseTest := Comm(objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName + 'get_test.php', strFieldsAndValuesToRequest, objCACIC.getLocalFolderName,'>> Testando conexão');
+        strCommResponseTest := Comm(objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName + 'get/test', strFieldsAndValuesToRequest, objCACIC.getLocalFolderName,'>> Testando conexão');
 
         if (strCommResponseTest <> '0') then
           Begin
@@ -951,7 +951,7 @@ begin
           End
         else
           Begin
-            richProgress.Lines.Add('>> Teste de Conexão Negativo!');
+            richProgress.Lines.Add('>> Teste de Conexão Negativo!);
             staticStatus.Caption    := 'Insucesso no Teste de Comunicação com o Endereço Informado!';
             staticStatus.Font.Color := clRed;
             edWebManagerAddress.SetFocus;
--
libgit2 0.21.2