您现在的位置: > 首页 > 程序开发 > Delphi教程
>> 最新教程
>> 热门教程
>> 最新游戏资讯
>> 热门游戏资讯
利用Delphi为Visual C++添加JPEG图形处理功能
作者:本站                来自:安迪教程网                 加入时间:08-11-19                进入论坛讨论

  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);
 }
}

联系方式:QQ:6084884 email:agwcn@126.com 粤ICP备05055782号
本网站中发布的文章只代表发表人的个人观点,不代表安迪教程网网站的立场
copyright© 2000-2004 安迪教程网 All rights reserved agwcn.com