向firebird写入blob类型报错不支持blob类型

dangzw

我的代码是这样写的：


     MS:=TMemoryStream.Create;
     SL:=TStringList.Create;
     Sname:='@'+datetimetostr(Now); //进碱水槽
     SQLTxT:= 'INSERT INTO TRAYDATA_UNFINISH (BATCH, INTIME,SSTIME) '
                   +'values (:BATCH,:INTIME,:SSTIME)  '; //插入当前数据
     IB_Currency.SQL.Add(SQLTxT);
     IB_Currency.ParamByName('BATCH').Value:=inttostr(i);
     SL.Add(datetimetostr(Now));
     MS.Clear;
     MS.Position:=0;
     SL.SaveToStream(MS);
     IB_Currency.ParamByName('SSTIME').LoadFromStream(MS,ftBlob);
     IB_Currency.ParamByName('INTIME').Value:=Now;
     IB_Currency.ExecSQL;
     IB_Currency.Transaction.Commit;  

这个方法在Delphi中是可行的，但是在Lazarus里就报下面的错误：

Engine Code: 335544569 Incompatible column/host variable data type
Dynamic SQL Error
-SQL error code = -303
-feature is not supported
-BLOB and array data types are not supported for move operation

不知道有没有大佬能帮忙解答