paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 19:10:18 +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

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

@ -765,11 +765,14 @@ begin
else else
NewType := ftString; NewType := ftString;
{$IFDEF MYSQL50_UP} {$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 if NewType = ftFixedChar then
NewType := ftBytes NewType := ftBytes
else else
NewType := ftVarBytes; NewType := ftVarBytes;
NewSize := ASize;
end
else
NewSize := ASize div FConnectionCharsetInfo.mbmaxlen; NewSize := ASize div FConnectionCharsetInfo.mbmaxlen;
{$ELSE} {$ELSE}
NewSize := ASize; NewSize := ASize;