annotate tests/blob.ur @ 741:f7e2026dd5ae
Returning a blob as page result
author |
Adam Chlipala <adamc@hcoop.net> |
date |
Sun, 26 Apr 2009 09:02:17 -0400 |
parents |
b302b6e35f93 |
children |
43553c93dd8c |
rev |
line source |
adamc@737
|
1 sequence s
|
adamc@740
|
2 table t : { Id : int, Nam : option string, Data : blob, Desc : string, Typ : string }
|
adamc@737
|
3
|
adamc@737
|
4 fun save r =
|
adamc@739
|
5 id <- nextval s;
|
adamc@740
|
6 dml (INSERT INTO t (Id, Nam, Data, Desc, Typ)
|
adamc@740
|
7 VALUES ({[id]}, {[fileName r.Data]}, {[fileData r.Data]}, {[r.Desc]}, {[fileMimeType r.Data]}));
|
adamc@739
|
8 main ()
|
adamc@737
|
9
|
adamc@737
|
10 and main () = return <xml><body>
|
adamc@737
|
11 <form>
|
adamc@737
|
12 <textbox{#Desc}/>
|
adamc@737
|
13 <upload{#Data}/>
|
adamc@737
|
14 <submit action={save}/>
|
adamc@737
|
15 </form>
|
adamc@737
|
16 </body></xml>
|