咋就不明白呢!!!!!!!!!!!11

[bloodghost]

在网上看到的一段存取SQL server 的Binary 型的代码如下

function SavetoDataBase(const Stream:TStream; const AField:TField):boolean;
var
FieldStr : string;
PFieldStr: PChar;
begin
Result := false;
if (Assigned(AField)) and (Assigned(Stream)) then
begin
try
Stream.Seek(0,0);
SetLength(FieldStr,Stream.Size);
PFieldStr := PChar(FieldStr);
Stream.Read(PFieldStr^,Stream.Size);
AField.Value := FieldStr; //执行到这句出错
result := true;
except
On E: Exception do
begin
E.Message := '存储数据时出错';
Raise;
end;
end;
end;
end;

=================================================================================
SQL Server 的字段类型设为 Image时没有任何问题，如果把字段类型改为Binary时就出错，提示“
Invalid variant type or size for field 'BinaryData'”,其中"BinaryData"这时的类型为"binary"

[web700]

所存的东西是不是太大了？

[bloodghost]

没有呀，我用只有几个字节的文本文件试了，也提示出错的

[bloodghost]

补充一下：
字段类型为:Image 和 binary 跟踪代码如下：
1、为Image
AField.Value := FieldStr;
|___通过watch查看为''
2、为binary
AField.Value := FieldStr;
|___通过watch查看为null

问题是不是在这里，是的话该怎么解决呀?

[bloodghost]

咋就没人帮我呢，我自已顶一下。
倒杯水继续思考... ...