home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / imagelib / dll30.in_ / dll30.in
Text File  |  1995-10-03  |  34KB  |  792 lines
  1. {$X+,I-,R-}
  2.  
  3. Unit DLL30;
  4.  
  5. {Copyright Jan Dekkers / Kevin Adams of SkyLine Tools}
  6.  
  7. interface
  8. {------------------------------------------------------------------------}
  9.  
  10. uses
  11.   WinProcs, WinTypes, Graphics, SYSUtils, Dialogs,
  12.   Classes, Controls, StdCtrls, ExtCtrls, Messages;
  13.  
  14. {------------------------------------------------------------------------}
  15. type
  16.  TCallBackFunction = function (I : Integer) : Integer cdecl;
  17. {------------------------------------------------------------------------}
  18.  
  19. Type
  20.   PBitmapInfoHeader = ^TBitmapInfoHeader;     { Ptr to Win 3.x DIB header }
  21.   PBitmapCoreHeader = ^TBitmapCoreHeader;     { Ptr to OS/2 1.x DIB header }
  22. {------------------------------------------------------------------------}
  23.  
  24. type
  25.   TResolution = (Color16, Color256, ColorTrue);
  26. {------------------------------------------------------------------------}
  27.  
  28. Const
  29.   WM_Trigger =  WM_USER + 1;
  30.   WM_CTrigger = WM_USER + 2;
  31. {------------------------------------------------------------------------}
  32.  
  33. {Credit Message call}
  34. Function ReadCreditFromFile(Fn       : TFilename;
  35.                         Var Font     : TFont;
  36.                         Var Speed    : Integer;
  37.                         Var BColor   : Tcolor;
  38.                         Var MsgList  : TStringList) : Boolean;
  39. {------------------------------------------------------------------------}
  40. {Credit Message call}
  41. Function ReadCreditFromStream(TSM      : TStream;
  42.                           Var Font     : TFont;
  43.                           Var Speed    : Integer;
  44.                           Var BColor   : Tcolor;
  45.                           Var MsgList  : TStringList) : Boolean;
  46. {------------------------------------------------------------------------}
  47.  
  48. {Credit Message call}
  49. procedure WriteCreditToFile(Fn       : TFilename;
  50.                             Font     : TFont;
  51.                             Speed    : Integer;
  52.                             BColor   : Tcolor;
  53.                             MsgList  : TStringList);
  54. {------------------------------------------------------------------------}
  55. {Credit Message call}
  56. Function  WriteCreditToStream(Font   : TFont;
  57.                               Speed  : Integer;
  58.                               BColor : Tcolor;
  59.                               MsgList: TStringList;
  60.                               Po     : PChar) : Integer;
  61. {------------------------------------------------------------------------}
  62.  
  63. {Scrolling Message call}
  64. Function ReadMessageFromFile(Fn       : TFilename;
  65.                          Var Font     : TFont;
  66.                          Var Speed    : Integer;
  67.                          Var BColor   : Tcolor;
  68.                          Var Msg      : String) : Boolean;
  69. {------------------------------------------------------------------------}
  70.  
  71. {Scrolling Message call}
  72. procedure WriteMessageToFile(Fn       : TFilename;
  73.                              Font     : TFont;
  74.                              Speed    : Integer;
  75.                              BColor   : Tcolor;
  76.                              Msg      : String);
  77. {------------------------------------------------------------------------}
  78.  
  79. {Scrolling Message call}
  80. Function ReadMessageFromStream(TSM    : TStream;
  81.                            Var Font   : TFont;
  82.                            Var Speed  : Integer;
  83.                            Var BColor : Tcolor;
  84.                            Var Msg    : String) : Boolean;
  85. {------------------------------------------------------------------------}
  86.  
  87. {Scrolling Message call}
  88. Function  WriteMessageToStream(Font   : TFont;
  89.                                Speed  : Integer;
  90.                                BColor : Tcolor;
  91.                                Msg    : String;
  92.                                Po     : PChar) : Integer;
  93. {------------------------------------------------------------------------}
  94.  
  95. {Pascal type String to pChar}
  96. Function PasStr( PStr : String) : PChar;
  97.  
  98. {------------------------------------------------------------------------}
  99.  
  100. {interface call}
  101. Function pngfile(Filename          : String;
  102.                  Resolution        : Integer;
  103.                  Dither            : Integer;
  104.             var  Bitmap            : TBitmap;
  105.          CallBackFunction          : TCallBackFunction) : Boolean;
  106. {------------------------------------------------------------------------}
  107.  
  108. {interface call}
  109. Function jpgfile(Filename          : String;
  110.                  Resolution        : Integer;
  111.                  Dither            : Integer;
  112.             var  Bitmap            : TBitmap;
  113.            CallBackFunction        : TCallBackFunction) : Boolean;
  114. {------------------------------------------------------------------------}
  115.  
  116. {interface call}
  117. Function putjpgfile(Filename       : String;
  118.                     Quality        : Integer;
  119.                     Smooth         : Integer;
  120.                     Bitmap         : TBitmap;
  121.              CallBackFunction      : TCallBackFunction) : Boolean;
  122. {------------------------------------------------------------------------}
  123.  
  124. {interface call}
  125. Function putbmpfile(Filename       : String;
  126.                     Resolution     : Integer;
  127.                     Bitmap         : TBitmap;
  128.              CallBackFunction      : TCallBackFunction) : Boolean;
  129. {------------------------------------------------------------------------}
  130.  
  131. {interface call}
  132. Function putpcxfile(Filename       : String;
  133.                     Resolution     : Integer;
  134.                     Bitmap         : TBitmap;
  135.              CallBackFunction      : TCallBackFunction) : Boolean;
  136. {------------------------------------------------------------------------}
  137.  
  138. {interface call}
  139. Function putpngfile(Filename       : String;
  140.                     Resolution     : Integer;
  141.                     Interlaced     : Integer;
  142.                     Bitmap         : TBitmap;
  143.              CallBackFunction      : TCallBackFunction) : Boolean;
  144. {------------------------------------------------------------------------}
  145.  
  146. {interface call}
  147. Function putgiffile(Filename       : String;
  148.                     Resolution     : Integer;
  149.                     Bitmap         : TBitmap;
  150.              CallBackFunction      : TCallBackFunction) : Boolean;
  151. {------------------------------------------------------------------------}
  152.  
  153. {interface call}
  154. Function giffile(Filename          : String;
  155.                  Resolution        : Integer;
  156.                  Dither            : Integer;
  157.             var  Bitmap            : TBitmap;
  158.          CallBackFunction          : TCallBackFunction) : Boolean;
  159. {------------------------------------------------------------------------}
  160.  
  161. {interface call}
  162. Function bmpfile(Filename          : String;
  163.                  Resolution        : Integer;
  164.                  Dither            : Integer;
  165.             var  Bitmap            : TBitmap;
  166.          CallBackFunction          : TCallBackFunction) : Boolean;
  167. {------------------------------------------------------------------------}
  168.  
  169. {interface call}
  170. Function pcxfile(Filename          : String;
  171.                  Resolution        : Integer;
  172.                  Dither            : Integer;
  173.             var  Bitmap            : TBitmap;
  174.          CallBackFunction          : TCallBackFunction) : Boolean;
  175. {------------------------------------------------------------------------}
  176.  
  177. {interface call}
  178. Function jpgblob( FilePoint        : Pointer;
  179.                   Size             : LongInt;
  180.                   Resolution       : Integer;
  181.                   Dither           : Integer;
  182.              var  Bitmap           : TBitmap;
  183.             CallBackFunction       : TCallBackFunction): Boolean;
  184. {------------------------------------------------------------------------}
  185.  
  186. {interface call}
  187. Function  gifblob(FilePoint        : Pointer;
  188.                   Size             : LongInt;
  189.                   Resolution       : Integer;
  190.                   Dither           : Integer;
  191.              var  Bitmap           : TBitmap;
  192.             CallBackFunction       : TCallBackFunction): Boolean;
  193. {------------------------------------------------------------------------}
  194.  
  195. {interface call}
  196. Function  pcxblob(FilePoint        : Pointer;
  197.                   Size             : LongInt;
  198.                   Resolution       : Integer;
  199.                   Dither           : Integer;
  200.              var  Bitmap           : TBitmap;
  201.             CallBackFunction       : TCallBackFunction): Boolean;
  202. {------------------------------------------------------------------------}
  203.  
  204. {interface call}
  205. Function  bmpblob(FilePoint        : Pointer;
  206.                   Size             : LongInt;
  207.                   Resolution       : Integer;
  208.                   Dither           : Integer;
  209.              var  Bitmap           : TBitmap;
  210.             CallBackFunction       : TCallBackFunction): Boolean;
  211. {------------------------------------------------------------------------}
  212.  
  213. {interface call}
  214. Function  pngblob(FilePoint        : Pointer;
  215.                   Size             : LongInt;
  216.                   Resolution       : Integer;
  217.                   Dither           : Integer;
  218.              var  Bitmap           : TBitmap;
  219.             CallBackFunction       : TCallBackFunction): Boolean;
  220. {------------------------------------------------------------------------}
  221.  
  222. {interface call}
  223. Function putjpgblob(FilePoint      : Pointer;
  224.                      var Size      : LongInt;
  225.                       Quality      : Integer;
  226.                        Smooth      : Integer;
  227.                        Bitmap      : TBitmap;
  228.              CallBackFunction      : TCallBackFunction) : Boolean;
  229. {------------------------------------------------------------------------}
  230.  
  231. {interface call}
  232. Function putbmpblob(FilePoint      : Pointer;
  233.                      var Size      : LongInt;
  234.                    Resolution      : Integer;
  235.                        Bitmap      : TBitmap;
  236.              CallBackFunction      : TCallBackFunction) : Boolean;
  237. {------------------------------------------------------------------------}
  238.  
  239. {interface call}
  240. Function putpcxblob(FilePoint      : Pointer;
  241.                      var Size      : LongInt;
  242.                    Resolution      : Integer;
  243.                        Bitmap      : TBitmap;
  244.              CallBackFunction      : TCallBackFunction) : Boolean;
  245. {------------------------------------------------------------------------}
  246.  
  247. {interface call}
  248. Function putgifblob(FilePoint      : Pointer;
  249.                      var Size      : LongInt;
  250.                    Resolution      : Integer;
  251.                        Bitmap      : TBitmap;
  252.              CallBackFunction      : TCallBackFunction) : Boolean;
  253. {------------------------------------------------------------------------}
  254.  
  255. {interface call}
  256. Function putpngblob(FilePoint      : Pointer;
  257.                      var Size      : LongInt;
  258.                    Resolution      : Integer;
  259.                    Interlaced      : Integer;
  260.                        Bitmap      : TBitmap;
  261.              CallBackFunction      : TCallBackFunction) : Boolean;
  262. {------------------------------------------------------------------------}
  263.  
  264. {interface call}
  265. Function GetBlobInfo(FilePoint     : Pointer;
  266.                      Size          : LongInt;
  267.                  var FileType      : String;
  268.                  var Fwidth        : Integer;
  269.                  var FHeight       : Integer;
  270.                  var Fbitspixel    : Integer;
  271.                  var Fplanes       : Integer;
  272.                  var Fnumcolors    : Integer;
  273.                  var Fcompression  : String) : Boolean;
  274. {------------------------------------------------------------------------}
  275.  
  276. {interface call}
  277. Function GetFileInfo(Filename      : String;
  278.                  var FileType      : String;
  279.                  var Fwidth        : Integer;
  280.                  var FHeight       : Integer;
  281.                  var Fbitspixel    : Integer;
  282.                  var Fplanes       : Integer;
  283.                  var Fnumcolors    : Integer;
  284.                  var Fcompression  : String) : Boolean;
  285. {------------------------------------------------------------------------}
  286.  
  287. {DLL call}
  288. Function readpngfile(Filename      : pChar;
  289.                      Resolution    : Integer;
  290.                      Dither        : Integer;
  291.                      Password      : Integer;
  292.                  var hBMP          : HBitmap;
  293.                  var HPAL          : HPalette;
  294.                  CallBackFunction  : TCallBackFunction;
  295.                    ShowDllErrorMsg : Integer) : LongInt; Far;
  296. {------------------------------------------------------------------------}
  297.  
  298. {DLL call}
  299. Function writepngfile(Filename     : pChar;
  300.                       Resolution   : Integer;
  301.                       Interlaced   : Integer;
  302.                       Password     : Integer;
  303.                       hBMP         : HBitmap;
  304.                       HPAL         : HPalette;
  305.               CallBackFunction     : TCallBackFunction;
  306.                    ShowDllErrorMsg : Integer) : LongInt; Far;
  307. {------------------------------------------------------------------------}
  308.  
  309. {DLL call}
  310. Function  writepngstream(FilePoint : Pointer;
  311.                      var Size      : LongInt;
  312.                          Resolution: Integer;
  313.                          Interlaced: Integer;
  314.                          Password  : Integer;
  315.                          hBMP      : HBitmap;
  316.                          HPAL      : HPalette;
  317.                   CallBackFunction : TCallBackFunction;
  318.                    ShowDllErrorMsg : Integer) : LongInt; Far;
  319. {------------------------------------------------------------------------}
  320.  
  321. {DLL call}
  322. Function readpngstream(FilePoint   : Pointer;
  323.                        Size        : LongInt;
  324.                        Resolution  : Integer;
  325.                        Dither      : Integer;
  326.                        Password    : Integer;
  327.                    var hBMP        : HBitmap;
  328.                    var HPAL        : HPalette;
  329.                    CallBackFunction: TCallBackFunction;
  330.                    ShowDllErrorMsg : Integer) : LongInt; Far;
  331.  
  332.  {------------------------------------------------------------------------}
  333.  
  334. {DLL call}
  335. Function readjpgstream(FilePoint   : Pointer;
  336.                        Size        : LongInt;
  337.                        Resolution  : Integer;
  338.                        Scale       : Integer;
  339.                        Dither      : Integer;
  340.                        Password    : Integer;
  341.                    var hBMP        : HBitmap;
  342.                    var HPAL        : HPalette;
  343.                    CallBackFunction: TCallBackFunction;
  344.                    ShowDllErrorMsg : Integer) : LongInt; Far;
  345. {------------------------------------------------------------------------}
  346.  
  347. {DLL call}
  348. Function readjpgfile(Filename      : pChar;
  349.                      Resolution    : Integer;
  350.                      Scale         : Integer;
  351.                      Dither        : Integer;
  352.                      Password      : Integer;
  353.                  var hBMP          : HBitmap;
  354.                  var HPAL          : HPalette;
  355.                  CallBackFunction  : TCallBackFunction;
  356.                    ShowDllErrorMsg : Integer) : LongInt; Far;
  357. {------------------------------------------------------------------------}
  358.  
  359. {DLL call}
  360. Function writejpgfile(Filename     : pChar;
  361.                       Quality      : Integer;
  362.                       Smooth       : Integer;
  363.                       Password     : Integer;
  364.                       hBMP         : HBitmap;
  365.                       HPAL         : HPalette;
  366.               CallBackFunction     : TCallBackFunction;
  367.                    ShowDllErrorMsg : Integer) : LongInt; Far;
  368. {------------------------------------------------------------------------}
  369.  
  370. {DLL call}
  371. Function writebmpfile(Filename     : pChar;
  372.                       Resolution   : Integer;
  373.                       Password     : Integer;
  374.                       hBMP         : HBitmap;
  375.                       HPAL         : HPalette;
  376.               CallBackFunction     : TCallBackFunction;
  377.                    ShowDllErrorMsg : Integer) : LongInt; Far;
  378. {------------------------------------------------------------------------}
  379.  
  380. {DLL call}
  381. Function writegiffile(Filename     : pChar;
  382.                       Resolution   : Integer;
  383.                       Password     : Integer;
  384.                       hBMP         : HBitmap;
  385.                       HPAL         : HPalette;
  386.               CallBackFunction     : TCallBackFunction;
  387.                    ShowDllErrorMsg : Integer) : LongInt; Far;
  388. {------------------------------------------------------------------------}
  389.  
  390. {DLL call}
  391. Function writepcxfile(Filename     : pChar;
  392.                       Resolution   : Integer;
  393.                       Password     : Integer;
  394.                       hBMP         : HBitmap;
  395.                       HPAL         : HPalette;
  396.               CallBackFunction     : TCallBackFunction;
  397.                    ShowDllErrorMsg : Integer) : LongInt; Far;
  398. {------------------------------------------------------------------------}
  399.  
  400. {DLL call}
  401. Function readgiffile(Filename      : pChar;
  402.                      Resolution    : Integer;
  403.                      Dither        : Integer;
  404.                      Password      : Integer;
  405.                  var hBMP          : HBitmap;
  406.                  var HPAL          : HPalette;
  407.                  CallBackFunction  : TCallBackFunction;
  408.                    ShowDllErrorMsg : Integer) : LongInt; Far;
  409. {------------------------------------------------------------------------}
  410.  
  411. {DLL call}
  412. Function readbmpfile(Filename      : pChar;
  413.                      Resolution    : Integer;
  414.                      Dither        : Integer;
  415.                      Password      : Integer;
  416.                  var hBMP          : HBitmap;
  417.                  var HPAL          : HPalette;
  418.                  CallBackFunction  : TCallBackFunction;
  419.                    ShowDllErrorMsg : Integer) : LongInt; Far;
  420. {------------------------------------------------------------------------}
  421.  
  422. {DLL call}
  423. Function readpcxfile(Filename      : pChar;
  424.                      Resolution    : Integer;
  425.                      Dither        : Integer;
  426.                      Password      : Integer;
  427.                  var hBMP          : HBitmap;
  428.                  var HPAL          : HPalette;
  429.                  CallBackFunction  : TCallBackFunction;
  430.                    ShowDllErrorMsg : Integer) : LongInt; Far;
  431. {------------------------------------------------------------------------}
  432.  
  433. {DLL call}
  434. Function readpcxstream(FilePoint   : Pointer;
  435.                        Size        : LongInt;
  436.                        Resolution  : Integer;
  437.                        Dither      : Integer;
  438.                        Password    : Integer;
  439.                    var hBMP        : HBitmap;
  440.                    var HPAL        : HPalette;
  441.                    CallBackFunction: TCallBackFunction;
  442.                    ShowDllErrorMsg : Integer) : LongInt; Far;
  443. {------------------------------------------------------------------------}
  444.  
  445. {DLL call}
  446. Function readbmpstream(FilePoint   : Pointer;
  447.                        Size        : LongInt;
  448.                        Resolution  : Integer;
  449.                        Dither      : Integer;
  450.                        Password    : Integer;
  451.                    var hBMP        : HBitmap;
  452.                    var HPAL        : HPalette;
  453.                    CallBackFunction: TCallBackFunction;
  454.                    ShowDllErrorMsg : Integer) : LongInt; Far;
  455. {------------------------------------------------------------------------}
  456.  
  457. {DLL call}
  458. Function readgifstream(FilePoint   : Pointer;
  459.                        Size        : LongInt;
  460.                        Resolution  : Integer;
  461.                        Dither      : Integer;
  462.                        Password    : Integer;
  463.                    var hBMP        : HBitmap;
  464.                    var HPAL        : HPalette;
  465.                    CallBackFunction: TCallBackFunction;
  466.                    ShowDllErrorMsg : Integer) : LongInt; Far;
  467. {------------------------------------------------------------------------}
  468.  
  469. {DLL call}
  470. Function streaminfo(FilePoint      : Pointer;
  471.                     Size           : LongInt;
  472.                     FileType       : PChar;
  473.                 var Fwidth         : Integer;
  474.                 var FHeight        : Integer;
  475.                 var Fbitspixel     : Integer;
  476.                 var Fplanes        : Integer;
  477.                 var Fnumcolors     : Integer;
  478.                     Fcompression   : PChar;
  479.                    ShowDllErrorMsg : Integer) : LongInt; Far;
  480. {------------------------------------------------------------------------}
  481.  
  482. {DLL call}
  483. Function   fileinfo(Filename       : PChar;
  484.                     FileType       : PChar;
  485.                 var Fwidth         : Integer;
  486.                 var FHeight        : Integer;
  487.                 var Fbitspixel     : Integer;
  488.                 var Fplanes        : Integer;
  489.                 var Fnumcolors     : Integer;
  490.                     Fcompression   : PChar;
  491.                    ShowDllErrorMsg : Integer) : LongInt; Far;
  492. {------------------------------------------------------------------------}
  493.  
  494. {DLL call}
  495. Function writejpegstream(FilePoint : Pointer;
  496.                      var Size      : LongInt;
  497.                          Quality   : Integer;
  498.                          Smooth    : Integer;
  499.                          Password  : Integer;
  500.                          hBMP      : HBitmap;
  501.                          HPAL      : HPalette;
  502.                   CallBackFunction : TCallBackFunction;
  503.                    ShowDllErrorMsg : Integer) : LongInt; Far;
  504. {------------------------------------------------------------------------}
  505.  
  506. {DLL call}
  507. Function  writebmpstream(FilePoint : Pointer;
  508.                      var Size      : LongInt;
  509.                          Resolution: Integer;
  510.                          Password  : Integer;
  511.                          hBMP      : HBitmap;
  512.                          HPAL      : HPalette;
  513.                   CallBackFunction : TCallBackFunction;
  514.                    ShowDllErrorMsg : Integer) : LongInt; Far;
  515. {------------------------------------------------------------------------}
  516.  
  517. {DLL call}
  518. Function  writegifstream(FilePoint : Pointer;
  519.                      var Size      : LongInt;
  520.                          Resolution: Integer;
  521.                          Password  : Integer;
  522.                          hBMP      : HBitmap;
  523.                          HPAL      : HPalette;
  524.                   CallBackFunction : TCallBackFunction;
  525.                    ShowDllErrorMsg : Integer) : LongInt; Far;
  526. {------------------------------------------------------------------------}
  527.  
  528. {DLL call}
  529. Function  writepcxstream(FilePoint : Pointer;
  530.                      var Size      : LongInt;
  531.                          Resolution: Integer;
  532.                          Password  : Integer;
  533.                          hBMP      : HBitmap;
  534.                          HPAL      : HPalette;
  535.                   CallBackFunction : TCallBackFunction;
  536.                    ShowDllErrorMsg : Integer) : LongInt; Far;
  537.  
  538. {------------------------------------------------------------------------}
  539.  
  540. {DLL call}
  541. Function REDUCEDIB : LongInt; Far;
  542. {This DIB DLL Call is Not used in version 3.0}
  543. {------------------------------------------------------------------------}
  544.  
  545. {DLL call}
  546. Function DIBTODDB : LongInt; Far;
  547. {This DIB DLL Call is Not used in version 3.0}
  548. {------------------------------------------------------------------------}
  549.  
  550. {DLL call}
  551. Function RDJPGFILEDIB : LongInt; Far;
  552. {This DIB DLL Call is Not used in version 3.0}
  553. {------------------------------------------------------------------------}
  554.  
  555. {DLL call}
  556. Function WRJPEGFILEDIB : LongInt; Far;
  557. {This DIB DLL Call is Not used in version 3.0}
  558. {------------------------------------------------------------------------}
  559.  
  560. {DLL call}
  561. Function RDGIFFILEDIB : LongInt; Far;
  562. {This DIB DLL Call is Not used in version 3.0}
  563. {------------------------------------------------------------------------}
  564.  
  565. {DLL call}
  566. Function RDPCXFILEDIB : LongInt; Far;
  567. {This DIB DLL Call is Not used in version 3.0}
  568. {------------------------------------------------------------------------}
  569.  
  570. {DLL call}
  571. Function RDJPGSTREAMDIB : LongInt; Far;
  572. {This DIB DLL Call is Not used in version 3.0}
  573. {------------------------------------------------------------------------}
  574.  
  575. {DLL call}
  576. Function RDPCXSTREAMDIB : LongInt; Far;
  577. {This DIB DLL Call is Not used in version 3.0}
  578. {------------------------------------------------------------------------}
  579.  
  580. {DLL call}
  581. Function RDGIFSTREAMDIB : LongInt; Far;
  582. {This DIB DLL Call is Not used in version 3.0}
  583. {------------------------------------------------------------------------}
  584.  
  585. {DLL call}
  586. Function WRJPEGSTREAMDIB : LongInt; Far;
  587. {This DIB DLL Call is Not used in version 3.0}
  588. {------------------------------------------------------------------------}
  589.  
  590. {DLL call}
  591. Function RDBMPSTREAMDIB : LongInt; Far;
  592. {This DIB DLL Call is Not used in version 3.0}
  593. {------------------------------------------------------------------------}
  594.  
  595. {DLL call}
  596. Function WRBMPSTREAMDIB : LongInt; Far;
  597. {This DIB DLL Call is Not used in version 3.0}
  598. {------------------------------------------------------------------------}
  599.  
  600. {DLL call}
  601. Function RDBMPFILEDIB : LongInt; Far;
  602. {This DIB DLL Call is Not used in version 3.0}
  603. {------------------------------------------------------------------------}
  604.  
  605. {DLL call}
  606. Function WRBMPFILEDIB : LongInt; Far;
  607. {This DIB DLL Call is Not used in version 3.0}
  608. {------------------------------------------------------------------------}
  609.  
  610. {DLL call}
  611. Function RDPNGFILEDIB : LongInt; Far;
  612. {This DIB DLL Call is Not used in version 3.0}
  613. {------------------------------------------------------------------------}
  614.  
  615. {DLL call}
  616. Function RDPNGSTREAMDIB : LongInt; Far;
  617. {This DIB DLL Call is Not used in version 3.0}
  618. {------------------------------------------------------------------------}
  619.  
  620. {DLL call}
  621. Function WRPNGFILEDIB : LongInt; Far;
  622. {This DIB DLL Call is Not used in version 3.0}
  623. {------------------------------------------------------------------------}
  624.  
  625. {DLL call}
  626. Function WRPNGSTREAMDIB : LongInt; Far;
  627. {This DIB DLL Call is Not used in version 3.0}
  628. {------------------------------------------------------------------------}
  629.  
  630. {DLL call}
  631. Function WRGIFFILEDIB : LongInt; Far;
  632. {This DIB DLL Call is Not used in version 3.0}
  633. {------------------------------------------------------------------------}
  634.  
  635. {DLL call}
  636. Function WRGIFSTREAMDIB : LongInt; Far;
  637. {This DIB DLL Call is Not used in version 3.0}
  638. {------------------------------------------------------------------------}
  639.  
  640. {DLL call}
  641. Function WRPCXFILEDIB : LongInt; Far;
  642. {This DIB DLL Call is Not used in version 3.0}
  643. {------------------------------------------------------------------------}
  644.  
  645. {DLL call}
  646. Function WRPCXSTREAMDIB : LongInt; Far;
  647. {This DIB DLL Call is Not used in version 3.0}
  648. {------------------------------------------------------------------------}
  649.  
  650. {DLL call}
  651. Function DDBTODIB : LongInt; Far;
  652. {This DIB DLL Call is Not used in version 3.0}
  653. {------------------------------------------------------------------------}
  654.  
  655. { --- Utility Procedures --- }
  656. function ValidMultiMedia(Name : PChar) : boolean;
  657.  
  658. {------------------------------------------------------------------------}
  659.  
  660. {Return the dll handle of the imagelib 3.0 dll}
  661. Function GetLibHandle : THandle;
  662.  
  663. {------------------------------------------------------------------------}
  664.  
  665. { --- Utility Procedures --- }
  666. Procedure CalculateDIBData(DIBPtr            : PBitmapInfoHeader;
  667.                        Var ColorTableEntries : Integer;
  668.                        Var DIBImageBits      : Pointer);
  669. {------------------------------------------------------------------------}
  670.  
  671. { --- Utility Procedures --- }
  672. function JustName(PathName : string) : string;
  673. {------------------------------------------------------------------------}
  674.  
  675. { --- Utility Procedures --- }
  676. function JustFilename(PathName : string) : string;
  677. {------------------------------------------------------------------------}
  678.  
  679.  
  680. {Resource LoadBitMap Call}
  681. Function Resfile(InstanceName      : String;
  682.                  ResName           : String;
  683.                  HW                : HWND;
  684.             var  Bitmap            : TBitmap) : Boolean;
  685. {------------------------------------------------------------------------}
  686.  
  687. Implementation
  688.  
  689. const
  690.  ImageLibDLL = 'IMGLIB30';
  691.  
  692. {------------------------------------------------------------------------}
  693. {Dll Index numbers}
  694.  
  695. const
  696.  INDEX_FILEINFO          = 2;
  697.  INDEX_STREAMINFO        = 3;
  698.  INDEX_REDUCEDIB         = 4;
  699.  INDEX_DIBTODDB          = 5;
  700.  INDEX_READJPGFILE       = 6;
  701.  INDEX_WRITEJPEGFILE     = 7;
  702.  INDEX_READGIFFILE       = 8;
  703.  INDEX_READPCXFILE       = 9;
  704.  INDEX_READJPGSTREAM     = 10;
  705.  INDEX_READPCXSTREAM     = 11;
  706.  INDEX_READGIFSTREAM     = 12;
  707.  INDEX_WRITEJPEGSTREAM   = 13;
  708.  INDEX_READBMPSTREAM     = 14;
  709.  INDEX_WRITEBMPSTREAM    = 15;
  710.  INDEX_READBMPFILE       = 16;
  711.  INDEX_WRITEBMPFILE      = 17;
  712.  INDEX_READPNGFILE       = 18;
  713.  INDEX_READPNGSTREAM     = 19;
  714.  INDEX_WRITEPNGFILE      = 20;
  715.  INDEX_WRITEPNGSTREAM    = 21;
  716.  INDEX_WRITEGIFFILE      = 22;
  717.  INDEX_WRITEGIFSTREAM    = 23;
  718.  INDEX_WRITEPCXFILE      = 24;
  719.  INDEX_WRITEPCXSTREAM    = 25;
  720.  INDEX_RDJPGFILEDIB      = 26;
  721.  INDEX_WRJPEGFILEDIB     = 27;
  722.  INDEX_RDGIFFILEDIB      = 28;
  723.  INDEX_RDPCXFILEDIB      = 29;
  724.  INDEX_RDJPGSTREAMDIB    = 30;
  725.  INDEX_RDPCXSTREAMDIB    = 31;
  726.  INDEX_RDGIFSTREAMDIB    = 32;
  727.  INDEX_WRJPEGSTREAMDIB   = 33;
  728.  INDEX_RDBMPSTREAMDIB    = 34;
  729.  INDEX_WRBMPSTREAMDIB    = 35;
  730.  INDEX_RDBMPFILEDIB      = 36;
  731.  INDEX_WRBMPFILEDIB      = 37;
  732.  INDEX_RDPNGFILEDIB      = 38;
  733.  INDEX_RDPNGSTREAMDIB    = 39;
  734.  INDEX_WRPNGFILEDIB      = 40;
  735.  INDEX_WRPNGSTREAMDIB    = 41;
  736.  INDEX_WRGIFFILEDIB      = 42;
  737.  INDEX_WRGIFSTREAMDIB    = 43;
  738.  INDEX_WRPCXFILEDIB      = 44;
  739.  INDEX_WRPCXSTREAMDIB    = 45;
  740.  INDEX_DDBTODIB          = 46;
  741.  
  742. {------------------------------------------------------------------------}
  743.  
  744.  
  745. Function fileinfo;         external ImageLibDLL index INDEX_FILEINFO;
  746. Function streaminfo;       external ImageLibDLL index INDEX_STREAMINFO;
  747. Function readjpgfile;      external ImageLibDLL index INDEX_READJPGFILE;
  748. Function writejpgfile;     external ImageLibDLL index INDEX_WRITEJPEGFILE;
  749. Function readgiffile;      external ImageLibDLL index INDEX_READGIFFILE;
  750. Function readpcxfile;      external ImageLibDLL index INDEX_READPCXFILE;
  751. Function readjpgstream;    external ImageLibDLL index INDEX_READJPGSTREAM;
  752. Function readpcxstream;    external ImageLibDLL index INDEX_READPCXSTREAM;
  753. Function readgifstream;    external ImageLibDLL index INDEX_READGIFSTREAM;
  754. Function writejpegstream;  external ImageLibDLL index INDEX_WRITEJPEGSTREAM;
  755. Function readbmpstream;    external ImageLibDLL index INDEX_READBMPSTREAM;
  756. Function writebmpstream;   external ImageLibDLL index INDEX_WRITEBMPSTREAM;
  757. Function readbmpfile;      external ImageLibDLL index INDEX_READBMPFILE;
  758. Function writebmpfile;     external ImageLibDLL index INDEX_WRITEBMPFILE;
  759. Function readpngfile;      external ImageLibDLL index INDEX_READPNGFILE;
  760. Function readpngstream;    external ImageLibDLL index INDEX_READPNGSTREAM;
  761. Function writepngfile;     external ImageLibDLL index INDEX_WRITEPNGFILE;
  762. Function writepngstream;   external ImageLibDLL index INDEX_WRITEPNGSTREAM;
  763. Function writegiffile;     external ImageLibDLL index INDEX_WRITEGIFFILE;
  764. Function writegifstream;   external ImageLibDLL index INDEX_WRITEGIFSTREAM;
  765. Function writepcxfile;     external ImageLibDLL index INDEX_WRITEPCXFILE;
  766. Function writepcxstream;   external ImageLibDLL index INDEX_WRITEPCXSTREAM;
  767. Function REDUCEDIB;        external ImageLibDLL index INDEX_REDUCEDIB;
  768. Function DIBTODDB;         external ImageLibDLL index INDEX_DIBTODDB;
  769. Function RDJPGFILEDIB;     external ImageLibDLL index INDEX_RDJPGFILEDIB;
  770. Function WRJPEGFILEDIB;    external ImageLibDLL index INDEX_WRJPEGFILEDIB;
  771. Function RDGIFFILEDIB;     external ImageLibDLL index INDEX_RDGIFFILEDIB;
  772. Function RDPCXFILEDIB;     external ImageLibDLL index INDEX_RDPCXFILEDIB;
  773. Function RDJPGSTREAMDIB;   external ImageLibDLL index INDEX_RDJPGSTREAMDIB;
  774. Function RDPCXSTREAMDIB;   external ImageLibDLL index INDEX_RDPCXSTREAMDIB;
  775. Function RDGIFSTREAMDIB;   external ImageLibDLL index INDEX_RDGIFSTREAMDIB;
  776. Function WRJPEGSTREAMDIB;  external ImageLibDLL index INDEX_WRJPEGSTREAMDIB;
  777. Function RDBMPSTREAMDIB;   external ImageLibDLL index INDEX_RDBMPSTREAMDIB;
  778. Function WRBMPSTREAMDIB;   external ImageLibDLL index INDEX_WRBMPSTREAMDIB;
  779. Function RDBMPFILEDIB;     external ImageLibDLL index INDEX_RDBMPFILEDIB;
  780. Function WRBMPFILEDIB;     external ImageLibDLL index INDEX_WRBMPFILEDIB;
  781. Function RDPNGFILEDIB;     external ImageLibDLL index INDEX_RDPNGFILEDIB;
  782. Function RDPNGSTREAMDIB;   external ImageLibDLL index INDEX_RDPNGSTREAMDIB;
  783. Function WRPNGFILEDIB;     external ImageLibDLL index INDEX_WRPNGFILEDIB;
  784. Function WRPNGSTREAMDIB;   external ImageLibDLL index INDEX_WRPNGSTREAMDIB;
  785. Function WRGIFFILEDIB;     external ImageLibDLL index INDEX_WRGIFFILEDIB;
  786. Function WRGIFSTREAMDIB;   external ImageLibDLL index INDEX_WRGIFSTREAMDIB;
  787. Function WRPCXFILEDIB;     external ImageLibDLL index INDEX_WRPCXFILEDIB;
  788. Function WRPCXSTREAMDIB;   external ImageLibDLL index INDEX_WRPCXSTREAMDIB;
  789. Function DDBTODIB;         external ImageLibDLL index INDEX_DDBTODIB;
  790.  
  791.  
  792.