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

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

转载于:https://www.cnblogs.com/delphi2007/archive/2009/01/04/1368269.html