delphi操作流

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;