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;