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 | 366 | objCacic.setValueToFile('Configs' ,'NuTimeOutSrCacic' ,objCacic.getValueFromTags('nu_timeout_srcacic' , strRetorno, '<>'), strMainProgramInfFileName); |
367 | 367 | objCacic.setValueToFile('Configs' ,'CsPermitirDesativarSrCacic' ,objCacic.getValueFromTags('cs_permitir_desativar_srcacic' , strRetorno, '<>'), strMainProgramInfFileName); |
368 | 368 | objCacic.setValueToFile('Configs' ,'TeEnderecosMacInvalidos' ,objCacic.getValueFromTags('te_enderecos_mac_invalidos' , strRetorno, '<>'), strMainProgramInfFileName); |
369 | + objCacic.setValueToFile('Configs' ,'timerForcaColeta' ,objCacic.getValueFromTags('timerForcaColeta' , strRetorno, '<>'), strMainProgramInfFileName); | |
369 | 370 | end; |
370 | 371 | end; |
371 | 372 | Except |
... | ... | @@ -396,7 +397,9 @@ Begin |
396 | 397 | objCacic.setValueToFile('Configs','Patrimonio', |
397 | 398 | objCacic.getValueFromTags('Patrimonio', strRetorno, '<>'), |
398 | 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 | 403 | End; |
401 | 404 | End; |
402 | 405 | except | ... | ... |
main.dfm
main.pas
... | ... | @@ -1098,9 +1098,9 @@ begin |
1098 | 1098 | Rewrite (textFileAguarde); |
1099 | 1099 | |
1100 | 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 | 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 | 1104 | Append(textFileAguarde); |
1105 | 1105 | |
1106 | 1106 | // Inicializo bloqueando o m�dulo de suporte remoto seguro na FireWall nativa. |
... | ... | @@ -1115,13 +1115,13 @@ begin |
1115 | 1115 | begin |
1116 | 1116 | if FindCmdLineSwitch('atualizacao', True) then |
1117 | 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 | 1120 | end |
1121 | 1121 | else |
1122 | 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 | 1125 | end; |
1126 | 1126 | Invoca_GerCols('getMapa'); |
1127 | 1127 | ExecutaCACIC(nil); |
... | ... | @@ -1142,11 +1142,13 @@ begin |
1142 | 1142 | SetaVariaveisGlobais; |
1143 | 1143 | Except |
1144 | 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 | 1146 | End; |
1147 | 1147 | |
1148 | 1148 | timerNuExecApos.Enabled := True; |
1149 | 1149 | |
1150 | + CheckForcaColeta.Enabled := True; | |
1151 | + | |
1150 | 1152 | InicializaTray; |
1151 | 1153 | |
1152 | 1154 | // String list e objeto para captura de a��es durante suporte remoto |
... | ... | @@ -1154,20 +1156,20 @@ begin |
1154 | 1156 | End |
1155 | 1157 | else |
1156 | 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 | 1160 | Finaliza; |
1159 | 1161 | End; |
1160 | 1162 | Except |
1161 | 1163 | on E:Exception do |
1162 | 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 | 1166 | Finaliza(false); |
1165 | 1167 | End; |
1166 | 1168 | End |
1167 | 1169 | End |
1168 | 1170 | else |
1169 | 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 | 1173 | Finaliza(false); |
1172 | 1174 | End; |
1173 | 1175 | end; |
... | ... | @@ -1189,10 +1191,15 @@ Begin |
1189 | 1191 | if (Trim(objCACIC.GetValueFromFile('Configs','NuIntervaloExec',strMainProgramInfFileName)) = '') then |
1190 | 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 | 1197 | // IN_EXIBE_BANDEJA O valor padr�o � mostrar o �cone na bandeja. |
1193 | 1198 | // NU_EXEC_APOS Assumir� o padr�o de 0 minutos para execu��o imediata em caso de primeira execu��o (instala��o). |
1194 | 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 | 1203 | // N�mero de horas do intervalo (3.600.000 milisegundos correspondem a 1 hora). |
1197 | 1204 | timerNuIntervalo.Interval := strtoint(objCACIC.GetValueFromFile('Configs','NuIntervaloExec',strMainProgramInfFileName)) * 3600000; |
1198 | 1205 | |
... | ... | @@ -1210,12 +1217,12 @@ Begin |
1210 | 1217 | Begin |
1211 | 1218 | objCACIC.deleteFileOrFolder(objCACIC.getLocalFolderName + 'Temp\atualiza_CACIC.txt'); |
1212 | 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 | 1221 | End |
1215 | 1222 | else |
1216 | 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 | 1226 | objCACIC.writeDailyLog(DupeString('=',100)); |
1220 | 1227 | End; |
1221 | 1228 | |
... | ... | @@ -1232,7 +1239,7 @@ Begin |
1232 | 1239 | Except |
1233 | 1240 | on E : Exception do |
1234 | 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 | 1243 | Finaliza; |
1237 | 1244 | End; |
1238 | 1245 | End; |
... | ... | @@ -1268,7 +1275,7 @@ Begin |
1268 | 1275 | End; |
1269 | 1276 | Except |
1270 | 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 | 1279 | End; |
1273 | 1280 | objCACIC.Free; |
1274 | 1281 | Halt(0); |
... | ... | @@ -1292,15 +1299,18 @@ begin |
1292 | 1299 | Begin |
1293 | 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 | 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 | 1307 | timerNuExecApos.Enabled := False; |
1301 | 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 | 1315 | g_intStatus := 1; |
1306 | 1316 | objCacic.setBoolCipher(not objCacic.isInDebugMode); |
... | ... | @@ -1392,7 +1402,6 @@ begin |
1392 | 1402 | (trim(objCACIC.getValueFromFile('Configs','DtHrUltimaColeta', strGerColsInfFileName))='') or |
1393 | 1403 | (trim(objCACIC.getValueFromFile('Configs','forca_coleta', strGerColsInfFileName))='S') Then |
1394 | 1404 | Begin |
1395 | - | |
1396 | 1405 | timerCheckNoMinuto.Enabled := false; |
1397 | 1406 | objCACIC.writeDebugLog('ExecutaCACIC: Preparando chamada ao Gerente de Coletas...'); |
1398 | 1407 | |
... | ... | @@ -1525,7 +1534,6 @@ begin |
1525 | 1534 | Invoca_GerCols('collect'); |
1526 | 1535 | End; |
1527 | 1536 | End; |
1528 | - | |
1529 | 1537 | timerCheckNoMinuto.Enabled := true; |
1530 | 1538 | End; |
1531 | 1539 | |
... | ... | @@ -2333,7 +2341,8 @@ procedure TFormularioGeral.CheckForcaColetaTimer(Sender: TObject); |
2333 | 2341 | begin |
2334 | 2342 | Invoca_GerCols('getTest'); |
2335 | 2343 | if (objCACIC.getValueFromFile('Configs', 'forca_coleta', strGerColsInfFileName) = 'S') then |
2336 | - Invoca_GerCols('collect'); | |
2344 | +// Invoca_GerCols('collect'); | |
2345 | + FormularioGeral.ExecutaCACIC(nil); | |
2337 | 2346 | end; |
2338 | 2347 | |
2339 | 2348 | procedure TFormularioGeral.CheckIfDownloadedVersion; | ... | ... |