Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Testando um COMponente
Message
From
14/03/2002 08:46:14
 
 
To
14/03/2002 08:34:10
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Miscellaneous
Thread ID:
00632652
Message ID:
00632669
Views:
17
This message has been marked as the solution to the initial question of the thread.
Olá, Frederico.

Bom, primeiro deixa eu te orientar... quando você postar algum trecho de código em mensagens aqui, anteceda o código com <pre> e no final coloque </pre>
desta forma, o código sairá formatado com as cores padrões do VFP.

Agora esclarecendo, olhando para o código, achei um erro tolo. No exemplo, acabei declarando apenas a classe Taxa como OLEPUBLIC. Na verdade, o correto é que ela não deve ser criado como OLEPUBLIC, pois como é a classe abstrata, não será utilizada diretamente. Assim sendo, não necessita ser um componente COM.

Assim, apenas as outras duas classes é que devem ser definidas como OLEPUBLIC. Assim:
DEFINE CLASS taxa as custom
***
DEFINE CLASS TaxaBrasil AS Taxa OLEPUBLIC
***
DEFINE CLASS TaxaPortugal AS Taxa OLEPUBLIC
supondo que você compile estas classes como DLL´s, em um projeto de nome "Teste", pode utilizá-las como segue:
oTaxa = CreateObject("teste.TaxaBrasil")
? oTaxa.CalcularTaxa(200)

oTaxa = CreateObject("teste.TaxaPortugal")
? oTaxa.CalcularTaxa(200)
Claudio Lassala
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform