用idhttp的put方法上传文件到网站的怪问题，请高手帮忙？只有20分了，全部奉上。 VCL组件开发及应用http://www.delphi2007.net/DelphiVCL/html/delphi_20061221220322205.html
我用idhttp上传文件到网站（当然网站是有写权限的），我用循环方法上传目录下的多个文件，总是报告"http/1.1 201 created",我查了资料，该错误的意思是“服务器已经创建了文档，Location头给出了它的URL。”。问题还不仅仅是这些，如果目录下有多个文件（大于1个），当第一次点击“上传”按钮的时候，就报告"http/1.1 201 created"错误，在我的错误处理中认为没有上传成功，但是网站上的的确确已经有这个文件了，而且完全正确，第二次点击“上传”按钮的时候，第一个文件的上传却不报告错误，第二个文件报告该错误，但是同样第二个文件也已经传到了网站，依次类推。但是如果本地目录下只有一个文件的话，却不报告任何错误，一次就成功了。代码及解释如下
var t:Tfilestream;
st:tstringlist;//本地目录下待上传的文件列表
i:integer;//控制循环次数
begin
for i:=0 to st.count-1 do
begin
t:=Tfilestream.create(st[i],fmopenread);
try
idhttp1.put(url+extractfilename(st[i]),t);//url是文件上传到网站的路径
t.free;
showmessage('成功');
exccept
showmessage('失败');
t.free;
end;
end;//循环结束
end;//过程结束
upup,怎么没人回答啊?高手到哪里去了啊
"http/1.1 201 created" 这个看起来不是错误啊，应该是新建立文件，返回这个信息。如果原来有对应的文件，不会返回这个信息（因为不是create，而是rewrite）。
没做过是FTP上传，猜的。
代码写错了 t.free; 释放不该这么写
t.free 应该写到try fianlly end 保护中
var t:Tfilestream;
st:tstringlist;//本地目录下待上传的文件列表
i:integer;//控制循环次数
begin
for i:=0 to st.count-1 do
begin
t:=Tfilestream.create(st[i],fmopenread);
try
try
idhttp1.put(url+extractfilename(st[i]),t);//url是文件上传到网站的路径
showmessage('成功');
exccept
showmessage('失败');
end;
finally
t.free;
end;
end;//循环结束
end;//过程结束