Configuração de aplicativo p/ Web com acesso a dados
Boa tarde pessoal gostaria de saber se vcs
podem me ajudar a descobrir esse erro..
estou tentando fazer um exemplo de aplicação p/ net.
1º) configurei no meu PWS.
minha pasta.. c:\exemplos
alias: exemplos
2º) criei uma página html com o nome de pesquisa.html
<HTML>
<BODY>
<form name=´form1´ method=´POST´ action=´exemplo2.exe´>
Digite o nome do cliente: <input type=´text´ name=´nome´ value=´´><br>
<input type=´submit´ value=´Pesquisar´>
</form>
<br>
</BODY>
</HTML>
3º)criei um WEB Server Application..
- inclui um TSession.. e pus autosessionname pra true;
- pus um database com aliasname = DBDEMOS databasename = db1
connected = true
- inclui um query pus databasename = db1 e fiz a seguinte query na
propriedade sql
select * from customer
where UPPER(company) like :company
params de company => datatype = ftstring e paramtype = ptinput
- inclui um PageProducer e em HTMLFile.. selecionei minha pasta
C:\exemplos\pesquisa.html
- criei uma action e codifiquei
procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
Valor:= Request.ContentFields.Values[´nome´];
Resultado:=´´;
if Request.MethodType=mtPost then
begin
Query1.Close;
Query1.ParamByName(´company´).asstring:= ´¬´+Uppercase(Valor)+´¬´;
Query1.Open;
Resultado:= ´<TABLE><TH>Resultado´;
While not Query1.Eof do
begin
Resultado:= Resultado +
´<TR><TD>´+
Query1.fieldbyname(´Cust_NO´).asstring+ ´<TD>´ +
Query1.fieldbyname(´Company´).asstring;
Query1.next;
end;
Resultado:= Resultado + ´</table>´;
end;
Response.Content:= PageProducer1.Content;
end;
declarei as duas variaveis como public do tipo string;
- no evento onhtml
procedure TWebModule1.PageProducer1HTMLTag
(Sender: TObject; Tag: TTag;
const TagString: String; TagParams: TStrings;
var ReplaceText: String);
begin
if tagstring=´resultado´ then
Replacetext:=Resultado;
if TagString=´valor´ then
Replacetext:= Valor;
end;
- Compilei.. até aí tudo jóia..
- digito no meu browser
localhost/exemplos/pesquisa.html
e ela abre..
qdo ponho um valor e mando pesquisar ela não me retorna nada..
dá página não encontrada..
onde estou errando
valeu
Eric
podem me ajudar a descobrir esse erro..
estou tentando fazer um exemplo de aplicação p/ net.
1º) configurei no meu PWS.
minha pasta.. c:\exemplos
alias: exemplos
2º) criei uma página html com o nome de pesquisa.html
<HTML>
<BODY>
<form name=´form1´ method=´POST´ action=´exemplo2.exe´>
Digite o nome do cliente: <input type=´text´ name=´nome´ value=´´><br>
<input type=´submit´ value=´Pesquisar´>
</form>
<br>
</BODY>
</HTML>
3º)criei um WEB Server Application..
- inclui um TSession.. e pus autosessionname pra true;
- pus um database com aliasname = DBDEMOS databasename = db1
connected = true
- inclui um query pus databasename = db1 e fiz a seguinte query na
propriedade sql
select * from customer
where UPPER(company) like :company
params de company => datatype = ftstring e paramtype = ptinput
- inclui um PageProducer e em HTMLFile.. selecionei minha pasta
C:\exemplos\pesquisa.html
- criei uma action e codifiquei
procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
Valor:= Request.ContentFields.Values[´nome´];
Resultado:=´´;
if Request.MethodType=mtPost then
begin
Query1.Close;
Query1.ParamByName(´company´).asstring:= ´¬´+Uppercase(Valor)+´¬´;
Query1.Open;
Resultado:= ´<TABLE><TH>Resultado´;
While not Query1.Eof do
begin
Resultado:= Resultado +
´<TR><TD>´+
Query1.fieldbyname(´Cust_NO´).asstring+ ´<TD>´ +
Query1.fieldbyname(´Company´).asstring;
Query1.next;
end;
Resultado:= Resultado + ´</table>´;
end;
Response.Content:= PageProducer1.Content;
end;
declarei as duas variaveis como public do tipo string;
- no evento onhtml
procedure TWebModule1.PageProducer1HTMLTag
(Sender: TObject; Tag: TTag;
const TagString: String; TagParams: TStrings;
var ReplaceText: String);
begin
if tagstring=´resultado´ then
Replacetext:=Resultado;
if TagString=´valor´ then
Replacetext:= Valor;
end;
- Compilei.. até aí tudo jóia..
- digito no meu browser
localhost/exemplos/pesquisa.html
e ela abre..
qdo ponho um valor e mando pesquisar ela não me retorna nada..
dá página não encontrada..
onde estou errando
valeu
Eric
Eric.miranda
Curtidas 0
Respostas
Eric.miranda
16/03/2005
sobe
GOSTEI 0