IB EXPERT NAO CONSEGUE ABRIR BANCO DE DADOS

Attempting to connect to:
C:\sisep\sisep\BaseDados\SISEP.FDB
 
Connecting... Failed!
------------------------------------
Unsuccessful execution caused by a system error that precludes
successful execution of subsequent statements.
cannot attach to password database.
 
Attempting to connect to services manager... Failed!
------------------------------------

Unsuccessful execution caused by a system error that precludes
successful execution of subsequent statements.
cannot attach to password database.
 
Disconnecting from database... Passed!

procedure TFrmServidor.btnCapturaClick(Sender: TObject);
var
  DirNomeFoto: string;
  NomeFoto: string;
  FileStream : TFileStream;
  BlobStream : TStream;
    //////////////////
  procedure ConverteParaJpeg(ACaminhoFoto: string);
  var
    cjBmp: TBitmap;
    cjJpg: TJpegImage;
    strNomeSemExtensao: string;
    AFoto: TImage;
  begin
    AFoto:= TImage.Create(FrmFichaFunc);
    AFoto.Parent := FrmFichaFunc;
    AFoto.Visible := False;
    AFoto.Picture.Bitmap.LoadFromFile(ACaminhoFoto + ´.bmp´);

    cjJpg := TJPegImage.Create;
    cjBmp := TBitmap.Create;

    cjBmp.Assign(AFoto.Picture.Bitmap);
    cjJpg.Assign(cjBMP);

    cjJpg.SaveToFile(ACaminhoFoto + ´.jpg´);
    DeleteFile(ACaminhoFoto + ´.bmp´);
    cjJpg.Free;
    cjBmp.Free;
    AFoto.Free;
  end;
begin

 fCaptura := TfCaptura.Create(Self);
  try
    with fCaptura, camCamera, dm, cds_Servidor do
    begin

      DirNomeFoto := ExtractFilePath(Application.ExeName) +
      LimpaString(FieldByName(´SERV_RG´).AsString) + ´.bmp´;

      NomeFoto := ExtractFilePath(DirNomeFoto) +
      Copy(ExtractFileName(DirNomeFoto),1, Length(ExtractFileName(DirNomeFoto))-4);

      FichierImage := ExtractFileName(DirNomeFoto);

      if fCaptura.ShowModal = mrOk then
       begin
        CaptureImageDisque;
        ConverteParaJpeg(NomeFoto);
      if not (DtSrc.State in ([dsEdit,dsInsert])) then
      DtSrc.DataSet.Edit;

      try
      begin
       FileStream:=TFileStream.Create(NomeFoto + ´.jpg´,
                fmOpenRead or fmShareDenyWrite);
       BlobStream:=
       DtSrc.DataSet.CreateBlobStream(DtSrc.DataSet.FieldByName(´FOTO´),
       bmWrite);
       try
        BlobStream.CopyFrom(FileStream,FileStream.Size);
       finally
       begin
        FreeAndNil(FileStream);
        FreeAndNil(BlobStream);
       end;
      end;
      end
      except
       begin
        ShowMessage(´Problemas com memória.´);
        Exit;
       end;
      end;
      
      if DtSrc.DataSet.State in ([dsInsert,dsEdit]) then
      begin
       DtSrc.DataSet.Post;
       (DtSrc.DataSet as TClientDataset).ApplyUpdates(0);
      end;

        //FieldByName(´FOTO´).AsString := NomeFoto + ´.jpg´;
    end;
    end;
  finally
    FreeAndNil(fCaptura);
  end;
end;