FormConfig.pas
5.32 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
(**
---------------------------------------------------------------------------------------------------------------------------------------------------------------
Copyright 2000, 2001, 2002, 2003, 2004, 2005 Dataprev - Empresa de Tecnologia e Informações da Previdência Social, Brasil
Este arquivo é parte do programa CACIC - Configurador Automático e Coletor de Informações Computacionais
O CACIC é um software livre; você pode redistribui-lo e/ou modifica-lo dentro dos termos da Licença Pública Geral GNU como
publicada pela Fundação do Software Livre (FSF); na versão 2 da Licença, ou (na sua opinião) qualquer versão.
Este programa é distribuido na esperança que possa ser util, mas SEM NENHUMA GARANTIA; sem uma garantia implicita de ADEQUAÇÂO a qualquer
MERCADO ou APLICAÇÃO EM PARTICULAR. Veja a Licença Pública Geral GNU para maiores detalhes.
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
Livre(FSF) Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
---------------------------------------------------------------------------------------------------------------------------------------------------------------
*)
unit FormConfig;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,main_mapa, PJVersionInfo, NTFileSecurity, ExtCtrls;
type
TConfigs = class(TForm)
Button_Gravar: TButton;
PJVersionInfo1: TPJVersionInfo;
btCancelaOperacao: TButton;
pnConfiguracoes: TPanel;
Label_ip_serv_cacic: TLabel;
Edit_ip_serv_cacic: TEdit;
Label_cacic_dir: TLabel;
Edit_cacic_dir: TEdit;
lbConfiguracoes: TLabel;
pnVersao: TPanel;
lbVersao: TLabel;
procedure Button_GravarClick(Sender: TObject);
procedure Edit_ip_serv_cacicExit(Sender: TObject);
procedure Edit_cacic_dirExit(Sender: TObject);
procedure GravaConfiguracoes;
procedure btCancelaOperacaoClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Configs: TConfigs;
v_ip_serv_cacic,
v_cacic_dir : String;
implementation
{$R *.dfm}
procedure TConfigs.Button_GravarClick(Sender: TObject);
begin
Configs.GravaConfiguracoes;
Close;
end;
procedure TConfigs.GravaConfiguracoes;
var mapa_ini : TextFile;
begin
try
FileSetAttr (ExtractFilePath(Application.Exename) + '\MapaCacic.ini',0); // Retira os atributos do arquivo para evitar o erro FILE ACCESS DENIED em máquinas 2000
AssignFile(mapa_ini,ExtractFilePath(Application.Exename) + '\MapaCacic.ini'); {Associa o arquivo a uma variável do tipo TextFile}
Rewrite (mapa_ini); // Recria o arquivo...
Append(mapa_ini);
Writeln(mapa_ini,'');
Writeln(mapa_ini,'# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #');
Writeln(mapa_ini,'# CHAVES E VALORES OBRIGATÓRIOS PARA USO DO MapaCacic.exe #');
Writeln(mapa_ini,'# ================================================================= #');
Writeln(mapa_ini,'# ip_serv_cacic #');
Writeln(mapa_ini,'# IP ou Identificação do servidor onde o Módulo Gerente do CACIC foi instalado#');
Writeln(mapa_ini,'# Ex.: ip_serv_cacic=UXRJO115 #');
Writeln(mapa_ini,'# ip_serv_cacic=10.xxx.yyy.zzz #');
Writeln(mapa_ini,'# cacic_dir #');
Writeln(mapa_ini,'# Pasta a ser criada na estação para instalação do CACIC agente #');
Writeln(mapa_ini,'# Ex.: cacic_dir=Cacic #');
Writeln(mapa_ini,'# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #');
Writeln(mapa_ini,'');
Writeln(mapa_ini,'[Cacic2]');
// Atribuição dos valores do form FormConfig às variáveis...
v_ip_serv_cacic := Configs.Edit_ip_serv_cacic.text;
v_cacic_dir := Configs.Edit_cacic_dir.text;
// Escrita dos parâmetros obrigatórios
Writeln(mapa_ini,'ip_serv_cacic='+v_ip_serv_cacic);
Writeln(mapa_ini,'cacic_dir='+v_cacic_dir);
CloseFile(mapa_ini); {Fecha o arquivo texto}
except
end;
end;
procedure TConfigs.Edit_ip_serv_cacicExit(Sender: TObject);
begin
if trim(Edit_ip_serv_cacic.Text) = '' then Edit_ip_serv_cacic.SetFocus;
end;
procedure TConfigs.Edit_cacic_dirExit(Sender: TObject);
begin
if trim(Edit_cacic_dir.Text) = '' then Edit_cacic_dir.Text := 'Cacic';
end;
procedure TConfigs.btCancelaOperacaoClick(Sender: TObject);
begin
Application.Terminate;
end;
procedure TConfigs.FormCreate(Sender: TObject);
begin
Configs.lbVersao.Caption := 'v: ' + frmMapaCacic.GetVersionInfo(ParamStr(0));
end;
end.