delphi中怎么上传附件啊

Question

delphi中怎么用ftp上传附件？ 能给出具体做法吗 ？？

Answer 1

用delphi自带的IDFTP控件控件，控件有个put函数可以上传，有个get函数可以下载，connect函数建立连接，很简单的，如果文件大你可以拆分上传。

Answer 2

    idftp1.Username := 'eda4sd';
    idftp1.Password := 'eda4sd';
    idftp1.Host := '10.224.141.200';
    YMSFTPSTR := 'ftp://eda4sd:[email protected]/';
.....
  idftp1.Connect();
  idftp1.Passive := true;
  idftp1.Get(PUTDIR+combobox5.Text,extractfilepath(application.ExeName) + 'temp\'+combobox5.Text+'.3');
  idftp1.Disconnect();
......
  idftp1.Connect();
  idftp1.Passive := true;
  idftp1.ChangeDir(GETDIR);
  idftp1.List(AFiles, '*.*', false);
自己研究一下吧

Answer 3

  idftp2.Username := 'neunet';
  idftp2.Password := '1nterprise';
  idftp2.Host := '10.224.88.165';
  idftp2.Connect();
  idftp2.Passive := true;
  idftp2.Put(localfile,YMSPutDir+combobox4.text);
  idftp2.Disconnect;