请教局域网传输文件(175分)

一次传输3个文件，长度不固定，均在1MB左右
有什么传输方式比较好呢？
我想采用ftp传输，但据说nmftp有bug(那位能给个好的控件，最好有例子和帮助）
用sockets编程如何，时不时有些麻烦？
请各位知无不言，言无不尽
分不多，全部奉上
email:rdq.pzq@263.net

使用TNMStrm简单易用。

给你一个简单例子吧。
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Psock, NMSTRM, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
NMStrm1: TNMStrm;
NMStrmServ1: TNMStrmServ;
procedure Button1Click(Sender: TObject);
procedure NMStrmServ1MSG(Sender: TComponent; const sFrom: String;
strm: TStream);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
MyStream: TMemoryStream;
begin
try
MyStream:= TMemoryStream.Create;
MyStream.LoadFromFile('c:/a.dbf');
NMStrm1.PostIt(MyStream);
finally
MyStream.Free;
end;
end;

procedure TForm1.NMStrmServ1MSG(Sender: TComponent; const sFrom: String;
strm: TStream);
var
MyStream: TMemoryStream;
begin
try
MyStream := TMemoryStream.Create;
MyStream.LoadFromStream(strm);
MyStream.SaveToFile('c:/b.dbf');
finally
MyStream.Free;
end;
end;

end.

有没有可以做ftp服务器和客户端的控件呀？

我想采用ftp在局域网内传输文件
服务段必须要装个ftp服务器
有没有可以做服务端的控件呢？
如果没有，推荐个最小的ftp服务段软件
多谢了

哪位有ICS FTP server和client例子或帮助？
我的应用很简单，就是传送3个文件
多谢了！

你要的例子，ICS就有嘛，自己找找！

ftp可以呀！

to chyw123:
你说得对，我就是想找个作服务端的控件
delphi没有地说

lvzhijong:
我记得Delphi没有做ftp服务器的控件，我写的代码不能满足你的要求吗？

to panyongze:
你的做法是可以的。
我是还想找个好一点的作ftp服务端的控件。

各位，我遇到了个新问题（我又开了个问题，所有的55分）
sockets编程
如果server程序打开，通讯正常
如果server程序未打开，clientsocket.open后会出错，出错信息为"asnychronous
socket error 10061"
如何屏蔽掉这个错误，提示用户服务程序未运行呢？

打开client的代码如下：
if not clientsocket1.Active then
try
clientsocket1.Open;
except
showmessage('与采集机联机失败,请检察网络是否联通');
exit;
end;

ICS极好，大力推荐，我的FTP服务器端和客户端都是用它做的。

多人接受答案了。