F
FromInternetOn
Unregistered / Unconfirmed
GUEST, unregistred user!
代码如下: New Web Server Application ,选择 CGI Stand - alone executable ,
为何结果没有出现在 Ie 中而是一闪而过 ?
unit Unit1;
interface
uses
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.
为何结果没有出现在 Ie 中而是一闪而过 ?
unit Unit1;
interface
uses
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.