Ftp资料上传问题(200分)

A

anki

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-03

• #1

各位大侠好:
我现在有一个项目需要用Delphi6.0实现用Ftp(上网可能是代理)将文件上传到一个Ftp服务器上!!同时只能按上传按键所以的功能都完成!!哪位大侠做过这样的事项目请与我联络!!我的QQ是85274894.一定要有完整的代码!!这周内一定要完成这个项目。现在只有这一个问题。请各位大侠帮帮忙!!分不够可以再加!!

 

F

finalrinoa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-03

• #2

不明白，能不能说清楚一点，什么叫同时只能按上传按键所以的功能都完成

 

Q

QSmile

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-03

• #3

可以用 Indy FtpClient 完成 或 TNMFtp 也可。

 

F

finalrinoa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-03

• #4

建议用ICS

 

A

anki

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-03

• #5

就是用一个控键完成所以的工作。

 

A

anki

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-03

• #6

finalrinoa:用ICS 如何做?

 

啊

啊啊啊啊啊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-03

• #7

indy的idftp不好，ics也一般，自己写socket吧

 

A

anki

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-03

• #8

啊啊啊啊啊:我自已不会写啊!!所以求助你们啦!!如果写过的话。能给我代码

 

Y

yu_ting

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-03

• #9

FTP上传非常方便的，我用的是Delphi7，代码如下：
用的是idFTP控件
try
FTP.Connect(True, -1);
FTP.ChangeDir('uppic');
except
ShowWarning('连接FTP服务器失败,请检查FTP选项设置是否正确,网络连接是否正常!');
end;
if Opd.Execute then begin
fn := FormatDateTime('YYYYMMDDhhmmss', Now) + ExtractFileExt(Opd.FileName);
dmData.cdsSywd.Edit;
DBMemo1.Lines.Add(fn);
dmData.FTP.Put(Opd.FileName, fn, False);
end;

 

A

anki

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-03

• #10

yu_ting:你测试过吗?是代理上网呢?

 

A

anki

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-04

• #11

是不是分数不够啊?如果这样的话可以再加分!![]

 

R

redleaf_wgm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-04

• #12

请利用FTPTree控件，没有见到在使用FTP时比它更方便的控件了，并且安全可靠，如果没有，可以来信索要，我的邮箱是RedLeaf_WGM@163.COM。

 

F

finalrinoa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-04

• #13

用ICS的话
FtpClient1.UserName:=
FtpClient1.PassWord:=
FtpClient1.HostName:=
FtpClient1.HostFileName:=
FtpClient1.LocalFileName:=
FtpClient1.Passive:=false;
if FtpClient1.Connect then
FtpClient1.put

 

A

anki

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-04

• #14

To redleaf_wgm:我已经Email给你了。请接收!!谢谢

 

C

C_Pencil

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-04

• #15

Indy的例子非常清楚，通过设置，可以支持 SOCK4/SOCK5

 

M

moonbird11

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-04

• #16

给我也发一个例子吧！
email:jackma@eyou.com

 

A

anki

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-05

• #17

To redleaf_wgm:你能不能帮我写一个这样的小程式

 

A

anki

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-06

• #18

我的FTP还是有问题。谁愿意帮我看一下。如果测试OK分全给他!!

 

F

finalrinoa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-06

• #19

现在还有什么问题啊

 

Q

QSmile

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-12

• #20

也可以用 windows自带的 Ftp 加参数 -s:filename
比如：
a.txt 里是
Open 127.0.0.1
login xxx
xxx
put dd.bmp

然后用 ftp -s:a.txt