G
gwcwt123
Unregistered / Unconfirmed
GUEST, unregistred user!
1、在DELPHI菜单上的FILE|NEW命令，DELPHI将打印New Items对话框，选择Web Server Application，选择ISAPI/NSAPI类型，工程保存为 web001.dpr。
2、打开WebModule Actions对话框，创建一个WebActionItem对象，将PathInfo发生设置为 /test, 然后双击OnAction事件建立事件处理过程，代码如下：
procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
page: Tstringlist;
begin
page := Tstringlist.Create;
try
with page do
begin
add('<HTML>');
add('<HEAD>');
add('<TITLE>Web Server Application -- Basic Sample</TITLE>');
add('</HEAD>');
add('<BODY>');
add('<B>This page was created on the fly by Delphi</B><P>');
add('<HR>');
add('See how easy it was to create a page on the flly with Delphi web extensions?');
add('</BODY>');
add('</HTML>');
end;
PageProducer1.HTMLDoc := page;
Response.Content := PageProducer1.Content;
finally
page.free;
end;
handled := true;
end;
3、编译工程生成web001.dll
4、将web001.dll复制到IIS默认的WEB目录下
5、打开IE输入URL： http://127.0.0.1/web001.dll/test
按教程讲解和个人的理解此时应该触发WebModule1WebActionItem1Action这个动作并显示出动作事件中生成的HTML文件对吧，但实际却无法找到网页？不知道有什么不对，请高手指点
谢谢!
2、打开WebModule Actions对话框，创建一个WebActionItem对象，将PathInfo发生设置为 /test, 然后双击OnAction事件建立事件处理过程，代码如下：
procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
page: Tstringlist;
begin
page := Tstringlist.Create;
try
with page do
begin
add('<HTML>');
add('<HEAD>');
add('<TITLE>Web Server Application -- Basic Sample</TITLE>');
add('</HEAD>');
add('<BODY>');
add('<B>This page was created on the fly by Delphi</B><P>');
add('<HR>');
add('See how easy it was to create a page on the flly with Delphi web extensions?');
add('</BODY>');
add('</HTML>');
end;
PageProducer1.HTMLDoc := page;
Response.Content := PageProducer1.Content;
finally
page.free;
end;
handled := true;
end;
3、编译工程生成web001.dll
4、将web001.dll复制到IIS默认的WEB目录下
5、打开IE输入URL： http://127.0.0.1/web001.dll/test
按教程讲解和个人的理解此时应该触发WebModule1WebActionItem1Action这个动作并显示出动作事件中生成的HTML文件对吧，但实际却无法找到网页？不知道有什么不对，请高手指点
谢谢!