用idhttp的put方法上传文件到网站的怪问题，请高手帮忙？只有20分了，全部奉上。

Question

我用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;//过程结束

Answer 1

upup,怎么没人回答啊?高手到哪里去了啊

Answer 2

"http/1.1 201 created" 这个看起来不是错误啊，应该是新建立文件，返回这个信息。如果原来有对应的文件，不会返回这个信息（因为不是create，而是rewrite）。没做过是FTP上传，猜的。

Answer 3

代码写错了 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;//过程结束