[Delphi] 웹프로그래밍 #4 - 게시판 만들기

 

웹프로그래밍 04 - 게시판 만들기

새로운 프로젝트를 생성합니다.
ISAPI 프로젝트를 만들고 저장을 DelphiBoard 로 합니다.


이번엔 게시판은 DB 연결을 해야 하니 MSSQL 을 사용하기 위해 ADOConn, ADOQuery1 컴포넌트도 올려줌니다.


이번에 사용할 액션은 우선 3개 List(기본), Read(읽기), Write(쓰기) 입니다.

​HEAD 와 FOOT 만들기

웹의 HEAD 부분을 코딩합니다.

function TWebModule1.Head: String;
var
    view_html : String;
begin
    view_html := '<html>'+ sLineBreak;
    view_html := view_html + '<head>'+ sLineBreak;
    view_html := view_html + '<title>Delphi board</title>'+ sLineBreak;

    view_html := view_html + '<link href="https://cdn.jsdelivr.net/npm/bootstrap@5.1.3/dist/css/bootstrap.min.css" rel="stylesheet" integrity="sha384-1BmE4kWBq78iYhFldvKuhfTAU6auU8tT94WrHftjDbrCEXSU1oBoqyl2QvZ6jIW3" crossorigin="anonymous">'+ sLineBreak;
    view_html := view_html + '</head>'+ sLineBreak;
    view_html := view_html + '<body>'+ sLineBreak;
    view_html := view_html + '<div class="container">'+ sLineBreak;
    view_html := view_html + '<h2>Delphi Board</h2>'+ sLineBreak;

    Result := view_html;
end;

웹의 FOOT 부분을 코딩합니다.

function TWebModule1.Foot: String;
var
    view_html : String;
begin
    view_html := '</div>'+ sLineBreak;
    view_html := view_html + '</body>'+ sLineBreak;
    view_html := view_html + '</html>'
end;

리스트(List) 액션

procedure TWebModule1.WebModule1ListAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
    Curpage : Integer;
begin
    // 게시판 리스트Action
    Curpage := Request.QueryFields.Values['PAGE'];

    // HTML 출력
    Response.Content := Head + List(Curpage) + Foot;
end;

실제 DB를 처리하는 함수는 List

function TWebModule1.List(Page: Integer): String;
var
    list_html : String;
begin
    // DB Open
    ADOConn.ConnectionString := 'DB접속 문자열';
    ADOConn.Open;

    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Text := 'SELECT * FROM BOARD'; // 나중에 PAGE 쿼리로 변경 예정
    ADOQuery1.Open;

    list_html := '<table class="table">' + sLineBreak;
    list_html := list_html + '<tr><td>번호</td>' + sLineBreak;
    list_html := list_html + '<td>제목</td>' + sLineBreak;
    list_html := list_html + '<td>작성자</td>' + sLineBreak;
    list_html := list_html + '<td>작성일</td></tr>' + sLineBreak;

    // 쿼리된 정보 뿌리기
    while not ADOQuery1.Eof do begin

        list_html := list_html + '<tr><td>' + ADOQuery1.fieldbyname('SEQ').AsString + '</td>' + sLineBreak;
        list_html := list_html + '<td><a href="DelphiBoard.dll/read?SEQ=' + ADOQuery1.fieldbyname('SEQ').AsString + '">';
        list_html := list_html + ADOQuery1.fieldbyname('TITLE').AsString + '</a></td>' + sLineBreak;
        list_html := list_html + '<td>' + ADOQuery1.fieldbyname('WRITER').AsString + '</td>' + sLineBreak;
        list_html := list_html + '<td>' + ADOQuery1.fieldbyname('REGDATE').AsString + '</td></tr>' + sLineBreak;

        ADOQuery1.Next;
    end;
    list_html := list_html + '</table>' + sLineBreak;

    ADOConn.Close;

    Result := list_html;
end;

읽기(Read) 액션

​기본 구조는 List 와 같은데 SEQ 게시물 번호를 받습니다.

procedure TWebModule1.WebModule1ReadAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
    Curpage : Integer;
    SEQ : String;
begin
    // 게시판 읽기 Action
    SEQ := Request.QueryFields.Values['SEQ'];

    // HTML 출력
    Response.Content := Head + Read(SEQ, Curpage) + Foot;
end;

실제 DB를 처리하는 함수는 Read

function TWebModule1.Read(SEQ : String; Page: Integer): String;
var
    view_html : String;
begin
    // DB Open
    ADOConn.ConnectionString := 'Provider=SQLNCLI11.1;Persist Security Info=False;User ID=sa;Initial Catalog=TEST_DB;Data Source=localhost;Password=1234';
    ADOConn.Open;

    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Text := 'SELECT * FROM BOARD WHERE SEQ = ''' + SEQ + '''';
    ADOQuery1.Open;

    view_html := '<table class="table">' + sLineBreak;
    view_html := view_html + '<tr><td>TITLE</td>' + sLineBreak;
    view_html := view_html + '<td colspan="3">' + ADOQuery1.fieldbyname('TITLE').AsString + '</td></tr>' + sLineBreak;
    view_html := view_html + '<tr><td>WRITE</td>' + sLineBreak;
    view_html := view_html + '<td>' + ADOQuery1.fieldbyname('TITLE').AsString + '</td></tr>' + sLineBreak;
    view_html := view_html + '<td>REGDATE</td>' + sLineBreak;
    view_html := view_html + '<td>' + ADOQuery1.fieldbyname('REGDATE').AsString + '</td></tr>' + sLineBreak;
    view_html := view_html + '<tr><td>CONTENT</td>' + sLineBreak;
    view_html := view_html + '<td colspan="3">' + ADOQuery1.fieldbyname('CONTENTS').AsString + '</td></tr>' + sLineBreak;
    view_html := view_html + '</table>' + sLineBreak;

    ADOConn.Close;

    Result := view_html;
end;

스크린샷


제목 링크를 클릭하면 Read 로 이동


만들다 보니 좀 코딩이 깔끔하지 않네요
시간을 내서 좀더 다듬어서 Github 에 올리겠습니다.

댓글

댓글 쓰기

이 블로그의 인기 게시물

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 (지금은 좀 촌스러운 ...
자세한 내용 보기