有没有接收IDhttp.post的ASP页面的例子?

sky_234 2007-10-25 02:10:12
我现在使用Delphi开发了一个Activex Form,里面实现了上传文件的方法,现在需要测试这个方法,需要一个接收文件的ASP页面,不知道哪位大虾有没有这样的ASP页面源码提供呢?
我POST的源码如下:

var res, sDest: string;
mps : TIdMultiPartFormDataStream;
begin
Result :=False;
GetPatch(sDest); // 得到本地文件的路径
sDest :=sDest+'\'+FDirName;
res :=DoZip(sDest+'.ZIP',sDest);

try
mps := TIdMultiPartFormDataStream.Create;
mps.AddFile(FDirName+'.ZIP',sDest+'.ZIP','multipart/form-data');
IdHTTP.Request.ContentType := mps.RequestContentType;
mps.Position := 0;
try
res:=IdHTTP.Post(FURLUpdate,mps);
if Pos('OK',UpperCase(res))>0 then
Result :=True
else
Result :=False;
except
on E: Exception do
Result :=False;
end;
finally
mps.Free;
end;

end;
...全文
188 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
brightyang 2007-10-25
  • 打赏
  • 举报
回复
不会asp
zhangjinwei_52 2007-10-25
  • 打赏
  • 举报
回复
发帖之前为什么不搜索一下呢
加我QQ吧66516186
sky_234 2007-10-25
  • 打赏
  • 举报
回复
我是想知道ASP页面的源代码啊,要根据ASP接收页面来测试这个上传文件的功能,不知道有没有接收文件的ASP源代码,能贴出来吗?谢谢!
brightyang 2007-10-25
  • 打赏
  • 举报
回复
已阅,没问题

1,593

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