Przeglądaj źródła

* Rest bridge returns blob as base64 encoded data

michael 5 lat temu
rodzic
commit
ae4df85df3
1 zmienionych plików z 8 dodań i 0 usunięć
  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;