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

Added 4 missing functions to ImageMagick bindings

Browse Source 
git-svn-id: trunk@9151 -
This commit is contained in:
sekelsenmat 2007-11-07 20:31:33 +00:00
parent c96bcd8340
commit 8093953747
2 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/base/imagemagick/wand/magick_image.inc
View File

@ -380,16 +380,10 @@ function MagickGetImageRenderingIntent(wand: PMagickWand): RenderingIntent; cdec
function MagickGetImageUnits(wand: PMagickWand): ResolutionType; cdecl; external WandExport;
{function MagickGetImageBlob(wand: PMagickWand; length: Psize_t): PByte; cdecl; external WandExport;
function (wand: PMagickWand): PByte; cdecl; external WandExport;
function (wand: PMagickWand): PByte; cdecl; external WandExport;
function (wand: PMagickWand): PByte; cdecl; external WandExport;
extern WandExport unsigned char
*MagickGetImageBlob(MagickWand *,size_t *),
*MagickGetImagesBlob(MagickWand *,size_t *),
*MagickGetImageProfile(MagickWand *,const char *,unsigned long *),
*MagickRemoveImageProfile(MagickWand *,const char *,unsigned long *);}
function MagickGetImageBlob(wand: PMagickWand; length: Psize_t): PByte; cdecl; external WandExport;
function MagickGetImagesBlob(wand: PMagickWand; length: Psize_t): PByte; cdecl; external WandExport;
function MagickGetImageProfile(wand: PMagickWand; name: PChar; length: Psize_t): PByte; cdecl; external WandExport;
function MagickRemoveImageProfile(wand: PMagickWand; name: PChar; length: Psize_t): PByte; cdecl; external WandExport;
function MagickGetImageColors(wand: PMagickWand): Cardinal; cdecl; external WandExport;
function MagickGetImageCompressionQuality(wand: PMagickWand): Cardinal; cdecl; external WandExport;

5
packages/base/imagemagick/wand/magick_wand.pas
View File

@ -34,6 +34,7 @@ interface
uses ImageMagick;
{ Various types }
type
MagickWand = record
id: Cardinal;
@ -48,6 +49,10 @@ type
PMagickWand = ^MagickWand;
size_t = Integer;
Psize_t = ^size_t;
{$include pixel_wand.inc}
{$include drawing_wand.inc}
{$include magick_attribute.inc}