我想在局域网上实现文件的发送与接收,请大家帮忙(100分)

功能描述:
1.可采用教师机分发试卷到每一台学生机，并且按照指定参加考试人员名单
（包含学号、姓名、班级、考试科目等信息）分配考试机，
考试机屏幕上显示学生姓名、学号、班级、考试科目。
2.将学生答卷传到教师机或服务器上,即各个客户机将文件传到服务器上.
我想用client socket与server socket编写,希望高手指点一下,如果有源代码可以参考
更好.

www.playicq.com有上传与下载的组件。

本人是初学者,希望高手能够赐教,提供这一问题的思路,有原代码的最好让我参考一下

ftp://61.152.210.98/Socket2.rar
ftp://61.152.210.98/chat.rar
ftp://61.152.210.98/ThreadBlocking.rar

再问大家一个问题，为什么我用serversocket,clientsocket做最简单的传送消息功能时，总是有以下错误消息：由于套接字没有连接并且(当使用一个sendto调用发送数据报套接字时)没有提供地址
，发送或接收数据的请求没有被接收。(10057),on api 'recv'
我的端口与ip地址都设好了，为什么连最简单的消息也不能发？
代码：
client
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
showmessage('connected ok')
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var s:string;
begin
s:=clientsocket1.Socket.ReceiveText;
memo1.Lines.Add(s);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Open;
end;
server 端口：
procedure TForm1.Button1Click(Sender: TObject);
begin
serversocket1.Port:=5098;
serversocket1.Open;
if serversocket1.socket.connected then
serversocket1.socket.sendtext('aa');
end;

使用 ASTA，它可以透明的实现基于广域网的数据或文件的传送。
在 www.51delphi.com 上有下载。

1.我主要是想在局域网中实现实现这样的功能,请高手指教,
2.还有用serversocket 与
clientsocket 在本机上是否可以测试,
3.还有就是上面的问题:
由于套接字没有连接并且(当使用一个sendto调用发送数据报套接字时)没有提供地址
，发送或接收数据的请求没有被接收。(10057),on api 'recv'
这是什么原因啊,为什么我只是简单的发一句话,也不成功啊?
高手,请出场,帮帮我这个新手

我知道了为什么有这样的错误,再问大家一个问题,分数好商量,
再多个学生开始上交试题时,应注意那些问题?是不是socketserver 的模式要改为
thread模式,如果是nonblocking模式,多个学生发送试题到教师机会有冲突吗?