Shopping Hospedagem Fórum Contato
     
   O portal do desenvolvedor ASP Florianópolis-SC, Domingo - 23 de Setembro de 2018  
Busca

Menu do site
Efetuar Login
Usuário:

Senha:

 Esqueceu a senha?
Login automático

 Cadastre-se
ASP + Delphi: Criando um componente ActiveX
Avaliações: 13   -   Minha nota: Média Geral: 16  

Vamos neste artigo aprender a criar um componente ActiveX simples em Delphi para ser usado pelo ASP.

Abra o Delphi e clique em File > New > Other, como mostra a figura abaixo:


Na janela que será exibida, clique em ActiveX > ActiveXLibrary e em seguida clique em Ok, como mostra a figura abaixo:


Clique a seguir em New Itens, como mostra a figura abaixo:


Na janela que será novamente exibida, clique em ActiveX > Active Server Object, em seguida clique em Ok, como mostra a figura abaixo:


Na caixa de diálogo, digite o nome aspteste para a classe do objeto, como mostra a figura abaixo:


A janela do projeto será então exibida, como mostra a figura abaixo:


Automaticamente, foram criados dois métodos a serem utilizados pelo componente:
     OnStartPage - Método usado para quando o usuário entrar na página.
     OnEndPage - Método usado para quando o usuário sair da página.

Não iremos abordar estes dois métodos neste exemplo, porém vamos criar um novo método para ser usado em nosso script.

Clique com o botão direito do mouse na interface Iaspteste, e no menu clique em New > Method, como mostra a figura abaixo:


Um novo método será então criado, coloque o nome Result para o mesmo, como mostra a figura abaixo:


Após criar o novo método, clique no botão atualizar da janela do projeto, como mostra a figura abaixo:


Atrás da janela do projeto, encontram-se a Unit do projeto e o exemplo da página ASP para chamar o objeto, como mostra a figura abaixo:


Vamos agora criar uma mensagem de resposta a ser exibida. Esta mensagem será exibida no site quando o método Result for requisitado pela página ao componente ActiveX que acabamos de criar.

Na Unit do projeto, procure a procedure Taspteste.Result e digite a linha grifada em azul, como mostra a figura abaixo:


Neste instante, vamos salvar o nosso projeto.
No menu do Delphi, clique em File > Save All, e salve os arquivos do projeto com o nome padrão dado pelo próprio Delphi.

O componente ActiveX deste exemplo agora está pronto, mas ainda é preciso registrá-lo no sistema operacional.
Vamos então registrá-lo, clicando no botão em destaque na figura abaixo:


Será exibida uma mensagem, informando que o componente foi registrado com sucesso, como mostra a figura abaixo:



Agora abra a página de exemplo gerada pelo Delphi, como mostra a figura abaixo, selecione todo o texto e copie para a área de transferência, usando as teclas (Ctrl+C).


Abra seu editor de páginas ASP preferido, crie uma nova página e cole o conteúdo da área de transferência usando as teclas (Ctrl+V)
Altere o texto em destaque na figura abaixo para efetuar a chamada para o método Result do componente ActiveX que criamos.


Em seguida, salve a página ASP com o nome que desejar.

Abra a página pelo browser e veja o resultado de mesma, como mostra a figura abaixo

A mensagem exibida "Olá Mundo" é enviada pelo componente ActiveX que criamos e exibida no site.

Espero que este exemplo lhe seja útil.

Fabiano Dias
fabiano@superasp.com.br

www.superasp.com.br
O portal do desenvolvedor ASP




SuperASP do Brasil Ltda

03.066.522/0001-84
Av. Rio Branco 433 - Centro - Florianopolis - SC
Contato

© 2001/2008 - Superasp do Brasil Ltda. Todos os direitos reservados