如何用字符串数组来存取Blob字段？(100分)

通过使用TMemoryStream这个方法不可行，哪位大侠有其他的方法？

怎么不可以？
var
stream : TMemoryStream;
a : array [0..100] of byte;
begin
Stream := TMemoryStream.Create;
try
FillChar(a,sizeof(a),0);
(adotable1.FieldByName('binLBWJ') as TBlobField).SaveToStream(Stream);
Stream.Position := 0;
Stream.Read(a,sizeof(a));
a[0] := 1;
finally
Stream.Free;
end;
end;