Se você quiser sair do nível de entusiasta do ASP, então você deve aprender a escrever componentes para ASP. Pesquisei no Google e descobri que existem apenas alguns artigos sobre como escrever componentes asp em Delphi, então hoje escrevi este artigo básico sobre como escrever componentes asp em Delphi, espero que seja útil para iniciantes.
Para começar, vamos escrever um exemplo de “olá, mundo!”. Estou usando Delphi 7 aqui.
1.Arquivo->Novo->Outro->ActiveX->Biblioteca ActiveX e salve-o como showdll.dpr
2. Novamente, vá para Arquivo->Novo->Outros->ActiveX->ActiveX Server Object, preencha CoClassName: showhello, deixe todo o resto inalterado e clique em OK.
3. Agora comece a escrever o programa e primeiro adicione um método. Selecione Ishowhello->clique com o botão direito->Novo->Método e preencha o nome do método: sayworld.
4. Agora comece a escrever o programa, salve Unit1 como show.pas e adicione o código do método sayworld 
Todo o código do show.pas é o seguinte:
unit show;
{$WARN SYMBOL_PLATFORM DESLIGADO}
interface
usa
ComObj, ActiveX, AspTlb, showdll_TLB, StdVcl;
digite
Tshowhello = class(TASPObject, Ishowhello)
procedimentoprotegido
OnEndPage
;
procedimento safecall //sayworld método
end;
implementação
usa ComServ;
procedimento Tshowhello.OnEndPage;
início
OnEndPage herdado
;
procedimento Tshowhello.OnStartPage(const AScriptingContext: IUnknown);
início
herdado
OnStartPage(
AScriptingContext
end;
procedimento Tshowhello.sayworld();
dentro Está escrito da mesma maneira, apenas encapsulado aqui.
fim;
inicialização
TAutoObjectFactory.Create(ComServer, Tshowhello, Class_showhello,
ciMultiInstance
,
tmApartment);
Clique em Executar para compilá-lo em uma dll e registrá-lo automaticamente. Neste momento, ele solicitará:
Deixe você executá-lo no servidor web. Ok, agora escreva um arquivo asp e chame-o. Observe que o Delphi já gerou um arquivo asp.
O código showhello.asp modificado é o seguinte:
<HTML>
<BODY>
<TITLE> Testando Delphi ASP </TITLE>
<CENTER>
<H3> Você deverá ver os resultados do seu método Delphi Active Server abaixo </H3>
</ CENTER >
<HR>
<% Set DelphiASPObj = Server.CreateObject("showdll.showhello")
DelphiASPObj.sayworld
%>
<HR>
</BODY>
</HTML>
Execute-o no site iis para ver o efeito: 
5. Outros:
Para componentes escritos em Delphi, após registrar-se no serviço de componentes win2000, você pode visualizar o método de interface do componente.
6． Também existem parâmetros passados entre páginas asp e componentes. Na verdade, os parâmetros são passados para os métodos (funções) chamados. Observe que, quando definidos no Delphi, eles devem ser consistentes com o tipo de dados do vbs. É melhor que todos pratiquem mais isso. O principal objetivo aqui é permitir que todos aprendam como encapsular o código principal do asp e servir como ponto de partida.
Não há muitas palavras para escrever isso, mas fazer capturas de tela é um pouco problemático. Meu nível é limitado. Se eu cometer um erro, por favor, dê um tapa nele suavemente! ! ! !
Um vento e uma
nuvem2004-10-18