瀏覽代碼

* Fix bug ID #33714: do not allow string conversions on blob fields

git-svn-id: trunk@39326 -
michael 7 年之前
父節點
當前提交
6b775a2090
共有 1 個文件被更改,包括 2 次插入0 次删除
  1. 2 0
      packages/fcl-db/src/sqldb/postgres/pqconnection.pp

+ 2 - 0
packages/fcl-db/src/sqldb/postgres/pqconnection.pp

@@ -1023,6 +1023,8 @@ begin
               end;
               end;
             ftFmtBCD:
             ftFmtBCD:
               s := BCDToStr(AParams[i].AsFMTBCD, FSQLFormatSettings);
               s := BCDToStr(AParams[i].AsFMTBCD, FSQLFormatSettings);
+            ftBlob, ftGraphic:
+              s := AParams[i].AsBlob;
             else
             else
               s := GetAsString(AParams[i]);
               s := GetAsString(AParams[i]);
           end; {case}
           end; {case}