Delphi中取出的HDC是否可以传送到VC做的动态链接库中使用？ ( 积分: 200 )

SmallGhost · 2005-08-21

Delphi代码 unit MainForm; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ExtCtrls, StdCtrls, frxDesgnCtrls; type  TFnDraw = procedure(arg_hHDC: HDC);  TForm1 = class(TForm)    Panel2: TPanel;    Button1: TButton;    procedure FormCreate(Sender: TObject);    procedure FormDestroy(Sender: TObject);    procedure Button1Click(Sender: TObject);  private    { Private declarations }    m_hDrawApdater: HMODULE;    m_fnDraw:       TFnDraw;  public    { Public declarations }  end; var  Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin  {}  m_hDrawApdater := LoadLibrary('X:/Test/DrawTest/DrawAdapter/DrawAdapter/Debug/DrawAdapter.dll');  m_fnDraw := GetProcAddress(m_hDrawApdater,'fnDrawLine');  if Assigned(m_fnDraw) = false then  begin    ShowMessage('get address error!');  end;   end; procedure TForm1.FormDestroy(Sender: TObject); begin  if m_hDrawApdater <> 0 then  begin    FreeLibrary(m_hDrawApdater);    m_hDrawApdater := 0;  end; end; procedure TForm1.Button1Click(Sender: TObject); var  hTempDC: HDC; begin  if Assigned(m_fnDraw) then  begin    hTempDC := GetWindowDC(Handle);    m_fnDraw(hTempDC);    //^^^^^^^这里是调用VC写的函数！    TextOut(hTempDC,50,100,'Test',4);    ReleaseDC(Handle,hTempDC);  end; end; end. VC代码： #ifdef DRAWADAPTER_EXPORTS #define DRAWADAPTER_API extern "C" __declspec(dllexport) #else #define DRAWADAPTER_API extern "C" __declspec(dllimport) #endif #include "stdafx.h" #include "DrawAdapter.h" BOOL APIENTRY DllMain( HANDLE hModule,                       DWORD  ul_reason_for_call,                       LPVOID lpReserved ) { switch (ul_reason_for_call) { case DLL_PROCESS_ATTACH: case DLL_THREAD_ATTACH: case DLL_THREAD_DETACH: case DLL_PROCESS_DETACH: break; }    return TRUE; } DRAWADAPTER_API void fnDrawLine(HDC arg_hDC) { TextOut(arg_hDC,100,200,"Test",4); } 为什么Delphi的TextOut可以看到文字，而VC的确什么也没有看到？

SmallGhost · 2005-08-21

Delphi代码 unit MainForm; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ExtCtrls, StdCtrls, frxDesgnCtrls; type  TFnDraw = procedure(arg_hHDC: HDC);  TForm1 = class(TForm)    Panel2: TPanel;    Button1: TButton;    procedure FormCreate(Sender: TObject);    procedure FormDestroy(Sender: TObject);    procedure Button1Click(Sender: TObject);  private    { Private declarations }    m_hDrawApdater: HMODULE;    m_fnDraw:       TFnDraw;  public    { Public declarations }  end; var  Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin  {}  m_hDrawApdater := LoadLibrary('X:/Test/DrawTest/DrawAdapter/DrawAdapter/Debug/DrawAdapter.dll');  m_fnDraw := GetProcAddress(m_hDrawApdater,'fnDrawLine');  if Assigned(m_fnDraw) = false then  begin    ShowMessage('get address error!');  end;   end; procedure TForm1.FormDestroy(Sender: TObject); begin  if m_hDrawApdater <> 0 then  begin    FreeLibrary(m_hDrawApdater);    m_hDrawApdater := 0;  end; end; procedure TForm1.Button1Click(Sender: TObject); var  hTempDC: HDC; begin  if Assigned(m_fnDraw) then  begin    hTempDC := GetWindowDC(Handle);    m_fnDraw(hTempDC);    //^^^^^^^这里是调用VC写的函数！    TextOut(hTempDC,50,100,'Test',4);    ReleaseDC(Handle,hTempDC);  end; end; end. VC代码： #ifdef DRAWADAPTER_EXPORTS #define DRAWADAPTER_API extern "C" __declspec(dllexport) #else #define DRAWADAPTER_API extern "C" __declspec(dllimport) #endif #include "stdafx.h" #include "DrawAdapter.h" BOOL APIENTRY DllMain( HANDLE hModule,                       DWORD  ul_reason_for_call,                       LPVOID lpReserved ) { switch (ul_reason_for_call) { case DLL_PROCESS_ATTACH: case DLL_THREAD_ATTACH: case DLL_THREAD_DETACH: case DLL_PROCESS_DETACH: break; }    return TRUE; } DRAWADAPTER_API void fnDrawLine(HDC arg_hDC) { TextOut(arg_hDC,100,200,"Test",4); } 为什么Delphi的TextOut可以看到文字，而VC的确什么也没有看到？

