paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-09 07:27:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Server returns base64 encoded blob data

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-06-22 16:57:07 +02:00
parent 3a45781c1c
commit c0d1ebde37
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-db/sqldbrestdataset.pp
View File

@ -125,6 +125,7 @@ Type
Constructor Create(aOwner : TComponent); override;
Destructor Destroy; override;
Class Function DefaultBlobDataToBytes(aValue : JSValue) : TBytes; override;
Class Function DefaultBytesToBlobData(aValue : TBytes) : JSValue; override;
Function ParamByName(const aName : String) : TQueryParam;
Published
// Connection to use to get data
@ -524,6 +525,12 @@ begin
Result:=BytesOf(Window.atob(String(aValue)));
end;
class function TSQLDBRestDataset.DefaultBytesToBlobData(aValue: TBytes
): JSValue;
begin
Result:=Window.Btoa(StringOf(aValue));
end;
function TSQLDBRestDataset.ParamByName(const aName: String): TQueryParam;
begin
Result:=TQueryParam(Params.ParamByName(aName));
@ -644,6 +651,7 @@ begin
FSQL:=TStringList.Create;
TStringList(FSQL).OnChange:=@DoSQLChange;
FParams:=CreateQueryParams;
BlobFormat:=bfBase64;
end;
destructor TSQLDBRestDataset.Destroy;