paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-11 14:48:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

pqconnection: support ftVarBytes parameters (TParam.SetAsBytes)

Browse Source 
git-svn-id: trunk@49010 -
This commit is contained in:
ondrej 2021-03-19 14:09:02 +00:00
parent 29dee4a0d3
commit 72fc981c7f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-db/src/sqldb/postgres/pqconnection.pp
View File

@ -845,7 +845,7 @@ const TypeStrings : array[TFieldType] of string =
'time', // ftTime
'timestamp', // ftDateTime
'Unknown', // ftBytes
'Unknown', // ftVarBytes
'bytea', // ftVarBytes
'Unknown', // ftAutoInc
'bytea', // ftBlob
'text', // ftMemo
@ -1041,7 +1041,7 @@ begin
end;
ftFmtBCD:
s := BCDToStr(AParams[i].AsFMTBCD, FSQLFormatSettings);
ftBlob, ftGraphic:
ftBlob, ftGraphic, ftVarBytes:
begin
Handled:=true;
bd:= AParams[i].AsBlob;
@ -1064,7 +1064,7 @@ begin
StrMove(PAnsiChar(ar[i]), PAnsiChar(s), L+1);
lengths[i]:=L;
end;
if (AParams[i].DataType in [ftBlob,ftMemo,ftGraphic,ftCurrency]) then
if (AParams[i].DataType in [ftBlob,ftMemo,ftGraphic,ftCurrency,ftVarBytes]) then
Formats[i]:=1
else
Formats[i]:=0;
@ -1338,7 +1338,7 @@ begin
end;
pchar(Buffer + li)^ := #0;
end;
ftBlob, ftMemo :
ftBlob, ftMemo, ftVarBytes :
CreateBlob := True;
ftDate :
begin