导航:
论坛 -> DELPHI技术
斑竹:liumazi,sephil
作者:
2004/3/28 22:31:35
标题:
加入我的收藏
楼主:
列表框里的文件我全选为什么只发出去一个, 希望各位帮帮忙谢谢 begin if FileListBox1.FileName='' then begin Application.MessageBox('请选择右边列表框文件!','提示!',MB_Ok); end else begin if IdFTP1.Connected then begin // if UploadOpenDialog1.Execute then try SetFunctionButtons(false); IdFTP1.TransferType := ftBinary; IdFTP1.Put(FileListBox1.FileName, ExtractFileName(FileListBox1.FileName)); ChageDir(idftp1.RetrieveCurrentDir); // finally SetFunctionButtons(true); end; end; end;
----------------------------------------------
-
作者:
2004/3/28 23:08:44
1楼:
嗯,我不会Indy组件的使用方法,不过很明显你没有用一个循环来挨个发送你选择的文件,你的每行代码只运行一次。。。。你发送的只是你选中的第一个文件
----------------------------------------------
夫君子之行,静以修身,俭以养德.非澹泊无以明志, 非宁静无以致远.夫学须静也,才须学也,非学无以广才, 非志无以成学,淫漫则不能励精,险躁则不能治性,年与时驰, 意与日去,遂成枯落,多不接世,悲守穷庐,将复何及!
作者:
2004/3/28 23:13:03
2楼:
一楼的大哥,语句怎么写呀!
----------------------------------------------
-
作者:
2004/3/28 23:18:56
3楼:
能不能给我写出来呀 先谢谢啦!!!
----------------------------------------------
-
作者:
2004/3/28 23:37:02
4楼:
抱歉,我暂时没有Delphi环境,帮不上你了~ 你能写出这样的代码不可能不会这个小问题啊?
----------------------------------------------
夫君子之行,静以修身,俭以养德.非澹泊无以明志, 非宁静无以致远.夫学须静也,才须学也,非学无以广才, 非志无以成学,淫漫则不能励精,险躁则不能治性,年与时驰, 意与日去,遂成枯落,多不接世,悲守穷庐,将复何及!