Nem sabia que vc tinha essa dificuldade.....
até parece que vc descobriu o fogo.... , mas valeu a sua intenção é boa
mesmo
Em 25/01/08, Davi Eduardo Borges Wall <[EMAIL PROTECTED]> escreveu:
>
> Tamanha dificuldade?? Vc ta brincando!
>
> Tem exemplos de como criar arquivo INI no Help do Delphi!
>
> Basta apertar F1, agora se a tecla F1 ta com problema, aconselho vc a ir
> no menu HELP do Delphi! RS...
>
> De: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> [mailto:
> delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>] Em nome de
> Angelo Louzada
> Enviada em: sexta-feira, 25 de janeiro de 2008 11:12
> Para: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>
> Assunto: [delphi-br] SOLUÇÃO para distribuição de aplicativo com BD -
> Criação de arquivo INI
>
>
> Amigos, pela tamanha dificuldade que tive em achar artigos explicando como
> criar instaladores já levando Banco de Dados no cliente resolvi optar pela
> distribuição através de arquivo .INI e pela dificuldade em achar artigos
> explicando como criar arquivo .INI venho compartilhar com vocês a solução
> que arrumei para minha aplicação.
>
> Primeiro criei um arquivo .INI no mesmo diretório dos fontes da aplicação.
>
> nome_do_arquivo.ini - Em nome_do_arquivo utilizei o mesmo nome do
> executável e dentro do arquivo criado coloquei os seguintes parametros:
>
> [BD]
> DATABASENAME=C:\Aplicacao\database\BANCO_DE_DADOS.GDB
> USERNAME=SYSDBA
> PASSWORD=masterkey
>
> Na unit do DataModule ficou da seguinte maneira:
>
> unit frmDM;
> interface
> uses
> SysUtils, Classes, IBDatabase, DB, IBCustomDataSet, IBQuery, RpBase,
> RpSystem, RpCon, RpConDS, RpDefine, RpRave, IniFiles, Forms;
> type
> TDM = class(TDataModule)
> IBDatabase1: TIBDatabase;
> Trans: TIBTransaction;
> procedure DataModuleCreate(Sender: TObject);
> private
> { Private declarations }
> public
> { Public declarations }
> procedure Configura;
> end;
> var
> DM: TDM;
> implementation
> uses
> Windows;
> {$R *.dfm}
> { TDM }
> procedure TDM.Configura;
> var
> stAplicacao : String;
> Ini : TIniFile;
> IniDBName : String;
> IniUserName : String;
> IniPassword : String;
> begin
> stAplicacao := ChangeFileExt(Application.ExeName, '.INI');
> Ini := TIniFile.Create(ChangeFileExt(Application.ExeName, '.INI'));
> try
> iniDBName := Ini.ReadString('BD', 'DATABASENAME', '');
> iniUserName := Ini.ReadString('BD', 'USERNAME', '');
> iniPassword := Ini.ReadString('BD', 'PASSWORD', '');
> finally
> Ini.Free;
> end;
> iniUserName := 'user_name=' + IniUserName;
> iniPassword := 'password=' + iniPassword;
> With IBDatabase1 do
> begin
> DatabaseName := iniDBName;
> Params.Append(iniUserName);
> Params.Append(iniPassword);
> end;
> end;
> //Evento criado ao dar duplo clique no DataModule
> procedure TDM.DataModuleCreate(Sender: TObject);
> begin
> DM.Configura;
> end;
> end.
>
> No meu caso o Banco utilizado foi o Interbase e o componente de conexão
> foi o IBDatabase.
>
> No cliente eu instalei manualmente o Interbase e registrei o banco de
> dados da aplicação, levei o executável junto com o arquivo .ini e só.
>
> Grande abraço a todos.
>
> Angelo Louzada
>
> Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
> armazenamento!
> http://br.mail.yahoo.com/
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
--
Leonardo Quinino
[As partes desta mensagem que não continham texto foram removidas]
