델파이 4로 internet프로그램을 만들려고 합니다.
Twebmodule을 사용하여 Action item을 하나 만들어 거기에 html문장을 string으로 만들었거든요. 그런데 internet상에 동작하지 않고 어떠한 에러 메시지도 나타나지 않습니다.
webModule은 CGI ConSole(CGI Stand-alone executable)로 생성하였습니다.
web-server는 website을 사용했습니다.
아래 프로그램을 실행한 실행화일을 web-sitecgi-dos에 복사해서 internet으로 실행했습니다. 무엇이 문제인지 가르켜 주세요.
------------------Dpr 화일------------
program webtest;
{$APPTYPE CONSOLE}
uses
HTTPApp,
CGIApp,
Unit1 in 'Unit1.pas' {WebModule1: TWebModule};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TWebModule1, WebModule1);
Application.Run;
end.
----------------- Pas 화일-----------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, HTTPApp;
type
TWebModule1 = class(TWebModule)
procedure WebModule1DefaultActionItemAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
WebModule1: TWebModule1;
implementation
{$R *.DFM}
procedure TWebModule1.WebModule1DefaultActionItemAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var Html:string;
begin
Html:='';
Html:=Html+'
웹 테스트';
Html:=Html+'안녕하세요?
이것은 테스입니다.';
Html:=Html+'';
Response.Content:=html;
end;
end.