delphi中怎么上传附件啊 delphi中怎么用ftp上传附件? 能给出具体做法吗 ?? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 用delphi自带的IDFTP控件控件,控件有个put函数可以上传,有个get函数可以下载,connect函数建立连接,很简单的,如果文件大你可以拆分上传。 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);自己研究一下吧 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; 有没有人用bpl发布产品呢? 远程数据更新的方案,怎么才使最好的? 用户'(null)'登陆失败,原因:未与信任SQL SERVER建立相关联 如何初始化一个对象成员? 求助?急! 如何让StatusBar的一个Panel里的文字在接到Socket的一个通知后变成红色或是闪烁? 重复记录 用QuickRep生成的报表在HP上打印时总是分页,可怎么办呢? JavaScript和ActiveXForm通信的问题 紧急问题----SQL查询取值问题? Delphi能不能处理IdHttp返回的PHP数组? Delphi中下面代码那错了?
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);
自己研究一下吧
idftp2.Password := '1nterprise';
idftp2.Host := '10.224.88.165';
idftp2.Connect();
idftp2.Passive := true;
idftp2.Put(localfile,YMSPutDir+combobox4.text);
idftp2.Disconnect;