opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Bugfix: the BINARY (0x80) flag has been broken in recent libmysql.dll versions, for some reason. Workaround. Sort of fixes issue #660.

Browse Source
This commit is contained in:
rosenfield.albert
2008-08-07 21:13:38 +00:00
parent a0cd049f78
commit a3ab287273
1 changed files with 20 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
components/zeosdbo/src/dbc/ZDbcMySqlUtils.pas
View File

@@ -171,6 +171,17 @@ begin
Result := (UNSIGNED_FLAG and FieldFlags) = 0;
end;
// The BINARY (0x80) flag has been broken in recent libmysql.dll versions, for some reason.
function Binary: Boolean;
var
Collation: Cardinal;
begin
Result := False;
Collation := PlainDriver.GetFieldCollationId(FieldHandle);
if Collation = COLLATION_BINARY then Result := True;
if Collation = COLLATION_NONE then Result := True;
end;
begin
case PlainDriver.GetFieldType(FieldHandle) of
FIELD_TYPE_TINY:
@@ -220,17 +231,21 @@ begin
Result := stUnicodeString;
FIELD_TYPE_TINY_BLOB, FIELD_TYPE_MEDIUM_BLOB,
FIELD_TYPE_LONG_BLOB, FIELD_TYPE_BLOB:
if (FieldFlags and BINARY_FLAG) = 0 then
Result := stUnicodeStream
else Result := stBinaryStream;
// TEXT and BLOB columns.
if Binary then Result := stBinaryStream
else Result := stUnicodeStream;
FIELD_TYPE_BIT:
Result := stBinaryStream;
FIELD_TYPE_VARCHAR:
Result := stUnicodeString;
FIELD_TYPE_VAR_STRING:
Result := stUnicodeString;
// VARCHAR and VARBINARY columns.
if Binary then Result := stBytes
else Result := stUnicodeString;
FIELD_TYPE_STRING:
Result := stUnicodeString;
// CHAR and BINARY columns.
if Binary then Result := stBytes
else Result := stUnicodeString;
FIELD_TYPE_ENUM:
Result := stUnicodeString;
FIELD_TYPE_SET: