VDLR

Cara, obrigado por sua atenção. Procurei corrigir alguns erros e ver algumas matérias a respeito do INI, e corrigi o código, mas continua dando erro. Não tem como você me apontar os erros ?? Como eu testaria esse código fora do delphi ?? procedure TFRlembrdoc.Gravar_Configuracao(Url, Usr, pws : String); var Banco : TIniFile; Begin Try SetCurrentDir(ExtractFilePath(Application.ExeName)); Banco := TIniFile.Create(GetCurrentDir + '\database.ini'); Banco.WriteString('DATABASE','\\Phoenix2\C\VDL - Controle SMS\BDados\BDSMS.GDB',URL); Banco.WriteString('DATABASE','SYSDBA',USR); Banco.WriteString('DATABASE','masterkey',PWS); Finally Banco.Free; End; End; [code]procedure TFRlembrdoc.Ler_Configuracao(var Banco : TIniFile;var Url: String; var Usr: String; var pws: String); Begin Try Banco := TIniFile.create(GetCurrentDir+'\database.ini'); URL := Banco.WriteString('DATABASE','\\Phoenix2\C\VDL - Controle SMS\BDados\BDSMS.GDB',URL); USR := Banco.WriteString('DATABASE','SYSDBA',USR); PWS := Banco.WriteString('DATABASE','masterkey',PWS); Finally Banco.Free; End; End; procedure TFRlembrdoc.FormCreate(Sender: TObject); begin SetCurrentDir(ExtractFilePath(Application.ExeName)); IBContrSMS.Close; Ler_Configuracao(Url,Usr,Pws); IBContrSMS.Params.Add('user_name=SYSDBA'+USR); IBContrSMS.params.add('password=masterkey'+PWS); IBContrSMS.DatabaseName := '\\Phoenix2\C\VDL - Controle SMS\BDados\BDSMS.GDB'+URL; IBContrSMS.Open; end; Os erros são estes [Warning] LembrDoc.pas(117): Variable 'Banco' might not have been initialized [Error] LembrDoc.pas(125): Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter' [Error] LembrDoc.pas(126): Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter' [Error] LembrDoc.pas(127): Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter' [Error] LembrDoc.pas(131): Illegal character in input file: '}' ($7D) [Error] LembrDoc.pas(243): Undeclared identifier: 'Url' [Error] LembrDoc.pas(243): Types of actual and formal var parameters must be identical [Fatal Error] LembreteDoc.dpr(5): Could not compile used unit 'LembrDoc.pas' Abraços Valdecir :(

Pessoal peguei um artigo na internet para conectar o sistema através do INI, e tentei adaptar ao meu sistema, só que estou recebendo diversos erros que não seu como corrigir, alguém pode me ajudar. Os códigos são estes: procedure Gravar_Configuracao(Url, Usr, pws : String); var Banco : TIniFile; Begin Try SetCurrentDir(ExtractFilePath(Application.ExeName)); Banco := TIniFile.Create(GetCurrentDir + '\\Phoenix2\C\VDL - Controle SMS\BDados\BDSMS.GDB.ini'); Banco.WriteString('DATABASE','\\Phoenix2\C\VDL - Controle SMS\BDados\BDSMS.GDB',URL); Banco.WriteString('DATABASE','SYSDBA',USR); Banco.WriteString('DATABASE','masterkey',PWS); Finnaly Banco.Free; End; End; procedure Ler_Configuracao(var Url: String; var Usr: String; var pws: String); Begin Try Banco := TIniFile.create(GetCurrentDir+'\\Phoenix2\C\VDL - Controle SMS\BDados\BDSMS.GDB.ini'); URL := Banco.WriteString('DATABASE','\\Phoenix2\C\VDL - Controle SMS\BDados\BDSMS.GDB',URL); USR := Banco.WriteString('DATABASE','SYSDBA',USR); PWS := Banco.WriteString('DATABASE','masterkey',PWS); Finnaly Banco.Free; End; End; procedure TFRlembrdoc.FormCreate(Sender: TObject); begin SetCurrentDir(ExtractFilePath(Application.ExeName)); IBContrSMS.Close; Ler_Configuracao(Url,Usr,Pwd); IBContrSMS.Params.Add('user_name='+USR); IBContrSMS.params.add('password ='+PWD); IBContrSMS.DatabaseName := Url; IBContrSMS.Open; end; Os erros são este: [Error] LembrDoc.pas(114): Undeclared identifier: 'Finnaly' [Error] LembrDoc.pas(115): Missing operator or semicolon [Error] LembrDoc.pas(116): EXCEPT or FINALLY expected [Error] LembrDoc.pas(122): Undeclared identifier: 'Banco' [Error] LembrDoc.pas(123): Missing operator or semicolon [Error] LembrDoc.pas(124): Missing operator or semicolon [Error] LembrDoc.pas(125): Missing operator or semicolon [Error] LembrDoc.pas(126): Undeclared identifier: 'Finnaly' [Error] LembrDoc.pas(127): Missing operator or semicolon [Error] LembrDoc.pas(128): EXCEPT or FINALLY expected [Error] LembrDoc.pas(244): Undeclared identifier: 'Url' [Error] LembrDoc.pas(244): Types of actual and formal var parameters must be identical [Fatal Error] LembreteDoc.dpr(5): Could not compile used unit 'LembrDoc.pas' Abraço Valdecir

Legal pessoal testei da outra forma e funcionou também, agora só preciso ver como por isto em rede, mas acho melhor iniciar um novo tópico. Abraços a todos e muito obrigado Valdecir :D :D

Pessoal desculpe a demora, pois estava na correria. Funcionou com esta dica do s3C deu, agora está aparecendo o ícone do Interbase Guardian na barra de tarefa. Mas seria mais viável fazer como estes postes que vocês colocaram depois Se eu colocar o sistema em rede será que vai funciona ?? no momento estou usando banco local Abraços Valdecir ;)

Cara depois que dá este erro, eu dou ok e abre o form com o grid vazio, fechando o sistema e abrindo novamente funciona normal. É mole cara :huh: Abraços Valdecir

Cara o erro que dá e esse " UNAVAILABLE DATABASE " Tem alguma idéia Abraços Valdecir

Cara o que esta no inicializar do msconfig e o executável que está na pasta de inicializar, porque o registro que o sistema criou eu apaguei através do regedit. Cara a inicialização do Interbase eu não sei quando acontece. Registrei-me no SB, obrigado pela dica. Abraços Valdecir