5,388
社区成员
发帖
与我相关
我的任务
分享
FNetHttp := TIdHttp.create;(类的私有变量)
//上传进度显示
...使用后释放地址
Stream := TIdMultiPartFormDataStream.Create;
try
//Txt的字符串信息
Stream.AddFile('UPLoadPara', FileName, 'multipart/form-data');
//Access数据库(已被压缩为zip),大小不限,有些会超过50M
Stream.AddFile('UPLoadFile', FileName, 'multipart/form-data');
try
FNetHttp.Request.ContentType := Stream.RequestContentType;
FNetHttp.Post('网址', Stream);
Except on e:Exception do
Showmessage(e.Message)
end;
finally
FreeAndNil(Stream)
end;