paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-04 01:12:04 +01:00
Code Issues Packages Projects Releases Wiki Activity

* TGraphics header size was subtracted from non TGraphic blobs ,

Browse Source 
Mantis 18712, patch by Erwin v/d Bosch.

git-svn-id: trunk@16917 -
This commit is contained in:
marco 2011-02-15 08:42:54 +00:00
parent 601b90d74c
commit d3afac1736
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-db/src/paradox/paradox.pp
View File

@ -812,8 +812,12 @@ begin
Result:=TMemoryStream.Create;
V2:=Value;
if (Field.DataType=ftGraphic) then
begin
Result.WriteAnsiString('bmp');
Result.WriteBuffer(V2^,D-SizeOf(TGraphicHeader));
Result.WriteBuffer(V2^,D-SizeOf(TGraphicHeader));
end
else
Result.WriteBuffer(V2^,D);
Result.Position:=0;
FDoc^.free(FDoc,Value);
end;