全部博文(788)
分类:
2009-01-04 16:55:46
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;//过程结束