Download as
Browse Code »

Commit cf0bd127728c4b275ea1696fbf2c1a432655ce88

Authored by Eric Menezes Noronha
1 parent 2de33eed
Exists in master

-Ajuste de execução do mapa pelo CacicService.

Showing 15 changed files with 208 additions and 64 deletions   Show diff stats
CACIC_Library.pas
  Diff comments   View file @cf0bd12
@@ -1238,24 +1238,32 @@ begin @@ -1238,24 +1238,32 @@ begin
1238 writeDebugLog('createOneProcess: pStrCmd => "' + pStrCmd + '"'); 1238 writeDebugLog('createOneProcess: pStrCmd => "' + pStrCmd + '"');
1239 writeDebugLog('createOneProcess: pBoolWait => "' + getBoolToString(pBoolWait) + '"'); 1239 writeDebugLog('createOneProcess: pBoolWait => "' + getBoolToString(pBoolWait) + '"');
1240 writeDebugLog('createOneProcess: ' + DupeString('*',100)); 1240 writeDebugLog('createOneProcess: ' + DupeString('*',100));
1241 - Result := CreateProcess(nil,  
1242 - PChar(pStrCmd),  
1243 - nil,  
1244 - nil,  
1245 - false,  
1246 - CREATE_NEW_CONSOLE or  
1247 - BELOW_NORMAL_PRIORITY_CLASS,  
1248 - nil,  
1249 - nil,  
1250 - SUInfo,  
1251 - ProcInfo);  
1252 - if (Result) then  
1253 - begin  
1254 - if(pBoolWait) then begin  
1255 - WaitForSingleObject(ProcInfo.hProcess, INFINITE);  
1256 - CloseHandle(ProcInfo.hProcess);  
1257 - CloseHandle(ProcInfo.hThread); 1241 + try
  1242 + Result := CreateProcess(nil,
  1243 + PChar(pStrCmd),
  1244 + nil,
  1245 + nil,
  1246 + false,
  1247 + CREATE_NEW_CONSOLE or
  1248 + BELOW_NORMAL_PRIORITY_CLASS,
  1249 + nil,
  1250 + nil,
  1251 + SUInfo,
  1252 + ProcInfo);
  1253 + if (Result) then
  1254 + begin
  1255 + if(pBoolWait) then begin
  1256 + WaitForSingleObject(ProcInfo.hProcess, INFINITE);
  1257 + CloseHandle(ProcInfo.hProcess);
  1258 + CloseHandle(ProcInfo.hThread);
  1259 + end;
1258 end; 1260 end;
  1261 + Except
  1262 + on E : Exception do
  1263 + begin
  1264 + writeExceptionLog(E.Message,E.ClassName,'createOnePcrocces: Falha ao criar processo');
  1265 + end;
  1266 +
1259 end; 1267 end;
1260 end; 1268 end;
1261 1269
MapaTesteProj/MapaCACIC.identcache
View file @cf0bd12
No preview for this file type
MapaTesteProj/MapaTeste.pas
  Diff comments   View file @cf0bd12
