diff --git a/packages/fcl-db/sqldbrestdataset.pp b/packages/fcl-db/sqldbrestdataset.pp index c712317..accad84 100644 --- a/packages/fcl-db/sqldbrestdataset.pp +++ b/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;