[EMAIL PROTECTED] wrote:
> Por favor pessoal nenhuma dica ???
> Abraços
Ainda falta informação nos seus fontes, alguém tem que criar um objeto
que implemente a interface _Modelo_RT. Então basta você:
var
VModelo: _Modelo_RT;
begin
VModelo := Obj.Create as _Modelo_RT;
e VModelo estará pronto pra uso.
--
Joao Morais
>
> ----- Original Message -----
> From: [EMAIL PROTECTED]
> To: delphi-br@yahoogrupos.com.br
> Sent: Tuesday, May 15, 2007 11:31 AM
> Subject: Re: [delphi-br] erro ao criar objeto - object or class type required
>
>
> Rubem, fiz o teste como vc citou, mas continua o erro de "Object or Class
> Type Required".
>
> Amigos, basicamente a estrutura da minha unit é:
>
> unit exemplo;
>
> {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
> {$WARN SYMBOL_PLATFORM OFF}
> {$WRITEABLECONST ON}
> {$VARPROPSETTER ON}
> interface
>
> uses Windows, ActiveX, Classes, Graphics, OleCtrls, OleServer, StdVCL,
> Variants;
>
> const
> // TypeLibrary Major and minor versions
> Modelo_MajorVersion = 8;
> Modelo_MinorVersion = 9;
>
> LIBID_Modelo_RealTime: TGUID = '{1E7931DE...}';
>
> type
> Seriais = TOleEnum;
> const
> Com1 = 1;
> Com2 = 2;
> Com3 = 3;
>
> // tem uma sequencia grande de type´s e const´s ...
>
> type
> _Modelo_RT = interface;
> _Modelo_RTDisp = dispinterface;
> __Modelo_RT = dispinterface;
>
> Modelo_RT = _Modelo_RT;
>
> // *********************************************************************//
> // Declaration of structures, unions and aliases.
> // *********************************************************************//
> Status = packed record
> Data : TDateTime;
> Hora : TDateTime;
> etc...
> end;
>
> _Modelo_RT = interface(IDispatch)
> ['{654C5BE8...}']
>
> // aqui tem as funções que quero utilizar, como por exemplo a
> InicializarComponente
> end;
>
> implementation
>
> uses ComObj;
>
> end.
>
> Agora pergunto... como utilizo estas funções/procedures em meu projeto ?
>
> Obrigado
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
