웹서버프로그램을 test 중입니다.
그런데 프로그램의 전체를 기존의 공개된소스대로 구성을 했는데도
http://www.xxx.co.kr/scripts/project1.dll/test 하면
에러가 발생합니다.
당연히 scripts 디렉토리는 스크립트,실행 등으로 설정되어져 있구요...
제 생각으로는 pathinfo 부분이 문제가 되는거 같은데...
고매하신 분들의 출충하신 해결을 부탁드립니다.
소스원본은 아래와 같습니다.
<아래>
unit Unit1;
interface
uses
SysUtils, Windows, Messages, Classes, Controls, HTTPApp, DBWeb,
DBTables, StdCtrls, Db;
type
TWebModule1 = class(TWebModule)
Query1: TQuery;
DataSetTableProducer1: TDataSetTableProducer;
Session1: TSession;
Query1ID: TStringField;
Query1CUST_NAME: TStringField;
Query1CUST_NO: TStringField;
Query1CUST_TEL1: TStringField;
Query1CUST_TEL2: TStringField;
Query1ZIPCD: TStringField;
Query1CUST_TEL3: TStringField;
Query1CUST_ADDRESS: TStringField;
Query1CUST_JOB: TStringField;
Query1IN_DT: TStringField;
Query1OUT_DT: TStringField;
Query1CUST_EMAIL: TStringField;
Query1CUST_SMS: TStringField;
Query1CUST_INTEREST: TStringField;
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
with DataSetTableProducer1 do begin
Dataset.Open;
Response.Content := Content;
DataSet.Close
end;
end;
end.
그리고 project1.prj 는 다음과 같습니다.
<다음>
library Project1;
uses
Webbroker,
HTTPApp,
ISAPIAPP,
Unit1 in 'Unit1.pas' {WebModule1: TWebModule};
{$R *.RES}
exports
GetExtensionVersion,
HttpExtensionProc,
TerminateExtension;
begin
Application.Initialize;
Application.CreateForm(TWebModule1, WebModule1);
Application.Run;
end.
그리고 webactionitem1 의 pathinfo에는 /test하고 적었습니다.
왜 불러오지를 못하는지요...
부탁드립니다.
참고로 하나만 더...
현재 환경은 웹서버가 따로있고..저는 클라이언트에서 개발중인데..
(개발후에 서버로 upload함)
session 부분의
과 은 이상하게
와 로 되어있고
변경도 되지를 않는군요...
서버와의 연결은 aaa 라는 alias이름을 Query의 databasename에 적어두었는데,
과 은 왜필요하며 ..어떤 역활을 하는지요.
고매하신 고수님들의 가르침을 바랍니다.
그럼 이만.