Como todos sabemos, a tecnologia ASP é a principal tecnologia para nossos programas web baseados na plataforma Internet/Intranet. Em aplicativos ASP, geralmente usamos duas linguagens de script: vbscripts e javascripts. Porém, a linguagem de script é uma linguagem não compilada e os programas web por ela desenvolvidos apresentam problemas inerentes em termos de segurança, eficiência de execução e escalabilidade. Portanto, ao desenvolver sistemas web, geralmente usamos linguagens de alto nível para escrever ASP. corpos de execução e, em seguida, use scripts para A linguagem serve como código de conexão para chamar o corpo de execução asp para realizar o acesso. A este respeito, desde que a tecnologia ASP foi introduzida pela Microsoft, geralmente usamos VB ou VC, então como os programadores Delphi podem conseguir isso?
Nesse sentido, o autor realizou recentemente a programação web da tecnologia ASP no ambiente Delphi por meio das informações do inrpisre. Aqui está uma introdução a seguir:
1. Crie um novo projeto DLL acdiveX PRoject1 no ambiente delphi, em seguida, crie um objeto ASP através do Active Server Object do delphi e preencha o nome do objeto criado MyAspObject em seu coClassName.
2. Utilize o tipo Library para criar um método MyAspRequest para o objeto MyAspObject recém-criado que será chamado pela linguagem de script.
3. Como o objeto ASP recém-criado herda de TASPObject, podemos usar diretamente o objeto asp na criação do método. Agora preencha o código para o objeto Asp que criamos da seguinte forma:
produzir TMyAspObject.MyAspRequest;
começar
repsonse.write('<p>Seu nome é:');
repsonse.write(request.form.item['Nome']);
repsonse.write('</p>');//Lê o nome do usuário da página web a ser criada//
repsonse.write('<p>Seu trabalho é:');
repsonse.write(request.form.item['trabalho']);
repsonse.write('</p>');//Lê o trabalho do usuário na página web a ser criada//
repsonse.write('<p>A ferramenta de desenvolvimento que você usa:');
if(request.form.item['delphi'].contagem>0)
repsonse.write('delphi');
if(request.form.item['bcb'].contagem>0)
repsonse.write('c++ Builder'); //Determina as ferramentas de desenvolvimento utilizadas pelo usuário //
repsonse.write('</p>');
repsonse.write('<p>Sua identidade:');
repsonse.write(request.form.item['Identidade']);
repsonse.write('</p>');//Lê a identidade do usuário//
fim;
4. Compile o programa e registre-o como arquivo PMyAspObject.dll em delphi.
5. Escreva o arquivo de linguagem de script ASP MyAsp.asp para conexão
<%@idioma=jscript %>
<HTML>
<CORPO>
<title>Este é um objeto ASP criado com delphi</title>
<center><h3>O conteúdo que você preenche é o seguinte</h3></center>
<%
var myasp;
myasp=server.createobject(PMyAspObject.MyAspObject);
//Gerar objeto de conexão//
myasp.MyAspRequest();//Chame seu próprio objeto ASP definido//
%>
</body>
</HTML>
6. Crie a página da web Myhtm.htm para exibição
<form action='localHost/shd/myasp.asp' método='post">
<h1 align='center">Selecione</h1>
<P>Nome: <input type='text' size=33 name="name"></p>
<P>Trabalho: <input type='text' size=33 name="work"></p>
<P>Ferramentas de desenvolvimento: <input type='checkbox' name='delphi' value="on">delphi
<input type='checkbox'name='bcb'value="on">Construtor c++</p>
<p>Sua identidade:</p>
<p><select name="identity" size="1">
<option>Aluno</option>
<option>Técnico</option>
</select></p>
<p><input type="submit" name="mysubmit" value="Submit">
</form>
7. Em seguida, coloque Myhtm.htm e myasp.asp no diretório shd do seu servidor web pessoal para navegar e testar.
Renderizações de páginas da web
Renderizações ASP
O programa acima é implementado em pwin98 ME e delphi5.0 Enterprise.