Fórum Erro na execução do sistema #266566

Fala Fox...

Pelo que você descreveu, o problema é que o guardião do Firebird não está rodando quando o seu sistema é iniciado.

Com a rotina abaixo vc pode chamar um programa externo ao seu:

procedure ExecutaPrograma(Nome, Parametros: String);
Var
Comando: Array[0..1024] of Char;
Parms: Array[0..1024] of Char;
I : Integer;
begin
StrPCopy (Comando, Nome);
For I := 1 To Length(Parametros) Do
If Parametros[I] = ´ ´
Then Parms[I-1] := #0
Else Parms[I-1] := Parametros[I];
StrPCopy (Parms, Parametros);
ShellExecute (0, Nil, Comando, Parms, Nil, SW_ShowMaximized);
end;

************************************************************
Para chamar o procedimento (para startar o guardião) utilize o seguinte comando: ExecutaPrograma(´C:\Arquivos de programas\Firebird\Firebird_1_5\bin\fbguard.exe´,´´);


Lembro a vc que este comando deve ser executado no seu programa antes de qualquer tentativa de acesso ao banco, inclusive de conexão.

Espero ter ajudado.

__________________________
Manoel Pereira Junior
manoel@papersoft.com.br