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 1 object frmInstallCACIC: TfrmInstallCACIC
2 2 Left = 409
3 3 Top = 3
4   - Width = 600
5   - Height = 620
6 4 BorderIcons = [biSystemMenu]
7 5 Caption = 'InstallCACIC'
  6 + ClientHeight = 586
  7 + ClientWidth = 592
8 8 Color = clBtnFace
9 9 Font.Charset = DEFAULT_CHARSET
10 10 Font.Color = clWindowText
... ...
installcacic/uInstallCACIC.pas
  Diff comments   View file @eb5a1f3
... ... @@ -912,7 +912,7 @@ begin
912 912  
913 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 917 if (strCommResponseTest <> '0') then
918 918 Begin
... ... @@ -951,7 +951,7 @@ begin
951 951 End
952 952 else
953 953 Begin
954   - richProgress.Lines.Add('>> Teste de Conexão Negativo!');
  954 + richProgress.Lines.Add('>> Teste de Conexão Negativo!);
955 955 staticStatus.Caption := 'Insucesso no Teste de Comunicação com o Endereço Informado!';
956 956 staticStatus.Font.Color := clRed;
957 957 edWebManagerAddress.SetFocus;
... ...