psomanathan
New Member
Code:
<HTML>
<BODY>
<script language="SpeedScript">
{src/web/method/cgiutils1.i}
DEFINE VAR mfile AS MEMPTR NO-UNDO.
define var ufile as longchar NO-UNDO.
DEFINE VAR cfile AS char NO-UNDO.
ASSIGN
mFile = get-binary-data('UploadFile').
IF uFile <> ?
THEN DO:
cfile = "/tmp/test.pdf".
COPY-LOB FROM object uFile TO File cfile .
END.
</script>
<FORM
FORM ENCTYPE="multipart/form-data" action="test.html" METHOD="POST" >
<input type=file name="UploadFile">
<INPUT type="submit" value='upload' name="upload">
</FORM>
</BODY>
</HTML>
Last edited by a moderator: