[firebase-br] Ref. Off - EOleSysError - chamado Inválido

Omar Marques Haddad omarhaddadm em gmail.com
Qui Dez 8 15:06:03 -03 2011


Opa.

Tenho um servidor de aplicação rodando que nele tem o método

procedure TRDMHQZServerRetaguarda.Checar_Configuracao_Empresa(var Result:
WordBool);
begin
  Result := False;
  try
    try
      with qryTemp do
      begin
        Close;
        SQLConnection := SQLConnection;
        SQL.Text :=
TSProviderDefs.Providers.Provider['EMPRESA_CAD'].SQL.Text;
        Open;

        Result := not IsEmpty;
      end;
    finally
      qryTemp.Close;
      qryTemp.SQL.Clear;
    end;
  except
    on E: Exception do
    begin
      raise Exception.Create(E.Message);
    end;
  end;
end;

Usando CDS / Fb 2.5

No meu projeto em Delphi 2010 ao inicializar, chamo este método com um
SocketConnection e um ConnectionBroker para conectar ao server e agora, ao
debugar, na linha aonde chamo a função que verifica dados iniciais do
cadastro, ocorre o erro:


FONTE DO .DPR:

 Application.MainFormOnTaskbar := True;
  Application.Title := 'HQZ Gestão - Módulo Retaguarda';
  Application.CreateForm(Tdm, dm);
  Application.CreateForm(TdmReport, dmReport);
  Application.CreateForm(TdmBI, dmBI);
  Application.CreateForm(TdmProdutos, dmProdutos);
  if dm.Conectar_Servidor_Central then
  begin
    if dm.ChecarCadastro then
    begin
      dm.ConnectionBroker.AppServer.Empresa_PAF_ECF(bEmpresaPAF);
      dm.Empresa_PAF_ECF := bEmpresaPAF;

      try
        FrmLogin := TFrmLogin.Create(Application);
        if FrmLogin.Login = mrOk then
          Application.CreateForm(TFrmMenuPrincipal, FrmMenuPrincipal);
      finally
        FreeAndNil(FrmLogin);
      end;
    end
    else
    begin
      Application.MessageBox('A configuração do Servidor não foi realizada.
Verifique!',
        'Atenção', MB_OK + MB_ICONWARNING + MB_DEFBUTTON2);
    end;
  end
  else
    Application.MessageBox('Não foi possível estabelecer uma conexão com o
servidor!',
      'Atenção', MB_OK + MB_ICONWARNING + MB_DEFBUTTON2);

  Application.Run;


No .DPR, ao chamar a função "checarCadastro" que chama o método do Server,
acontece o erro

function Tdm.ChecarCadastro: Boolean;
var
  bResult: WordBool;
begin
  Result := False;

//  cdsEmpresa.Close;
//  cdsEmpresa.ClearWhere;

  Try
    ConnectionBroker.AppServer.Checar_Configuracao_Empresa(bResult);
  Except
    ShowMessage('Erro !');
  End;
//  cdsEmpresa.Open;

  cdsSoftwareHouse.Close;
  cdsSoftwareHouse.Open;

  Result := bResult;
end;



Mais detalhes sobre a lista de discussão lista