Res: [delphi-br] Re: erro ao criar objeto - object or class type required

Mon, 21 May 2007 04:51:35 -0700 

kra eu uso o ocx da rodobel que eh parecido com o da dimep, se vc 
quiser tirar duvida meu msn [EMAIL PROTECTED], estou postando o 
codigo +/- como eu uso:

var
   oRodobel : TRB2707_RT;
  liQtdDigitos : Byte;
  Numero:SmallInt;
  Endereco_IP:WideString;
  Tempo_TimeOut:Integer;
  Tempo_Acionamento:SmallInt;
  Acionamento:TipoAcionamento;
  LiberacaoEntrada:Liberacao;
  LiberacaoSaida:Liberacao;
  Sentido_Giro:SentidoGiro;
  Tipo_Ack:TipoAck;
  Tipo_Verificador:TipoVerificador;
  lbTrue : WordBool;
  liTerminal : Smallint;
begin
     oRodobel := TRB2707_RT.Create(Self);
     oRodobel.Name := 'Terminal_Rodobel_' + lsTerminal;
     oRodobel.Parent := Self;

      case StrToInt(lsTipo) of
       0:Acionamento:=Rel_gio_Simples_sem_Acionamento;
       1:Acionamento:=Catraca_Gen_rica_com_Sensor;
       2:Acionamento:=Fechadura_com_Sensor;
       3:Acionamento:=Fechadura_sem_Sensor;
       4:Acionamento:=Catraca_Entrada;      
5:Acionamento:=Catraca_Sa_da;6:Acionamento:=Catraca_Bidirecional_Sent
ido_Giro_Dependente_Leitor;
       7:Acionamento:=Catraca_Entrada_Sa_da_Livre;
       
8:Acionamento:=Catraca_Bidirecional_Sentido_Giro_Independente_Leitor;
       9:Acionamento:=Catraca_Cofre_3_Leitores;
       10:Acionamento:=Catraca_Cofre_2_Leitores;
      end;

      case StrToInt(lsSentido) of
       0:Sentido_Giro:=Horario;
       1:Sentido_Giro:=Anti_Horario;
      end;

     LiberacaoEntrada := Libera;
     LiberacaoSaida   := Libera;
     Tipo_Verificador := Sem_D_gito_Verificador;
     Tipo_Ack         := Ack1;
     Endereco_IP      := lsIP;

     {se o codigo de aproximacao }
     if TipoCodigo(lsTerminal)=wCODIGO_TIPO_APROX then
      liQtdDigitos := 10;

     with oRodobel do
     begin
       OnConectado             := RB2707_RT1Conectado;
       OnConcluidaConfiguracao := RB2707_RT1ConcluidaConfiguracao;
       OnConcluidoDataHora     := RB2707_RT1ConcluidoDataHora;
       OnConcluidaAtivacao     := RB2707_RT1ConcluidaAtivacao;
       OnConcluidoAcesso       := RB2707_RT1ConcluidoAcesso;
       OnConsultaCracha        := RB2707_RT1ConsultaCracha;
       OnRegistroRecolhido     := RB2707_RT1RegistroRecolhido;

       InicializarComponente(liQtdDigitos,Tipo_Verificador);
       Numero           := StrToInt(lsTerminal);
       Tempo_TimeOut    := 5;
       Tempo_Acionamento:= 3;

       AdicionaRelogio(Numero,
                       Endereco_IP,
                       Tempo_TimeOut,
                       Acionamento,
                       Tempo_Acionamento,
                       LiberacaoEntrada,
                       LiberacaoSaida,
                       Sentido_Giro,
                       Tipo_Ack);

       ConectarRelogios;

     end;


    Claro o codigo nao completo mas da pra vc ter uma ideia
    Seria interessante vc postar como vc ta fazendo

    qualquer coisa tamos por aqui

    Bit

Responder a