Criar arquivo ini

Delphi

29/04/2004

quero criar um arquivo onde eu possa digitar o endereço da tabela do servidor, estou usando o componente SQLConection, se alguém puder me ajudar agradeço.


Rogsystem

Rogsystem

Curtidas 0

Respostas

Nildo

Nildo

29/04/2004

Defina IniFiles na Uses do seu formulário e utilize a classe TIniFile para criar arquivos INIs. Para aprender a usá-la, dá um F1 em cima do texto TIniFile dentro do seu editor do Delphi


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

29/04/2004

Colega,

Eu utilizo da seguinte forma:

procedure TForm1.FormCreate(Sender: TObject);
var ArquivoINI: TIniFile;
begin
  ArquivoINI            := TIniFile.Create(´GerarEMS2.INI´);

  cnn.Connected         :=  false;
  cnn.ConnectionString  :=  ´Provider=´+ArquivoINI.ReadString(´CONEXAO´,´Provider´, ´´)+´;´ +
                            ´Persist Security Info=´+ArquivoINI.ReadString(´CONEXAO´,´Persist Security Info´, ´´)+´;´+
                            ´User ID=´+ArquivoINI.ReadString(´CONEXAO´,´User ID´, ´´)+´;´+
                            ´Initial Catalog=´+ArquivoINI.ReadString(´CONEXAO´,´Initial Catalog´, ´´)+ ´;´ +
                            ´Data Source=´+ArquivoINI.ReadString(´CONEXAO´,´Data Source´, ´´);
  cnn.DefaultDatabase   :=  ArquivoINI.ReadString(´CONEXAO´,´Initial Catalog´, ´´);
  cnn.Connected         :=  true;
  tbSequencias.Open;
  ArquivoINI.Free;

  DateTimePicker1.Date  :=  Date-30;
  DateTimePicker2.Date  :=  Date;

end;


Arquivo INI:
[CONEXAO]
Provider=SQLOLEDB.1
Persist Security Info=False
User ID=usuario
Initial Catalog=Fin
Data Source=TAU

[ARQUIVO]
Importar=Sim
Remover=Sim
Caminho=\\brasilia\integracao\GPC\
Nome=emitente



GOSTEI 0
POSTAR