var
F1: TextFile;
vPath1: String;
ResultTemp: Boolean;
CAMINHO : String ;
Ini : TIniFile ;
varBD_ALIAS:string;
varBD_PATH :String;
varBD_HOST :String;
varBD_USER :String;
varBD_PASS :String;
varBD_PORTA:String;
begin
varBD_ALIAS := 'DB';
ResultTemp := False;
CONEX01.Show ;
CONEX01.Repaint;
//-----------> acertando alias <------------------------------
Caminho := IncludeTrailingPathDelimiter(ExtractFileDir(application.ExeName))+'ARQCONEXAO.INI';
if not(fileexists(CAMINHO)) then
begin
Showmessage('Arquivo inexistente => '+CAMINHO);
APPLICATION.Terminate ;
Abort ;
end else begin
Application.CreateForm(TSISINI,SISINI);
if SISINI.LoadAlias > 1 then
begin
SISINI.ShowModal;
if SISINI.ModalResult = MROK then
varBD_ALIAS := SISINI.ALIAS_SELEC;
end;
freeAndNil(SISINI);
end;
//#############################################################################
//###################> lendo paramentros do ARQUIVO INI <######################
//#############################################################################
Ini := TIniFile.Create(Caminho);
try
varBD_PATH := Ini.ReadString( varBD_ALIAS, 'PATH', '' );
varBD_HOST := Ini.ReadString( varBD_ALIAS, 'HOST', '' );
varBD_USER := Ini.ReadString( varBD_ALIAS, 'USER', '' );
varBD_PORTA:= Ini.ReadString( varBD_ALIAS, 'PORTA', '' );
if trim(Ini.ReadString( varBD_ALIAS, 'PASSWORD', '')) <> '' then
varBD_PASS := Decrypt(HextoAscii(Ini.ReadString( varBD_ALIAS, 'PASSWORD', '')))
else
varBD_PASS := 'masterkey';
finally
Ini.Free;
end;
try
DM.DATABASE.Connected := False ;
DM.DATABASE.HostName := varBD_HOST ;
DM.DATABASE.Database := varBD_PATH ;
DM.DATABASE.User := varBD_USER;
DM.DATABASE.Password := varBD_PASS;
if trim(textotonum(varBD_PORTA)) <> '' then
DM.DATABASE.Port := strtoint(textotonum(varBD_PORTA));
DM.DATABASE.LoginPrompt := False;
DM.DATABASE.Connected := true;
ResultTemp := True;
Except
On E: Exception do
begin
ShowMessage('Não foi possível conectar ao Banco de Dados !!!'+E.Message);
end;
end;
CONEX01.Close;
Result := ResultTemp;
end;