急救,我需要向远程sql server上库中存储文件(varbinary),需要对点传输文件,请求原码(100分)

在编写数据库系统时,需要向远程数据库存储文件(varbinary),

我想应该要用到向服务器传输文件,请求客户端向服务端传输文件的原码

因为是毕业设计没多久了,还请高手不吝赐教

万分感谢

这是以前大侠教我了

告诉你一个万能方法：
把你的数据变成流，把流变成VARIANT，用VARIANT传递，收到后再倒着变回来，
就什么都可以传了

祝你好运

function StreamToVariant(Stream: TStream): OleVariant;
var
p: Pointer;
begin
Result := VarArrayCreate([0, Stream.Size - 1], varByte);
p := VarArrayLock(Result);
try
Stream.Position := 0;
Stream.Read(p^, Stream.Size);
finally
VarArrayUnlock(Result);
end;
end;

function VariantToStream(const Data: OleVariant ):TStream;
var
p: Pointer;
Stream: TStream;
begin
p := VarArrayLock(Data);
try
Stream.Write(p^, VarArrayHighBound(Data,1) + 1);
finally
VarArrayUnlock(Data);
end;
Result:=Stream;
end;

查一下以前，读写图形的帖子，一样的

可以把过程介绍一下吗?

因为是要突然转成远程数据库,对客户/服务模式还不是清楚,

请帮忙.

谢谢.谢谢

原来是c/s，我的程序适合三层结构，
c/s只能通过共享目录传输文件

先结贴了,有意者请与我联系,redflag00@sina.com

谢谢楼上的兄弟