[Delphi] 웹프로그래밍 #3 - 코딩 심화

 

웹프로그래밍 03

지난번 강좌는 실행까지 부분이고 실제 코딩을 해보겠습니다.
​
Projects 창에서 WebModuleUnit1.pas 를 더블클릭하면
아래창이 나오고 마우스 오른쪽 버튼을 클릭하면 아래 팝업이 나옵니다.

Action Editor 창이 열리면

여기에서 Path를 추가할수 있습니다. Path 란​

http://localhost/TEST/test.dll/list?page=1
list 같이 Path 를 추가하여 여러개의 하위서비스를 추가할수 있습니다.

기본은 "/" 라서 아무것도 없으면 기본이 처리됩니다.


Object Inspector 창에서
Events 탭에서 OnAction 이벤트를 추가하여 아래처러 코딩하면

procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
    Response.Content :=
        '<html>' +
        '<head><title>Web Server Application</title></head>' +
        '<body>List Page</body>' +
        '</html> 
end;

http://localhost/TEST/test.dll/list 로 접속하면
다음과 같은 결과를 얻을수 있습니다.

OnAction 에는 Request, Response 라는 객체가 선언되어 있는데요.
Request 값을 받아올때
Response 는 HTML 을 html을 출력할때 사용합니다.
GET 방식으로 page 값 받기

procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
    page : String;
begin
    // GET 방식의 값 읽어 오기
    page := Request.QueryFields.Values['page'];

    Response.Content :=
        '<html>' +
        '<head><title>Web Server Application</title></head>' +
        '<body>List Page : ' + page + '</body>' +
        '</html>+
end;

http://localhost/TEST/test.dll/list?page=5  – page 값에 5를 넣음

​실행 결과


/info Action 추가하고

procedure TWebModule1.WebModule1WebActionItem2Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
    Response.Content := '<h3>Status</h3>'#13 +
        'Method: ' + Request.Method + '<br>'#13 +
        'ProtocolVersion: ' + Request.ProtocolVersion + '<br>'#13 +
        'URL: ' + Request.URL + '<br>'#13 +
        'Query: ' + Request.Query + '<br>'#13;+
end;

실행결과





댓글

댓글 쓰기

이 블로그의 인기 게시물

2025년 7월 다이어리

이미지
인형뽑기 요즘 인형 뽑기에 취미가 생겨서 돌아다니다가 너무 더울 때에는 시원한 인형 뽑기 방에 들어가서 한두 개씩 뽑아가지고 온다. 뽑기 방 마다 에어컨 시설이 잘되어 있더라.  대형 미피, 대파인형 뽑았을때 집사람이랑 아이들이 좋아하면  그건 즐거운 일이다! 그래서 인형뽑기를 잘하고 싶어 졌다.  7월 25일 민생 소비 쿠폰 신청 4인 가족인데 집사람은 따로 신청이 되어 내 거에 아이들 거까지 45만 원을 받고 집사람은 15만 원을 받았다. 신청은 주로 사용하는 하나카드에 신청하였고 내 하나카드는 집사람이 들고 다닌다.
자세한 내용 보기

1. 대학교 축제 전시 프로젝트

시작 제가 예전에(1999년도) 대학교 다니면서 동아리 활동을 하였습니다. 나름 전산 동아리라고 매년 학교 축제 때 주점도 하지만 강의실을 한 곳 빌려서 자작 프로그램을 전시합니다. 그때 전시할 프로그램 만드는 활동을 PG라고 합니다. 팀을 만들어서 한 달 동안 합숙하면서 프로그램을 만드는 건데 좋은 추억이 될 거 같아서? 저도 PG에 참여하게 되었습니다. 그때만 해도 프로그래밍을 처음 배울 때라서 실력도 없고 프로그램을 어떻게 만들어야 할지 몰랐는데 PG를 한다고 주제도 정하고 언어도 정하고 친구 집 지하에 숙소까지 구했는데! 합숙을 하다 보니 프로그램 진도는 안 나가고 숙소에 모여서 놀기나 하고 학교 수업이랑 리포트 등등 여러 가지 이유로 한 달이라는 시간이 금방 지나갔습니다. 결국 주제로 정한 프로그램은 완성하지 못하였습니다. 프로젝트 실패 아마 한 달이라는 짧은 기간에 프로그래밍 경험이 없는 아이들을 모아놓고 프로젝트를 한다는 게 쉬운 일이 아니지요!! 처음부터 계획을 잘 세웠어야 하는데 처음 접하는 언어(Visual Basic)를 공부하면서 프로젝트를 진행하는 게 쉽지 않았네요. 그때 저희 팀의 주제는 전자앨범이었습니다. 사진을 입력하고 사진에 얼굴을 선택해서 선택한 얼굴에 정보를 입력하는 프로그램이었습니다. 언어는 Visual Basic 5.0 이였고(1999년도라) 팀원 중 한 명이 고등학교 때 프로그래밍 경험이 있었습니다. (그 팀원만 믿었었죠) 아마 그때는 그 팀원을 믿고 PG를 진행한 것이 결국 문제였습니다. 저는 학교 도서관에서 Visual Basic 책을 빌려와서 이것저것 따라 해보면서 Visual Basic을 익히고 있었습니다. 책을 따라 하면서 간단한 동영상 재생기를 만들게 되었는데 축제 발표일까지 계획된 프로그램은 완성하지 못하였고 그나마 동작하는 프로그램이 제가 만든 것뿐이라 재가 만들 걸 제출하기로 했지요. 코딩 작업을 한 시간보다 논 시간이 더 많았으니 당연한 결과지요 결과물 PlayerGX (지금은 좀 촌스러운 ...
자세한 내용 보기