LOGIN:

iMasters | Por uma internet mais criativa e dinâmica

Feeds

Segunda-feira, 15/09/2003 - 01:59 - Por Marcelo Varela
Seções relacionadas:

ASP em Delphi - Parte 2

Olá galera, tudo bem?

Nesta coluna daremos continuidade sobre como construirmos objetos ASP dentro do ambiente Delphi. Como comentamos na coluna passada, este exemplo é apenas para nossa compreensão e, embora simples, servirá de referência quando você for criar um objeto em seus trabalhos.

Criando métodos

" Clique no objeto IDemo (ver Figura 5 da coluna anterior);
" Clique no botão New Method para criarmos um novo método;

" Chame o novo método de Escrever;
" Clique no botão Refresh Implementation para seu código Delphi seja atualizado;
" Pressione a tecla F12 para alternarmos no editor de código do Delphi;
" Note que o Delphi criou um arquivo extra chamado Exemplo_TLB. Ele é basicamente a definição da estrutura do nosso objeto. Não precisaremos mexer nele, pois todo o seu código é gerado pelo próprio ambiente de desenvolvimento.
" Escolha a guia da unidade Exemplo1. É nela que são escritos todos os códigos necessários para o nosso objeto ActiveX.

Veja a seguir o código gerado inicialmente pelo Delphi:

unit Exemplo1;

interface

uses
ComObj, ActiveX, AspTlb, Exemplo_TLB, StdVcl;

type
TDemo = class(TASPObject, IDemo)
protected
procedure OnEndPage; safecall;
procedure OnStartPage(const AScriptingContext: IUnknown); safecall;
procedure Escrever; safecall;
end;

implementation

uses ComServ;

procedure TDemo.OnEndPage;
begin
inherited OnEndPage;
end;

procedure TDemo.OnStartPage(const AScriptingContext: IUnknown);
begin
inherited OnStartPage(AScriptingContext);
end;

procedure TDemo.Escrever;
begin

end;

initialization
TAutoObjectFactory.Create(ComServer, TDemo, Class_Demo,
ciMultiInstance, tmApartment);
end.

Vamos escrever nosso código dentro do bloco reservado para a procedure Escrever.

procedure TDemo.Escrever;
begin
Response.Write('iMasters - Coluna Delphi');
end;

Você deve estar se perguntando: Como é possível usar um objeto do ASP (neste caso o Response) dentro da unidade Delphi?

Observe na sua cláusula uses da unidade Exemplo1.pas que o Delphi adicionou automaticamente à biblioteca necessária para usar as Classes do ASP (AspTlb), dentro do seu projeto.

Dessa forma, você poderá utilizar em seu código Delphi todos os objetos built-in do ASP: Response, Request, Session, Server, entre outros. Parece até que estamos programando em ASP, não é mesmo?!

Salve seu projeto e compile-o, gerando assim a DLL do componente.

Nota: Recomendo gerar essa DLL no diretório onde a página ASP será executada. Para isso, basta salvar seu projeto nesta pasta, ou então modificar no menu Project | Options, Directory Conditionals, Output Directory. O diretório onde a DLL será criada, por exemplo: C:inetputwwwrootimasters

Para finalizar e tornar possível visualizarmos nosso exemplo, uma DLL ActiveX precisa ser registrada no Windows para poder ser instanciada pela página ASP.

Você pode fazer isso de duas formas:

01. Clique sobre o botão Register Type Library, na tela de interface da classe, para registrar seu componente:

2. Outra forma de se registrar o componente é: Vá ao prompt do MSDOS. Entre na pasta onde sua DLL foi gerada e digite: C:WINDOWSSYSTEMREGSVR32 Exemplo.dll

Após registrar o componente, precisaremos então criar a página ASP que fará sua chamada.
Volte ao editor de código do Delphi e abra o arquivo Exemplo.ASP

Modifique esse código para:

<HTML>
<HEAD>
<TITLE>Teste de Componente ASP</TITLE>
</HEAD>
<BODY>
<%
Set DelphiASPObj = Server.CreateObject("Exemplo.Demo")
DelphiASPObj.Escrever
Set DelphiASPObj = Nothing
%>
</BODY>
</HTML>

Perceba na instanciação do objeto que chamamos a classe (Exemplo) e logo em seguida o objeto (Demo).

Salve seu código ASP na pasta onde será executado.

Bem pessoal, espero que tenham gostado. Escrevam-me pedindo algum exemplo mais prático e o mais solicitado escreverei nas próximas colunas. Um abraço!

Todos os artigos de Marcelo Varela

2 comentários publicados

  • 1. Henrique_gyn

    Terça-feira, 28/12/2004, por marcus vinicius

    Como eu crio um componente COM+, posso utilizar essa mesma dica?

    Responder comentário

  • 2. no Delphi 2005

    Sexta-feira, 14/01/2005, por Fillpe

    Como desenvolvo esse mesmo código no Delphi 2005? Posso utilizar os mesmo comentários que vc postou aqui?

    Responder comentário

Poste um comentário


Os textos publicados neste espaço são de responsabilidade única de seus autores (colunistas e leitores) e podem não expressar necessariamente a opinião do iMasters.

Sobre o autor

Marcelo Varela é professor Delphi, SQL Server e ASP em cursos Cliente/Servidor.


Indique para um amigo

captcha

TI SHOP Produtos iMasters

  • Lançamento: CD-ROM Treinamento Aplicado de SQL - Lançamento! Treinamento Aplicado de SQL - Aprenda a trabalhar com SQL com bancos de dados Oracle e SQL Server. São mais de 100 tópicos explicados por Mauro Pichilliani, um articulistas mais lidos do iMasters. Aproveite! Apenas R$ 69,90 no TI SHOP.
  • Lançamento: Livro iMasters "O Encontro de 2 Mundos"- Este livro conta com 56 crônicas de profissionais mais admirados e influentes do mercado brasileiro de Internet. Aproveite o preço especial para leitores do iMasters. Apenas R$ 40,00 e envio imediato!
  • DVD Curso Completo de Photoshop - Do conceito à finalização Lançamento! Curso Completo de Photoshop, em DVD, com mais de 230 aulas dividas em 4 módulos: conceito, básico, avançado e finalização. Apenas R$ 69,50 no TI SHOP - Frete com 50% de desconto
  • DVD Javascript Starter - Curso Completo Com mais de 9 horas de vídeo-aulas, é um curso completo sobre Javascript. Ideal para quem deseja aprender a linguagem. Apenas R$ 64,90 no TI SHOP - Frete com 50% de desconto!

2001 - iMasters FFPA Informática Ltda - Todos os direitos reservados.