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

你可能感兴趣的:(http)