三层结构，用socketconnection，怎么向远程数据库传图片？

[cowboy1999]

急急急！

[microjuz]

作成流

[wdong18]

用socket向数据库发图片？是像服务端发图片吧？
var
myFile:TFileStream;
begin
myFile:=TFileStream.Create('filename');
clientsocket1.Socket.SendBuf(Pointer(myFile),myFile.Size);
myFile.Free;
end;

[microjuz]

一个例子
server端：
在tserversocket的onread中写
s := socket.receivetext;
if s='send' then //客户端发出send的指令
begin
Myjpg.SaveToStream(MyStream); {将JPG图象写入流中}
Myjpg.free;
MyStream.Position := 0;
Socket.SendStream(MyStream); {将流发送出去}
end;

client端：
在tclientsocket的onread中

Socket.ReceiveBuf(MyBuffer, MyReceviceLength); {接收数据包并读入缓冲区内}
MyStream.Write(MyBuffer, MyReceviceLength); {将数据写入流中}

procedure TForm1.Button1Click(Sender: TObject);
begin
Clientsocket1.Socket.SendText('send'); {发送指令通知服务端抓取屏幕图象}
end;

[wdong18]

不好意思，写得太匆忙了，欠考虑：
var
myFile:TFileStream;
begin
myFile:=TFileStream.Create('c:\wdong.txt',fmOpenRead);
clientsocket1.Socket.SendStream(myFile);
myFile.Free;
end;

[hnmlb]

要是客户端有多个，那向他们其中之一传文件，那应该怎么办！