[Seaside] (no subject)
Philippe Marschall
philippe.marschall at gmail.com
Sun Jul 22 09:23:44 UTC 2007
2007/7/22, Keith Hodges <keith_hodges at yahoo.co.uk>:
> Maarten MOSTERT wrote:
> > Hi,
> > I am trying to add a download button to my application to serve a 20MB application file.
> > I don't manage figure out how to make button that triggers a download dialog ?
> > I also wonder if MyFileLibrary is the right way to do so ?
> > Thanks in adavance,
> > @+Maarten,
> >
> >
> Hello Maarten,
>
> some code from Gjallar for doing this
>
> Rendering the anchor:
>
> html
> anchor
> callback: [attachment downloadInSession:
> self session]
> tooltip: 'Download file';
> with: [ html html: attachment localFileName].
>
>
> Attachment-downloadInSession: session
>
> | stream |
> stream := self readStream.
> session download: stream mimeType: stream mimeType filename:
> localFileName
>
>
> WASession-download: contents mimeType: mimeType filename: fileName
> self respond: [:url |
> (WAResponse new)
> contentType: mimeType;
> doNotCache;
> headerAt: 'Content-Disposition' put: 'attachment;
> filename="' , fileName , '"';
> headerAt: 'Content-length' put: contents size printString;
> contents: contents;
> yourself]
Will this block the sesion until the download is finished?
Philippe
> This download method is available as an extension to base seaside in
> repository http://www.squeaksource.com/Jetsam
>
> cheers
>
> Keith
> _______________________________________________
> Seaside mailing list
> Seaside at lists.squeakfoundation.org
> http://lists.squeakfoundation.org/cgi-bin/mailman/listinfo/seaside
>
More information about the Seaside
mailing list