delphi中通过TIdhttp控件上载文件

最新推荐文章于 2024-06-18 11:37:13 发布

cnmmbd

最新推荐文章于 2024-06-18 11:37:13 发布

阅读量4.9k

点赞数

分类专栏： delphi 文章标签： delphi string constructor buffer 脚本 asp

本文链接：https://blog.csdn.net/cnmmbd/article/details/1782531

版权

本文介绍如何在Delphi中利用TIdHTTP控件和TMsMultiPartFormDataStream类实现文件上传。通过创建TMsMultiPartFormDataStream对象，添加表单字段和文件，然后准备流进行HTTP POST请求，可以实现对ASP等脚本的文件上传功能。这种方法避免了传统HTML文件上传中必须通过浏览器选择文件的限制。

摘要由CSDN通过智能技术生成

附带的例子由于indy版本的问题，有点小问题（其实用文本工具修改一下dfm,去掉新增的属性就可以了）。我干脆把源码给贴出来吧，版权属于原作者
一.用于实现form流格式的单元（MsMultiPartFormData.pas）
unit MsMultiPartFormData;
interface
uses
SysUtils, Classes;
const
CONTENT_TYPE = 'multipart/form-data; boundary=';
CRLF = #13#10;
CONTENT_DISPOSITION = 'Content-Disposition: form-data; name="%s"';
FILE_NAME_PLACE_HOLDER = '; filename="%s"';
CONTENT_TYPE_PLACE_HOLDER = 'Content-Type: %s' + crlf + crlf;
CONTENT_LENGTH = 'Content-Length: %d' + crlf;
type
TMsMultiPartFormDataStream = class(TMemoryStream)
private
FBoundary: string;
FRequestContentType: string;
function GenerateUniqueBoundary: string;
public
procedure AddFormField(const FieldName, FieldValue: string);
proced