var
stream:TMemoryStream;
arr:array of byte;
begin
stream := TMemorystream.create;
TBlobField(qry_for_show.FieldByName('word')).SaveToStream(blb_tmp);
stream.Seek(0,soFromBeginning);
setlength(arr,stream.size);
stream.readbuffer(arr,stream.size);
end;
本文转自鹅倌51CTO博客，原文链接： http://blog.51cto.com/kaixinbuliao/1021845，如需转载请自行联系原作者