@@ -412,11 +412,7 @@ if edTeInfoPatrimonio5.text <> '' then @@ -412,11 +412,7 @@ if edTeInfoPatrimonio5.text <> '' then
412 btGravarInformacoes.Caption := 'Informações enviadas com sucesso...'; 412 btGravarInformacoes.Caption := 'Informações enviadas com sucesso...';
413 objCacic.setValueToFile('Collects','col_patr_last' , 413 objCacic.setValueToFile('Collects','col_patr_last' ,
414 objCacic.enCrypt(strColetaAtual), strGerColsInfFileName); 414 objCacic.enCrypt(strColetaAtual), strGerColsInfFileName);
415 - if objCacic.getValueFromFile('Configs', 'modulo_patr', strGerColsInfFileName) = 'N' then  
416 - objCacic.setValueToFile('Configs','col_patr_exe', 'n', strGerColsInfFileName)  
417 - else  
418 - objCacic.setValueToFile('Configs','col_patr_exe', 's', strGerColsInfFileName);  
419 - 415 + objCacic.setValueToFile('Configs','col_patr_exe', 's', strGerColsInfFileName);
420 416
421 End; 417 End;
422 objCacic.writeDebugLog(#13#10 + 'AtualizaPatrimonio: Dados Enviados ao Servidor!'); 418 objCacic.writeDebugLog(#13#10 + 'AtualizaPatrimonio: Dados Enviados ao Servidor!');
@@ -665,13 +661,23 @@ begin @@ -665,13 +661,23 @@ begin
665 661
666 if getConfigs <> '0' then 662 if getConfigs <> '0' then
667 begin 663 begin
668 - objCACIC.writeDailyLog('Iniciando formulário.');  
669 - mapa;  
670 - FormSetFocus(foco) 664 + if (objCACIC.getValueFromFile('Configs',
  665 + 'modulo_patr',
  666 + strGerColsInfFileName) = 'S') then
  667 + begin
  668 + objCACIC.writeDailyLog('Iniciando formulário.');
  669 + mapa;
  670 + FormSetFocus(foco)
  671 + end
  672 + else
  673 + begin
  674 + objCACIC.writeDailyLog('Modulo desabilitado.');
  675 + Finalizar;
  676 + end;
671 end 677 end
672 else 678 else
673 begin 679 begin
674 - objCACIC.writeDailyLog('Falha!!!!.'); 680 + objCACIC.writeDailyLog('Falha ao pegar informações!.');
675 Finalizar; 681 Finalizar;
676 end; 682 end;
677 end 683 end
cacic280.dproj
  Diff comments   View file @cf0bd12
@@ -40,7 +40,7 @@ @@ -40,7 +40,7 @@
40 <Borland.Personality>Delphi.Personality</Borland.Personality> 40 <Borland.Personality>Delphi.Personality</Borland.Personality>
41 <Borland.ProjectType>VCLApplication</Borland.ProjectType> 41 <Borland.ProjectType>VCLApplication</Borland.ProjectType>
42 <BorlandProject> 42 <BorlandProject>
43 -<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">8</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1046</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Dataprev - Emp. de TI da Prev.Social - URES/SESS</VersionInfoKeys><VersionInfoKeys Name="FileDescription">Sistema CACIC - Módulo Agente Principal</VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.8.1.8</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright">Baseado na licença GNU/LGPL</VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">Cacic - Configurador Automático e Coletor de Informações Computacionais</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">cacic280.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> 43 +<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">9</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1046</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Dataprev - Emp. de TI da Prev.Social - URES/SESS</VersionInfoKeys><VersionInfoKeys Name="FileDescription">Sistema CACIC - Módulo Agente Principal</VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.8.1.9</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright">Baseado na licença GNU/LGPL</VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">Cacic - Configurador Automático e Coletor de Informações Computacionais</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">cacic280.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
44 </ProjectExtensions> 44 </ProjectExtensions>
45 <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> 45 <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
46 <ItemGroup> 46 <ItemGroup>
cacic280.res
View file @cf0bd12
No preview for this file type
cacicservice/CACICserviceMain.pas
  Diff comments   View file @cf0bd12
@@ -433,6 +433,15 @@ Begin @@ -433,6 +433,15 @@ Begin
433 else 433 else
434 g_oCacic.writeDebugLog('ExecutaCACIC: Cookie Bloqueado pelo Agente Principal ENCONTRADO - CACIC em Execução!'); 434 g_oCacic.writeDebugLog('ExecutaCACIC: Cookie Bloqueado pelo Agente Principal ENCONTRADO - CACIC em Execução!');
435 435
  436 + // Execução do MAPA.
  437 + if ((g_oCacic.getValueFromFile('Configs', 'modulo_patr',
  438 + g_oCacic.getLocalFolderName + 'GerCols.inf') = 'S') and
  439 + (g_oCacic.getValueFromFile('Configs', 'col_patr_exe',
  440 + g_oCacic.getLocalFolderName + 'GerCols.inf') <> 's')) then
  441 + begin
  442 + g_oCacic.createOneProcess(g_oCacic.getLocalFolderName + 'Modules\mapacacic.exe',false,SW_NORMAL);
  443 + end;
  444 +
436 g_oCacic.writeDebugLog('ExecutaCACIC: Verificando existência de nova versão deste serviço para atualização.'); 445 g_oCacic.writeDebugLog('ExecutaCACIC: Verificando existência de nova versão deste serviço para atualização.');
437 // Verifico a existência de nova versão do serviço e finalizo em caso positivo... 446 // Verifico a existência de nova versão do serviço e finalizo em caso positivo...
438 if (FileExists(g_oCacic.getLocalFolderName + 'Temp\cacicservice.exe')) and 447 if (FileExists(g_oCacic.getLocalFolderName + 'Temp\cacicservice.exe')) and
chksis/chksis.dproj
  Diff comments   View file @cf0bd12
@@ -29,7 +29,7 @@ @@ -29,7 +29,7 @@
29 <Borland.Personality>Delphi.Personality</Borland.Personality> 29 <Borland.Personality>Delphi.Personality</Borland.Personality>
30 <Borland.ProjectType>VCLApplication</Borland.ProjectType> 30 <Borland.ProjectType>VCLApplication</Borland.ProjectType>
31 <BorlandProject> 31 <BorlandProject>
32 -<BorlandProject><Delphi.Personality><Parameters><Parameters Name="DebugSourceDirs">C:\Arquivos de programas\Borland\Delphi7\Mitec\D7</Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Arquivos de programas\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">7</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1046</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Dataprev - Emp. de TI da Prev.Social - URES/SESS</VersionInfoKeys><VersionInfoKeys Name="FileDescription">Sistema CACIC - Módulo Verificador de Integridade</VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.8.1.7</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">ChkSIS</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0</VersionInfoKeys><VersionInfoKeys Name="Comments">Licença: GNU/LGPL</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">chksis.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> 32 +<BorlandProject><Delphi.Personality><Parameters><Parameters Name="DebugSourceDirs">C:\Arquivos de programas\Borland\Delphi7\Mitec\D7</Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Arquivos de programas\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">8</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1046</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Dataprev - Emp. de TI da Prev.Social - URES/SESS</VersionInfoKeys><VersionInfoKeys Name="FileDescription">Sistema CACIC - Módulo Verificador de Integridade</VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.8.1.8</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">ChkSIS</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0</VersionInfoKeys><VersionInfoKeys Name="Comments">Licença: GNU/LGPL</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">chksis.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
33 </ProjectExtensions> 33 </ProjectExtensions>
34 <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> 34 <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
35 <ItemGroup> 35 <ItemGroup>
chksis/chksis.res
View file @cf0bd12
No preview for this file type
gercols/gercols.dpr
  Diff comments   View file @cf0bd12
@@ -223,7 +223,8 @@ End; @@ -223,7 +223,8 @@ End;
223 procedure getConfigs(p_mensagem_log : boolean); 223 procedure getConfigs(p_mensagem_log : boolean);
224 var strRetorno, 224 var strRetorno,
225 v_mensagem_log, 225 v_mensagem_log,
226 - strKeyWord : string; 226 + strKeyWord,
  227 + strForcaColeta : string;
227 textfileKeyWord : TextFile; 228 textfileKeyWord : TextFile;
228 Begin 229 Begin
229 Try 230 Try
@@ -243,10 +244,16 @@ Begin @@ -243,10 +244,16 @@ Begin
243 Begin 244 Begin
244 objCacic.setBoolCipher(not objCacic.isInDebugMode); 245 objCacic.setBoolCipher(not objCacic.isInDebugMode);
245 objCacic.setValueToFile('Configs','ConexaoOK','S', strGerColsInfFileName); 246 objCacic.setValueToFile('Configs','ConexaoOK','S', strGerColsInfFileName);
  247 +
246 if (objCacic.getValueFromTags('WebManagerAddress', strRetorno,'<>') <> '') then 248 if (objCacic.getValueFromTags('WebManagerAddress', strRetorno,'<>') <> '') then
247 Begin 249 Begin
  250 + strForcaColeta = objCacic.getValueFromTags('ForcaColeta', strRetorno, '<>');
  251 +// if strForcaColeta <> 'S' then
  252 +// objCacic.setValueToFile('Configs','col_patr_exe',
  253 +// 'n',
  254 +// strGerColsInfFileName);
248 objCacic.setValueToFile('Configs','forca_coleta', 255 objCacic.setValueToFile('Configs','forca_coleta',
249 - objCacic.getValueFromTags('ForcaColeta', strRetorno, '<>'), 256 + strForcaColeta,
250 strGerColsInfFileName); 257 strGerColsInfFileName);
251 objCacic.setValueToFile('Configs','WebManagerAddress' ,objCacic.getValueFromTags('WebManagerAddress' , strRetorno,'<>'), strChkSisInfFileName); 258 objCacic.setValueToFile('Configs','WebManagerAddress' ,objCacic.getValueFromTags('WebManagerAddress' , strRetorno,'<>'), strChkSisInfFileName);
252 objCacic.setValueToFile('Configs','WebServicesFolderName',objCacic.getValueFromTags('WebServicesFolderName', strRetorno,'<>'), strChkSisInfFileName); 259 objCacic.setValueToFile('Configs','WebServicesFolderName',objCacic.getValueFromTags('WebServicesFolderName', strRetorno,'<>'), strChkSisInfFileName);
gercols/gercols.dproj
  Diff comments   View file @cf0bd12
@@ -38,7 +38,7 @@ @@ -38,7 +38,7 @@
38 <Borland.Personality>Delphi.Personality</Borland.Personality> 38 <Borland.Personality>Delphi.Personality</Borland.Personality>
39 <Borland.ProjectType>VCLApplication</Borland.ProjectType> 39 <Borland.ProjectType>VCLApplication</Borland.ProjectType>
40 <BorlandProject> 40 <BorlandProject>
41 -<BorlandProject><Delphi.Personality><Parameters><Parameters Name="DebugSourceDirs">C:\vendors_lib\JVCL345CompleteJCL231-Build4197\jcl\lib\d7\debug</Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">6</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1046</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Dataprev-Emp. de TI da Prev Social - URES/SESS</VersionInfoKeys><VersionInfoKeys Name="FileDescription">Sistema CACIC - Módulo Gerente de Coletas</VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.8.1.6</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">Ger_COLS</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0</VersionInfoKeys><VersionInfoKeys Name="Comments">Licença: GNU/LGPL</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">gercols.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> 41 +<BorlandProject><Delphi.Personality><Parameters><Parameters Name="DebugSourceDirs">C:\vendors_lib\JVCL345CompleteJCL231-Build4197\jcl\lib\d7\debug</Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">7</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1046</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Dataprev-Emp. de TI da Prev Social - URES/SESS</VersionInfoKeys><VersionInfoKeys Name="FileDescription">Sistema CACIC - Módulo Gerente de Coletas</VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.8.1.7</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">Ger_COLS</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0</VersionInfoKeys><VersionInfoKeys Name="Comments">Licença: GNU/LGPL</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">gercols.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
42 </ProjectExtensions> 42 </ProjectExtensions>
43 <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> 43 <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
44 <ItemGroup> 44 <ItemGroup>
gercols/gercols.res
View file @cf0bd12
No preview for this file type
@@ -807,32 +807,36 @@ Begin @@ -807,32 +807,36 @@ Begin
807 807
808 strFileSize := objCACIC.getFileSize(objCACIC.getLocalFolderName + 'Modules\mapacacic.exe',true); 808 strFileSize := objCACIC.getFileSize(objCACIC.getLocalFolderName + 'Modules\mapacacic.exe',true);
809 809
810 - Result := false;  
811 -  
812 - objCACIC.deleteFileOrFolder(objCACIC.getLocalFolderName + 'Modules\mapacacic.exe'); 810 + if ((objCACIC.getFileHash(objCACIC.getLocalFolderName + 'Modules\mapacacic.exe') <>
  811 + objCACIC.getValueFromFile('Hash-Codes', 'MAPACACIC.EXE', strChksisInfFileName)) or
  812 + (strFileSize <= '0')) then
  813 + begin
  814 + Result := false;
  815 + objCACIC.deleteFileOrFolder(objCACIC.getLocalFolderName + 'Modules\mapacacic.exe');
813 816
814 - InicializaTray; 817 + InicializaTray;
815 818
816 - objCACIC.writeDailyLog('Acionando Recuperador de Mapa Cacic.');  
817 - objCACIC.writeDebugLog('ChecaMAPACACIC: Acionando Recuperador de Módulo Gerente de Coletas: '+objCACIC.getWinDir + 'chksis.exe');  
818 - objCACIC.createOneProcess(objCACIC.getWinDir + 'chksis.exe',false,SW_HIDE); 819 + objCACIC.writeDailyLog('Acionando Recuperador de Mapa Cacic.');
  820 + objCACIC.writeDebugLog('ChecaMAPACACIC: Acionando Recuperador de Módulo Gerente de Coletas: '+objCACIC.getWinDir + 'chksis.exe');
  821 + objCACIC.createOneProcess(objCACIC.getWinDir + 'chksis.exe',false,SW_HIDE);
819 822
820 - sleep(30000); // 30 segundos de espera para download do gercols.exe  
821 - objCacic.setBoolCipher(not objCacic.isInDebugMode);  
822 - strFileSize := objCACIC.getFileSize(objCACIC.getLocalFolderName + '\Modules\mapacacic.exe',true);  
823 - if not(strFileSize = '0') and not(strFileSize = '-1') then  
824 - Begin  
825 - objCACIC.writeDailyLog('Módulo Mapa Cacic RECUPERADO COM SUCESSO!');  
826 - objCACIC.writeDebugLog('ChecaMAPACACIC: Módulo Gerente de Coletas RECUPERADO COM SUCESSO!');  
827 - InicializaTray;  
828 - Result := True;  
829 - End  
830 - else  
831 - Begin  
832 - objCACIC.writeDailyLog('Módulo Mapa Cacic NÃO RECUPERADO!');  
833 - objCACIC.writeDebugLog('ChecaMAPACACIC: Módulo Gerente de Coletas NÃO RECUPERADO!');  
834 - End;  
835 - objCACIC.writeDebugLog('ChecaMAPACACIC: ' + DupeString('=',100)); 823 + sleep(30000); // 30 segundos de espera para download do gercols.exe
  824 + objCacic.setBoolCipher(not objCacic.isInDebugMode);
  825 + strFileSize := objCACIC.getFileSize(objCACIC.getLocalFolderName + '\Modules\mapacacic.exe',true);
  826 + if not(strFileSize = '0') and not(strFileSize = '-1') then
  827 + Begin
  828 + objCACIC.writeDailyLog('Módulo Mapa Cacic RECUPERADO COM SUCESSO!');
  829 + objCACIC.writeDebugLog('ChecaMAPACACIC: Módulo Gerente de Coletas RECUPERADO COM SUCESSO!');
  830 + InicializaTray;
  831 + Result := True;
  832 + End
  833 + else
  834 + Begin
  835 + objCACIC.writeDailyLog('Módulo Mapa Cacic NÃO RECUPERADO!');
  836 + objCACIC.writeDebugLog('ChecaMAPACACIC: Módulo Gerente de Coletas NÃO RECUPERADO!');
  837 + End;
  838 + objCACIC.writeDebugLog('ChecaMAPACACIC: ' + DupeString('=',100));
  839 + end;
836 End; 840 End;
837 841
838 // Verifico a existência do Gerente de Coletas, caso não exista, o chksis.exe fará download! 842 // Verifico a existência do Gerente de Coletas, caso não exista, o chksis.exe fará download!
@@ -1282,16 +1286,15 @@ begin @@ -1282,16 +1286,15 @@ begin
1282 begin 1286 begin
1283 // Caso exista o Mapa Cacic será verificada a versão e excluída caso antiga(Uma forma de ação pró-ativa) 1287 // Caso exista o Mapa Cacic será verificada a versão e excluída caso antiga(Uma forma de ação pró-ativa)
1284 if FileExists(objCACIC.getLocalFolderName + 'Modules\mapacacic.exe') then 1288 if FileExists(objCACIC.getLocalFolderName + 'Modules\mapacacic.exe') then
1285 - Begin  
1286 - ChecaCONFIGS;  
1287 -  
1288 - timerNuExecApos.Enabled := False;  
1289 - objCacic.writeDailyLog('Invoca_MapaCacic: Criando processo mapa.');  
1290 - objCACIC.writeDebugLog('Invoca_MapaCacic: Criando Processo Mapa => "'+objCACIC.getLocalFolderName + 'Modules\MapaCACIC.exe');  
1291 - objCACIC.createOneProcess(objCACIC.getLocalFolderName + 'Modules\mapacacic.exe',false,SW_SHOW);  
1292 - g_intStatus := 1;  
1293 - objCacic.setBoolCipher(not objCacic.isInDebugMode);  
1294 - End 1289 + Begin
  1290 + objCacic.writeDailyLog('Invoca_MapaCacic: Criando processo mapa.');
  1291 + objCACIC.writeDebugLog('Invoca_MapaCacic: Criando Processo Mapa => "'+objCACIC.getLocalFolderName + 'Modules\MapaCACIC.exe');
  1292 + sleep(10000); //Pausa para dar tempo de realizar o login na máquina, senão o usuário fica em branco.
  1293 + if (objCACIC.createOneProcess(objCACIC.getLocalFolderName + 'Modules\mapacacic.exe',false,SW_NORMAL)) then
  1294 + objCacic.writeDailyLog('Invoca_MapaCacic: Processo criado.')
  1295 + else
  1296 + objCacic.writeDailyLog('Invoca_MapaCacic: Falha ao criar processo.');
  1297 + End
1295 else 1298 else
1296 objCACIC.writeDailyLog('Não foi possível invocar o Mapa Cacic!'); 1299 objCACIC.writeDailyLog('Não foi possível invocar o Mapa Cacic!');
1297 End; 1300 End;
mapacacic/MapaCACIC.dpr 0 → 100644
  Diff comments   View file @cf0bd12
@@ -0,0 +1,58 @@ @@ -0,0 +1,58 @@
  1 +(**
  2 +---------------------------------------------------------------------------------------------------------------------------------------------------------------
  3 +Copyright 2000, 2001, 2002, 2003, 2004, 2005 Dataprev - Empresa de Tecnologia e Informações da Previdência Social, Brasil
  4 +
  5 +Este arquivo é parte do programa CACIC - Configurador Automático e Coletor de Informações Computacionais
  6 +
  7 +O CACIC é um software livre; você pode redistribui-lo e/ou modifica-lo dentro dos termos da Licença Pública Geral GNU como
  8 +publicada pela Fundação do Software Livre (FSF); na versão 2 da Licença, ou (na sua opinião) qualquer versão.
  9 +
  10 +Este programa é distribuido na esperança que possa ser util, mas SEM NENHUMA GARANTIA; sem uma garantia implicita de ADEQUAÇÂO a qualquer
  11 +MERCADO ou APLICAÇÃO EM PARTICULAR. Veja a Licença Pública Geral GNU para maiores detalhes.
  12 +
  13 +Você deve ter recebido uma cópia da Licença Pública Geral GNU, sob o título "LICENCA.txt", junto com este programa, se não, escreva para a Fundação do Software
  14 +Livre(FSF) Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
  15 +---------------------------------------------------------------------------------------------------------------------------------------------------------------
  16 +*)
  17 +
  18 +program MapaCACIC;
  19 +
  20 +uses
  21 + Forms,
  22 + Windows,
  23 + uMainMapa in 'uMainMapa.pas' {frmMapaCacic},
  24 + uAcessoMapa in 'uAcessoMapa.pas' {frmAcesso},
  25 + CACIC_Library in '..\CACIC_Library.pas',
  26 + CACIC_Comm in '..\CACIC_Comm.pas';
  27 +
  28 +{$R *.res}
  29 +
  30 +const APP_NAME = 'MapaCacic.exe';
  31 +
  32 +var hwind:HWND;
  33 + oCacic : TCACIC;
  34 +
  35 +begin
  36 + oCacic := TCACIC.Create();
  37 +
  38 + if( oCacic.isAppRunning( APP_NAME ) )
  39 + then begin
  40 + hwind := 0;
  41 + repeat // The string 'My app' must match your App Title (below)
  42 + hwind:=Windows.FindWindowEx(0,hwind,'TApplication', APP_NAME );
  43 + until (hwind<>Application.Handle);
  44 + IF (hwind<>0) then
  45 + begin
  46 + Windows.ShowWindow(hwind,SW_SHOWNORMAL);
  47 + Windows.SetForegroundWindow(hwind);
  48 + end;
  49 + FreeMemory(0);
  50 + end
  51 + else
  52 + begin
  53 + Application.Initialize;
  54 + Application.CreateForm(TfrmMapaCacic, frmMapaCacic);
  55 + Application.Run;
  56 + end;
  57 + oCacic.Free();
  58 +end.
mapacacic/MapaCACIC.dproj 0 → 100644
  Diff comments   View file @cf0bd12
@@ -0,0 +1,53 @@ @@ -0,0 +1,53 @@
  1 +<?xml version="1.0" encoding="utf-8"?>
  2 +<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
  3 + <PropertyGroup>
  4 + <ProjectGuid>{bd12cdd9-2bb5-4ae7-9da9-8d9f09bab843}</ProjectGuid>
  5 + <MainSource>MapaCACIC.dpr</MainSource>
  6 + <Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
  7 + <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
  8 + <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
  9 + <DCC_DependencyCheckOutputName>..\..\Agentes_Windows_BINARIOS\MapaCACIC.exe</DCC_DependencyCheckOutputName>
  10 + </PropertyGroup>
  11 + <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
  12 + <Version>7.0</Version>
  13 + <DCC_AssertionsAtRuntime>False</DCC_AssertionsAtRuntime>
  14 + <DCC_DebugInformation>False</DCC_DebugInformation>
  15 + <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
  16 + <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
  17 + <DCC_ExeOutput>C:\devel\cacic\Agentes_Windows_BINARIOS</DCC_ExeOutput>
  18 + <DCC_Define>DEBUG</DCC_Define>
  19 + </PropertyGroup>
  20 + <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
  21 + <Version>7.0</Version>
  22 + <DCC_AssertionsAtRuntime>False</DCC_AssertionsAtRuntime>
  23 + <DCC_DebugInformation>False</DCC_DebugInformation>
  24 + <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
  25 + <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
  26 + <DCC_ExeOutput>C:\devel\cacic\Agentes_Windows_BINARIOS</DCC_ExeOutput>
  27 + <DCC_UnitSearchPath>C:\vendors_lib;C:\vendors_lib\MD5;C:\agentes_Windows;C:\vendors_lib\CriptografiaDCP;C:\vendors_lib\PJVersion;C:\vendors_lib\MagWMI;C:\devel\cacic\agente-windows</DCC_UnitSearchPath>
  28 + <DCC_ResourcePath>C:\vendors_lib;C:\vendors_lib\MD5;C:\agentes_Windows;C:\vendors_lib\CriptografiaDCP;C:\vendors_lib\PJVersion;C:\vendors_lib\MagWMI;C:\devel\cacic\agente-windows</DCC_ResourcePath>
  29 + <DCC_ObjPath>C:\vendors_lib;C:\vendors_lib\MD5;C:\agentes_Windows;C:\vendors_lib\CriptografiaDCP;C:\vendors_lib\PJVersion;C:\vendors_lib\MagWMI;C:\devel\cacic\agente-windows</DCC_ObjPath>
  30 + <DCC_IncludePath>C:\vendors_lib;C:\vendors_lib\MD5;C:\agentes_Windows;C:\vendors_lib\CriptografiaDCP;C:\vendors_lib\PJVersion;C:\vendors_lib\MagWMI;C:\devel\cacic\agente-windows</DCC_IncludePath>
  31 + <DCC_Define>DEBUG</DCC_Define>
  32 + </PropertyGroup>
  33 + <ProjectExtensions>
  34 + <Borland.Personality>Delphi.Personality</Borland.Personality>
  35 + <Borland.ProjectType>VCLApplication</Borland.ProjectType>
  36 + <BorlandProject>
  37 +<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Arquivos de programas\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">3</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1046</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Dataprev - Emp. de TI da Prev.Social - URES/SESS</VersionInfoKeys><VersionInfoKeys Name="FileDescription">Sistema CACIC - Módulo Avulso para Coleta de Informações Patrimoniais</VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.8.1.3</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">MapaCACIC</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0</VersionInfoKeys><VersionInfoKeys Name="Comments">Licença: GNU/LGPL</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">MapaCACIC.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
  38 + </ProjectExtensions>
  39 + <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
  40 + <ItemGroup>
  41 + <DelphiCompile Include="MapaCACIC.dpr">
  42 + <MainSource>MainSource</MainSource>
  43 + </DelphiCompile>
  44 + <DCCReference Include="..\CACIC_Comm.pas" />
  45 + <DCCReference Include="..\CACIC_Library.pas" />
  46 + <DCCReference Include="uAcessoMapa.pas">
  47 + <Form>frmAcesso</Form>
  48 + </DCCReference>
  49 + <DCCReference Include="uMainMapa.pas">
  50 + <Form>frmMapaCacic</Form>
  51 + </DCCReference>
  52 + </ItemGroup>
  53 +</Project>
0 \ No newline at end of file 54 \ No newline at end of file
mapacacic/MapaCACIC.res 0 → 100644
View file @cf0bd12
No preview for this file type