[Prev][Next][Index][Thread]
Who can give me an example for "Form upload"
>
>With the Netscape 2.0 browser it is possible to upload files to
>the server. This is a very convenient feature for site administration.
>Or think of providing some kind of conversion mechnanism (example:
>lisp -> fasl, mif -> html, ...) with a server interface.
>
>Here is some code:
>
>; let's have a response function - it has no query-alist
>
>(defgeneric respond-to-upload (url stream))
>
>
>; question: what would I have to do to decode the data I'm getting?
>; this method "hangs" after reading from the stream.
>
>(defmethod respond-to-upload ((url url:http-form) stream)
> (let ((lines (loop for line = (read-line stream nil nil)
>‰‰ while line
>‰‰ count line
>‰‰ do (princ line))))
> (http:with-successful-response (stream :html)
> (html:with-html-document (:stream stream)
>‰(html:with-document-preamble (:stream stream)
>‰ (html:declare-title "done" :stream stream))
>‰(html:with-document-body (:stream stream)
>‰ (princ lines stream))))))
>
>
>(defmethod emit-upload-form ((url url:http-form) stream)
> (http:with-successful-response (stream :html)
> (html:with-html-document (:stream stream)
> (html:with-document-preamble (:stream stream)
>‰(html:declare-title "Upload" :stream stream))
> (html:with-document-body (:stream stream)
>‰(netscape2.0:with-fillout-form (:post url :stream stream :encoding-type '(:multipart :form-data))
>‰ (princ "Send file: " stream)
>‰ (netscape2.0:accept-input 'netscape2.0::file "UPLOAD" :stream stream)
>‰ (html:accept-input 'html:submit-button "Submit" :stream stream))))))
>
>(http:export-url #u"/test.html"
>‰‰ :html-computed-form
>‰‰ :form-function #'emit-upload-form
>‰‰ :response-function #'respond-to-upload)
>
>Greetings from Hamburg,
>
>Rainer Joswig
Hi,
I am a beginner in CL-HTTP.
I have run above code on ACL and netscape3.0b7.
If I push 'Submit' button, the response-function prints out the selected file
and also prints odd string like '------15080299524862561851062517886--'.
and then waits without end.
Do I have any mistake?
Please give me a help.
and If you have any Example about upload/download file in CL-HTTP,
please give me some Example !!!
Thanks.
Saehooon Kang
Follow-Ups:
References: