델파이입문서에서 웹프로그램 작성프로그램이 있어
따라 했는데
웹브라우저로 조회할 경우 이페이지는 나타낼수
없다는 메세지가 나타나면서 제가 의도한 형태로
되지 않습니다.........
웹서버응용프로그램 개발 인터페이스는 CGI-STANDALONE형태입니다
오라클 TABLE을 조회하는 형태입니다........
이럴때는 어떤 것을 먼저 체크해야 한는지 가르쳐 주십시요
웹브라우저는 익스플로어5.0 입니다........
소스는 아래와 같습니다.........
unit Unitbbs;
interface
uses
Windows, Messages, SysUtils, Dialogs, Classes, HTTPApp, DBWeb, DBTables, Db;
type
TWebModule1 = class(TWebModule)
Table1: TTable;
Query1: TQuery;
PageProducer1: TPageProducer;
QueryTableProducer1: TQueryTableProducer;
DataSource1: TDataSource;
Database1: TDatabase;
Table1ID: TStringField;
Table1TITLE: TStringField;
Table1WRITER: TStringField;
Table1EMAIL: TStringField;
Table1COMTENT: TStringField;
procedure PageProducer1HTMLTag(Sender: TObject; Tag: TTag;
const TagString: String; TagParams: TStrings;
var ReplaceText: String);
procedure WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
procedure WebModule1WebActionItem2Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
procedure WebModule1WebActionItem3Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
WebModule1: TWebModule1;
implementation
{$R *.DFM}
procedure TWebModule1.PageProducer1HTMLTag(Sender: TObject; Tag: TTag;
const TagString: String; TagParams: TStrings; var ReplaceText: String);
var
BBSContent,ScriptName : string;
begin
ScriptName := '/Dp4Project/webbbs/webbbs.exe';
try
if comparetext(TagString,'Mytag') = 0 then
begin
Table1.open;
BBSContent := '';
with Table1 do
begin
while not EOF do
begin
BBSContent := BBSContent + '<tr><td>' + '
'
+ Table1ID.AsString + '