luxingniao · 2005-08-22

只要在TFnDraw = procedure(arg_hHDC: HDC); 改为TFnDraw = procedure(arg_hHDC: HDC);cdecl;就可以了. 因为Delphi跟VC函数中的参数传递不一样.

app2001 · 2005-08-22

这个你看一下吧 标题：从C到Delphi的接口声明转换 (2分) Oldtiger (2001-11-1 17:26) 700803 虽然Delphi作为一种极其优秀的开发工具已经被越来越多的开发人员选用，但是它毕竟面世时间不算太长，加上有的软件开发厂商实力不强或是其他原因,造成部分二次开发平台仅仅提供C语言的开发接口。 但这并不是说用Delphi就不能完成这些工作.我们知道,软件厂商提供开发包实际基本上都是以动态连接库的方式实现的，他们将可以调用的函数、过程包括一些特定数据格式组合起来, 作为一个开发包，通过c编译器形成一个可重用的DLL文件，而所谓的开发接口往往就是动态连接库(.dll)的声明文件，他们即使提供Delphi下的接口，也就是用Pascal写一遍对这些动态库的声明。如果我们自己作这个翻译工作,就不存在厂商是否提供Delphi下接口的问题了。换言之，对于以DLL方式出现的开发包，只要有c的文件头，理论上都可以在Delphi下照样开发。 经过对比,我们发现c语言中存在的所有数据类型在Delphi的Object Pascal中都有对应类型存在；同时c语言调用动态库的4种方式在Delphi编译器中也都覆盖了，这就保证了我们的工作是可行的，如果你对此尚有疑问,那么可以看看WinProcs和ShellAPI两个单元。这两个单元就是Inprise写的对Windows系统函数(也是C语言开发，存在于DLL文件中的)的声明调用。 这里我们就来看看写这个声明文件需要注意的一些问题。在delphi中有两种声明方式:implicit (静态的) 和 explicit (动态的)。 对于implicit方式要求程序运行时动态库一定要存在,否则程序不能运行.而explicit方式可以没有动态库存在.例如一个界面程序，如果3维显示是在一个dll中实现的,那么我们如果采用explicit方式调用就可以做到如果动态库存在就用3维显示,否则用2维显示。 采用explicit方式的另一个好处是可以加快程序的启动速度.因为explicit方式让程序在执行到调用语句时才装载dll文件.但同时implicit方式比较简单,所以用的也更多。 　　implicit方式的典型声明格式是: 　　procedure Foo(X: Integer); external 'BAR' index 1; 　　这里再次提醒:如果程序找不到对应的dll文件,在编译和运行时都会出现错误。 　　Explicit方式就麻烦一些了.实际上这种方式在vb中用的更多一些.如果你的确希望这样做,那么可以参考下面的代码： 　　 var Hbar: Thandle; 　　 Foo: procedure (X: Integer); {$IFDEF WIN32} stdcall; {$ENDIF} 　　 begin 　　    Hbar := LoadLibrary('BAR.DLL'); 　　    if Hbar 〉= 32 then { success } begin      　　 Foo := GetProcAddress(HBar, 'FOO');  　       ... 　　       Foo(1);           ... 　　       FreeLibrary(HBar); 　　    end 　　    else MessageDlg('警告: 没有发现 BAR.DLL', mtError, [mbOk], 0) 　　 end. 请注意一下, 这段代码编译时是不会出现错误的,在运行时也会按照程序指定步骤完成.DLL的调入时间也如我们前面提及的,是在需要时才引入的。 在c语言中常常采用IMPLIB和IMPDEF两个工具生成.h文件，这个文件就是开发包中我们见到的头文件了.我们需要作的工作就是将这个文件准确地翻译成pascal格式,而且可以被编译器准确的用来编译成dll的声明文件。 为了更好的说明问题,我们不妨先看看一个简化的c语言的头文件： 　　/**********/ * 　　* wing.h - WinG functions, types, and definitions * 　　* Copyright (c) 1994 Microsoft Corp. All rights reserved. * 　　/*********/ 　　#ifndef _INC_WING 　　#define _INC_WING 　　#ifndef _INC_WINDOWS 　　#include /* Include windows.h if not already included */ 　　#endif 　　#ifdef __cplusplus 　　extern "C" { /* Assume C declarations for C++ */ 　　#endif 　　#if defined(WIN32) || defined(_WIN32) 　　#define WINGAPI WINAPI #else 　　#define WINGAPI WINAPI _loadds 　　#endif 　　/***** WingDC and WinGBitmap ********/ 　　HDC WINGAPI WinGCreateDC( void ); 　　BOOL WINGAPI WinGRecommendDIBFormat( BITMAPINFO FAR *pFormat ); 　　HBITMAP WINGAPI WinGCreateBitmap( HDC WinGDC, BITMAPINFO const FAR *pHeader,void FAR *FAR *ppBits ) 　　void FAR *WINGAPI WinGGetDIBPointer( HBITMAP WinGBitmap,BITMAPINFO FAR *pHeader ); 　　UINT WINGAPI WinGGetDIBColorTable( HDC WinGDC, UINT StartIndex,UINT NumberOfEntries, RGBQUAD FAR *pColors ); 　　UINT WINGAPI WinGSetDIBColorTable( HDC WinGDC, UINT StartIndex, 　 UINT NumberOfEntries, RGBQUAD const FAR *pColors ); 　　/***** Halftoning **********/ 　　HPALETTE WINGAPI WinGCreateHalftonePalette( void ); 　　typedef enum WING_DITHER_TYPE 　　{ WING_DISPERSED_4x4,WING_DISPERSED_8x8,WING_CLUSTERED_4x4} WING_DITHER_TYPE; 　　HBRUSH WINGAPI WinGCreateHalftoneBrush( HDC Context, COLORREF crColor,WING_DITHER_TYPE DitherType ); 　　/***** Blts **********/ 　　BOOL WINGAPI WinGBitBlt( HDC hdcDest, int nXOriginDest,int nYOriginDest, int nWidthDest, int nHeightDest, HDC hdcSrc,int nXOriginSrc, int nYOriginSrc ); 　　BOOL WINGAPI WinGStretchBlt( HDC hdcDest, int nXOriginDest,int nYOriginDest, int nWidthDest, int nHeightDest, HDC hdcSrc,int nXOriginSrc, int nYOriginSrc, int nWidthSrc, int nHeightSrc ); 　　#ifdef __cplusplus 　　} /* End of extern "C" */ 　　#endif 　　#endif // _INC_WING 从中我们可以归纳出需要翻译的三部分内容:编译开关,数据结构,函数调用。为了便于大家完成翻译工作,我摘抄了一张 c语言和pascal语言的数据类型对照表,可以供大家参考： C/C++ Type                Object Pascal               char                          char signed char                   shortint unsigned char                 byte unsigned short [int]          word                           [signed] short [int]          smallint                       unsigned [int]                cardinal { 3.25 fix }           [signed] int                  integer char*                         pchar uint                          longint { or cardinal } lpstr or pstr                 pchar word                          word lpwstr or pwstr               pwidechar { 3.12 fix } dword                         longint { or cardinal } void*                         pointer unsigned long                 longint { or cardinal } bool                          bool unsigned long int             longint { or cardinal } float                         single [signed] long                 longint double                        double [signed] long int             longint 　　 　　下面是一些常用和常见数据结构的对照表: C/C++ Type                   Object Pascal Type handle                           thandle debughookinfo                    tdebughookinfo farproc                          tfarproc bitmapcoreheader                 tbitmapcoreheader atom                             tatom bitmapinfoheader                 tbitmapinfoheader tpoint                           tpoint bitmapinfo                       tbitmapinfo trect                            trect bitmapcoreinfo                   tbitmapcoreinfo colorref                         tcolorref bitmapfileheader                 tbitmapfileheader ofstruct                         tofstruct ttpolygonheader                  tpolygonheader handletable                      thandletable rasterizer_status                trasterizer_status bitmap                           tbitmap mousehookstruct                  tmousehookstruct rgbtriple                        trgbtriple cbtactivatestruct                tcbtactivatestruct rgbquad                          trgbquad hardwarehookstruct               thardwarehookstruct metarecord                       tmetarecord eventmsg                         teventmsg metaheader                       tmetaheader pattern                          tpattern { tlogbrush } metafilepict                     tmetafilepict newtextmetric                    tnewtextmetric textmetric                       ttextmetric paletteentry                     tpaletteentry logbrush                         tlogbrush logpalette                       tlogpalette logpen                           tlogpen kerningpair                      tkerningpair logfont                          tlogfont outlinetextmetric                toutlinetextmetric enumlogfont                      tenumlogfont glyphmetrics                     tglyphmetrics panose                           tpanose pointfx                          tpointfx fixed                            tfixed ttpolycurve                      tttpolycurve mat2                             tmat2 minmaxinfo                       tminmaxinfo abc                              tabc paintstruct                      tpaintstruct wndclass                         twndclass createstruct                     tcreatestruct msg                              tmsg cbt_createwnd                    tcbt_createwnd seginfo                          tseginfo measureitemstruct                tmeasureitemstruct accel                            taccel drawitemstruct                   tdrawitemstruct size                             tsize deleteitemstruct                 tdeleteitemstruct dcb                              tdcb compareitemstruct                tcompareitemstruct comstat                          tcomstat windowpos                        twindowpos helpwininfo                      thelpwininfo windowplacement                  twindowplacement ctlstyle                         tctlstyle   nccalcsize_params                tnccalcsize_params ctltype                          tctltype menuitemtemplateheader           tmenuitemtemplateheader ctlinfo                          tctlinfo menuitemtemplate                 tmenuitemtemplate ddeadvise                        tddeadvise mdicreatestruct                  tmdicreatestruct ddedata                          tddedata clientcreatestruct               tclientcreatestruct ddepoke                          tddepoke multikeyhelp                     tmultikeyhelp ddeaack                          tddeack kanjistruct                      tkanjistruct devmode                          tdevmode 　　 以上仅仅是常用的一部分,更多的结构转换可以参见WINDOWS.H头文件和WINDOWS.pas,将两者作一个对比可以学习到许多技巧。 在上面的c语言文件头中您应该可以按照上表作出转换了。可能存在的问题是一个数据结构的变换： 　　 typedef enum WING_DITHER_TYPE 　　 {WING_DISPERSED_4x4,WING_DISPERSED_8x8,WING_CLUSTERED_4x4} WING_DITHER_TYPE; 　　这是一个枚举结构,我们可以翻译成这样： 　　 Type WING_DITHER_TYPE =(WING_DISPERSED_4x4,WING_DISPERSED_8x8,WING_CLUSTERED_4x4); 　　我们再来看看函数和过程的转换吧： 　　WinGCreateDC function: HDC WINGAPI WinGCreateDC( void )； 　　显然这是一个没有返回值的函数,而且没有入口参数,我们可以将其转换成： 　　function WinGCreateDC: HDC; {$IFDEF WIN32} stdcall; {$ENDIF} external 'WING' index 1001; 这里的index 1001是从IMPDEF的.DEF 文件中得到的,一些反编译和调试工具也可以得到其值.但是我们推荐采用按照名称方式访问，这样可以适合于更多的场合。 　　按照同样的方式,我们再来翻译几个函数： 　　function WinGRecommendDIBFormat(pFormat: PBitmapInfo): Bool; {$IFDEF WIN32} stdcall; {$ENDIF} external 'WING' index 1002; 　　function WinGCreateBitmap(WinGDC: HDC;Const pHeader: PBitmapInfo;ppBits: PPointer): HBITMAP; {$IFDEF WIN32} stdcall; {$ENDIF} external 'WING' index 1003; 　　function WinGCreateHalftoneBrush(Context: HDC;crColor: TColorRef;DitherType: WING_DITHER_TYPE): HBRUSH; {$IFDEF WIN32} stdcall; {$ENDIF} external 'WING' index 1008; 这些都是按照静态方式声明的。 编译器指令的翻译是相对比较麻烦的事情.而且要考虑到32位代码和16位代码的兼容性.一般我们采用{$IFDEF WIN32}{$ENDIF}这种方式处理这个问题. 最后我们推荐一个很好的代码自动转换辅助工具headConv.这是著名的荷兰程序员Bob的杰作.最初的版本(1.0,2.0)是要收费的(25美金),我们得到了其最新的一个免费版本3.25命令行版,你可以从一个delphi控件收集站点(delphi根据地 http://warez.zb169.net/)去下载它.其用法也非常简单,一共有三个可选项： 　　-o 覆盖原有单元 　　-x 强制产生动态声明单元; 　　-m 强制产生静态声明单元; 这样就可以大大减少手工翻译的时间,而将主要精力用于润色和优化。

SmallGhost · 2005-08-22

Thank

Delphi中取出的HDC是否可以传送到VC做的动态链接库中使用？ ( 积分: 200 )

SmallGhost

Unregistered / Unconfirmed

SmallGhost

Unregistered / Unconfirmed

luxingniao

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

SmallGhost

Unregistered / Unconfirmed

Similar threads