利用Delphi为Visual C++添加JPEG图形处理功能

原创 2001年05月06日 11:36:00
利用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://test.jpg")) (*pDrawJPEGImage)(dc.m_hDC,0,0,pJPEG); (*pFreeJPEGImage)(pJPEG); } }

Delphi图片上写水印文字函数

unit untImagePaintText; interface uses jpeg, Classes, Graphics, SysUtils; /// /// 打开一幅图片(jpg,bmp)...
  • u011883102
  • u011883102
  • 2014年04月03日 11:33
  • 1477

visual C++数字图像处理类

由于现在手头的学习是关于图像处理的,有些技能肯定迟早要用上,于是决定利用假期学习Visual C++的相关知识。 今天是第一天,主要学习使用visual c++进行面向对象编程的基本方法。并给出数字...
  • a1154761720
  • a1154761720
  • 2015年01月21日 22:53
  • 1698

带你玩转Visual Studio——VS2015的新功能和特性

之前写了一系列《带你玩转Visual Studio》的文章,有一段时间没有更新这一系列了。由于项目的需要,工作中的开发环境由VS2010升级至VS2015,现在就说说VS2015相对于VS2010有哪...
  • luoweifu
  • luoweifu
  • 2016年05月15日 21:00
  • 30839

Visual C++数字图象与图形处理

  • 2013年11月23日 00:55
  • 1.81MB
  • 下载

Visual C++数学图像与图形处理.rar

  • 2010年03月04日 08:39
  • 10.17MB
  • 下载

Visual_C++数字图像与图形处理

  • 2012年10月10日 20:54
  • 10.11MB
  • 下载

delphi 图形处理 照片处理 c++ builder

  • 2013年01月24日 11:52
  • 1.12MB
  • 下载

VISUAL C++多媒体设计及图形、图像处理

图形处理 在VC下显示JPEG、GIF格式图像的一种简便方法 一、 引言    JPEG图像压缩标准随然是一种有损图像压缩标准,但由于人眼视觉的不敏感,经压缩后的画质基本没有发生变化,很快便以较高的压...
  • u010258235
  • u010258235
  • 2013年10月22日 09:08
  • 667

在Visual C++ 6.0下显示JPEG、GIF等格式标准的图像的一种实现起来比较简便的方法

摘要:本文讲述了在Visual C++ 6.0下显示JPEG、GIF等格式标准的图像的一种实现起来比较简便的方法,对实现过程作有详细的说明。 关键字:图像、JPEG、GIF、Microsof...
  • woshinia
  • woshinia
  • 2011年09月21日 16:59
  • 1818

FileTool.exe 替换 Visual C++ 的"打开"和"添加到项目中"的功能

在Windows7中使用vc++6.0
  • ximen250
  • ximen250
  • 2014年09月28日 13:22
  • 2070
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:利用Delphi为Visual C++添加JPEG图形处理功能
举报原因:
原因补充:

(最多只允许输入30个字)