Q&A

  • internet프로그램에서 문제점이 생김
델파이 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.

0  COMMENTS