[Progress Communities] [Progress OpenEdge ABL] Forum Post: RE: How can Webspeed force a file download?

[egolf]

Try this: DEFINE VARIABLE mObject AS MEMPTR NO-UNDO. DEFINE VARIABLE cFileOut AS CHARACTER INITIAL "Invoice00004.pdf". DEFINE VARIABLE cFilePDF AS CHARACTER INITIAL "/tmp/Invoice00004.pdf". SET-SIZE(mObject) = 0 . output-http-header ("Content-disposition","Attachment~;filename=" + cFileOut). output-content-type('application/x-download'). FILE-INFO:FILE-NAME = cFilePDF. SET-SIZE(mObject) = FILE-INFO:FILE-SIZE. COPY-LOB FROM FILE cFilePDF TO OBJECT mObject . {&OUT-LONG} mObject . SET-SIZE(mObject) = 0 . Egolf Sátiro

Continue reading...