Commit 2d78db14ed36e355bff79b1db91b2387e7392faa
1 parent
1fd3c042
Exists in
master
Ajustado timer de getTest (para verificar se há coleta forçada) com tempo dinâmi…
…co, recebendo o valor do gerente (em minutos).
Showing
4 changed files
with
36 additions
and
23 deletions
Show diff stats
Mapa/Source/synsock.pas
gercols/gercols.dpr
@@ -366,6 +366,7 @@ Begin | @@ -366,6 +366,7 @@ Begin | ||
366 | objCacic.setValueToFile('Configs' ,'NuTimeOutSrCacic' ,objCacic.getValueFromTags('nu_timeout_srcacic' , strRetorno, '<>'), strMainProgramInfFileName); | 366 | objCacic.setValueToFile('Configs' ,'NuTimeOutSrCacic' ,objCacic.getValueFromTags('nu_timeout_srcacic' , strRetorno, '<>'), strMainProgramInfFileName); |
367 | objCacic.setValueToFile('Configs' ,'CsPermitirDesativarSrCacic' ,objCacic.getValueFromTags('cs_permitir_desativar_srcacic' , strRetorno, '<>'), strMainProgramInfFileName); | 367 | objCacic.setValueToFile('Configs' ,'CsPermitirDesativarSrCacic' ,objCacic.getValueFromTags('cs_permitir_desativar_srcacic' , strRetorno, '<>'), strMainProgramInfFileName); |
368 | objCacic.setValueToFile('Configs' ,'TeEnderecosMacInvalidos' ,objCacic.getValueFromTags('te_enderecos_mac_invalidos' , strRetorno, '<>'), strMainProgramInfFileName); | 368 | objCacic.setValueToFile('Configs' ,'TeEnderecosMacInvalidos' ,objCacic.getValueFromTags('te_enderecos_mac_invalidos' , strRetorno, '<>'), strMainProgramInfFileName); |
369 | + objCacic.setValueToFile('Configs' ,'timerForcaColeta' ,objCacic.getValueFromTags('timerForcaColeta' , strRetorno, '<>'), strMainProgramInfFileName); | ||
369 | end; | 370 | end; |
370 | end; | 371 | end; |
371 | Except | 372 | Except |
@@ -396,7 +397,9 @@ Begin | @@ -396,7 +397,9 @@ Begin | ||
396 | objCacic.setValueToFile('Configs','Patrimonio', | 397 | objCacic.setValueToFile('Configs','Patrimonio', |
397 | objCacic.getValueFromTags('Patrimonio', strRetorno, '<>'), | 398 | objCacic.getValueFromTags('Patrimonio', strRetorno, '<>'), |
398 | strGerColsInfFileName); | 399 | strGerColsInfFileName); |
399 | - objCacic.setValueToFile('Configs','termos_patrimonio' ,objCacic.getValueFromTags('Mensagem' , strRetorno,'<>'), strGerColsInfFileName); | 400 | + objCacic.setValueToFile('Configs','termos_patrimonio', |
401 | + objCacic.getValueFromTags('Mensagem', strRetorno,'<>'), | ||
402 | + strGerColsInfFileName); | ||
400 | End; | 403 | End; |
401 | End; | 404 | End; |
402 | except | 405 | except |
main.dfm
@@ -1764,6 +1764,7 @@ object FormularioGeral: TFormularioGeral | @@ -1764,6 +1764,7 @@ object FormularioGeral: TFormularioGeral | ||
1764 | Top = 568 | 1764 | Top = 568 |
1765 | end | 1765 | end |
1766 | object CheckForcaColeta: TTimer | 1766 | object CheckForcaColeta: TTimer |
1767 | + Enabled = False | ||
1767 | Interval = 3600000 | 1768 | Interval = 3600000 |
1768 | OnTimer = CheckForcaColetaTimer | 1769 | OnTimer = CheckForcaColetaTimer |
1769 | Left = 392 | 1770 | Left = 392 |
main.pas
@@ -1098,9 +1098,9 @@ begin | @@ -1098,9 +1098,9 @@ begin | ||
1098 | Rewrite (textFileAguarde); | 1098 | Rewrite (textFileAguarde); |
1099 | 1099 | ||
1100 | Append(textFileAguarde); | 1100 | Append(textFileAguarde); |
1101 | - Writeln(textFileAguarde,'Apenas um pseudo-cookie para evitar sess�es concomitantes...'); | 1101 | + Writeln(textFileAguarde,'Apenas um pseudo-cookie para evitar sessões concomitantes...'); |
1102 | Append(textFileAguarde); | 1102 | Append(textFileAguarde); |
1103 | - Writeln(textFileAguarde,'Futuramente penso em colocar aqui o pID, para possibilitar finaliza��o via software externo...'); | 1103 | + Writeln(textFileAguarde,'Futuramente penso em colocar aqui o pID, para possibilitar finalização via software externo...'); |
1104 | Append(textFileAguarde); | 1104 | Append(textFileAguarde); |
1105 | 1105 | ||
1106 | // Inicializo bloqueando o m�dulo de suporte remoto seguro na FireWall nativa. | 1106 | // Inicializo bloqueando o m�dulo de suporte remoto seguro na FireWall nativa. |
@@ -1115,13 +1115,13 @@ begin | @@ -1115,13 +1115,13 @@ begin | ||
1115 | begin | 1115 | begin |
1116 | if FindCmdLineSwitch('atualizacao', True) then | 1116 | if FindCmdLineSwitch('atualizacao', True) then |
1117 | begin | 1117 | begin |
1118 | - objCACIC.writeDebugLog('FormCreate: Op��o /atualizacao recebida...'); | ||
1119 | - objCACIC.writeDailyLog('Reinicializando com vers�o '+ objCACIC.GetVersionInfo(ParamStr(0))); | 1118 | + objCACIC.writeDebugLog('FormCreate: Opção /atualizacao recebida...'); |
1119 | + objCACIC.writeDailyLog('Reinicializando com versão '+ objCACIC.GetVersionInfo(ParamStr(0))); | ||
1120 | end | 1120 | end |
1121 | else | 1121 | else |
1122 | begin | 1122 | begin |
1123 | - objCACIC.writeDebugLog('FormCreate: Op��o /execute recebida...'); | ||
1124 | - objCACIC.writeDailyLog('Op��o para execu��o imediata encontrada...'); | 1123 | + objCACIC.writeDebugLog('FormCreate: Opção /execute recebida...'); |
1124 | + objCACIC.writeDailyLog('Opção para execução imediata encontrada...'); | ||
1125 | end; | 1125 | end; |
1126 | Invoca_GerCols('getMapa'); | 1126 | Invoca_GerCols('getMapa'); |
1127 | ExecutaCACIC(nil); | 1127 | ExecutaCACIC(nil); |
@@ -1142,11 +1142,13 @@ begin | @@ -1142,11 +1142,13 @@ begin | ||
1142 | SetaVariaveisGlobais; | 1142 | SetaVariaveisGlobais; |
1143 | Except | 1143 | Except |
1144 | on E : Exception do | 1144 | on E : Exception do |
1145 | - objCACIC.writeExceptionLog(E.Message,E.ClassName,'SETANDO VARI�VEIS GLOBAIS!'); | 1145 | + objCACIC.writeExceptionLog(E.Message,E.ClassName,'SETANDO VARIÁVEIS GLOBAIS!'); |
1146 | End; | 1146 | End; |
1147 | 1147 | ||
1148 | timerNuExecApos.Enabled := True; | 1148 | timerNuExecApos.Enabled := True; |
1149 | 1149 | ||
1150 | + CheckForcaColeta.Enabled := True; | ||
1151 | + | ||
1150 | InicializaTray; | 1152 | InicializaTray; |
1151 | 1153 | ||
1152 | // String list e objeto para captura de a��es durante suporte remoto | 1154 | // String list e objeto para captura de a��es durante suporte remoto |
@@ -1154,20 +1156,20 @@ begin | @@ -1154,20 +1156,20 @@ begin | ||
1154 | End | 1156 | End |
1155 | else | 1157 | else |
1156 | Begin | 1158 | Begin |
1157 | - objCACIC.writeDebugLog('FormCreate: Agente finalizado devido a concomit�ncia de sess�es...'); | 1159 | + objCACIC.writeDebugLog('FormCreate: Agente finalizado devido a concomitância de sessões...'); |
1158 | Finaliza; | 1160 | Finaliza; |
1159 | End; | 1161 | End; |
1160 | Except | 1162 | Except |
1161 | on E:Exception do | 1163 | on E:Exception do |
1162 | Begin | 1164 | Begin |
1163 | - objCACIC.writeExceptionLog(E.Message,e.ClassName,'PROBLEMAS NA INICIALIZA��O (2)'); | 1165 | + objCACIC.writeExceptionLog(E.Message,e.ClassName,'PROBLEMAS NA INICIALIZAÇÃO (2)'); |
1164 | Finaliza(false); | 1166 | Finaliza(false); |
1165 | End; | 1167 | End; |
1166 | End | 1168 | End |
1167 | End | 1169 | End |
1168 | else | 1170 | else |
1169 | Begin | 1171 | Begin |
1170 | - objCACIC.writeDailyLog('Execu��o Impedida por Falta de Integridade do Agente Principal!'); | 1172 | + objCACIC.writeDailyLog('Execução Impedida por Falta de Integridade do Agente Principal!'); |
1171 | Finaliza(false); | 1173 | Finaliza(false); |
1172 | End; | 1174 | End; |
1173 | end; | 1175 | end; |
@@ -1189,10 +1191,15 @@ Begin | @@ -1189,10 +1191,15 @@ Begin | ||
1189 | if (Trim(objCACIC.GetValueFromFile('Configs','NuIntervaloExec',strMainProgramInfFileName)) = '') then | 1191 | if (Trim(objCACIC.GetValueFromFile('Configs','NuIntervaloExec',strMainProgramInfFileName)) = '') then |
1190 | objCACIC.setValueToFile('Configs','NuIntervaloExec', '4' ,strMainProgramInfFileName); | 1192 | objCACIC.setValueToFile('Configs','NuIntervaloExec', '4' ,strMainProgramInfFileName); |
1191 | 1193 | ||
1194 | + if (Trim(objCACIC.GetValueFromFile('Configs','timerForcaColeta',strMainProgramInfFileName)) = '') then | ||
1195 | + objCACIC.setValueToFile('Configs', 'timerForcaColeta', '60', strMainProgramInfFileName); | ||
1196 | + | ||
1192 | // IN_EXIBE_BANDEJA O valor padr�o � mostrar o �cone na bandeja. | 1197 | // IN_EXIBE_BANDEJA O valor padr�o � mostrar o �cone na bandeja. |
1193 | // NU_EXEC_APOS Assumir� o padr�o de 0 minutos para execu��o imediata em caso de primeira execu��o (instala��o). | 1198 | // NU_EXEC_APOS Assumir� o padr�o de 0 minutos para execu��o imediata em caso de primeira execu��o (instala��o). |
1194 | // NU_INTERVALO_EXEC Assumir� o padr�o de 4 horas para o intervalo, no caso de problemas. | 1199 | // NU_INTERVALO_EXEC Assumir� o padr�o de 4 horas para o intervalo, no caso de problemas. |
1195 | 1200 | ||
1201 | + CheckForcaColeta.Interval := strtoint(objCACIC.getValueFromFile('Configs', 'timerForcaColeta', strMainProgramInfFileName)) * 60000; | ||
1202 | + | ||
1196 | // N�mero de horas do intervalo (3.600.000 milisegundos correspondem a 1 hora). | 1203 | // N�mero de horas do intervalo (3.600.000 milisegundos correspondem a 1 hora). |
1197 | timerNuIntervalo.Interval := strtoint(objCACIC.GetValueFromFile('Configs','NuIntervaloExec',strMainProgramInfFileName)) * 3600000; | 1204 | timerNuIntervalo.Interval := strtoint(objCACIC.GetValueFromFile('Configs','NuIntervaloExec',strMainProgramInfFileName)) * 3600000; |
1198 | 1205 | ||
@@ -1210,12 +1217,12 @@ Begin | @@ -1210,12 +1217,12 @@ Begin | ||
1210 | Begin | 1217 | Begin |
1211 | objCACIC.deleteFileOrFolder(objCACIC.getLocalFolderName + 'Temp\atualiza_CACIC.txt'); | 1218 | objCACIC.deleteFileOrFolder(objCACIC.getLocalFolderName + 'Temp\atualiza_CACIC.txt'); |
1212 | timerNuExecApos.Interval := 1000; // 1 minuto para chamar GerCols /coletas | 1219 | timerNuExecApos.Interval := 1000; // 1 minuto para chamar GerCols /coletas |
1213 | - objCACIC.writeDailyLog('Reinicializando com vers�o '+ objCACIC.GetVersionInfo(ParamStr(0))); | 1220 | + objCACIC.writeDailyLog('Reinicializando com versão '+ objCACIC.GetVersionInfo(ParamStr(0))); |
1214 | End | 1221 | End |
1215 | else | 1222 | else |
1216 | Begin | 1223 | Begin |
1217 | - objCACIC.writeDailyLog('Inicio autom�tico de coletas programado para ' + objCACIC.GetValueFromFile('Configs','NuExecApos',strMainProgramInfFileName) + ' minutos.'); | ||
1218 | - objCACIC.writeDailyLog('Executar as a��es de coletas automaticamente a cada ' + objCACIC.GetValueFromFile('Configs','NuIntervaloExec',strMainProgramInfFileName) + ' horas.'); | 1224 | + objCACIC.writeDailyLog('Inicio automático de coletas programado para ' + objCACIC.GetValueFromFile('Configs','NuExecApos',strMainProgramInfFileName) + ' minutos.'); |
1225 | + objCACIC.writeDailyLog('Executar as ações de coletas automaticamente a cada ' + objCACIC.GetValueFromFile('Configs','NuIntervaloExec',strMainProgramInfFileName) + ' horas.'); | ||
1219 | objCACIC.writeDailyLog(DupeString('=',100)); | 1226 | objCACIC.writeDailyLog(DupeString('=',100)); |
1220 | End; | 1227 | End; |
1221 | 1228 | ||
@@ -1232,7 +1239,7 @@ Begin | @@ -1232,7 +1239,7 @@ Begin | ||
1232 | Except | 1239 | Except |
1233 | on E : Exception do | 1240 | on E : Exception do |
1234 | Begin | 1241 | Begin |
1235 | - objCACIC.writeExceptionLog(E.Message,E.ClassName,'PROBLEMAS NA INICIALIZA��O (1)'); | 1242 | + objCACIC.writeExceptionLog(E.Message,E.ClassName,'PROBLEMAS NA INICIALIZAÇÃO (1)'); |
1236 | Finaliza; | 1243 | Finaliza; |
1237 | End; | 1244 | End; |
1238 | End; | 1245 | End; |
@@ -1268,7 +1275,7 @@ Begin | @@ -1268,7 +1275,7 @@ Begin | ||
1268 | End; | 1275 | End; |
1269 | Except | 1276 | Except |
1270 | on E : Exception do | 1277 | on E : Exception do |
1271 | - objCACIC.writeExceptionLog(E.Message,E.ClassName,'PROBLEMAS NA FINALIZA��O'); | 1278 | + objCACIC.writeExceptionLog(E.Message,E.ClassName,'PROBLEMAS NA FINALIZAÇÃO'); |
1272 | End; | 1279 | End; |
1273 | objCACIC.Free; | 1280 | objCACIC.Free; |
1274 | Halt(0); | 1281 | Halt(0); |
@@ -1292,15 +1299,18 @@ begin | @@ -1292,15 +1299,18 @@ begin | ||
1292 | Begin | 1299 | Begin |
1293 | ChecaCONFIGS; | 1300 | ChecaCONFIGS; |
1294 | 1301 | ||
1295 | - objCACIC.writeDebugLog('Invoca_GerCols: Invocando Gerente de Coletas com a��o: "'+p_acao+'"'); | 1302 | + objCACIC.writeDebugLog('Invoca_GerCols: Invocando Gerente de Coletas com ação: "'+p_acao+'"'); |
1296 | 1303 | ||
1297 | if boolShowInfo and not (p_acao = 'getTest') then | 1304 | if boolShowInfo and not (p_acao = 'getTest') then |
1298 | - objCACIC.writeDebugLog('Invocando Gerente de Coletas com a��o: "'+p_acao+'"'); | 1305 | + objCACIC.writeDebugLog('Invocando Gerente de Coletas com ação: "'+p_acao+'"'); |
1299 | 1306 | ||
1300 | timerNuExecApos.Enabled := False; | 1307 | timerNuExecApos.Enabled := False; |
1301 | objCACIC.writeDebugLog('Invoca_GerCols: Criando Processo GerCols => "'+objCACIC.getLocalFolderName + 'Modules\gercols.exe /'+p_acao+' /WebServicesFolderName='+objCACIC.getWebServicesFolderName +' /LocalFolderName='+objCACIC.getLocalFolderName + ' /WebManagerAddress=' + objCACIC.getWebManagerAddress + '"'); | 1308 | objCACIC.writeDebugLog('Invoca_GerCols: Criando Processo GerCols => "'+objCACIC.getLocalFolderName + 'Modules\gercols.exe /'+p_acao+' /WebServicesFolderName='+objCACIC.getWebServicesFolderName +' /LocalFolderName='+objCACIC.getLocalFolderName + ' /WebManagerAddress=' + objCACIC.getWebManagerAddress + '"'); |
1302 | 1309 | ||
1303 | - objCACIC.createOneProcess(objCACIC.getLocalFolderName + 'Modules\gercols.exe /'+p_acao+' /WebServicesFolderName='+objCACIC.getWebServicesFolderName +' /LocalFolderName='+objCACIC.getLocalFolderName + ' /WebManagerAddress=' + objCACIC.getWebManagerAddress + ' /MainProgramName=' + objCACIC.getMainProgramName + ' /MainProgramHash=' + objCACIC.getMainProgramHash,true,SW_HIDE); | 1310 | + if (p_acao = 'getTest') or (p_acao = 'getConfig') then |
1311 | + objCACIC.createOneProcess(objCACIC.getLocalFolderName + 'Modules\gercols.exe /'+p_acao+' /WebServicesFolderName='+objCACIC.getWebServicesFolderName +' /LocalFolderName='+objCACIC.getLocalFolderName + ' /WebManagerAddress=' + objCACIC.getWebManagerAddress + ' /MainProgramName=' + objCACIC.getMainProgramName + ' /MainProgramHash=' + objCACIC.getMainProgramHash,true,SW_HIDE) | ||
1312 | + else | ||
1313 | + objCACIC.createOneProcess(objCACIC.getLocalFolderName + 'Modules\gercols.exe /'+p_acao+' /WebServicesFolderName='+objCACIC.getWebServicesFolderName +' /LocalFolderName='+objCACIC.getLocalFolderName + ' /WebManagerAddress=' + objCACIC.getWebManagerAddress + ' /MainProgramName=' + objCACIC.getMainProgramName + ' /MainProgramHash=' + objCACIC.getMainProgramHash,false,SW_HIDE); | ||
1304 | 1314 | ||
1305 | g_intStatus := 1; | 1315 | g_intStatus := 1; |
1306 | objCacic.setBoolCipher(not objCacic.isInDebugMode); | 1316 | objCacic.setBoolCipher(not objCacic.isInDebugMode); |
@@ -1392,7 +1402,6 @@ begin | @@ -1392,7 +1402,6 @@ begin | ||
1392 | (trim(objCACIC.getValueFromFile('Configs','DtHrUltimaColeta', strGerColsInfFileName))='') or | 1402 | (trim(objCACIC.getValueFromFile('Configs','DtHrUltimaColeta', strGerColsInfFileName))='') or |
1393 | (trim(objCACIC.getValueFromFile('Configs','forca_coleta', strGerColsInfFileName))='S') Then | 1403 | (trim(objCACIC.getValueFromFile('Configs','forca_coleta', strGerColsInfFileName))='S') Then |
1394 | Begin | 1404 | Begin |
1395 | - | ||
1396 | timerCheckNoMinuto.Enabled := false; | 1405 | timerCheckNoMinuto.Enabled := false; |
1397 | objCACIC.writeDebugLog('ExecutaCACIC: Preparando chamada ao Gerente de Coletas...'); | 1406 | objCACIC.writeDebugLog('ExecutaCACIC: Preparando chamada ao Gerente de Coletas...'); |
1398 | 1407 | ||
@@ -1525,7 +1534,6 @@ begin | @@ -1525,7 +1534,6 @@ begin | ||
1525 | Invoca_GerCols('collect'); | 1534 | Invoca_GerCols('collect'); |
1526 | End; | 1535 | End; |
1527 | End; | 1536 | End; |
1528 | - | ||
1529 | timerCheckNoMinuto.Enabled := true; | 1537 | timerCheckNoMinuto.Enabled := true; |
1530 | End; | 1538 | End; |
1531 | 1539 | ||
@@ -2333,7 +2341,8 @@ procedure TFormularioGeral.CheckForcaColetaTimer(Sender: TObject); | @@ -2333,7 +2341,8 @@ procedure TFormularioGeral.CheckForcaColetaTimer(Sender: TObject); | ||
2333 | begin | 2341 | begin |
2334 | Invoca_GerCols('getTest'); | 2342 | Invoca_GerCols('getTest'); |
2335 | if (objCACIC.getValueFromFile('Configs', 'forca_coleta', strGerColsInfFileName) = 'S') then | 2343 | if (objCACIC.getValueFromFile('Configs', 'forca_coleta', strGerColsInfFileName) = 'S') then |
2336 | - Invoca_GerCols('collect'); | 2344 | +// Invoca_GerCols('collect'); |
2345 | + FormularioGeral.ExecutaCACIC(nil); | ||
2337 | end; | 2346 | end; |
2338 | 2347 | ||
2339 | procedure TFormularioGeral.CheckIfDownloadedVersion; | 2348 | procedure TFormularioGeral.CheckIfDownloadedVersion; |