paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 12:49:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Map text to ftmemo(binary) instead of ftblob

Browse Source 
Patch by Lacak2, mantis 19876

git-svn-id: trunk@18088 -
This commit is contained in:
marco 2011-08-03 22:09:30 +00:00
parent 48a56e03d7
commit da37e20ed6
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -402,7 +402,7 @@ begin
if size > dsMaxStringSize then size := dsMaxStringSize;
end;
// Oid_text : Result := ftstring;
Oid_text : Result := ftBlob;
Oid_text : Result := ftMemo;
Oid_Bytea : Result := ftBlob;
Oid_oid : Result := ftInteger;
Oid_int8 : Result := ftLargeInt;
@ -620,7 +620,7 @@ begin
GetMem(ar[i],length(s)+1);
StrMove(PChar(ar[i]),Pchar(s),Length(S)+1);
lengths[i]:=Length(s);
if (AParams[i].DataType in [ftBlob,ftGraphic,ftCurrency]) then
if (AParams[i].DataType in [ftBlob,ftMemo,ftGraphic,ftCurrency]) then
Formats[i]:=1
else
Formats[i]:=0;
@ -771,8 +771,9 @@ begin
Move(CurrBuff^, Buffer^, li);
pchar(Buffer + li)^ := #0;
end;
ftBlob : Createblob := True;
ftdate :
ftBlob, ftMemo :
CreateBlob := True;
ftDate :
begin
dbl := pointer(buffer);
dbl^ := BEtoN(plongint(CurrBuff)^) + 36526;