Download as
Browse Code »

Commit eb5a1f32e976ec549bb64bebd42c4263f3fdaab2

Authored by Adriano Vieira
1 parent eac0887c
Exists in master

- atualizado contexto de acesso a novo ws 

git-svn-id: http://svn.softwarepublico.gov.br/svn/cacic/cacic/trunk/agente-windows@1229 fecfc0c7-e812-0410-ae72-849f08638ee7
Showing 2 changed files with 4 additions and 4 deletions   Show diff stats
installcacic/uInstallCACIC.dfm
  Diff comments   View file @eb5a1f3
1 object frmInstallCACIC: TfrmInstallCACIC 1 object frmInstallCACIC: TfrmInstallCACIC
2 Left = 409 2 Left = 409
3 Top = 3 3 Top = 3
4 - Width = 600  
5 - Height = 620  
6 BorderIcons = [biSystemMenu] 4 BorderIcons = [biSystemMenu]
7 Caption = 'InstallCACIC' 5 Caption = 'InstallCACIC'
  6 + ClientHeight = 586
  7 + ClientWidth = 592
8 Color = clBtnFace 8 Color = clBtnFace
9 Font.Charset = DEFAULT_CHARSET 9 Font.Charset = DEFAULT_CHARSET
10 Font.Color = clWindowText 10 Font.Color = clWindowText
installcacic/uInstallCACIC.pas
  Diff comments   View file @eb5a1f3
@@ -912,7 +912,7 @@ begin @@ -912,7 +912,7 @@ begin
912 912
913 informaProgresso('Efetuando comunicação com o endereço informado...'); 913 informaProgresso('Efetuando comunicação com o endereço informado...');
914 914
915 - strCommResponseTest := Comm(objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName + 'get_test.php', strFieldsAndValuesToRequest, objCACIC.getLocalFolderName,'>> Testando conexão'); 915 + strCommResponseTest := Comm(objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName + 'get/test', strFieldsAndValuesToRequest, objCACIC.getLocalFolderName,'>> Testando conexão');
916 916
917 if (strCommResponseTest <> '0') then 917 if (strCommResponseTest <> '0') then
918 Begin 918 Begin
@@ -951,7 +951,7 @@ begin @@ -951,7 +951,7 @@ begin
951 End 951 End
952 else 952 else
953 Begin 953 Begin
954 - richProgress.Lines.Add('>> Teste de Conexão Negativo!'); 954 + richProgress.Lines.Add('>> Teste de Conexão Negativo!);
955 staticStatus.Caption := 'Insucesso no Teste de Comunicação com o Endereço Informado!'; 955 staticStatus.Caption := 'Insucesso no Teste de Comunicação com o Endereço Informado!';
956 staticStatus.Font.Color := clRed; 956 staticStatus.Font.Color := clRed;
957 edWebManagerAddress.SetFocus; 957 edWebManagerAddress.SetFocus;