paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-15 23:29:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Make DefaultBlobDataToBytes public

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-05-01 16:33:44 +02:00
parent 25f2393051
commit e1e78c7aef
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -82,7 +82,6 @@ Type
procedure SetResourceName(AValue: String); procedure SetResourceName(AValue: String);
procedure SetSQL(AValue: TStrings); procedure SetSQL(AValue: TStrings);
Protected Protected
Class Function DefaultBlobDataToBytes(aValue : JSValue) : TBytes; override;
function DataPacketReceived(ARequest: TDataRequest): Boolean; override; function DataPacketReceived(ARequest: TDataRequest): Boolean; override;
function GetStringFieldLength(F: TJSObject; AName: String; AIndex: Integer): integer;virtual; function GetStringFieldLength(F: TJSObject; AName: String; AIndex: Integer): integer;virtual;
function StringToFieldType(S: String): TFieldType; virtual; function StringToFieldType(S: String): TFieldType; virtual;
@ -91,6 +90,7 @@ Type
Public Public
Constructor Create(aOwner : TComponent); override; Constructor Create(aOwner : TComponent); override;
Destructor Destroy; override; Destructor Destroy; override;
Class Function DefaultBlobDataToBytes(aValue : JSValue) : TBytes; override;
Published Published
Property Connection: TSQLDBRestConnection Read FConnection Write SetConnection; Property Connection: TSQLDBRestConnection Read FConnection Write SetConnection;
Property ResourceName : String Read FResourceName Write SetResourceName; Property ResourceName : String Read FResourceName Write SetResourceName;