paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 07:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Truncate strings longer then dsMaxStringSize

Browse Source 
* Cleaned up some unnecessary calls

git-svn-id: trunk@8977 -
This commit is contained in:
joost 2007-10-28 20:38:50 +00:00
parent 340acdea57
commit 95325732a8
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

@ -389,7 +389,8 @@ begin
begin
size := pqfmod(res,Tuple)-4;
if size = -5 then size := dsMaxStringSize;
end
end;
if size > dsMaxStringSize then size := dsMaxStringSize;
end;
// Oid_text : Result := ftstring;
Oid_text : Result := ftBlob;
@ -683,7 +684,6 @@ begin
result := false
else
begin
i := PQfsize(res, x);
CurrBuff := pqgetvalue(res,CurTuple,x);
result := true;
@ -691,6 +691,7 @@ begin
case FieldDef.DataType of
ftInteger, ftSmallint, ftLargeInt,ftfloat :
begin
i := PQfsize(res, x);
case i of // postgres returns big-endian numbers
sizeof(int64) : pint64(buffer)^ := BEtoN(pint64(CurrBuff)^);
sizeof(integer) : pinteger(buffer)^ := BEtoN(pinteger(CurrBuff)^);
@ -703,16 +704,15 @@ begin
ftString :
begin
li := pqgetlength(res,curtuple,x);
if li > dsMaxStringSize then li := dsMaxStringSize;
Move(CurrBuff^, Buffer^, li);
pchar(Buffer + li)^ := #0;
i := pqfmod(res,x)-3;
end;
ftBlob : Createblob := True;
ftdate :
begin
dbl := pointer(buffer);
dbl^ := BEtoN(plongint(CurrBuff)^) + 36526;
i := sizeof(double);
end;
ftDateTime, fttime :
begin