granicus.if.org Git - imagemagick/blob - coders/xtrn.c

   1 /*
   2 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   3 %                                                                             %
   4 %                                                                             %
   5 %                                                                             %
   6 %                        X   X  TTTTT  RRRR   N   N                           %
   7 %                         X X     T    R   R  NN  N                           %
   8 %                          X      T    RRRR   N N N                           %
   9 %                         X X     T    R R    N  NN                           %
  10 %                        X   X    T    R  R   N   N                           %
  11 %                                                                             %
  12 %                                                                             %
  13 %                    ImageMagickObject BLOB Interface.                        %
  14 %                                                                             %
  15 %                              Software Design                                %
  16 %                             William Radcliffe                               %
  17 %                                 May 2001                                    %
  18 %                                                                             %
  19 %                                                                             %
  20 %  Copyright 1999-2015 ImageMagick Studio LLC, a non-profit organization      %
  21 %  dedicated to making software imaging solutions freely available.           %
  22 %                                                                             %
  23 %  You may not use this file except in compliance with the License.  You may  %
  24 %  obtain a copy of the License at                                            %
  25 %                                                                             %
  26 %    http://www.imagemagick.org/script/license.php                            %
  27 %                                                                             %
  28 %  Unless required by applicable law or agreed to in writing, software        %
  29 %  distributed under the License is distributed on an "AS IS" BASIS,          %
  30 %  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.   %
  31 %  See the License for the specific language governing permissions and        %
  32 %  limitations under the License.                                             %
  33 %                                                                             %
  34 %                                                                             %
  35 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  36 %
  37 %  This coder is a kind of backdoor used by the COM object that allows it to  %
  38 %  pass blobs back and forth using the coder interface. It simply encodes and %
  39 %  decodes the filename as a comma delimited string and extracts the info it  %
  40 %  needs. The five methods of passing images are:                             %
  41 %                                                                             %
  42 %     FILE   - same thing as filename so it should be a NOP                   %
  43 %     IMAGE  - passes an image and image info structure                       %
  44 %     BLOB   - passes binary blob containining the image                      %
  45 %     STREAM - passes pointers to stream hooks in and does the hooking        %
  46 %     ARRAY  - passes a pointer to a Win32 smart array and streams to it      %
  47 %                                                                             %
  48 %  Of all of these, the only one getting any real use at the moment is the    %
  49 %  ARRAY handler. It is the primary way that images are shuttled back and     %
  50 %  forth as blobs via COM since this is what VB and VBSCRIPT use internally   %
  51 %  for this purpose.                                                          %
  52 %
  53 %
  54 */
  55 \f
  56 /*
  57   Include declarations.
  58 */
  59 #if defined(_VISUALC_)
  60 #include "MagickCore/studio.h"
  61 #include "MagickCore/blob.h"
  62 #include "MagickCore/blob-private.h"
  63 #include "MagickCore/constitute.h"
  64 #include "MagickCore/delegate.h"
  65 #include "MagickCore/exception.h"
  66 #include "MagickCore/exception-private.h"
  67 #include "MagickCore/image.h"
  68 #include "MagickCore/image-private.h"
  69 #include "MagickCore/list.h"
  70 #include "MagickCore/MagickCore.h"
  71 #include "MagickCore/memory_.h"
  72 #include "MagickCore/string_.h"
  73 #define WIN32_LEAN_AND_MEAN
  74 #define VC_EXTRALEAN
  75 #include <windows.h>
  76 #include <ole2.h>
  77 \f
  78 /*
  79   Forward declarations.
  80 */
  81 static MagickBooleanType
  82   WriteXTRNImage(const ImageInfo *,Image *,ExceptionInfo *exception);
  83 \f
  84 /*
  85 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  86 %                                                                             %
  87 %                                                                             %
  88 %                                                                             %
  89 %   R e a d X T R N I m a g e                                                 %
  90 %                                                                             %
  91 %                                                                             %
  92 %                                                                             %
  93 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  94 %
  95 %  ReadXTRNImage() reads a XTRN image file and returns it.  It
  96 %  allocates the memory necessary for the new Image structure and returns a
  97 %  pointer to the new image.
  98 %
  99 %  The format of the ReadXTRNImage method is:
 100 %
 101 %      Image *ReadXTRNImage(const ImageInfo *image_info,
 102 %        ExceptionInfo *exception)
 103 %
 104 %  A description of each parameter follows:
 105 %
 106 %    o image_info: Specifies a pointer to an ImageInfo structure.
 107 %
 108 %    o exception: return any errors or warnings in this structure.
 109 %
 110 */
 111 static Image *ReadXTRNImage(const ImageInfo *image_info,
 112   ExceptionInfo *exception)
 113 {
 114   Image
 115     *image;
 116
 117   ImageInfo
 118     *clone_info;
 119
 120   void
 121     *param1,
 122     *param2,
 123     *param3;
 124
 125   param1 = param2 = param3 = (void *) NULL;
 126   image = (Image *) NULL;
 127   clone_info=CloneImageInfo(image_info);
 128   if (clone_info->filename == NULL)
 129     {
 130       clone_info=DestroyImageInfo(clone_info);
 131       ThrowReaderException(FileOpenWarning,"No filename specified");
 132     }
 133   if (LocaleCompare(image_info->magick,"XTRNFILE") == 0)
 134     {
 135       image=ReadImage(clone_info,exception);
 136       CatchException(exception);
 137     }
 138   else if (LocaleCompare(image_info->magick,"XTRNIMAGE") == 0)
 139     {
 140       Image
 141         **image_ptr;
 142
 143 #ifdef ALL_IMAGEINFO
 144       ImageInfo
 145         **image_info_ptr;
 146 #endif
 147
 148       (void) sscanf(clone_info->filename,"%lx,%lx",&param1,&param2);
 149       image_ptr=(Image **) param2;
 150       if (*image_ptr != (Image *) NULL)
 151         image=CloneImage(*image_ptr,0,0,MagickFalse,exception);
 152 #ifdef ALL_IMAGEINFO
 153       image_info_ptr=(ImageInfo **) param1;
 154       if (*image_info_ptr != (ImageInfo *) NULL)
 155         image_info=*image_info_ptr;
 156 #endif
 157     }
 158   else if (LocaleCompare(image_info->magick,"XTRNBLOB") == 0)
 159     {
 160       char
 161         **blob_data;
 162
 163       size_t
 164         *blob_length;
 165
 166       char
 167         filename[MaxTextExtent];
 168
 169       (void) sscanf(clone_info->filename,"%lx,%lx,%s",&param1,&param2,&filename);
 170       blob_data=(char **) param1;
 171       blob_length=(size_t *) param2;
 172       image=BlobToImage(clone_info,*blob_data,*blob_length,exception);
 173       CatchException(exception);
 174     }
 175   else if (LocaleCompare(image_info->magick,"XTRNARRAY") == 0)
 176     {
 177       char
 178         *blob_data,
 179         filename[MaxTextExtent];
 180
 181       HRESULT
 182         hr;
 183
 184       long
 185         lBoundl,
 186         lBoundu;
 187
 188       SAFEARRAY
 189         *pSafeArray;
 190
 191       size_t
 192         blob_length;
 193
 194       *filename='\0';
 195       (void) sscanf(clone_info->filename,"%lx,%s",&param1,&filename);
 196       hr=S_OK;
 197       pSafeArray=(SAFEARRAY *) param1;
 198       if (pSafeArray)
 199         {
 200           hr = SafeArrayGetLBound(pSafeArray, 1, &lBoundl);
 201           if (SUCCEEDED(hr))
 202             hr = SafeArrayGetUBound(pSafeArray, 1, &lBoundu);
 203           if (SUCCEEDED(hr))
 204             {
 205               blob_length = lBoundu - lBoundl + 1;
 206               hr = SafeArrayAccessData(pSafeArray,(void**) &blob_data);
 207               if(SUCCEEDED(hr))
 208                 {
 209                   *clone_info->filename='\0';
 210                   *clone_info->magick='\0';
 211                   if (*filename != '\0')
 212                     (void) CopyMagickString(clone_info->filename,filename,
 213                       MaxTextExtent);
 214                   image=BlobToImage(clone_info,blob_data,blob_length,exception);
 215                   hr=SafeArrayUnaccessData(pSafeArray);
 216                   CatchException(exception);
 217                 }
 218             }
 219         }
 220     }
 221   clone_info=DestroyImageInfo(clone_info);
 222   return(image);
 223 }
 224 \f
 225 /*
 226 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 227 %                                                                             %
 228 %                                                                             %
 229 %                                                                             %
 230 %   R e g i s t e r X T R N I m a g e                                         %
 231 %                                                                             %
 232 %                                                                             %
 233 %                                                                             %
 234 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 235 %
 236 %  RegisterXTRNImage() adds attributes for the XTRN image format to
 237 %  the list of supported formats.  The attributes include the image format
 238 %  tag, a method to read and/or write the format, whether the format
 239 %  supports the saving of more than one frame to the same file or blob,
 240 %  whether the format supports native in-memory I/O, and a brief
 241 %  description of the format.
 242 %
 243 %  The format of the RegisterXTRNImage method is:
 244 %
 245 %      size_t RegisterXTRNImage(void)
 246 %
 247 */
 248 ModuleExport size_t RegisterXTRNImage(void)
 249 {
 250   MagickInfo
 251     *entry;
 252
 253   entry=SetMagickInfo("XTRNFILE");
 254   entry->decoder=ReadXTRNImage;
 255   entry->encoder=WriteXTRNImage;
 256   entry->adjoin=MagickFalse;
 257   entry->stealth=MagickTrue;
 258   entry->description=ConstantString("External transfer of a file");
 259   entry->module=ConstantString("XTRN");
 260   RegisterMagickInfo(entry);
 261   entry=SetMagickInfo("XTRNIMAGE");
 262   entry->decoder=ReadXTRNImage;
 263   entry->encoder=WriteXTRNImage;
 264   entry->adjoin=MagickFalse;
 265   entry->stealth=MagickTrue;
 266   entry->description=ConstantString("External transfer of a image in memory");
 267   entry->module=ConstantString("XTRN");
 268   RegisterMagickInfo(entry);
 269   entry=SetMagickInfo("XTRNBLOB");
 270   entry->decoder=ReadXTRNImage;
 271   entry->encoder=WriteXTRNImage;
 272   entry->adjoin=MagickFalse;
 273   entry->stealth=MagickTrue;
 274   entry->description=ConstantString("IExternal transfer of a blob in memory");
 275   entry->module=ConstantString("XTRN");
 276   RegisterMagickInfo(entry);
 277   entry=SetMagickInfo("XTRNARRAY");
 278   entry->decoder=ReadXTRNImage;
 279   entry->encoder=WriteXTRNImage;
 280   entry->adjoin=MagickFalse;
 281   entry->stealth=MagickTrue;
 282   entry->description=ConstantString(
 283     "External transfer via a smart array interface");
 284   entry->module=ConstantString("XTRN");
 285   RegisterMagickInfo(entry);
 286   return(MagickImageCoderSignature);
 287 }
 288 \f
 289 /*
 290 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 291 %                                                                             %
 292 %                                                                             %
 293 %                                                                             %
 294 %   U n r e g i s t e r X T R N I m a g e                                     %
 295 %                                                                             %
 296 %                                                                             %
 297 %                                                                             %
 298 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 299 %
 300 %  UnregisterXTRNImage() removes format registrations made by the
 301 %  XTRN module from the list of supported formats.
 302 %
 303 %  The format of the UnregisterXTRNImage method is:
 304 %
 305 %      UnregisterXTRNImage(void)
 306 %
 307 */
 308 ModuleExport void UnregisterXTRNImage(void)
 309 {
 310   UnregisterMagickInfo("XTRNFILE");
 311   UnregisterMagickInfo("XTRNIMAGE");
 312   UnregisterMagickInfo("XTRNBLOB");
 313   UnregisterMagickInfo("XTRNARRAY");
 314 }
 315 \f
 316 /*
 317 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 318 %                                                                             %
 319 %                                                                             %
 320 %                                                                             %
 321 %   W r i t e X T R N I m a g e                                               %
 322 %                                                                             %
 323 %                                                                             %
 324 %                                                                             %
 325 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 326 %
 327 %  WriteXTRNImage() writes an image in the XTRN encoded image format.
 328 %  We use GIF because it is the only format that is compressed without
 329 %  requiring additional optional delegates (TIFF, ZIP, etc).
 330 %
 331 %  The format of the WriteXTRNImage method is:
 332 %
 333 %      MagickBooleanType WriteXTRNImage(const ImageInfo *image_info,
 334 %        Image *image,ExceptionInfo *exception)
 335 %
 336 %  A description of each parameter follows.
 337 %
 338 %    o image_info: Specifies a pointer to an ImageInfo structure.
 339 %
 340 %    o image:  A pointer to a Image structure.
 341 %
 342 %    o exception: return any errors or warnings in this structure.
 343 %
 344 */
 345
 346 size_t SafeArrayFifo(const Image *image,const void *data,const size_t length)
 347 {
 348   SAFEARRAYBOUND NewArrayBounds[1];  /* 1 Dimension */
 349   size_t tlen=length;
 350   SAFEARRAY *pSafeArray = (SAFEARRAY *)image->client_data;
 351   if (pSafeArray != NULL)
 352   {
 353     long lBoundl, lBoundu, lCount;
 354     HRESULT hr = S_OK;
 355     /* First see how big the buffer currently is */
 356     hr = SafeArrayGetLBound(pSafeArray, 1, &lBoundl);
 357     if (FAILED(hr))
 358       return MagickFalse;
 359     hr = SafeArrayGetUBound(pSafeArray, 1, &lBoundu);
 360     if (FAILED(hr))
 361       return MagickFalse;
 362     lCount = lBoundu - lBoundl + 1;
 363
 364     if (length>0)
 365     {
 366       unsigned char       *pReturnBuffer = NULL;
 367       NewArrayBounds[0].lLbound = 0;   /* Start-Index 0 */
 368       NewArrayBounds[0].cElements = (unsigned long) (length+lCount);  /* # Elemente */
 369       hr = SafeArrayRedim(pSafeArray, NewArrayBounds);
 370       if (FAILED(hr))
 371         return 0;
 372       hr = SafeArrayAccessData(pSafeArray, (void**)&pReturnBuffer);
 373       if( FAILED(hr) )
 374         return 0;
 375       (void) memcpy(pReturnBuffer+lCount,(unsigned char *) data,length);
 376       hr=SafeArrayUnaccessData(pSafeArray);
 377       if(FAILED(hr))
 378         return 0;
 379     }
 380     else
 381     {
 382       /* Adjust the length of the buffer to fit */
 383     }
 384   }
 385   return(tlen);
 386 }
 387
 388 static MagickBooleanType WriteXTRNImage(const ImageInfo *image_info,
 389   Image *image,ExceptionInfo *exception)
 390 {
 391   Image *
 392     p;
 393
 394   ImageInfo
 395     *clone_info;
 396
 397   int
 398     scene;
 399
 400   MagickBooleanType
 401     status;
 402
 403   void
 404     *param1,
 405     *param2,
 406     *param3;
 407
 408   param1 = param2 = param3 = (void *) NULL;
 409   if (LocaleCompare(image_info->magick,"XTRNFILE") == 0)
 410     {
 411       clone_info=CloneImageInfo(image_info);
 412       status=WriteImage(image_info,image,exception);
 413       if (status == MagickFalse)
 414         CatchImageException(image);
 415       clone_info=DestroyImageInfo(clone_info);
 416     }
 417   else if (LocaleCompare(image_info->magick,"XTRNIMAGE") == 0)
 418     {
 419       Image
 420         **image_ptr;
 421
 422       ImageInfo
 423         **image_info_ptr;
 424
 425       clone_info=CloneImageInfo(image_info);
 426       if (clone_info->filename[0])
 427         {
 428           (void) sscanf(clone_info->filename,"%lx,%lx",&param1,&param2);
 429           image_info_ptr=(ImageInfo **) param1;
 430           image_ptr=(Image **) param2;
 431           if ((image_info_ptr != (ImageInfo **) NULL) &&
 432               (image_ptr != (Image **) NULL))
 433             {
 434               *image_ptr=CloneImage(image,0,0,MagickFalse,exception);
 435               *image_info_ptr=clone_info;
 436             }
 437         }
 438     }
 439   else if (LocaleCompare(image_info->magick,"XTRNBLOB") == 0)
 440     {
 441       char
 442         **blob_data;
 443
 444       size_t
 445         *blob_length;
 446
 447       char
 448         filename[MaxTextExtent];
 449
 450       clone_info=CloneImageInfo(image_info);
 451       if (clone_info->filename[0])
 452         {
 453           (void) sscanf(clone_info->filename,"%lx,%lx,%s",
 454             &param1,&param2,&filename);
 455
 456           blob_data=(char **) param1;
 457           blob_length=(size_t *) param2;
 458           scene = 0;
 459           (void) CopyMagickString(clone_info->filename,filename,MaxTextExtent);
 460           for (p=image; p != (Image *) NULL; p=GetNextImageInList(p))
 461           {
 462             (void) CopyMagickString(p->filename,filename,MaxTextExtent);
 463             p->scene=scene++;
 464           }
 465           SetImageInfo(clone_info,1,exception);
 466           (void) CopyMagickString(image->magick,clone_info->magick,
 467             MaxTextExtent);
 468           if (*blob_length == 0)
 469             *blob_length=8192;
 470           *blob_data=(char *) ImageToBlob(clone_info,image,blob_length,
 471             exception);
 472           if (*blob_data == NULL)
 473             status=MagickFalse;
 474           if (status == MagickFalse)
 475             CatchImageException(image);
 476         }
 477       clone_info=DestroyImageInfo(clone_info);
 478     }
 479   else if (LocaleCompare(image_info->magick,"XTRNARRAY") == 0)
 480     {
 481       char
 482         filename[MaxTextExtent];
 483
 484       size_t
 485         blob_length;
 486
 487       unsigned char
 488         *blob_data;
 489
 490       clone_info=CloneImageInfo(image_info);
 491       if (*clone_info->filename != '\0')
 492         {
 493           (void) sscanf(clone_info->filename,"%lx,%s",&param1,&filename);
 494           image->client_data=param1;
 495           scene=0;
 496           (void) CopyMagickString(clone_info->filename,filename,MaxTextExtent);
 497           for (p=image; p != (Image *) NULL; p=GetNextImageInList(p))
 498           {
 499             (void) CopyMagickString(p->filename,filename,MaxTextExtent);
 500             p->scene=scene++;
 501           }
 502           SetImageInfo(clone_info,1,exception);
 503           (void) CopyMagickString(image->magick,clone_info->magick,
 504             MaxTextExtent);
 505           blob_data=ImageToBlob(clone_info,image,&blob_length,
 506             exception);
 507           if (blob_data == (unsigned char *) NULL)
 508             status=MagickFalse;
 509           else
 510             SafeArrayFifo(image,blob_data,blob_length);
 511           if (status == MagickFalse)
 512             CatchImageException(image);
 513         }
 514       clone_info=DestroyImageInfo(clone_info);
 515     }
 516   return(MagickTrue);
 517 }
 518 #endif