|
Usuários |
|
88 Usuários Online
|
|
[Artigos]
Criar arquivo de configuração para Banco de dados IB/FB |
Publicado por diogoipa : Quarta, Maio 25, 2005 - 12:07 GMT-3 (6784 leituras)
 4 Comentários  Enviar para um amigo  Versão para impressão
|
Você tem um aplicativo mas não consegue torná-lo fácil de instalar por causa do banco de dados?
Aqui está a solução!
primero passo: Criar o Arquivo INI
Declare na Clausula USES IniFiles;
Crie uma procedure
procedure
Gravar_Configuracao
(Url , Usr, pws : String); // url : caminho do banco / USR
: nome de usuário / PWS : senha
var Banco
: TIniFile;
Begin
Try
Banco := TIniFile.create('c:\database.ini');
{ onde "c:\database.ini" e o caminho eu por padrão deixo somente
database.ini sem o "c:\" assim será salvo em c:\windows\ }
Banco.WriteString('DATABASE','CAMINHO',URL);
Banco.WriteString('DATABASE','USUARIO',USR);
Banco.WriteString('DATABASE','USUARIO',PWS);
Finnaly
Banco.Free;
End;
End;
Segundo passo:
procedure
Ler_Configuracao
(Url , Usr, pws : String); // url : caminho do banco / USR
: nome de usuário / PWS : senha
Begin
Try
Banco := TIniFile.create('c:\database.ini');
URL := Banco.WriteString('DATABASE','CAMINHO',URL);
USR := Banco.WriteString('DATABASE','USUARIO',USR);
PWS := Banco.WriteString('DATABASE','USUARIO',PWS);
Finnaly
Banco.Free;
End;
End;
procedure form1.create(Sender
: TObject);
Var url,usr,pwd
: String
Begin
Ler_configuracao(Url,Usr,Pwd);
IbdataBase.params.add('user_name='+USR);
Ibdatabase.params.add('password ='+PWD);
ibdatabase.Ns
End;
Eu crio um programa
para gravar os dados e depois simplesmente os chamo no meu aplicativo e "jogo"
eles dentro do IBDataBase.
Ate mais!
Diogo
C. Franco
(31)8724-4194
----------------------------------------------------------------
Aci Developer
|
|
 Comentários | |
| | Comentários pertencem aos seus respectivos autores. Não somos responsáveis pelo seus conteúdos. |
por: tarso.rodrigo : Jun 02, 2005 - 08:49
(Informações sobre o membro | Enviar uma mensagem)
http://http://
|
Muito bom o trabalho, é muito bom divulgarmos todo o conhecimento, pois só assim crescemos...
Caro Diogo, sem querer ser chato, mas na procedure Ler_Configuracao você esta usando o metodo WRITESTRING, não seria READSTRING...
Não esquenta a cabeça, são coisas que acontece...
Abraços e assim esperamos que uns ajudam aos outros
|
[ Comentários não permitidos para usuários anônimos. Por gentileza, registre-se ou conecte-se ao sistema
por: Rumao (adilsonrumao@gmail.com) : Out 20, 2009 - 01:29
(Informações sobre o membro | Enviar uma mensagem) http:// | Boa tarde, tentei fazer as configurações aqui, mas não consegui.
Será que alguém poderia dar uma dica de onte estou errando? Na hora de compilar dá erro no primeiro Finnaly.
[code]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, iniFiles, DB, IBDatabase;
type
TForm1 = class(TForm)
IBDatabase: TIBDatabase;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
//Url: caminho do banco
//Usr: nome de usuário
//Pws: senha
procedure Gravar_Configuracao(Url , Usr, pws : String);
var Banco : TIniFile;
Begin
Try
SetCurrentDir(ExtractFilePath(Application.ExeName));
Banco := TIniFile.create(GetCurrentDir + '\database.ini');
(* onde "c:\database.ini" e o caminho eu por padrão deixo somente
database.ini sem o "c:\" assim será salvo em c:\windows\
Eu alterei o exemplo para que o INI seja sempre gravado no
diretório onde se encontra o executável do programa *)
Banco.WriteString('DATABASE','CAMINHO',URL);
Banco.WriteString('DATABASE','USUARIO',USR);
Banco.WriteString('DATABASE','USUARIO',PWS);
Finnaly
Banco.Free;
End;
End;
//url : caminho do banco / USR : nome de usuário / PWS : senha
(*
O código original não poderia funcionar pois é necessário
que esses parâmetros sejam passados por referência em vez
de por valor como no código original
*)
procedure Ler_Configuracao(var Url: String;
var Usr: String;
var pws: String);
Begin
Try
Banco := TIniFile.create(GetCurrentDir+'\database.ini');
URL := Banco.READSTRING('DATABASE','CAMINHO',URL);
USR := Banco.READSTRING('DATABASE','USUARIO',USR);
PWS := Banco.READSTRING('DATABASE','USUARIO',PWS);
Finnaly
Banco.Free;
End;
End;
procedure form1.create(Sender : TObject);
Var url,usr,pwd : String
Begin
SetCurrentDir(ExtractFilePath(Application.ExeName));
IbDatabase.Close;
Ler_configuracao(Url,Usr,Pwd);
IbdataBase.params.add('user_name='+USR);
Ibdatabase.params.add('password ='+PWD);
ibdatabase.DatabaseName := Url;
IbDatabase.Open;
End;
end.
[/code] |
[ Comentários não permitidos para usuários anônimos. Por gentileza, registre-se ou conecte-se ao sistema
|
|
Edição 112 |
|
|
50 Programas Fontes |
|
|
Produtos |
|
|
