delphi 利用线程FTP上传上个目录指定的后缀文件|笨鱼技术网

function ftpup(mainpath:string;filename:string):Boolean;
var
search:TSearchRec;
ret:integer;
tempfilenamestr:string;

begin
ret:=findFirst(form1.source+'\'+filename,faanyfile,search);
while ret=0 do
begin
if ((search.attr and fadirectory)<> fadirectory) then
begin
if (search.name<>'.') or(search.name<>'..') then
begin
tempfilenamestr:=formatdatetime('yyyy',date)+formatdatetime('mm',date)+formatdatetime('dd',date)+formatdatetime('hh',time)+formatdatetime('mm',time)+formatdatetime('ss',time);
if search.size<210000 then
begin
try
form1.IdFTP1.Put(mainpath+'\'+search.Name,tempfilenamestr+copy(filename,2,4),true);
form1.Memo1.Lines.Add('<img src="/pltp/'+tempfilenamestr+copy(filename,2,4)+'"><br><br>');
except
form1.Memo2.Lines.Add(search.Name+'文件异常!');
end;
end
else
begin
form1.Memo2.Lines.Add(search.Name);
end;
end;
end;
ret:=FindNext(search);
end;
form1.IdFTP1.Free;
end;
function upftpthreadFun(P:pointer):Longint;stdcall;
var
wb,wb1:string;
begin
form1.Button1.Enabled:=false;
form1.Memo1.Lines.Clear;
form1.Memo2.Lines.Clear;
wb1:=form1.ComboBox2.Text;//后缀名
ftpup(form1.source,trim(wb1));
form1.Memo1.Lines.SaveToFile(extractfilepath(paramstr(0))+'hnbxtx.text');
form1.Memo1.Lines.Add('您所有图片上传成功！并己保存在'+extractfilepath(paramstr(0))+'hnbxtx.text中!请点击复制，将上面代码粘贴到步行天下论坛的发贴栏里。就可以成功发布您的图片了！');
form1.Button1.Visible:=false;
form1.Button3.Visible:=true;
end;