用Delphi开发FTP上传文件的原代码(100分)

A

anki

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-19

• #1

请问有哪一位大师用Delphi开发FTP上传文件的原代码.我现在正需要这个请求能否有大师帮忙!!

 

开

开心人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-19

• #2

下个indy的demo就有了吧

 

J

jobsxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-19

• #3

首先确保你的FTP开通成功
程序大致代码如下：

with IdFtp1 do begin
if connected then quit;
user := '你的登录名';
password := '登录密码';
host := 'FTP地址';
connect;

transfertype:= ftASCII;
pub('上传后的文件名','准备上传的文件名及路径',true); //true表示如果遇到相同文件，
则追加数据至原文件尾；
false:同名文件，则删除FTP服务器上的此文件
quit;
end;

 

A

anki

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-19

• #4

但这种方式是不能用到代理服务器上的
如果用代理服务器那怎样才能实现?

 

F

flybirdwxp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-19

• #5

原来那个NMFtp可以设置代理，不过每个文件不能大于16k

 

W

w128

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-19

• #6

在DELPHI的DEMO文件夹中有代码。

 

Z

zhijl1027

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-19

• #7

设置代理的麻烦点，建议你搜索以下原来的贴子

 

C

chengangsir

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-19

• #8

用nmftp控件
nmftp1.Host:=;
nmftp1.Port:=21;
nmftp1.TimeOut:=30000;
nmftp1.UserID:=edit1.Text;
nmftp1.Password:=edit2.Text;
if nmftp1.Connected then
begin
try
nmftp1.ChangeDir('www/server');
nmftp1.Upload(fielname,'');
.....
nmftp1.Disconnect ;

 

L

loxtln

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-19

• #9

用indy也支持代理啊：
idftp1.ProxySettings.ProxyType
idftp1.ProxySettings.Host
idftp1.ProxySettings.UserName
idftp1.ProxySettings.Password
idftp1.ProxySettings.Port

 

A

anki

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-05

• #10

chengangsir:你说的那一种方式是否进行测试。可能行不通

 

江

江南大米

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-05

• #11

直接修改indy的demo就好了啊！
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2334522
你拿mail来，我发

 

S

sforever

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-05

• #12

sforever@163.net

楼上的高手，我也想要！！拜托给我也发一份，谢谢了！！！

 

K

kkg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-05

• #13

我要一份
kekougou@21cn.com

 

江

江南大米

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-05

• #14

sforever给你发了！

 

江

江南大米

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-05

• #15

kkg也给你发了！

 

A

anki

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-05

• #16

江南大米:
你好!!我的Email是jyc_anki@sina.com!!

 

A

anki

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-05

• #17

江南大米:我在线等待

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-05

• #18

BTDDFTP.ZIP
http://www.vclxx.org/DELPHI/D32FREE/BTDDFTP.ZIP
BTDragDropFTP 构件是一个具备 FTP 功能的构件，并能够接收由资源管理器或是文件夹中拖放而来的文件加以传送 ( 1.0 版，附源码 ) ，作者 : Michael Justin。

 

江

江南大米

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-05

• #19

楼主发了！查收

 

A

anki

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-05

• #20

江南大米:你好!!那代码已经收到!!这个不能在delphi6.0上用!!