利用Delphi為Visual C++添加JPEG圖形處理功能

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)(PJPEG);
typedef void (__stdcall* DRAWJPEGIMAGE)(HDC,int,int,PJPEG);
class CTDlg : public CDialog
{
...
public:
HINSTNACE m_hLib;
CREATEJPEGIMAGE pCreateJPEGImage;
LOADJPEGIMAGE pLoadJPEGImage;
FREEJPEGIMAGE pFreeJPEGImage;
DRAWJPEGIMAGE pDrawJPEGImage;
}
BOOL CTDlg::OnInitDialog()
{
...
m_hLib = LoadLibrary("ImageLib.dll");
　pCreateJPEGImage = (CREATEJPEGIMAGE)GetProcAddress(m_hLib,"CreateJPEGImage");
　pLoadJPEGImage = (LOADJPEGIMAGE)GetProcAddress(m_hLib,"LoadJPEGImage");
　pFreeJPEGImage = (FREEJPEGIMAGE)GetProcAddress(m_hLib,"FreeJPEGImage");
　pDrawJPEGImage = (DRAWJPEGIMAGE)GetProcAddress(m_hLib,"DrawJPEGImage");
}
void CTDlg::OnDestroy()
{
　if (m_hLib)
　FreeLibrary(m_hLib);
}
void CTDlg::OnPaint()
{
　CPaintDC dc(this);
　PJPEG pJPEG;
　pJPEG = (*pCreateJPEGImage)();
　if (pJPEG)
　{
　if ((*pLoadJPEGImage)(pJPEG,"c: est.jpg"))
　　　(*pDrawJPEGImage)(dc.m_hDC,0,0,pJPEG);
　　(*pFreeJPEGImage)(pJPEG);
　}
}