图象传递(100分)

我想利用Delphi中的FTP控件向远程计算机传递文件，但是该文件包含有图片信息，怎样将图片传过去？最好能给我源代码，因为我现在急需用。

送上100分

yge@371.net

procedure TForm.Button1Click(Sender: TObject);
var
I : Integer;
S : String;
begin
try
NMFTP1.Host:=IP地址;
NMFTP1.Port:=21;
NMFTP1.TimeOut:=20000;
NMFTP1.UserID:=Edit1.Text;
NMFTP1.Password:=Edit2.Text;
NMFTP1.Connect;
// NMFTP1.ChangeDir('kjrb');
NMFTP1.upload(filepath+'c:/a.bmp','a.bmp');
Close;
except
application.MessageBox('FTP服务器连接失败,数据上载到FTP服务器失败!','错误信息',mb_ok+mb_iconstop);
end;
end;

panyongze:

如果是从远程计算机用FTP控件读取文件，而且这个文件是以不同的参数排列的，其中
一个参数是人的脸谱，怎样提取人的脸谱并将其放入数据库？

等这个问题帮我解答后，给你100分。谢谢！

文件就是文件，没搞清你说的参数和脸谱是什么东西？
下面是下载文件的简单示例，希望对你有用。
把某一文件放入数据库中，要看你使用什么数据库和什么字段。
procedure TForm.Button1Click(Sender: TObject);
var
S : String;
begin
try
NMFTP1.Host:=ip地址;
NMFTP1.Port:=21;
NMFTP1.TimeOut:=20000;
NMFTP1.UserID:='anonymous';//匿名登录
NMFTP1.Password:='';
NMFTP1.Connect;
NMFTP1.ChangeDir('kjrb');//进入某一目录
NMFTP1.Download('kjrb_0.exe','c:/kjrb_0.exe');
NMFTP1.Disconnect;
application.MessageBox('数据重建完毕!','提示信息',mb_ok+mb_iconexclamation);
except
application.MessageBox('获取服务器数据失败，只能使用本地数据工作!','提示信息',mb_ok+mb_iconexclamation);
end;
end;

看不懂你的问题。多写几个字也不会累死人吧。另外，千万别用FASTNET里的东西，要害死人
的。

图像文件也是文件啊！
Up！