Blz, não descobrir o fogo mais apaguei um fogo, se a mensagem não serviu para
você e nem para o Sr. Davi apenas ignore.
----- Mensagem original ----
De: Leonardo Quinino <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 25 de Janeiro de 2008 13:58:21
Assunto: Re: [delphi-br] SOLUÇÃO para distribuição de aplicativo com BD -
Criação de arquivo INI
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] com.br> 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: [EMAIL PROTECTED] os.com.br <delphi-br%40yahoog rupos.com. br> [mailto:
> [EMAIL PROTECTED] os.com.br <delphi-br%40yahoog rupos.com. br>] Em nome de
> Angelo Louzada
> Enviada em: sexta-feira, 25 de janeiro de 2008 11:12
> Para: [EMAIL PROTECTED] os.com.br <delphi-br%40yahoog rupos.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.DataModuleCreat e(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]
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]
