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

* Assume memo fields are sent as strings, not as bytes.

Browse Source
This commit is contained in:
michael 2019-09-26 12:54:11 +00:00
parent abd08459c4
commit 980c23aa15
1 changed files with 17 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-db/db.pas
View File

@ -6953,6 +6953,9 @@ begin
Result := '';
V:=GetData;
if V<>Null then
if (DataType=ftMemo) then
Result:=String(V)
else
begin
S:=BlobToBytes(V);
For I:=0 to Length(S)-1 do
@ -6988,12 +6991,17 @@ var
B : TBytes;
i : Integer;
begin
if DataType=ftMemo then
SetData(aValue)
else
begin
SetLength(B, Length(aValue));
For I:=1 to Length(aValue) do
B[i-1]:=Ord(aValue[i]);
SetAsBytes(B);
end;
end;
procedure TBinaryField.SetVarValue(const AValue: JSValue);