Lazarus中文社区

 找回密码
 立即注册(注册审核可向QQ群索取)

QQ登录

只需一步,快速开始

Lazarus IDE and 组件 下载地址版权申明
查看: 2071|回复: 3

lent的http控件的SendRequest 上传文件?

[复制链接]

该用户从未签到

发表于 2013-7-5 12:59:25 | 显示全部楼层 |阅读模式
如何用 lent的http控件的SendRequest 上传文件?
谁知道啊!!
例如Indy的http控件可以用post(结合TIdMultiPartFormDataStream)上传文件,作用和网页的<input name="tplj" type="file"/>的submit效果一样
回复

使用道具 举报

该用户从未签到

 楼主| 发表于 2013-7-5 17:09:30 | 显示全部楼层
ok了。自己的问题自己解决
filename:='d:\tt.doc';
    Fstr:='-----------------------------7cf1d6c47c'+LineEnding+
    'Content-Disposition:form-data;name="file1";filename="'+filename+'"'+LineEnding+
    'Content-Type:application/octet-stream'+LineEnding+LineEnding;
    headln:=length(Fstr);
    FStream:=TMemoryStream.Create;
    FStream.LoadFromFile(filename);
    dataln:=FStream.Size;
    Response:=TStringStream.Create('');
    Response.CopyFrom(FStream,FStream.Size);
    Fstr:=Fstr+Response.DataString;//因为只能传字符串
    FStream.Free;
    Response.Free;   
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2013-7-9 12:49:27 | 显示全部楼层
没看明白……能解释下么
回复 支持 反对

使用道具 举报

该用户从未签到

 楼主| 发表于 2013-7-10 19:55:03 | 显示全部楼层
就是把本地的文件上传到http服务器上(web后台需要对应的开发接收)。与网页里的<input  type="file"/> 作用是一样的。
回复 支持 反对

使用道具 举报

*滑块验证:

本版积分规则

QQ|手机版|小黑屋|Lazarus中国|Lazarus中文社区 ( 鄂ICP备16006501号-1 )

GMT+8, 2025-5-1 22:18 , Processed in 0.044244 second(s), 9 queries , Redis On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表