정말 너무나 어렵게 윈도우98에 있는 서버를 사용해서
WEB SERVER 예제를 보고 따라하고 있는데 막히는 곳이 있더군요
어떤 한HTML에서 버튼을 눌러서(Submit)하면
그 화면에 있는 내용들이 Table로 Append 되면서
그내용들이 보이는 또다른 HTML이 나오게 할려고 하는데
자꾸 버튼만 누르면 화일을 저장하라고 물어오는데 왜 그런가요?
예제 HTML
Registration Form
학회 사전 등록 서버
사전 등록을 하실 분은 다음 폼을 채워 주십시오.
DLL화일 내용
procedure TWebModule1.WebModule1RegistrationAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
Table1.Append;
with Table1 do
begin
FieldByName('Name').AsString := Request.QueryFields.Values['name'];
FieldByName('Address').AsString := Request.QueryFields.Values['address'];
FieldByName('SocName').AsString := Request.QueryFields.Values['socname'];
FieldByName('Member').AsString := Request.QueryFields.Values['member'];
FieldByName('Etc').AsString := Request.QueryFields.Values['etc'];
try
post;
Response.Content := PageProducer1.Content;
except
Response.Content := ''+
'
서버에 에러가 발생하여 등록을 할 수 없습니다.'+
'';
end;
end;
end;
procedure TWebModule1.PageProducer1HTMLTag(Sender: TObject; Tag: TTag;
const TagString: String; TagParams: TStrings; var ReplaceText: String);
begin
ReplaceText := Request.QueryFields.Values[TagString];
end;
그리고 또다른 HTML
Registration Form
학회 사전 등록 서버
다음과 같은 내용으로 등록하였습니다.
이름: <#name>
주소: <#address>
소속: <#socname>
종류: <#member>
기타: <#etc>