Question

delphi7 怎么上传图片到ftp服务器

我ftp服务器搭建好了 通过同一IP段都可以正常访问 现在用indy向服务器传文件 代码正常运行 但是上传就出错 谁帮我看看客户端是不是应该这么写 是不是我忽略什么没写 所以才报错 我百度都是这样写的 程序可以正常运行 就是上传就会报错

procedure TForm1.btn2Click(Sender: TObject);
VAR
var name1:string; i,s:integer; tStream: TFileStream;
MyStream:TMemoryStream; buf:array[0..4096] of byte;
begin

if not Ftp.Connected then
begin
FTP.Host:= '192.168.15.83'; // FTP地址
FTP.Username:= 'zmy';
FTP.Password:= '123';
ftp.Passive:=True;
// FTP.Connect(True, 5000); // 连接
// FTP.TransferType := ftBinary;
Application.MessageBox('连接成功','提示',MK_LBUTTON) ;
end;

if dlgOpenPic1.Execute then
name1:= dlgOpenPic1.FileName;

try
begin
tStream := TFileStream.Create(name1, fmOpenRead);
// MyStream:=TMemoryStream.Create;
tStream.Position := tStream.Size;
// s:=tStream.Read(buf,sizeof(buf));
// MyStream.Write(buf,s);
ftp.TransferType:=ftbinary; //uses IdFTPCommon
FTP.put(tStream,extractfilename(name1),false);
end;
finally
tStream.Free;
MyStream.Free;

end;

Answer 1

先假设有一FTP服务器，FTP服务器：qint.ithot.net，用户名：username 密码：user1234。在本地电脑D：盘创建一个文件夹"qint"。将要上传的文件复制到d:\qint里。通过FTP命令将文件从本地上传到服务器的步骤如下：

1.“开始”-“运行”-输入“FTP”

2.open qint.ithot.net
/*这一步可以与第一步合并，在“运行”里直接输入"ftp qint.ithot.net"。如果你的FTP服务器不是用的21默认端口，假如端口是2121，那么此步的命令应在后面空格加2121，即“open qint.ithot.net 2121”*/

3.username
/*提示你输入用户名*/

4.user1234
/*提示你输入密码，密码不回显，打完密码后回车即可。如果你的密码输入错误，将不会提示你重新输入，这时你要键入“user”命令，将会出现第三步，你可以重新输入用户名和密码。*/

5.dir
/*你成功登陆后就可以用dir查看命令查看FTP服务器中的文件及目录，用ls命令只可以查看文件。*/

6.mkdir qint
/*在FTP服务器上根目录下建立qint目录。*/

7.cd qint
/*进入目录qint,用“cd 你的目录名”可以进入当前目录的下一级目录，这跟DOS一样。*/

8.bin
/*采用二进制传输。如果你要上传下载，这一步很重要，不先执行这个命令，上传下载会很慢。*/

9.lcd d:\qint
/*定位本地默认文件夹，在前面我事先在D：盘创建的。*/

10.!dir
/*查看本地文件夹中的文件及目录*/

11.put i001.jpg
/*将当前目录(d:\qint)中的文件i001.jpg上传到FTP服务器默认目录。可以用"mput *.*"将所有文件上传到FTP服务器上。*/

追问

ftp服务器我已经搭建好了 现在就差一步上传图片