必威注册电子书籍教程中心网文荟萃客户留言繁體中文
设为首页
加入收藏
联系必威注册
您当前的位置:92动力网 -> 教程中心 -> 编程经验 -> Delphi -> 教程内容 退出登录 用户管理
栏目导航
· Visual Basic· Delphi
· Visual C++· C++ Builder
· JAVA DotNet· 其他相关
热门教程
· 如何在Visual Basic...
· 使用Visual Basic操...
· 使用VB6.0设计Activ...
· VB动态调用外部函数...
· 建立一个程序员自己...
· 如何编写高质量的VB...
· [图文] 为更新到Visual Bas...
· 再谈在VB中调用VC++...
· 用VB语言编程实现JP...
· 用DTS实现SQL数据库...
相关教程
· [图文] Excel“自动求和”批...
· 利用DelayLoad来优化...
· 利用Delphi 5中调用...
· 利用Delphi编写Wind...
· 利用Delphi消息处理...
· 利用Delphi 5.0开发...
· 利用DELPHI编写WIND...
· [图文] PHOTOSHOP中利用DEL...
· [图文] Photoshop的Action和...
· [图文] 学用金山文字中的图...

利用Delphi为Visual C++添加JPEG图形处理功能
作者:佚名聽聽来源:本站整理聽聽发布时间:2005-12-29 7:25:47聽聽发布人:admin

减小字体 增大字体

利用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;usesSysUtils,Classes,MainFn in 'MainFn.pas';exports CreateJPEGImage, LoadJPEGImage, FreeJPEGImage, DrawJPEGImage;beginend.///////////////////////////////////////////////// MainFn.pas单元内容///////////////////////////////////////////////unit MainFn;interfaceusesSysUtils, 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;implementationfunction 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); }}
[] [返回上一页] [打 印] [收 藏]
∷相关教程评论∷    (评论内容只代表网友观点,与本站立场无关!) [更多评论...]
关于本站 - 网站帮助 - 广告合作 - 下载声明 - 网站地图 - 管理登录
Copyright 2019 必威注册. All Rights Reserved .
浙ICP备05047688号