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 1238 writeDebugLog('createOneProcess: pStrCmd => "' + pStrCmd + '"');
1239 1239 writeDebugLog('createOneProcess: pBoolWait => "' + getBoolToString(pBoolWait) + '"');
1240 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 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 1267 end;
1260 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 412 btGravarInformacoes.Caption := 'Informações enviadas com sucesso...';
413 413 objCacic.setValueToFile('Collects','col_patr_last' ,
414 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 417 End;
422 418 objCacic.writeDebugLog(#13#10 + 'AtualizaPatrimonio: Dados Enviados ao Servidor!');
... ... @@ -665,13 +661,23 @@ begin
665 661  
666 662 if getConfigs <> '0' then
667 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 677 end
672 678 else
673 679 begin
674   - objCACIC.writeDailyLog('Falha!!!!.');
  680 + objCACIC.writeDailyLog('Falha ao pegar informações!.');
675 681 Finalizar;
676 682 end;
677 683 end
... ...
cacic280.dproj
  Diff comments   View file @cf0bd12
... ... @@ -40,7 +40,7 @@
40 40 <Borland.Personality>Delphi.Personality</Borland.Personality>
41 41 <Borland.ProjectType>VCLApplication</Borland.ProjectType>
42 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 44 </ProjectExtensions>
45 45 <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
46 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 433 else
434 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 445 g_oCacic.writeDebugLog('ExecutaCACIC: Verificando existência de nova versão deste serviço para atualização.');
437 446 // Verifico a existência de nova versão do serviço e finalizo em caso positivo...
438 447 if (FileExists(g_oCacic.getLocalFolderName + 'Temp\cacicservice.exe')) and
... ...
chksis/chksis.dproj
  Diff comments   View file @cf0bd12
... ... @@ -29,7 +29,7 @@
29 29 <Borland.Personality>Delphi.Personality</Borland.Personality>
30 30 <Borland.ProjectType>VCLApplication</Borland.ProjectType>
31 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 33 </ProjectExtensions>
34 34 <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
35 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 223 procedure getConfigs(p_mensagem_log : boolean);
224 224 var strRetorno,
225 225 v_mensagem_log,
226   - strKeyWord : string;
  226 + strKeyWord,
  227 + strForcaColeta : string;
227 228 textfileKeyWord : TextFile;
228 229 Begin
229 230 Try
... ... @@ -243,10 +244,16 @@ Begin
243 244 Begin
244 245 objCacic.setBoolCipher(not objCacic.isInDebugMode);
245 246 objCacic.setValueToFile('Configs','ConexaoOK','S', strGerColsInfFileName);
  247 +
246 248 if (objCacic.getValueFromTags('WebManagerAddress', strRetorno,'<>') <> '') then
247 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 255 objCacic.setValueToFile('Configs','forca_coleta',
249   - objCacic.getValueFromTags('ForcaColeta', strRetorno, '<>'),
  256 + strForcaColeta,
250 257 strGerColsInfFileName);
251 258 objCacic.setValueToFile('Configs','WebManagerAddress' ,objCacic.getValueFromTags('WebManagerAddress' , strRetorno,'<>'), strChkSisInfFileName);
252 259 objCacic.setValueToFile('Configs','WebServicesFolderName',objCacic.getValueFromTags('WebServicesFolderName', strRetorno,'<>'), strChkSisInfFileName);
... ...
gercols/gercols.dproj
  Diff comments   View file @cf0bd12
... ... @@ -38,7 +38,7 @@
38 38 <Borland.Personality>Delphi.Personality</Borland.Personality>
39 39 <Borland.ProjectType>VCLApplication</Borland.ProjectType>
40 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 42 </ProjectExtensions>
43 43 <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
44 44 <ItemGroup>
... ...
gercols/gercols.res
View file @cf0bd12
No preview for this file type
main.pas
  Diff comments   View file @cf0bd12
... ... @@ -807,32 +807,36 @@ Begin
807 807  
808 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 840 End;
837 841  
838 842 // Verifico a existência do Gerente de Coletas, caso não exista, o chksis.exe fará download!
... ... @@ -1282,16 +1286,15 @@ begin
1282 1286 begin
1283 1287 // Caso exista o Mapa Cacic será verificada a versão e excluída caso antiga(Uma forma de ação pró-ativa)
1284 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 1298 else
1296 1299 objCACIC.writeDailyLog('Não foi possível invocar o Mapa Cacic!');
1297 1300 End;
... ...
mapacacic/MapaCACIC.dpr 0 → 100644
  Diff comments   View file @cf0bd12
... ... @@ -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 @@
  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 54 \ No newline at end of file
... ...
mapacacic/MapaCACIC.res 0 → 100644
View file @cf0bd12
No preview for this file type