delphi中通过TIdhttp控件上载文件

AI权益加码!Claude Code、Cursor等20+工具免费用! 购周边限时加赠Coding Plan Lite,畅享主流AI工具!学习进阶更高效! 阅读详情
附带的例子由于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);
procedure AddFile(const FieldName, FileName, ContentType: string; FileData: TStream); overload;
procedure AddFile(const FieldName, FileName, ContentType: string); overload;
procedure PrepareStreamForDispatch;
delphi +aps idhttp上传文件 立即下载

相关推荐

delphi写的快速缩略图的实现,支持批量上传

06年写的相册批量上传插件,包含delphi下快速缩略图的实现,以及如何使用http方式批量上传图片

TidHttp上传文件,PHP接收文件

delphi版本 10.2 引用单元 uses IdHTTP, IdMultipartFormData,IdGlobalProtocols delphi端上传代码 function UploadFile(FilePath,Url:String):string; var Http:TidHttp; Resp:TStringStream; MutPartForm : TI...

IT男也疯狂 956

Delphi XE8实现文件上传、下载(浏览)

Delphi XE8开发的文件上传服务程序(Web Server Application),ISAPI,通过IIS发布,由于一直没解决文件名为中文时乱码问题(能力有限,参考了网上一些资料,最终还是没解决),所以先把要上传的文件压缩为cab文件(用GUID命名压缩文件)然后上传,服务端程序再进行解压。

delphi 实现文件上传下载

unit UpDownFile;interfaceuses    Windows, Classes, Idhttp, URLMon, IdMultipartFormData;const UpUrl = http://127.0.0.1/upfile/upfile.asp;const UpFileName = C:/Documents and Settings/Administrator/桌面

3306

HTTP上传文件

【代码】HTTP上传文件

LiuManchao的博客 584

delphi 上传文件到服务器,使用Delphi Indy HTTP组件上载带有表单数据的文件

我想使用Indy在Delphi中复制这部分Python代码:postdata = {'data': '{"data":{"xMode":0,"overrideOS":1,"messageId":"","vmProfileList":"11","submitType":"0","url":""},"filePriorityQ":"run_now" }'}file_up = {'amas_filena...

weixin_42212965的博客 3511

DelphiASP结合进行图片上传

DelphiASP结合进行图片上传

锋回路转 706

Delphi 上传下载中文文件总结

上传文件和下载文件如果只是英文和数字构成实现的代码很多,我也照抄了一遍,当出现中文字符的时候就出现各种问题。经过搜索没有找到正确答案,最后是解决了,把自己的方法提供给大家,为Delphi发展出点力。希望对你有用,也希望Delphi 能接着往下走。

wangshun77539的博客 1104

delphi通过idhttp给springmvc上传文件

delphi端: var MutPartForm: TIdMultiPartFormDataStream; response: string; FHttp: Tidhttp; begin FHttp := Tidhttp.Create(nil); FHttp.HandleRedirects := true; FHttp.AllowCookies := true; MutPartForm := TIdMultiPartFormDataStream.

kufei88的专栏 753

Delphi调用Http接口上传文件

SS := TStringStream.Create('', TEncoding.UTF8); HttpClient := TIdHttp.Create(); MutPartForm := TIdMultiPartFormDataStream.Create; try MutPartForm.AddFormField('unitCode', UnitCode);

小祝的专栏 1万+

Delphi版的ASP上传组件,利用HTTP上传文件

摘要:Delphi源码,网络相关,ASP上传组件,HTTP上传文件  一款Delphi程序,通过HTTP上传文件DelphiASP上传组件,调试步骤:    1 regsvr32 FileUpload.dll 注册组件    2 把web demo下的文件拷贝到IIS或PWS的发布目录下    3 在浏览器上打开发布的demo.htm页面      笔者调试环境:    Windows 2000 , Delphi 5.0

delphi Clever Internet控件TclHttp实现http ContentType 的 multipart/form-data

最近,实现一个网站的登录查询。遇到 multipart/form-data 数据提交。 POST /admin/api/common/syslogin HTTP/1.1 Host: xxx.xx.xx.xxx Connection: keep-alive Accept: / X-Requested-With: XMLHttpRequest User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like

suntax的博客 1078

delphi 采用http上传文件Server端写法

网上找的资源零零散散不全面说得不透彻以下给出样例代码 !!特别不注意一定要usesWeb.ReqMulti 否则转过来的文件取不到!!! procedure UploadFiles(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); var i, k: Integer; AFilePath, ADateStr, AFileName, HeadJs, TENANT_ID...

u013339622的博客 1261

delphi idhttp.post网页服务器,delphi 的 Idhttp 如何向网站提交文件?(使用PUT方法)...

满意答案elenalips2013.08.27采纳率:56%等级:12已帮助:9911人以下是用Idhttp模拟用POST方法提交的示例:function PostMethod(URL, Data: String; max: Integer): String;varPostData, RespData: TStringStream;beginRespData := TStringStrea...

weixin_32512451的博客 714

Delphi IdHttp组件 IdHttpServer组件实现文件下载服务,HTTP上传文件

Delphi IdHttp组件+IdHttpServer组件实现文件下载服务 https://blog.csdn.net/xxkku521/article/details/16864759 关于HTTP上传文件报文代码片记录 https://blog.csdn.net/xxkku521/article/details/61197565 IDHTTP用法详解(六种用法)朝闻道 https...

qq_18932003的博客 1839

delphi请求http接口并上传附件

实现附件的上传:需要使用TIdMultiPartFormDataStream控件, uses IdMultipartFormData; 例子: procedure TClientForm.Button42Click(Sender: TObject);var paramStream: TIdMultiPartFormDataStream; vResponse: ...

weixin_30709061的博客 1181

通过HTTP协议上传文件

     HTTP是很常见的协议,虽然用得很多,但对细节的了解却是很浅,这回通过向服务端上传文件信息来理解细节。网络库的选择:1、WinHTTP是windows下常用的库;2、CURL是广受喜爱的开源库。对于我来说,libcurl最大的优点是使用方便,可以把注意力更多的集中到业务层上,提高工作效率,避免重造轮子;缺点是略大(MD编译有264KB,MT编译有340KB),不像WinHTTP可以由wi...

weixin_33755649的博客 322

delphi中字符串拼接_Delphi中的字符串类型(Delphi适用于初学者)

As with any programming language, in Delphi, variables are placeholders used to store values; they have names and data types. The data type of a variable determines how the bits representing those va...

cumao2792的博客 2633

D2010,indy10.5.5,一些问题解决方法

  刚从D7转过来有点不习惯,到发贴时都没搞懂string,ansistring,widestring的区别与具体使用环境。   这里主要记录一些在D2010中使用自带INDY10.5.5 post网站的一些问题(主要用于发贴)。   首先,与大家一样,遇到的是使用TIdMultiPartFormDataStream,post中文变乱码(这个乱码不是UTF8那种乱码,是一串“口”),网上说把...

weixin_30344131的博客 309
上一篇: 数据库范式
下一篇: 怎么样得到文件的大小?(DELPHI)
cnmmbd
博客等级 码龄20年 21粉丝 11原创
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值