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

* Fix for binary data in Mysql BLOB-fields

Browse Source 
git-svn-id: trunk@6555 -
This commit is contained in:
joost 2007-02-18 23:05:56 +00:00
parent d7b5cd4f14
commit ef45e75993
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fcl/db/sqldb/mysql/mysqlconn.inc
View File

@ -544,6 +544,7 @@ var
row : MYSQL_ROW;
C : TCursorName;
li : longint;
Lengths : PDWord;
begin
C:=Cursor as TCursorName;
if C.Row=nil then
@ -552,7 +553,8 @@ begin
inc(Row,c.MapDSRowToMSQLRow[FieldDef.FieldNo-1]);
li := strlen(pchar(row^));
Lengths := mysql_fetch_lengths(c.FRes);
li := Lengths[c.MapDSRowToMSQLRow[FieldDef.FieldNo-1]];
ReAllocMem(ABlobBuf^.BlobBuffer^.Buffer,li);
Move(pchar(row^)^, ABlobBuf^.BlobBuffer^.Buffer^, li);