如何在delphi中实现对blob类型的存储

Question

var
 aMem: TmemoryStream;
 a: array[1..400] of byte;
begin
  //给a赋值
  ...  try
    st := TmemoryStream.Create;
    st.Clear;
    st.Write(a,15);
    if not (table1.State in [dsEdit, dsInsert]) then
      table1.Insert;//or table1.Append;
    TBlobField(table1.FieldByName('字段名称').LoadFromStream(st);
    table1.Post;
  finally
    st.Free;
  end;
end;//抄来的代码

Answer 1

1。创建你想存入的类。
2。赋入
3。ASSIGN