|
5th
|
2004-06-08 11:37:58, 조회 : 2,552, 추천 : 386 |
( 전체 소스는 첨부된 파일을 참조해주세요. 부분적으로만 발췌해서 설명합니다. )
( [기초강좌 #12]에 소스 파일 첨부되었습니다. )
======================================================================
TWrite.scurl
[그림#1]
아래는 start.curl에 작성된 call-back 프로시져입니다.
======================================================================
{TWrite
call-back={ proc {sender:any}: void
{li.clear}
set ts.search = ""
{if sender=="new" then
{tr.selectAll "1"}
set tp.page="1"
else
{tr.selectAll tp.page}
}
{li.show-list {tr.getRecordView}}
set tp.lastpage={format "%d", tr.lastpage}
}
}
======================================================================
{on Action do
set self.my-file-url = {choose-file title="Select a file to upload"}
{if-non-null self.my-file-url then
set self.fupload.value = self.my-file-url.name
}
}
---------------------------------------------------------------------
: choose-file은 파일열기 창을 팝업으로 띄우는 프로시져입니다. 선택된 파일은 URL 객체에 할당시키고, 선택된 파일명을 텍스트 필드에 표시합니다.
======================================================================
{on PointerPress at vb:VBox do
{if self.fcode=="" then
{popup-message "글이 선택되지 않았습니다"}
{return}
}
{if self.fname.value == "" or self.femail.value == "" or self.ftitle.value == ""
or self.fcontents.value == "" or self.fpasswd.value == "" then
{popup-message "모든 칸을 입력해주세요."}
{return}
}
{self.params-query "reply"}
{if-non-null self.call-back then
{self.call-back self}
}
{self.reset}
}
---------------------------------------------------------------------
: 각 버튼을 클릭했을 때, 동작하는 부분은 크게 3가지로 나눌수 있습니다. 첫번째로, 적절한 경고문이 필요합니다. 예를들어, 새글인경우, 기본적으로 이름, 이메일, 등 첨부파일을 제외하고는 모든 칸이 입력되야 합니다. 두번째로 경고문에 걸리지 않는다면, 클릭된 버튼의 이름을 가지고 params-query 메소드를 호출합니다. params-query 메소드는 버튼에 따라 param을 생성하고 php문을 호출합니다. call-back 프로시져를 호출하여 TList 화면을 갱신합니다. 세번째로 모든 작업이 끝나면 각 필드들을 기본값으로 셋팅해줍니다.
======================================================================
field protected my-file-url : #Url
…
{method public open {params-query mode:String}:String
…
{if-non-null self.my-file-url then
let file : {Array-of byte} = {read-bytes-from self.my-file-url asa Url}
{params.append
{HttpFormFilesParam "fupload", self.my-file-url.filename, file}
}
}
…
---------------------------------------------------------------------
: my-file-url 은 Url 이 아닌 #Url로 선언되었습니다.( Url은 abstract 이므로 객체를 생성할수 없습니다. ) 하지만, read-bytes-from 프로시져는 Url 객체만 받으므로 my-file-url을 강제 형변환 시켜서 파일을 읽어들입니다. 이제 읽어들인 파일을 HttpFormFilesParam 클래스를 통해 파일이름과 파일을 보냅니다.
다음 강좌에서 계속…
- 5th –
|
|
|
