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

fcl-db: mysql: for BINARY and VARBINARY data types ignore connection CharSet (CharSize does not play role here)

Browse Source 
git-svn-id: trunk@39002 -
This commit is contained in:
lacak 2018-05-16 11:15:12 +00:00
parent ea124c68f5
commit 7b7d9b1cde
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fcl-db/src/sqldb/mysql/mysqlconn.inc
View File

@ -765,12 +765,15 @@ begin
else
NewType := ftString;
{$IFDEF MYSQL50_UP}
if AField^.charsetnr = 63 then //BINARY vs. CHAR, VARBINARY vs. VARCHAR
if AField^.charsetnr = 63 then begin //BINARY vs. CHAR, VARBINARY vs. VARCHAR
if NewType = ftFixedChar then
NewType := ftBytes
else
NewType := ftVarBytes;
NewSize := ASize div FConnectionCharsetInfo.mbmaxlen;
NewSize := ASize;
end
else
NewSize := ASize div FConnectionCharsetInfo.mbmaxlen;
{$ELSE}
NewSize := ASize;
{$ENDIF}