请问如何在将服务器中查询到的图像返回给客户端呢,通过何种方式返回?谢谢! ( 积分: 50 )

  • 主题发起人 主题发起人 BallLeiJeff
  • 开始时间 开始时间
B

BallLeiJeff

Unregistered / Unconfirmed
GUEST, unregistred user!
直接查询就到客户端了啊~~~
clientdataset/query/adoquery...都可以的啊
 
二进制返回,字段读出到流,用图像控件的LoadFromStream显示
 
someset,能否讲详细点?
中间层接口应该是用olevariant吧,怎样通过olevariant返回呢!
怎样将查询出来的图像转换成olevariant呢,谢谢
 
中间层没用过,大概也没有什么不同
字段数据类型是BINARY的吧,
想用OLEVARIANT的话一般直接赋值就行了,VARIANT变量类型会变成VarArray
 
function streamtovar(stream:tstream;):variant;
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 vartostream(filevar:variant;var stream:Tstream);
var
p:pointer;
begin
p := VarArrayLock(filevar);
try
Stream.Write(p^, VarArrayHighBound(filevar,1) + 1);
finally
VarArrayUnlock(filevar);
end;
end;
 
谢谢,问题已解决!
 
后退
顶部