Visual C++对JPEG等常见图形格式的支持不够一直是为人所诟病的缺陷，相比起来，Delphi/C++ Builder在这方面就要强得多了。由于JPEG是实际应用中经常使用的图形格式，如果你是Visual C++用户的话，自然会想如何让Visual C++能够处理JPEG图形。虽然网络上现在已经有了不少能够处理JPEG图形的Visual C++库，但是别人的东西用起来总有点不那么得心应手，而且经常有一些限制，比如有名的ImageObject库要求必须静态链接到MFC DLL,给使用带来很多不便;如果是ActiveX控制的话，又不得不考虑如何注册等麻烦的问题。实际上，借助于Delphi对JPEG图形的强大处理功能，自己写一段小小的代码，就能够在几分钟内让Visual C++也用上JPEG，DIY的感觉就是不同！


要用本文介绍的代码，你手头应该有一套Delphi（3.0以上的版本）和一套Visual C++（5.0以上版本）。由于本文的代码非常简单，因此下面的代码不作注释，相信对这两套语言稍有基础的朋友都不难理解。


在Delphi中新建一个DLL工程ImageLib，并添加一个MainFn.pas单元。文件清单如下：
////////////////////////////////////
// ImageLib.dpr项目内容
////////////////////////////////////
library ImageLib;


uses
SysUtils,
Classes,
MainFn in ''MainFn.pas'';

exports
?CreateJPEGImage,
?LoadJPEGImage,
?FreeJPEGImage,
?DrawJPEGImage;

begin
end.

///////////////////////////////////////////////
// MainFn.pas单元内容
///////////////////////////////////////////////
unit MainFn;

interface
uses
SysUtils, Classes, Windows, Graphics, JPEG;

function CreateJPEGImage:TJPEGImage;stdcall;export;
function LoadJPEGImage(image:TJPEGImage;szFileName:PChar):LongBool;stdcall;export;
procedure FreeJPEGImage(image:TJPEGImage);stdcall;export;
procedure DrawJPEGImage(hdc:HDC;x,y:integer;image:TJPEGImage);stdcall;export;

implementation
function CreateJPEGImage:TJPEGImage;
var
  image : TJPEGImage;
begin
  try
    image := TJPEGImage.Create;
    result := image;
  except
   result := nil;
  end;
end;

function LoadJPEGImage(image:TJPEGImage;szFileName:PChar):LongBool;
var
  strFileName : string;
begin
  try
   strFileName := StrPas(szFileName);
   image.LoadFromFile(strFileName);
   result := True;
  except
   result := False;
  end;
end;

procedure FreeJPEGImage(image:TJPEGImage);
begin
  image.Free;
end;

procedure DrawJPEGImage(hdc:HDC;x,y:integer;image:TJPEGImage);
var
  Canvas : TCanvas;
begin
  Canvas := TCanvas.Create;
  Canvas.Handle := hdc;
  Canvas.Draw(x,y,image);
  Canvas.Free;
end;

end.

项目编译完成后生成的Dll就可以直接在Visual C++中使用了。以下是用Visual C++生成的测试项目内容，使用Dialog Based框架：
typedef void* PJPEG;
/*
function CreateJPEGImage:TJPEGImage;stdcall;export;
function LoadJPEGImage(image:TJPEGImage;szFileName:PChar):LongBool;
procedure FreeJPEGImage(image:TJPEGImage);stdcall;export;
procedure DrawJPEGImage(hdc:HDC;x,y:integer;image:TJPEGImage);stdcall;export;
*/
typedef PJPEG (__stdcall* CREATEJPEGIMAGE)();
typedef BOOL (__stdcall* LOADJPEGIMAGE)(PJPEG,LPCSTR);
typedef void (__stdcall* FREEJPEGIMAGE)(