...
CRTF := #10#13;
httpcli1.ContentTypePost := 'multipart/form-data;cboundary=---------------7cf87224d2020a';
strBuf := '----------------7cf87224d2020a' + CRLF +
'Content-Disposition: form-data; name="upfile"; filename="c:/test.doc"' + CRLF +
'Content-Type: text/plain' + CRLF + CRLF +
strContent(文件内容) + CRLF +
'---------------7cf87224d2020a' + CRLF +
'Content-Disposition: form-data; name="filetype"' + CRLF + CRLF +
'Draft' + CRLF +
'---------------7cf87224d2020a--';
if Length(strBuf) > 0 then
DataOut.Write(strBuf[1], Length(strBuf));
DataOut.Seek(0, soFromBeginning);
httpcli1.SendStream := DataOut;
httpcli1.post;
...
当strContent文件内容为文本时没什么问题,可是如何处理Word文档,
我把test.doc读进流,再EncodeStream,再读入StringList然后变成string
类型的文件内容,post到webserver后得到的文件却是Base64的文件而不是
decode出来的Word文档,按理decode应该由webserver来完成而不是我的
CGI来完成的。但如果不Encode的话根本就没法通过http传送,还有什么
比较好的解决方案吗?