readme.txt

含有七个函数

***********************************************************
*                                                         *
*    JPEGLIB for VB/VC/DELPHI                             *
*                                                         *
*            version      1.1                             *
*            written by   WANGYIN  99/02/24               *
*            email:       [e-mail]             *
*            download:    http://WangDynasty.yeah.net     *
*                                                         *
***********************************************************

  JpegLib是用Delphi所写，用于读取JPEG和GIF格式的图象文件，
支持89a格式的动画GIF。
  虽然是用DELPHI写的，由于参数均为标准调用，所以我认为可以
被其他语言使用。

  在JpegLib.dll中有以七下个函数：
function WyLoadJpg(FileName: PChar; GoodQuality: Boolean): hBitmap;
function WyLoadGIF(FileName: PChar): hBitmap;
function WyLoadBmp(FileName: PChar): hBitmap;
function WyReadAniGIFInfo(FileName: PChar): Integer;
function WyLoadAniGIF(FileName: PChar; FrameIndex:integer): hBitmap;
function WyLoadImage(FileName: PChar): hBitmap;
function WySaveJpg(FileName: PChar; Quality: Integer;Gray: Boolean): Boolean;

说明(使用时请拷贝)：
☆DELPHI描述
function WyLoadJpg(FileName: PChar; GoodQuality: Boolean): hBitmap;
         stdcall; external 'JpegLib';
读Jpg
  FileName为JPEG的文件名；
  GoodQuality若为True，读JPEG速度稍慢，质量较好，
             若为False，则速度快，质量较差；
  返回Bitmap的句柄，出错返回0。

function WyLoadGIF(FileName: PChar): hBitmap;
         stdcall; external 'JpegLib';
读GIF
  FileName为GIF的文件名；
  返回Bitmap的句柄，出错返回0。
  如果是动画GIF，解读的是首帧。

function WyLoadBmp(FileName: PChar): hBitmap;
         stdcall; external 'JpegLib';
读Bitmap
  FileName为BMP的文件名；
  返回Bitmap的句柄，出错返回0。

function WyReadAniGIFInfo(FileName: PChar): Integer;
         stdcall; external 'JpegLib';
读GIF总帧数
  FileName为GIF的文件名；
  返回动画GIF的总帧数，出错返回-1。

function WyLoadAniGIF(FileName: PChar; FrameIndex:integer): hBitmap;
         stdcall; external 'JpegLib';
读GIF的某帧
  FileName为GIF的文件名；
  FrameIndex为欲读取的某帧的帧数；
  返回Bitmap的句柄，出错返回0。  

function WyLoadImage(FileName: PChar): hBitmap;
         stdcall; external 'JpegLib';
读GIF或JPG
  FileName为图象文件名，可以自动识别GIF或JPG格式或BMP格式；
  返回Bitmap的句柄，出错返回0。

function WySaveJpg(FileName: PChar; Quality: Integer;Gray: Boolean): Boolean;
         stdcall; external 'JpegLib';
存为JPG
  FileName为要保存的JPG文件名；
  Quality是JPG的质量，可取值范围是1..100；
  Gray决定是否存为黑白JPG；
  返回True，出错返回False。


☆VB描述参考：(参数说明同上)
Declare Function WyLoadJpg Lib "JpegLib.dll" (ByVal FileName As String,ByVal GQ As Integer) As Long
Declare Function WyLoadGIF Lib "JpegLib.dll" (ByVal FileName As String) As Long
Declare Function WyLoadBmp Lib "JpegLib.dll" (ByVal FileName As String) As Long
Declare Function WyReadAniGIFInfo Lib "JpegLib.dll" (ByVal FileName As String) As Integer
Declare Function WyLoadAniGIF Lib "JpegLib.dll" (ByVal FileName As String,ByVal FrameIndex As Integer) As Long
Declare Function WySaveJpg Lib "JpegLib.dll" (ByVal FileName As String,ByVal Quality As Integer,ByVal Gray As Integer) As Integer
Declare Function WyLoadImage Lib "JpegLib.dll" (ByVal FileName As String) As Long


☆一个Delphi调用JpegLib.Dll的例子
   function WyLoadImage(FileName: PChar): HBitmap; stdcall;
       external 'JpegLib';
   ......
   Image1.Picture.Bitmap.Handle := WyLoadImage(PChar('c:\test.jpg'));
   image1.AutoSize:=true;