S
song2
Unregistered / Unconfirmed
GUEST, unregistred user!
我在WEB服务器程序的数据模块放如SESSION1,DATABASEA,QUERY1
默认ACTION中执行代码如下:(代码中ORA9是BDE中别名,在BDE或者C/S模式访问时候正常)
procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
sstr:string;
begin
try
database1.AliasName:='ora9';
database1.DatabaseName:='s1';
database1.Params.Values['User_Name'] := 'sys';
database1.Params.Values['Password'] :='mon;
database1.loginprompt :=false;
database1.open;
query1.DatabaseName:='s1';
query1.active:=true;
while not query1.eof do
begin
sstr:=sstr+'<p>'+query1.fieldbyname('lastname').asstring+'</p>';
query1.next;
end;
finally
query1.active:=false;
end;
response.content:=sstr;
handled:=true;
end;
在浏览器中执行发布后EXE什么也没有!
为什么,高手门帮助我啊!
默认ACTION中执行代码如下:(代码中ORA9是BDE中别名,在BDE或者C/S模式访问时候正常)
procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
sstr:string;
begin
try
database1.AliasName:='ora9';
database1.DatabaseName:='s1';
database1.Params.Values['User_Name'] := 'sys';
database1.Params.Values['Password'] :='mon;
database1.loginprompt :=false;
database1.open;
query1.DatabaseName:='s1';
query1.active:=true;
while not query1.eof do
begin
sstr:=sstr+'<p>'+query1.fieldbyname('lastname').asstring+'</p>';
query1.next;
end;
finally
query1.active:=false;
end;
response.content:=sstr;
handled:=true;
end;
在浏览器中执行发布后EXE什么也没有!
为什么,高手门帮助我啊!