paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-05 19:10:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Improved r10817

Browse Source 
git-svn-id: trunk@10818 -
This commit is contained in:
joost 2008-04-27 16:13:11 +00:00
parent f78ad14699
commit 948e71f051
1 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -586,15 +586,7 @@ begin
inc(Row,c.MapDSRowToMSQLRow[FieldDef.FieldNo-1]);
field := mysql_fetch_field_direct(C.FRES, c.MapDSRowToMSQLRow[FieldDef.FieldNo-1]);
// String-fields which can contain more then dsMaxStringSize characters
// are mapped to ftBlob fields, while their mysql-datatype is FIELD_TYPE_BLOB
if FieldDef.DataType in [ftBlob,ftMemo] then
begin
Result := Row^<>Nil;
CreateBlob:=True;
end
else
Result := MySQLWriteData(field^.ftype, field^.length, FieldDef.DataType, Row^, Buffer, CreateBlob);
Result := MySQLWriteData(field^.ftype, field^.length, FieldDef.DataType, Row^, Buffer, CreateBlob);
end;
procedure TConnectionName.LoadBlobIntoBuffer(FieldDef: TFieldDef;
@ -834,7 +826,12 @@ begin
inc(p);
end;
Writeln;
} if Src<> '' then
}
// String-fields which can contain more then dsMaxStringSize characters
// are mapped to ftBlob fields, while their mysql-datatype is FIELD_TYPE_BLOB
if AFieldType in [ftBlob,ftMemo] then
CreateBlob := True
else if Src<> '' then
Move(Source^, Dest^, ASize)
else
Dest^ := #0;