Download as
Browse Code »

Commit e663a2b29a8cd20d7349010e885a222d04fc7b47

Authored by anderson.peterle@previdencia.gov.br
1 parent d5ad630e
Exists in master

Exclusão para posterior reposição com versão 2.6-Beta-2 

git-svn-id: http://svn.softwarepublico.gov.br/svn/cacic/cacic/trunk/agente-windows@959 fecfc0c7-e812-0410-ae72-849f08638ee7
Showing 5 changed files with 0 additions and 624 deletions   Show diff stats
col_anvi/col_anvi.cfg
View file @d5ad630
... ... @@ -1,38 +0,0 @@
1   --$A8
2   --$B-
3   --$C+
4   --$D+
5   --$E-
6   --$F-
7   --$G+
8   --$H+
9   --$I+
10   --$J-
11   --$K-
12   --$L+
13   --$M-
14   --$N+
15   --$O+
16   --$P+
17   --$Q-
18   --$R-
19   --$S-
20   --$T-
21   --$U-
22   --$V+
23   --$W-
24   --$X+
25   --$YD
26   --$Z1
27   --cg
28   --AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
29   --H+
30   --W+
31   --M
32   --$M16384,1048576
33   --K$00400000
34   --LE"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
35   --LN"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
36   --w-UNSAFE_TYPE
37   --w-UNSAFE_CODE
38   --w-UNSAFE_CAST
col_anvi/col_anvi.dof
View file @d5ad630
... ... @@ -1,136 +0,0 @@
1   -[FileVersion]
2   -Version=7.0
3   -[Compiler]
4   -A=8
5   -B=0
6   -C=1
7   -D=1
8   -E=0
9   -F=0
10   -G=1
11   -H=1
12   -I=1
13   -J=0
14   -K=0
15   -L=1
16   -M=0
17   -N=1
18   -O=1
19   -P=1
20   -Q=0
21   -R=0
22   -S=0
23   -T=0
24   -U=0
25   -V=1
26   -W=0
27   -X=1
28   -Y=1
29   -Z=1
30   -ShowHints=1
31   -ShowWarnings=1
32   -UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
33   -NamespacePrefix=
34   -SymbolDeprecated=1
35   -SymbolLibrary=1
36   -SymbolPlatform=1
37   -UnitLibrary=1
38   -UnitPlatform=1
39   -UnitDeprecated=1
40   -HResultCompat=1
41   -HidingMember=1
42   -HiddenVirtual=1
43   -Garbage=1
44   -BoundsError=1
45   -ZeroNilCompat=1
46   -StringConstTruncated=1
47   -ForLoopVarVarPar=1
48   -TypedConstVarPar=1
49   -AsgToTypedConst=1
50   -CaseLabelRange=1
51   -ForVariable=1
52   -ConstructingAbstract=1
53   -ComparisonFalse=1
54   -ComparisonTrue=1
55   -ComparingSignedUnsigned=1
56   -CombiningSignedUnsigned=1
57   -UnsupportedConstruct=1
58   -FileOpen=1
59   -FileOpenUnitSrc=1
60   -BadGlobalSymbol=1
61   -DuplicateConstructorDestructor=1
62   -InvalidDirective=1
63   -PackageNoLink=1
64   -PackageThreadVar=1
65   -ImplicitImport=1
66   -HPPEMITIgnored=1
67   -NoRetVal=1
68   -UseBeforeDef=1
69   -ForLoopVarUndef=1
70   -UnitNameMismatch=1
71   -NoCFGFileFound=1
72   -MessageDirective=1
73   -ImplicitVariants=1
74   -UnicodeToLocale=1
75   -LocaleToUnicode=1
76   -ImagebaseMultiple=1
77   -SuspiciousTypecast=1
78   -PrivatePropAccessor=1
79   -UnsafeType=0
80   -UnsafeCode=0
81   -UnsafeCast=0
82   -[Linker]
83   -MapFile=0
84   -OutputObjs=0
85   -ConsoleApp=1
86   -DebugInfo=0
87   -RemoteSymbols=0
88   -MinStackSize=16384
89   -MaxStackSize=1048576
90   -ImageBase=4194304
91   -ExeDescription=
92   -[Directories]
93   -OutputDir=
94   -UnitOutputDir=
95   -PackageDLLOutputDir=
96   -PackageDCPOutputDir=
97   -SearchPath=
98   -Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOffice2k;MSI_D7_Rtl
99   -Conditionals=
100   -DebugSourceDirs=
101   -UsePackages=0
102   -[Parameters]
103   -RunParams=
104   -HostApplication=
105   -Launcher=
106   -UseLauncher=0
107   -DebugCWD=
108   -[Language]
109   -ActiveLang=
110   -ProjectLang=
111   -RootDir=C:\Arquivos de programas\Borland\Delphi7\Bin\
112   -[Version Info]
113   -IncludeVerInfo=1
114   -AutoIncBuild=0
115   -MajorVer=2
116   -MinorVer=5
117   -Release=0
118   -Build=773
119   -Debug=0
120   -PreRelease=0
121   -Special=0
122   -Private=0
123   -DLL=0
124   -Locale=2070
125   -CodePage=1252
126   -[Version Info Keys]
127   -CompanyName=Dataprev - Emp. de TI da Prev.Social - URES
128   -FileDescription=Coletor de Informações de AntiVírus do Sistema CACIC
129   -FileVersion=2.5.0.773
130   -InternalName=
131   -LegalCopyright=
132   -LegalTrademarks=
133   -OriginalFilename=
134   -ProductName=Col_ANVI
135   -ProductVersion=2.6
136   -Comments=Baseado na licença GPL (General Public License)
col_anvi/col_anvi.dpr
View file @d5ad630
... ... @@ -1,450 +0,0 @@
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 col_anvi;
19   -{$R *.res}
20   -
21   -uses
22   - Windows,
23   - classes,
24   - sysutils,
25   - Registry,
26   - TLHELP32,
27   - ShellAPI,
28   - PJVersionInfo,
29   - CACIC_Library in '..\CACIC_Library.pas';
30   -
31   -var
32   - v_strCipherClosed : String;
33   -
34   -var
35   - v_Debugs : boolean;
36   -
37   -var
38   - v_tstrCipherOpened,
39   - v_tstrCipherOpened1 : TStrings;
40   -
41   -var
42   - g_oCacic : TCACIC;
43   -
44   -function VerFmt(const MS, LS: DWORD): string;
45   - // Format the version number from the given DWORDs containing the info
46   -begin
47   - Result := Format('%d.%d.%d.%d',
48   - [HiWord(MS), LoWord(MS), HiWord(LS), LoWord(LS)])
49   -end;
50   -
51   -procedure log_diario(strMsg : String);
52   -var
53   - HistoricoLog : TextFile;
54   - strDataArqLocal, strDataAtual : string;
55   -begin
56   - try
57   - FileSetAttr (g_oCacic.getCacicPath + '\cacic2.log',0); // Retira os atributos do arquivo para evitar o erro FILE ACCESS DENIED em máquinas 2000
58   - AssignFile(HistoricoLog,g_oCacic.getCacicPath + '\cacic2.log'); {Associa o arquivo a uma variável do tipo TextFile}
59   - {$IOChecks off}
60   - Reset(HistoricoLog); {Abre o arquivo texto}
61   - {$IOChecks on}
62   - if (IOResult <> 0) then // Arquivo não existe, será recriado.
63   - begin
64   - Rewrite (HistoricoLog);
65   - Append(HistoricoLog);
66   - Writeln(HistoricoLog,FormatDateTime('dd/mm hh:nn:ss : ', Now) + '======================> Iniciando o Log do CACIC <=======================');
67   - end;
68   - DateTimeToString(strDataArqLocal, 'yyyymmdd', FileDateToDateTime(Fileage(g_oCacic.getCacicPath + '\cacic2.log')));
69   - DateTimeToString(strDataAtual , 'yyyymmdd', Date);
70   - if (strDataAtual <> strDataArqLocal) then // Se o arquivo INI não é da data atual...
71   - begin
72   - Rewrite (HistoricoLog); //Cria/Recria o arquivo
73   - Append(HistoricoLog);
74   - Writeln(HistoricoLog,FormatDateTime('dd/mm hh:nn:ss : ', Now) + '======================> Iniciando o Log do CACIC <=======================');
75   - end;
76   - Append(HistoricoLog);
77   - Writeln(HistoricoLog,FormatDateTime('dd/mm hh:nn:ss : ', Now) + '[Coletor ANVI] '+strMsg); {Grava a string Texto no arquivo texto}
78   - CloseFile(HistoricoLog); {Fecha o arquivo texto}
79   -// FileSetAttr (ExtractFilePath(Application.Exename) + '\cacic2.log',6); // Muda o atributo para arquivo de SISTEMA e OCULTO
80   -
81   - except
82   - log_diario('Erro na gravação do log!');
83   - end;
84   -end;
85   -
86   -function GetVersionInfo(p_File: string):string;
87   -var PJVersionInfo1: TPJVersionInfo;
88   -begin
89   - PJVersionInfo1 := TPJVersionInfo.Create(nil);
90   - PJVersionInfo1.FileName := PChar(p_File);
91   - Result := VerFmt(PJVersionInfo1.FixedFileInfo.dwFileVersionMS, PJVersionInfo1.FixedFileInfo.dwFileVersionLS);
92   - PJVersionInfo1.Free;
93   -end;
94   -
95   -
96   -// Pad a string with zeros so that it is a multiple of size
97   -function PadWithZeros(const str : string; size : integer) : string;
98   -var
99   - origsize, i : integer;
100   -begin
101   - Result := str;
102   - origsize := Length(Result);
103   - if ((origsize mod size) <> 0) or (origsize = 0) then
104   - begin
105   - SetLength(Result,((origsize div size)+1)*size);
106   - for i := origsize+1 to Length(Result) do
107   - Result[i] := #0;
108   - end;
109   -end;
110   -
111   -Procedure CipherClose(p_DatFileName : string; p_tstrCipherOpened : TStrings);
112   -var v_strCipherOpenImploded : string;
113   - v_DatFile : TextFile;
114   -begin
115   - try
116   - FileSetAttr (p_DatFileName,0); // Retira os atributos do arquivo para evitar o erro FILE ACCESS DENIED em máquinas 2000
117   - AssignFile(v_DatFile,p_DatFileName); {Associa o arquivo a uma variável do tipo TextFile}
118   -
119   - // Criação do arquivo .DAT
120   - Rewrite (v_DatFile);
121   - Append(v_DatFile);
122   -
123   - v_strCipherOpenImploded := g_oCacic.implode(p_tstrCipherOpened,g_oCacic.getSeparatorKey);
124   - v_strCipherClosed := g_oCacic.enCrypt(v_strCipherOpenImploded);
125   - Writeln(v_DatFile,v_strCipherClosed); {Grava a string Texto no arquivo texto}
126   - CloseFile(v_DatFile);
127   - except
128   - end;
129   -end;
130   -
131   -Function CipherOpen(p_DatFileName : string) : TStrings;
132   -var v_DatFile : TextFile;
133   - v_strCipherOpened,
134   - v_strCipherClosed : string;
135   -begin
136   - v_strCipherOpened := '';
137   - if FileExists(p_DatFileName) then
138   - begin
139   - AssignFile(v_DatFile,p_DatFileName);
140   - {$IOChecks off}
141   - Reset(v_DatFile);
142   - {$IOChecks on}
143   - if (IOResult <> 0) then // Arquivo não existe, será recriado.
144   - begin
145   - Rewrite (v_DatFile);
146   - Append(v_DatFile);
147   - end;
148   -
149   - Readln(v_DatFile,v_strCipherClosed);
150   - while not EOF(v_DatFile) do Readln(v_DatFile,v_strCipherClosed);
151   - CloseFile(v_DatFile);
152   - v_strCipherOpened:= g_oCacic.deCrypt(v_strCipherClosed);
153   - end;
154   - if (trim(v_strCipherOpened)<>'') then
155   - Result := g_oCacic.explode(v_strCipherOpened,g_oCacic.getSeparatorKey)
156   - else
157   - Result := g_oCacic.explode('Configs.ID_SO'+g_oCacic.getSeparatorKey+ g_oCacic.getWindowsStrId() + g_oCacic.getSeparatorKey + 'Configs.Endereco_WS'+g_oCacic.getSeparatorKey+'/cacic2/ws/',g_oCacic.getSeparatorKey);
158   -
159   - if Result.Count mod 2 <> 0 then
160   - Result.Add('');
161   -end;
162   -
163   -Procedure SetValorDatMemoria(p_Chave : string; p_Valor : String; p_tstrCipherOpened : TStrings);
164   -begin
165   - // Exemplo: p_Chave => Configs.nu_ip_servidor : p_Valor => 10.71.0.120
166   - if (p_tstrCipherOpened.IndexOf(p_Chave)<>-1) then
167   - p_tstrCipherOpened[p_tstrCipherOpened.IndexOf(p_Chave)+1] := p_Valor
168   - else
169   - Begin
170   - p_tstrCipherOpened.Add(p_Chave);
171   - p_tstrCipherOpened.Add(p_Valor);
172   - End;
173   -end;
174   -
175   -procedure log_DEBUG(p_msg:string);
176   -Begin
177   - if v_Debugs then log_diario('(v.'+getVersionInfo(ParamStr(0))+') DEBUG - '+p_msg);
178   -End;
179   -
180   -function GetRootKey(strRootKey: String): HKEY;
181   -begin
182   - /// Encontrar uma maneira mais elegante de fazer esses testes.
183   - if Trim(strRootKey) = 'HKEY_LOCAL_MACHINE' Then Result := HKEY_LOCAL_MACHINE
184   - else if Trim(strRootKey) = 'HKEY_CLASSES_ROOT' Then Result := HKEY_CLASSES_ROOT
185   - else if Trim(strRootKey) = 'HKEY_CURRENT_USER' Then Result := HKEY_CURRENT_USER
186   - else if Trim(strRootKey) = 'HKEY_USERS' Then Result := HKEY_USERS
187   - else if Trim(strRootKey) = 'HKEY_CURRENT_CONFIG' Then Result := HKEY_CURRENT_CONFIG
188   - else if Trim(strRootKey) = 'HKEY_DYN_DATA' Then Result := HKEY_DYN_DATA;
189   -end;
190   -
191   -Function RemoveCaracteresEspeciais(Texto : String) : String;
192   -var I : Integer;
193   - strAux : String;
194   -Begin
195   - For I := 0 To Length(Texto) Do
196   - if ord(Texto[I]) in [32..126] Then
197   - strAux := strAux + Texto[I]
198   - else strAux := strAux + ' '; // Coloca um espaço onde houver caracteres especiais
199   - Result := strAux;
200   -end;
201   -
202   -function GetValorChaveRegEdit(Chave: String): Variant;
203   -var RegEditGet: TRegistry;
204   - RegDataType: TRegDataType;
205   - strRootKey, strKey, strValue, s: String;
206   - ListaAuxGet : TStrings;
207   - DataSize, Len, I : Integer;
208   -begin
209   - try
210   - Result := '';
211   - ListaAuxGet := g_oCacic.explode(Chave, '\');
212   -
213   - strRootKey := ListaAuxGet[0];
214   - For I := 1 To ListaAuxGet.Count - 2 Do strKey := strKey + ListaAuxGet[I] + '\';
215   - strValue := ListaAuxGet[ListaAuxGet.Count - 1];
216   - if (strValue = '(Padrão)') then strValue := ''; //Para os casos de se querer buscar o valor default (Padrão)
217   - RegEditGet := TRegistry.Create;
218   -
219   - RegEditGet.Access := KEY_READ;
220   - RegEditGet.Rootkey := GetRootKey(strRootKey);
221   - if RegEditGet.OpenKeyReadOnly(strKey) then //teste
222   - Begin
223   - RegDataType := RegEditGet.GetDataType(strValue);
224   - if (RegDataType = rdString) or (RegDataType = rdExpandString) then Result := RegEditGet.ReadString(strValue)
225   - else if RegDataType = rdInteger then Result := RegEditGet.ReadInteger(strValue)
226   - else if (RegDataType = rdBinary) or (RegDataType = rdUnknown)
227   - then
228   - begin
229   - DataSize := RegEditGet.GetDataSize(strValue);
230   - if DataSize = -1 then exit;
231   - SetLength(s, DataSize);
232   - Len := RegEditGet.ReadBinaryData(strValue, PChar(s)^, DataSize);
233   - if Len <> DataSize then exit;
234   - Result := RemoveCaracteresEspeciais(s);
235   - end
236   - end;
237   - finally
238   - RegEditGet.CloseKey;
239   - RegEditGet.Free;
240   - ListaAuxGet.Free;
241   -
242   - end;
243   -end;
244   -
245   -function ProgramaRodando(NomePrograma: String): Boolean;
246   -var
247   - IsRunning, ContinueTest: Boolean;
248   - FSnapshotHandle: THandle;
249   - FProcessEntry32: TProcessEntry32;
250   -begin
251   - IsRunning := False;
252   - FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
253   - FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
254   - ContinueTest := Process32First(FSnapshotHandle, FProcessEntry32);
255   - while ContinueTest do
256   - begin
257   - IsRunning := UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = UpperCase(NomePrograma);
258   - if IsRunning then ContinueTest := False
259   - else ContinueTest := Process32Next(FSnapshotHandle, FProcessEntry32);
260   - end;
261   - CloseHandle(FSnapshotHandle);
262   - Result := IsRunning;
263   -end;
264   -
265   -Function GetValorDatMemoria(p_Chave : String; p_tstrCipherOpened : TStrings) : String;
266   -begin
267   - if (p_tstrCipherOpened.IndexOf(p_Chave)<>-1) then
268   - Result := p_tstrCipherOpened[p_tstrCipherOpened.IndexOf(p_Chave)+1]
269   - else
270   - Result := '';
271   -end;
272   -
273   -function GetFolderDate(Folder: string): TDateTime;
274   -var
275   - Rec: TSearchRec;
276   - Found: Integer;
277   - Date: TDateTime;
278   -begin
279   - if Folder[Length(folder)] = '\' then
280   - Delete(Folder, Length(folder), 1);
281   - Result := 0;
282   - Found := FindFirst(Folder, faDirectory, Rec);
283   - try
284   - if Found = 0 then
285   - begin
286   - Date := FileDateToDateTime(Rec.Time);
287   - Result := Date;
288   - end;
289   - finally
290   - FindClose(Rec);
291   - end;
292   -end;
293   -
294   -procedure Executa_Col_Anvi;
295   -var Lista1_RCO : TStringList;
296   - Lista2_RCO : TStrings;
297   - nu_versao_engine, dt_hr_instalacao, nu_versao_pattern, ChaveRegistro, te_servidor, in_ativo,
298   - NomeExecutavel, UVC, ValorChaveRegistro, strAux, strDirTrend : String;
299   - searchResult : TSearchRec; // Necessário apenas para Win9x
300   -begin
301   - Try
302   - SetValorDatMemoria('Col_Anvi.Inicio', FormatDateTime('hh:nn:ss', Now), v_tstrCipherOpened1);
303   - nu_versao_engine := '';
304   - nu_versao_pattern := '';
305   - log_diario('Coletando informações de Antivírus OfficeScan.');
306   - If g_oCacic.isWindows9xME() Then { Windows 9x/ME }
307   - Begin
308   - ChaveRegistro := 'HKEY_LOCAL_MACHINE\Software\TrendMicro\OfficeScanCorp\CurrentVersion';
309   - NomeExecutavel := 'pccwin97.exe';
310   - dt_hr_instalacao := GetValorChaveRegEdit(ChaveRegistro + '\Install Date') + GetValorChaveRegEdit(ChaveRegistro + '\Install Time');
311   - log_DEBUG('Data/Hora de Instalação: '+dt_hr_instalacao);
312   - strDirTrend := GetValorChaveRegEdit(ChaveRegistro + '\Application Path');
313   - If FileExists(strDirTrend + '\filter32.vxd') Then
314   - Begin
315   - // Em máquinas Windows 9X a versão do engine e do pattern não são gravadas no registro. Tenho que pegar direto dos arquivos.
316   - Lista2_RCO := g_oCacic.explode(getVersionInfo(strDirTrend + 'filter32.vxd'), '.'); // Pego só os dois primeiros dígitos. Por exemplo: 6.640.0.1001 vira 6.640.
317   - nu_versao_engine := Lista2_RCO[0] + '.' + Lista2_RCO[1];
318   - Lista2_RCO.Free;
319   - end
320   - Else nu_versao_engine := '0';
321   -
322   - // A gambiarra para coletar a versão do pattern é obter a maior extensão do arquivo lpt$vpn
323   - if FindFirst(strDirTrend + '\lpt$vpn.*', faAnyFile, searchResult) = 0 then
324   - begin
325   - Lista1_RCO := TStringList.Create;
326   - repeat Lista1_RCO.Add(ExtractFileExt(searchResult.Name));
327   - until FindNext(searchResult) <> 0;
328   - Sysutils.FindClose(searchResult);
329   - Lista1_RCO.Sort; // Ordeno, para, em seguida, obter o último.
330   - strAux := Lista1_RCO[Lista1_RCO.Count - 1];
331   - Lista1_RCO.Free;
332   - nu_versao_pattern := Copy(strAux, 2, Length(strAux)); // Removo o '.' da extensão.
333   - end;
334   -
335   - end
336   - Else
337   - Begin // NT a XP
338   - ChaveRegistro := 'HKEY_LOCAL_MACHINE\Software\TrendMicro\PC-cillinNTCorp\CurrentVersion';
339   - NomeExecutavel := 'ntrtscan.exe';
340   - dt_hr_instalacao := GetValorChaveRegEdit(ChaveRegistro + '\InstDate') + GetValorChaveRegEdit(ChaveRegistro + '\InstTime');
341   - nu_versao_engine := GetValorChaveRegEdit(ChaveRegistro + '\Misc.\EngineZipVer');
342   - nu_versao_pattern := GetValorChaveRegEdit(ChaveRegistro + '\Misc.\PatternVer');
343   - nu_versao_pattern := Copy(nu_versao_pattern, 2, Length(nu_versao_pattern)-3);
344   - end;
345   -
346   - log_DEBUG('Versão de Engine obtida.: '+nu_versao_engine);
347   - log_DEBUG('Versão de Pattern obtida: '+nu_versao_pattern);
348   -
349   - te_servidor := GetValorChaveRegEdit(ChaveRegistro + '\Server');
350   - If (ProgramaRodando(NomeExecutavel)) Then in_ativo := '1' Else in_ativo := '0';
351   -
352   - log_DEBUG('Valor para Estado Ativo.: ' + in_ativo);
353   -
354   - // Monto a string que será comparada com o valor armazenado no registro.
355   - UVC := Trim(nu_versao_engine + ';' +
356   - nu_versao_pattern + ';' +
357   - te_servidor + ';' +
358   - dt_hr_instalacao + ';' +
359   - in_ativo);
360   - // Obtenho do registro o valor que foi previamente armazenado
361   - ValorChaveRegistro := Trim(GetValorDatMemoria('Coletas.OfficeScan',v_tstrCipherOpened));
362   -
363   - SetValorDatMemoria('Col_Anvi.Fim' , FormatDateTime('hh:nn:ss', Now), v_tstrCipherOpened1);
364   -
365   - log_DEBUG('Registro Anterior: ' + ValorChaveRegistro);
366   - log_DEBUG('Registro Atual...: ' + UVC);
367   - // Se essas informações forem diferentes significa que houve alguma alteração
368   - // na configuração. Nesse caso, gravo as informações no BD Central
369   - // e, se não houver problemas durante esse procedimento, atualizo as
370   - // informações no registro.
371   - If (GetValorDatMemoria('Configs.IN_COLETA_FORCADA_ANVI',v_tstrCipherOpened)='S') or (UVC <> ValorChaveRegistro) Then
372   - Begin
373   - SetValorDatMemoria('Col_Anvi.nu_versao_engine' , nu_versao_engine , v_tstrCipherOpened1);
374   - SetValorDatMemoria('Col_Anvi.nu_versao_pattern' , nu_versao_pattern, v_tstrCipherOpened1);
375   - SetValorDatMemoria('Col_Anvi.dt_hr_instalacao' , dt_hr_instalacao , v_tstrCipherOpened1);
376   - SetValorDatMemoria('Col_Anvi.te_servidor' , te_servidor , v_tstrCipherOpened1);
377   - SetValorDatMemoria('Col_Anvi.in_ativo' , in_ativo , v_tstrCipherOpened1);
378   - SetValorDatMemoria('Col_Anvi.UVC' , UVC , v_tstrCipherOpened1);
379   - CipherClose(g_oCacic.getCacicPath + '\temp\col_anvi.dat' , v_tstrCipherOpened1);
380   - end
381   - else
382   - Begin
383   - SetValorDatMemoria('Col_Anvi.nada', 'nada', v_tstrCipherOpened1);
384   - CipherClose(g_oCacic.getCacicPath + '\temp\col_anvi.dat', v_tstrCipherOpened1);
385   - End;
386   - Except
387   - Begin
388   - SetValorDatMemoria('Col_Anvi.nada', 'nada', v_tstrCipherOpened1);
389   - SetValorDatMemoria('Col_Anvi.Fim', '99999999', v_tstrCipherOpened1);
390   - CipherClose(g_oCacic.getCacicPath + '\temp\col_anvi.dat', v_tstrCipherOpened1);
391   - End;
392   - End;
393   -end;
394   -
395   -var tstrTripa1 : TStrings;
396   - intAux : integer;
397   - strAux : String;
398   -const
399   - CACIC_APP_NAME = 'col_anvi';
400   -
401   -begin
402   - g_oCacic := TCACIC.Create();
403   -
404   - g_oCacic.setBoolCipher(true);
405   -
406   - if( not g_oCacic.isAppRunning( CACIC_APP_NAME ) ) then
407   - if (ParamCount>0) then
408   - Begin
409   - strAux := '';
410   - For intAux := 1 to ParamCount do
411   - Begin
412   - if LowerCase(Copy(ParamStr(intAux),1,11)) = '/cacicpath=' then
413   - begin
414   - strAux := Trim(Copy(ParamStr(intAux),12,Length((ParamStr(intAux)))));
415   - log_DEBUG('Parâmetro /CacicPath recebido com valor="'+strAux+'"');
416   - end;
417   - end;
418   -
419   - if (strAux <> '') then
420   - Begin
421   - g_oCacic.setCacicPath(strAux);
422   -
423   - v_Debugs := false;
424   - if DirectoryExists(g_oCacic.getCacicPath + 'Temp\Debugs') then
425   - Begin
426   - if (FormatDateTime('ddmmyyyy', GetFolderDate(g_oCacic.getCacicPath + 'Temp\Debugs')) = FormatDateTime('ddmmyyyy', date)) then
427   - Begin
428   - v_Debugs := true;
429   - log_diario('Pasta "' + g_oCacic.getCacicPath + 'Temp\Debugs" com data '+FormatDateTime('dd-mm-yyyy', GetFolderDate(g_oCacic.getCacicPath + 'Temp\Debugs'))+' encontrada. DEBUG ativado.');
430   - End;
431   - End;
432   -
433   - v_tstrCipherOpened := TStrings.Create;
434   - v_tstrCipherOpened := CipherOpen(g_oCacic.getCacicPath + g_oCacic.getDatFileName);
435   -
436   - v_tstrCipherOpened1 := TStrings.Create;
437   - v_tstrCipherOpened1 := CipherOpen(g_oCacic.getCacicPath + 'temp\col_anvi.dat');
438   -
439   - Try
440   - Executa_Col_Anvi;
441   - Except
442   - Begin
443   - SetValorDatMemoria('Col_Anvi.nada', 'nada', v_tstrCipherOpened1);
444   - CipherClose(g_oCacic.getCacicPath + 'temp\col_anvi.dat', v_tstrCipherOpened1);
445   - End;
446   - End;
447   - End;
448   - End;
449   - g_oCacic.Free();
450   -end.
col_anvi/col_anvi.res
View file @d5ad630
No preview for this file type
col_anvi/col_anvi_icon.ico
View file @d5ad630
No preview for this file type