PQ a msg Classe n�o registrada?

Question

Pq aparece esta msg? Classe n�o registrada? Como fa�o para resolver este �pau�?Istto acontece com um componente q tenho....

E_gama · Answer

Quando aparece essa mensagem aparece quando seu aplicativo utiliza compnententes ActiveX ou COM+ que precisam ser registrados na m�quina cliente.

Descreva melhor quando acontece, e quais componentes vc est� utilizando. Assim fica melhor para a gente ajudar.

Tathianam · Answer

Eu tamb�m estou com o mesmo problema!!! Tenho uma aplica��o 3 camadas sendo que a Servidora foi feita uma DLL e a cliente usa o DCOM para ligar com o Servidor e, ao entrar no sistema, d� a mensagem �CLASSE N�O REGISTRADA�. Se puderem me ajudar!!!

E_gama · Answer

tathianam, vc registrou a classe servidora no windows com o comando abaixo?[b:bc503a078c]c:windowssystem32regsvr32 <servidor>.DLL[/b:bc503a078c]...

Tathianam · Answer

A minha d�vida est� justamente a�: no servidor a DLL do APPSERVER est� registrada, mas como fazer no cliente?...

E_gama · Answer

� o seguinte, quando a m�quina cliente � a mesma m�quina utilizada para o desenvolvimento, n�o precisa registrar a classe, pois o Delphi j� faz isso (desde que no projeto da classe, vc v� ao menu [b:8a6387c944]Run->Register ActiveX Server[/b:8a6387c944]).

Quando a m�quina cliente � outra, vc tem que pegar o arquivo com extens�o �.TLB� que o Delphi gera e registrar na m�quina cliente. Eu fiz uma fun��o que registra a minha classe servidor com a seguinte fun��o:

procedure TAuditorMainForm.RegistraServidor;
var
  WFileName, DocName: WideString;
  TypeLib: ITypeLib;
  LibAttr: PTLibAttr;
  DirBuffer: array[0..MAX_PATH] of char;

begin
  try
    // Registra o lado servidor do software
    WFileName := ExtractFilePath(Application.ExeName) + �\HookSrv.TLB�;
    OleCheck(LoadTypeLib(PWideChar(WFileName), TypeLib));
    OleCheck(TypeLib.GetLibAttr(LibAttr));
    OleCheck(TypeLib.GetDocumentation(-1, nil, nil, nil, @DocName));
    DocName := ExtractFilePath(DocName);
    OleCheck(RegisterTypeLib(TypeLib, PWideChar(WFileName), PWideChar(DocName)));
  except
  end;
end;

Nessa fun��o, a minha classe servidora chama-se [b:8a6387c944]HookSrv.TLB[/b:8a6387c944], e na se��o uses, vai a unit [b:8a6387c944]ComObj[/b:8a6387c944]

Tathianam · Answer

Esse registro eu fa�o todas as vezes que entrar no sistema ou tem algum m�todo para saber se a classe j� est� registrada?...

E_gama · Answer

Para ser sincero, eu sempre executo essa fun��o na aplica��o.
Uma forma simples de verificar, seria vc ver se o TLB est� no computador cliente, se tiver vc o registra e o apaga em seguida, pois uma vez registrado, ele n�o � mais necess�rio.

Tathianam · Answer

Eu vou ficar maluca!!! Registrei a TLB, coloquei um Shomessage s� para ter certeza, e o erro continua  :(...

Tathianam · Answer

A linha de c�digo OleCheck(TypeLib.GetDocumentation(-1, nil, nil, nil, @DocName)); est� trazendo �� no @DocName, vc poderia me ajudar?...

E_gama · Answer

Tem como vc nos passar um fragmento de c�digo de sua aplica��o para podermos verificar ?...

Paulo · Answer

S� d� pau qdo uso o EasyReport, em especial o componente NotaFiscal e EasyRep...

E_gama · Answer

Paulo, voc� tem o EasyReport para Delphi 5 ? Eu s� encontrei para Delphi 6.

Se tiver ou souber onde posso baix�-lo, me passe o link. Assim posso verificar o problema.

A principio, ele deve utilizar algumas classes que t�m que ser registrada no windows (tem um arquivo chamado[b:4d9cb16c50]SPL32TLB.dcu[/b:4d9cb16c50] juntos com os arquivos que baixei para Delphi 6), por isso, quero uma vers�o para Delphi 5 para eu poder testar.

Rodfernandes · Answer

Confirme se existe e est� registrada a midas.dll no system32....

F�rum PQ a msg Classe n�o registrada? #151356