home *** CD-ROM | disk | FTP | other *** search
/ PC Open 13 / pcopen13.iso / Zip / THINHELP.ZIP / support.lzh / JPGDEC.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-09-03  |  1.7 KB  |  50 lines
  1. { J P G D E C . P A S -------------------------------------------------*
  2.  * Include-File to be usied in Cunjunction with JPANI.DLL        *
  3.  * to use JPANI.DLL as an Import-Library for JPG-Compressed        *
  4.  * Bitmap-Data Files                            *
  5.  *                                                                      *
  6.  *                                    *
  7.  * (C) 1995-1996                                                        *
  8.  *    Dipl. Ing. Bernd Herd                         *
  9.  *    Rudolf-Virchow-Str. 8                        *
  10.  *    68642 Bⁿrstadt                                                    *
  11.  *    Tel. 06206/79222                                       *
  12.  *      EMail: herdsoft@aol.com                        *
  13.  *                                    *
  14.  *----------------------------------------------------------------------}
  15.  
  16. Unit JpgDec;
  17.  
  18. interface
  19.  
  20. uses WinTypes;
  21.  
  22. Function JPDecJpgDib(lpJpgData : Pchar; dwBlkSize : LongInt; Dummy1, Dummy2 : LongInt) : THandle; far;
  23. { Usage: Include this File in your Application. with "uses JPGDEC".
  24.  
  25.    Parameters:
  26.  
  27.    lpJpgData: Pointer to a Data Block containing the JPG-Compressed Image
  28.    dwBlkSize: Size of this Data Block in Bytes
  29.    Dummy1, Dummy1: Currently not used, reserved for future Defintion Applications should.
  30.            se Zero here.
  31.  
  32.    Returns:
  33.  
  34.    A Handle to a Global memory Block allocated with GlobalAlloc in CF_DIB-Data-Format.
  35.    Use GlobalLock to retrieve a Pointer to BITMAPINFOHEADER or in OWL 2.5
  36.    use TDib ADib(Handle); to Create a TDib-Object from it.
  37.  
  38.    The Return value will be NULL, if the Function does not Succeed.
  39.  
  40.    Note that illegal Input Data may Result in abnormal Program Termination without
  41.    returning from DecJpgDib.
  42. }
  43.  
  44. implementation
  45.  
  46. Function JPDecJpgDib(lpJpgData : Pchar; dwBlkSize : LongInt; Dummy1, Dummy2 : LongInt) : THandle; external 'JPANI';
  47.  
  48. Begin
  49. End.
  50.