代码如下: New Web Server Application ,选择 CGI Stand - alone executable ,为何结果没有出现在 Ie 中而是一闪而过 ?
unit Unit1;interfaceuses
SysUtils, Classes, HTTPApp;type
TWebModule1 = class(TWebModule)
procedure WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;var
WebModule1: TWebModule1;implementation{$R *.DFM}procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
Response.Content := '<h6> 您好 !<h6>' + '现在是 :' + FormatDateTime('yyyy-mm-dd hh:nn:ss',Now) ;
end;end.
unit Unit1;interfaceuses
SysUtils, Classes, HTTPApp;type
TWebModule1 = class(TWebModule)
procedure WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;var
WebModule1: TWebModule1;implementation{$R *.DFM}procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
Response.Content := '<h6> 您好 !<h6>' + '现在是 :' + FormatDateTime('yyyy-mm-dd hh:nn:ss',Now) ;
end;end.
CGI本质上是一个Web Server Application,是不能直接运行的,你必须将其置于具有应用程序执行权限的Web虚拟目录中,然后通过浏览器调用,如下:http://localhost/scripts/MyCGI.exe这样就可以在浏览器中看到html输出结果。
Web Application初学者经常犯这个错误。