home *** CD-ROM | disk | FTP | other *** search
/ Delphi Developer's Kit 1996 / Delphi Developer's Kit 1996.iso / power / source8 / dll22lin.int < prev    next >
Encoding:
Text File  |  1995-12-22  |  10.5 KB  |  295 lines
  1. {$X+}
  2. Unit DLL22LIN;
  3.  
  4. {Copyright Jan Dekkers / Kevin Adams}
  5.  
  6. interface
  7.  
  8. uses
  9.   WinProcs, WinTypes, Graphics, SYSUtils, Dialogs,
  10.   Classes, Controls, StdCtrls, ExtCtrls;
  11.  
  12.  
  13. type
  14.  TCallBackFunction = function (I : Integer) : Integer;
  15.  
  16.  
  17. {Scrolling Message call}
  18. Function ReadMessageFromFile(fn       : TFilename;
  19.                          Var Font     : Tfont;
  20.                          Var speed    : integer;
  21.                          Var BColor   : Tcolor;
  22.                          Var Msg      : String) : Boolean;
  23.  
  24. {Scrolling Message call}
  25. procedure WriteMessageToFile(fn       : Tfilename;
  26.                              Font     : Tfont;
  27.                              speed    : integer;
  28.                              BColor   : Tcolor;
  29.                              Msg      : String);
  30.  
  31. {Scrolling Message call}
  32. Function ReadMessageFromStream(TSM    : TStream;
  33.                          Var Font     : Tfont;
  34.                          Var speed    : integer;
  35.                          Var BColor   : Tcolor;
  36.                          Var Msg      : String) : Boolean;
  37.  
  38.  
  39. {Scrolling Message call}
  40. Function  WriteMessageToStream(Font   : Tfont;
  41.                                speed  : integer;
  42.                                BColor : Tcolor;
  43.                                Msg    : String;
  44.                                Po     : PChar) : Integer;
  45.  
  46.  
  47. {Pascal type string to pchar}
  48. Function PasStr( PStr : String) : PChar;
  49.  
  50.  
  51. {interface call}
  52. Function jpgfile(filename          : String;
  53.                  resolution        : integer;
  54.                  option            : integer;
  55.             var  Bitmap            : TBitmap;
  56.            CallBackFunction        : TCallBackFunction) : Boolean;
  57.  
  58. {interface call}
  59. Function putjpgfile(filename       : String;
  60.                     quality        : integer;
  61.                     smooth         : integer;
  62.                     Bitmap         : TBitmap;
  63.              CallBackFunction      : TCallBackFunction) : Boolean;
  64.  
  65.  
  66. {interface call}
  67. Function putbmpfile(filename       : String;
  68.                     Bitmap         : TBitmap;
  69.              CallBackFunction      : TCallBackFunction) : Boolean;
  70.  
  71.  
  72. {interface call}
  73. Function giffile(filename          : string;
  74.             var  Bitmap            : TBitmap;
  75.          CallBackFunction          : TCallBackFunction) : Boolean;
  76.  
  77.  
  78. {interface call}
  79. Function bmpfile(filename          : string;
  80.             var  Bitmap            : TBitmap;
  81.          CallBackFunction          : TCallBackFunction) : Boolean;
  82.  
  83. {interface call}
  84. Function pcxfile(filename          : string;
  85.             var  Bitmap            : TBitmap;
  86.          CallBackFunction          : TCallBackFunction) : Boolean;
  87.  
  88. {interface call}
  89. Function jpgblob(filePoint         : Pointer;
  90.                   Size             : LongInt;
  91.                   resolution       : integer;
  92.                   option           : integer;
  93.              var  Bitmap           : TBitmap;
  94.             CallBackFunction       : TCallBackFunction): Boolean;
  95.  
  96. {interface call}
  97. Function  gifblob(filePoint        : Pointer;
  98.                   Size             : LongInt;
  99.              var  Bitmap           : TBitmap;
  100.             CallBackFunction       : TCallBackFunction): Boolean;
  101.  
  102. {interface call}
  103. Function  pcxblob(filePoint        : Pointer;
  104.                   Size             : LongInt;
  105.              var  Bitmap           : TBitmap;
  106.             CallBackFunction       : TCallBackFunction): Boolean;
  107.  
  108. {interface call}
  109. Function  bmpblob(filePoint        : Pointer;
  110.                   Size             : LongInt;
  111.              var  Bitmap           : TBitmap;
  112.             CallBackFunction       : TCallBackFunction): Boolean;
  113.  
  114. {interface call}
  115. Function putjpgblob(filePoint      : Pointer;
  116.                      var Size      : LongInt;
  117.                       quality      : integer;
  118.                        smooth      : integer;
  119.                        Bitmap      : TBitmap;
  120.              CallBackFunction      : TCallBackFunction) : Boolean;
  121.  
  122. {interface call}
  123. Function putbmpblob(filePoint      : Pointer;
  124.                      var Size      : LongInt;
  125.                        Bitmap      : TBitmap;
  126.              CallBackFunction      : TCallBackFunction) : Boolean;
  127.  
  128. {interface call}
  129. Function GetBlobInfo(filePoint     : Pointer;
  130.                      Size          : LongInt;
  131.                  var FileType      : String;
  132.                  var Fwidth        : Integer;
  133.                  var FHeight       : Integer;
  134.                  var Fbitspixel    : Integer;
  135.                  var Fplanes       : Integer;
  136.                  var Fnumcolors    : Integer;
  137.                  var Fcompression  : String) : Boolean;
  138.  
  139.  
  140. {interface call}
  141. Function GetFileInfo(fileName      : String;
  142.                  var FileType      : String;
  143.                  var Fwidth        : Integer;
  144.                  var FHeight       : Integer;
  145.                  var Fbitspixel    : Integer;
  146.                  var Fplanes       : Integer;
  147.                  var Fnumcolors    : Integer;
  148.                  var Fcompression  : String) : Boolean;
  149.  
  150. {DLL call}
  151. Function readjpgstream(filePoint   : Pointer;
  152.                        Size        : LongInt;
  153.                        resolution  : integer;
  154.                        scale       : integer;
  155.                        option      : integer;
  156.                        password    : integer;
  157.                    var hBmp        : HBitmap;
  158.                    var hPal        : HPalette;
  159.                    CallBackFunction: TCallBackFunction;
  160.                    ShowDllErrorMsg : integer) : LongInt; Far;
  161.  
  162. {DLL call}
  163. Function readjpgfile(filename      : pchar;
  164.                      resolution    : integer;
  165.                      scale         : integer;
  166.                      option        : integer;
  167.                      password      : integer;
  168.                  var hBmp          : HBitmap;
  169.                  var hPal          : HPalette;
  170.                  CallBackFunction  : TCallBackFunction;
  171.                    ShowDllErrorMsg : integer) : LongInt; Far;
  172.  
  173. {DLL call}
  174. Function writejpgfile(filename     : pchar;
  175.                       quality      : integer;
  176.                       smooth       : integer;
  177.                       password     : integer;
  178.                       hBmp         : HBitmap;
  179.                       hPal         : HPalette;
  180.               CallBackFunction     : TCallBackFunction;
  181.                    ShowDllErrorMsg : integer) : LongInt; Far;
  182.  
  183.  
  184. {DLL call}
  185. Function writebmpfile(filename     : pchar;
  186.                       password     : integer;
  187.                       hBmp         : HBitmap;
  188.                       hPal         : HPalette;
  189.               CallBackFunction     : TCallBackFunction;
  190.                    ShowDllErrorMsg : integer) : LongInt; Far;
  191.  
  192.  
  193. {DLL call}
  194. Function readgiffile(filename      : pchar;
  195.                      password      : integer;
  196.                  var hBmp          : HBitmap;
  197.                  var hPal          : HPalette;
  198.                  CallBackFunction  : TCallBackFunction;
  199.                    ShowDllErrorMsg : integer) : LongInt; Far;
  200.  
  201. {DLL call}
  202. Function readbmpfile(filename      : pchar;
  203.                      password      : integer;
  204.                  var hBmp          : HBitmap;
  205.                  var hPal          : HPalette;
  206.                  CallBackFunction  : TCallBackFunction;
  207.                    ShowDllErrorMsg : integer) : LongInt; Far;
  208.  
  209.  
  210. {DLL call}
  211. Function readpcxfile(filename      : pchar;
  212.                      password      : integer;
  213.                  var hBmp          : HBitmap;
  214.                  var hPal          : HPalette;
  215.                  CallBackFunction  : TCallBackFunction;
  216.                    ShowDllErrorMsg : integer) : LongInt; Far;
  217.  
  218. {DLL call}
  219. Function readpcxstream(filePoint   : Pointer;
  220.                        Size        : LongInt;
  221.                        password    : integer;
  222.                    var hBmp        : HBitmap;
  223.                    var hPal        : HPalette;
  224.                    CallBackFunction: TCallBackFunction;
  225.                    ShowDllErrorMsg : integer) : LongInt; Far;
  226.  
  227. {DLL call}
  228. Function readbmpstream(filePoint   : Pointer;
  229.                        Size        : LongInt;
  230.                        password    : integer;
  231.                    var hBmp        : HBitmap;
  232.                    var hPal        : HPalette;
  233.                    CallBackFunction: TCallBackFunction;
  234.                    ShowDllErrorMsg : integer) : LongInt; Far;
  235.  
  236. {DLL call}
  237. Function readgifstream(filePoint   : Pointer;
  238.                        Size        : LongInt;
  239.                        password    : integer;
  240.                    var hBmp        : HBitmap;
  241.                    var hPal        : HPalette;
  242.                    CallBackFunction: TCallBackFunction;
  243.                    ShowDllErrorMsg : integer) : LongInt; Far;
  244.  
  245. {DLL call}
  246. Function streaminfo(filePoint      : Pointer;
  247.                     Size           : LongInt;
  248.                     FileType       : PChar;
  249.                 var Fwidth         : Integer;
  250.                 var FHeight        : Integer;
  251.                 var Fbitspixel     : Integer;
  252.                 var Fplanes        : Integer;
  253.                 var Fnumcolors     : Integer;
  254.                     Fcompression   : PChar;
  255.                    ShowDllErrorMsg : integer) : LongInt; Far;
  256.  
  257.  
  258. {DLL call}
  259. Function   fileinfo(filename       : PChar;
  260.                     FileType       : PChar;
  261.                 var Fwidth         : Integer;
  262.                 var FHeight        : Integer;
  263.                 var Fbitspixel     : Integer;
  264.                 var Fplanes        : Integer;
  265.                 var Fnumcolors     : Integer;
  266.                     Fcompression   : PChar;
  267.                    ShowDllErrorMsg : integer) : LongInt; Far;
  268.  
  269.  
  270. {DLL call}
  271. Function writejpegstream(filePoint : Pointer;
  272.                      var Size      : LongInt;
  273.                          quality   : integer;
  274.                          smooth    : integer;
  275.                          password  : integer;
  276.                          hBmp      : HBitmap;
  277.                          hPal      : HPalette;
  278.                   CallBackFunction : TCallBackFunction;
  279.                    ShowDllErrorMsg : integer) : LongInt; Far;
  280.  
  281. {DLL call}
  282. Function  writebmpstream(filePoint : Pointer;
  283.                      var Size      : LongInt;
  284.                          password  : integer;
  285.                          hBmp      : HBitmap;
  286.                          hPal      : HPalette;
  287.                   CallBackFunction : TCallBackFunction;
  288.                    ShowDllErrorMsg : integer) : LongInt; Far;
  289.  
  290.  
  291. function ValidMultiMedia(Name : PChar) : boolean;
  292.  
  293. implementation
  294.  
  295.