瀏覽代碼

* Rest bridge returns blob as base64 encoded data

michael 6 年之前
父節點
當前提交
ae4df85df3
共有 1 個文件被更改,包括 8 次插入0 次删除
  1. 8 0
      packages/fcl-db/sqldbrestdataset.pp

+ 8 - 0
packages/fcl-db/sqldbrestdataset.pp

@@ -77,6 +77,7 @@ Type
     procedure SetResourceName(AValue: String);
     procedure SetSQL(AValue: TStrings);
   Protected
+    Class Function DefaultBlobDataToBytes(aValue : JSValue) : TBytes; override;
     function DataPacketReceived(ARequest: TDataRequest): Boolean; override;
     function GetStringFieldLength(F: TJSObject; AName: String; AIndex: Integer): integer;virtual;
     function StringToFieldType(S: String): TFieldType; virtual;
@@ -326,6 +327,13 @@ begin
   FSQL.Assign(AValue);
 end;
 
+
+
+class function TSQLDBRestDataset.DefaultBlobDataToBytes(aValue: JSValue): TBytes;
+begin
+  Result:=BytesOf(Window.atob(String(aValue)));
+end;
+
 function TSQLDBRestDataset.DoGetDataProxy: TDataProxy;
 begin
   Result:=Connection.DataProxy;