DUVIDAS arquivo ini
pessoal fiz um sisteminha para emitir duplicata e dai o meu cliente quer que ele rode em rede
como sou novo no delphi eu num sei bem como criar um arquivo ini to usando o DBExpert e firebiard.
bom pessoal eu sei que para criar um arquivo ini com o banco interbase é assim
procedure TFormMenu.FormCreate(Sender: TObject);
var
inicconf:Inifile;
BEGIN
iniconf:=TIniFile.Create(ExtractFilePath(Application.ExeName)+''Conf.ini'');
iniconf.WriteString(''BANCO_DADOS'',''Path'',dm.Banco_dados.DatabaseName);
end;
mas queria saber como criar no firebiard
iniconf:=TIniFile.Create(ExtractFilePath(Application.ExeName)+''Conf.ini'');
iniconf.WriteString(''BANCO_DADOS'',''Path'',dm.SQLConetion....
num sei mais o resto e se esse tambem estiver certo....hehehe
como sou novo no delphi eu num sei bem como criar um arquivo ini to usando o DBExpert e firebiard.
bom pessoal eu sei que para criar um arquivo ini com o banco interbase é assim
procedure TFormMenu.FormCreate(Sender: TObject);
var
inicconf:Inifile;
BEGIN
iniconf:=TIniFile.Create(ExtractFilePath(Application.ExeName)+''Conf.ini'');
iniconf.WriteString(''BANCO_DADOS'',''Path'',dm.Banco_dados.DatabaseName);
end;
mas queria saber como criar no firebiard
iniconf:=TIniFile.Create(ExtractFilePath(Application.ExeName)+''Conf.ini'');
iniconf.WriteString(''BANCO_DADOS'',''Path'',dm.SQLConetion....
num sei mais o resto e se esse tambem estiver certo....hehehe
Glebson Guimaraes
Curtidas 0
Respostas
Gilvanio Gonçalves
10/10/2012
Neste exemplo arquivo .ini para conexao de rede usando firebird
Ficando o arquivo assim:
[Banco]
Caminho=d:\banco\banco.fdb
CaminhoRede=192.168.1.10:d:\banco\banco.fdb
Declare a unit abaixo
no seu datamodule codigo abaixo:
é isto ai, t+.
Ficando o arquivo assim:
[Banco]
Caminho=d:\banco\banco.fdb
CaminhoRede=192.168.1.10:d:\banco\banco.fdb
Declare a unit abaixo
uses IniFiles,
no seu datamodule codigo abaixo:
procedure Tdm.DMCreate(Sender: TObject);
var ini : tIniFile;
begin
arquivo :=TIniFile.Create('c:\teste.ini');
dm.cnSistema.Disconnect;
dm.cnSistema.DatabaseName := arquivo.ReadString('Banco',
'Caminho','');
try
dm.cnSistema.Connect;
except
ShowMessage('Erro ao conectar-se ao banco de dados');
Application.Terminate;
End;
arquivo.free;
end;é isto ai, t+.
GOSTEI 0
Singular Ti
10/10/2012
Amigo se voce ainda tiver duvidas, de uma olhada no meu post em
https://www.devmedia.com.br/forum/firebird-na-rede-com-delphi-dbx/423619
Ate mais!!
https://www.devmedia.com.br/forum/firebird-na-rede-com-delphi-dbx/423619
Ate mais!!
GOSTEI 0
Alisson Santos
10/10/2012
Amigo conseguiu sanar a sua duvida?
GOSTEI 0