如何在client/server中传递图像文件或其它类型文件(100分)

如果想实现以下功能，请问题如何解决?
1.通过一个函数查询并得到一个图形文件
2.向服务器传递一个文件并存于服务器所在的机器中

把文件以二进制的形式打开
然后一段段传过去
接收方再原样写回去

是啊是啊,可以把文件打散,传过去在拼.

有没有办法这样实现
一、上传
1.将文件loadfromfile存于一个tstream中，通过一个或几个参数就可以上传
2.在服务器端可以使用savetofile或存于记录的blob字段中
3.我看到有通过数组上传的方法，实现实例如下
Server(COM/DCOM程序)端：
procedure TTestDCOM.Send4(Size: Integer;
D1: OleVariant);
type
TData=array [0..999] of Byte;
Var
Data:TData;
i:Integer;
begin

for i:=0 to Size-1do
begin

Data:=D1;
end;

end;

Cleint端:
Var
D1:OleVariant;
begin

D1:=VarArrayCreate([0,99],varByte);
{
D1[1]:=45;
.... //将值存入D1中 }
S.Send4(99,D1);
//S是TestDCOM对象
end;

这种方法可以不可以改进?
如果可以，能否写一个简单实例
二、下传
可以不可以将文件写于一个或几个参数中，client端可以直接防问?
我可以多加200分

如果数据是存在数据库中，你只要用Ttable,或Tclientdataset（服务器端连接
一个Ttable),将BLOB 字段用loadfromfile , 或 savetofile方法将本地文件存入
数据库， 或将数据库中的内容存在本地打开。

多人接受答案了。