Blz, parabéns para você.
----- Mensagem original ---- De: Davi Eduardo Borges Wall <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 25 de Janeiro de 2008 10:20:17 Assunto: RES: [delphi-br] SOLUÇÃO para distribuição de aplicativo com BD - Criação de arquivo INI 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 [mailto:[EMAIL PROTECTED] os.com.br] Em nome de Angelo Louzada Enviada em: sexta-feira, 25 de janeiro de 2008 11:12 Para: [EMAIL PROTECTED] os.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] 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]
