入门级问题 (50分)

bdzjl · 2003-05-17

我是一个初学者，想试试DELPHI的WEB开发功能，但总是出错。下面是源程序：

----------------------------------------------------------
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 :=request.QueryFields.Values['infor'];
end;

end.
-----------------------------------------------------------

编译后，把文件所在目录设为虚拟目录AAA，为什么在IE中输入网址
http://127.0.0.1/aaa/Project1.exe，却提示下载。是编程
有问题，还是IIS设置有问题啊！各位请指教（我用的是winxp+iis5.1)

Kisber · 2003-05-17

配置问题。
修改安全属性.

bdzjl · 2003-05-17

to kisber:
能不能说详细点？

LeeChange · 2003-05-18

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);
var
s: string;
begin
s:='<html>';
s:=s+'<head></head>';
s:=s+'<body>';
s:=s+request.QueryFields.Values['infor'];
s:=s+'</body>';
s:=s+'</html>';
response.Content := s
end;

end.

入门级问题 (50分)

bdzjl

Unregistered / Unconfirmed

Kisber

Unregistered / Unconfirmed

bdzjl

Unregistered / Unconfirmed

LeeChange

Unregistered / Unconfirmed

Similar threads