TClientDataSet：TStream到VarBinary

Question

我正在编写REST Data Snap服务器，并且必须将TStream保存到VarBinary（384）字段。 我尝试在字段上创建CreateBlobStream，但尝试此操作时出现异常错误。

如何使用DBExpress保存到VarBinary字段？

with cdsInsertIssueActionTemplateDetail do
      begin
        Active := True;
        Insert();
        T11 := TMemoryStream.Create;
        DM.CopyStreamToMemoryStream(Template11, T11);
        BlobField := TBlobField(FieldByName('FingerTemplate'));
        BS := CreateBlobStream(BlobField, bmWrite); //Exception occurs here
        BS.CopyFrom(T11, T11.Size);
        T11.Free;
        BS.Free;
        Post();
        Active := False;
      end;

Answer 1

通过将FingerTemplate设置为TSQLQuery中的参数，我终于设法使其正常工作，如下所示：

插入到[dbo]中。 FingerIndex，0，：DateTime，：DateTime）

使ftBlob的参数的数据类型

                begin
                  T21 := TMemoryStream.Create;
                  Template21.Position;
                  DM.CopyStreamToMemoryStream(Template21, T21);
                  BlobField := TBlobField(FieldByName('FingerTemplate'));
                   Params.ParamByName('FingerTemplate').SetBlobData(Template21, Template21.Size);
                  T21.Free;
                end;