vc++ 调用dll 转换成delphi 比较程序差别(100分)

lanxy · 2006-07-27

#include "windows.h" #include <conio.h> #include <time.h> #include <stdio.h> enum { ESC = 0x1B }; /* 车牌识别模块库函数 */ typedef BOOL (__stdcall * CISDllInitFun)(void); typedef void (__stdcall * CISDllReleaseFun)(void); typedef BOOL (__stdcall * CISProcessFrameFun)(char*, int, int, int, int, char*); /* 图像读取模块库函数 */ typedef BOOL (__stdcall * CISLoadImageFun)(LPSTR); typedef void (__stdcall * CISGetImageFun)(char**, int*, int*, int*, int*); typedef void (__stdcall * CISImageDllReleaseFun)(void); int main(int argc, char* argv[]) { // 是否退出循环 BOOL bQuit = FALSE; // 起始时间 clock_t start; start = clock(); // 终止时间 clock_t stop; stop = clock(); // 时间差 double timeSpan; // 累计循环数 int ci = 20; // for calc frame rate // 最大累计数 double cmax = (double)ci; /*------------------------------------------------------------ *----------------- 图像读取部分 ------------------------ *-----------------------------------------------------------*/ // 图像数据指针 char* imageData = NULL; // 图像宽度 int width = 0; // 图像高度 int height = 0; // 图像深度 int depth = 0; // 图像通道数 int channels = 0; // 图像是否读取 BOOL bImageLoaded = FALSE; // 图像读取动态链接库句柄 HINSTANCE hImageDll; // 图像读取函数 CISLoadImageFun CISLoadImage; // 图像参数获取函数 CISGetImageFun CISGetImage; // 图像读取动态链接库释放函数 CISImageDllReleaseFun CISImageDllRelease; // 载入图像读取模块 hImageDll = LoadLibrary("D://MyCom//CISImageDll//Release//CISImage.dll&quot

; // 如果载入成功 if (hImageDll != NULL) { // 获得图像读取函数入口 CISLoadImage = (CISLoadImageFun)GetProcAddress(hImageDll,"CISLoadImage&quot

; // 获得图像参数获取函数入口 CISGetImage = (CISGetImageFun)GetProcAddress(hImageDll,"CISGetImage&quot

; // 获得图像读取动态链接库释放函数入口 CISImageDllRelease = (CISImageDllReleaseFun)GetProcAddress(hImageDll,"CISImageDllRelease&quot

; // 读取图像文件 bImageLoaded = CISLoadImage("512x384.jpg&quot

; //bImageLoaded = CISLoadImage("1024x768.jpg&quot

; // 720x288 为半场图像, 相应地需要修改 PlateConfigure.ini 中的参数 //bImageLoaded = CISLoadImage("720x288.jpg&quot

; // 如果成功 if (bImageLoaded) { // 获得图像参数 CISGetImage(&imageData, &width, &height, &depth, &channels); } } else { printf("The CISImage.dll can't be loaded, please check the path and name /n&quot

; return 0; } /*------------------------------------------------------------ *----------------- 车牌识别模块载入 ------------------- *-----------------------------------------------------------*/ // 车牌识别动态链接库句柄 HINSTANCE hPlateDll; // 车牌识别模块初始化函数 CISDllInitFun CISDllInit; // 车牌识别模块释放函数 CISDllReleaseFun CISDllRelease; // 车牌识别模块图像处理函数 CISProcessFrameFun CISProcessFrame; // 载入车牌识别模块 hPlateDll = LoadLibrary("D://MyCom//CubicPlateDll//Release//CubicPlate.dll&quot

; // 如果载入不成功 if (hPlateDll == NULL) { printf("The CubicPlate.dll can't be loaded, please check the path and name /n&quot

; return 0; } // 存放车牌识别字符 char pPlateChars[8]; // 是否发现车牌 BOOL bFindPlate = FALSE; // 获得识别模块初始化函数入口 CISDllInit = (CISDllInitFun)GetProcAddress(hPlateDll,"CISDllInit&quot

; // 获得识别模块释放函数入口 CISDllRelease = (CISDllReleaseFun)GetProcAddress(hPlateDll,"CISDllRelease&quot

; // 获得识别模块图像处理函数入口 CISProcessFrame = (CISProcessFrameFun)GetProcAddress(hPlateDll,"CISProcessFrame&quot

; // 如果车牌识别模块载入且图像已经读取，开始测试 if (hPlateDll != NULL && bImageLoaded) { // 识别模块初始化 BOOL bIniDll = CISDllInit(); /*--------------------------------------------------- *------------- 循环处理部分 ---------------------- *--------------------------------------------------*/ // 如果不退出 while( !bQuit) { // 如果有键盘输入 if( _kbhit() )//Non-blocking { // 得到键盘字符 char inputChar = _getch(); // 如果为ESC键 if(inputChar == ESC) { // 退出 bQuit = true; } } // 处理此帧图像 bFindPlate = CISProcessFrame(imageData, width, height, depth, channels, pPlateChars); // 显示识别结果并计算处理速度（帧率和每帧处理时间） // 由cmax的设置决定每隔多少循环输出结果 if (ci == (int)cmax) { // 如果发现车牌 if (bFindPlate) { // 输出识别结果 printf("%s /n",pPlateChars); } // 截至时间(以处理器时钟计) stop = clock(); // (stop - start)/CLK_TCK 从处理器时间转换为实际秒数 timeSpan = double(stop - start)/CLK_TCK; // 并显示处理速度（帧率和每帧处理时间） printf("Performance: %4.1f fps : %2.12f spf/n", 1.0/( timeSpan / cmax), timeSpan / cmax); // 开始时间(以处理器时钟计) start = clock(); ci = 0; } ci++; } /*------------------- 循环处理结束 ---------------------*/ } // 释放车牌识别模块 CISDllRelease(); // 释放图像读取模块 CISImageDllRelease(); // 释放车牌识别模块句柄 FreeLibrary(hPlateDll); // 释放图像读取模块句柄 FreeLibrary(hImageDll); return 0; }

lanxy · 2006-07-27

请高手写出vc++调用 dll 转换成delphi示例

lanxy · 2006-07-27

请大家讨论下，看看有多少种方法

lanxy · 2006-08-02

Module Module1    Public Declare Function GetCpuSpeed Lib "DLL2.dll" Alias "GetCpuSpeed" () As Integer    Public Declare Sub InitCommonControls Lib "comctl32.dll" Alias "InitCommonControls" ()    '车牌识别模块库函数    Public Declare Function CISDllInitFun Lib "CubicPlate.dll" Alias "CISDllInit" () As Boolean    Public Declare Sub CISDllReleaseFun Lib "CubicPlate.dll" Alias "CISDllRelease" ()    Public Declare Function CISProcessFrameFun Lib "CubicPlate.dll" Alias "CISProcessFrame" (ByVal a As IntPtr, ByVal b As Integer, ByVal Byvalc As Integer, ByVal d As Integer, ByVal e As Integer, ByRef f As Byte()) As Boolean    ' 图像读取模块库函数    Public Declare Auto Function CISLoadImageFun Lib "CISImage.dll" Alias "CISLoadImage" (ByRef LPSTR As String) As Long    Public Declare Sub CISGetImageFun Lib "CISImage.dll" Alias "CISGetImage" (ByRef p1 As IntPtr, ByRef p2 As Int32, ByRef p3 As Int32, ByRef p4 As Int32, ByRef p5 As Int32)    Public Declare Sub CISImageDllReleaseFun Lib "CISImage.dll" Alias "CISGetImage" ()    '定时器API    Public Declare Function QueryPerformanceFrequency Lib "kernel32" Alias "QueryPerformanceFrequency" (ByRef lpFrequency As Double) As Long    Public Declare Function QueryPerformanceCounter Lib "kernel32" Alias "QueryPerformanceCounter" (ByRef lpPerformanceCount As Double) As Long    '委托声明    Public Delegate Function CISLoadImageA(ByRef LPSTR As String) As Long    Public Delegate Sub CISGetImageA(ByRef p1 As IntPtr, ByRef p2 As Int32, ByRef p3 As Int32, ByRef p4 As Int32, ByRef p5 As Int32)    Public Delegate Sub CISImageDllReleaseA()    Public Delegate Function CISDllInitA() As Boolean    Public Delegate Sub CISDllReleaseA()    Public Delegate Function CISProcessFrameA(ByVal a As IntPtr, ByVal b As Integer, ByVal c As Integer, ByVal d As Integer, ByVal e As Integer, ByRef f As Byte()) As Boolean    Public Delegate Function QPFA(ByRef lpFrequency As Double) As Long    Public Delegate Function QPCA(ByRef lpPerformanceCount As Double) As Long    Sub Main()        Try            System.Console.Title = "Picture Proc"            'Dim GetCpuSpeedFun As New GetCpuSpeedA(AddressOf GetCpuSpeed)            'System.Console.WriteLine("CPU Speed is:" + GetCpuSpeedFun.Invoke().ToString)            Dim Ctr1, Ctr2, Freq As Double            Call SetHook()            Dim InStream As IO.TextReader = Console.In            Dim ci As Integer = 1000 '循环次数            Dim n As Long = 0            Dim imageData As IntPtr = 0            Dim channels As Integer = 0            Dim width As Integer = 0            Dim height As Integer = 0            Dim depth As Integer = 0            Dim bImageLoaded As Boolean = False            Dim bIniDll As Boolean = False            Dim hImageDll As Long = 0            Dim hPlateDll As Long = 0            Dim pPlateChars(8) As Byte            Dim bFindPlate As Boolean = False            Dim cmax As Double = 0            Dim KeyAscii As Integer = 0            Dim bQuit As Boolean = False            Dim CISLoadImage As New CISLoadImageA(AddressOf CISLoadImageFun)            Dim CISGetImage As New CISGetImageA(AddressOf CISGetImageFun)            Dim CISImageDllRelease As New CISImageDllReleaseA(AddressOf CISImageDllReleaseFun)            Dim nSpeed As Integer            nSpeed = GetCpuSpeed()            Global.System.Console.WriteLine(" cpu  speed is " & Str(nSpeed))                      bImageLoaded = CISLoadImage.Invoke("512x384.jpg&quot

If bImageLoaded = True Then                CISGetImage.Invoke(imageData, width, height, depth, channels)            End If            Dim CISDllInit As New CISDllInitA(AddressOf CISDllInitFun)            Dim CISDllRelease As New CISDllReleaseA(AddressOf CISDllReleaseFun)            Dim CISProcessFrame As New CISProcessFrameA(AddressOf CISProcessFrameFun)            If bImageLoaded = True Then                bIniDll = CISDllInit.Invoke            End If            Dim QPF As New QPFA(AddressOf QueryPerformanceFrequency)            Dim QPC As New QPCA(AddressOf QueryPerformanceCounter)            Dim Count As Long            Count = QPF.Invoke(Freq)            Count = QPC.Invoke(Ctr1)            SetHook()            While Not bQuit = True                bFindPlate = CISProcessFrame.Invoke(imageData, width, height, depth, channels, pPlateChars)                If bFindPlate = True Then                    Global.System.Console.WriteLine(pPlateChars)                End If                If n = ci Then                    Count = QPC.Invoke(Ctr2)                    System.Console.WriteLine("fps:" + Str(((Ctr2 - Ctr1) / Freq / n)))                    'bQuit = True                Else                    n = n + 1                End If                            End While            System.Console.WriteLine()        Catch ex As Exception            Global.System.Console.WriteLine(ex.Message)            Throw ex        End Try    End Sub End Module

lanxy · 2006-08-02

Module Module2    Public Declare Function GetCurrentThreadId Lib "kernel32" () As Integer    Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Integer, ByVal lpfn As HookProc, ByVal hmod As Integer, ByVal dwThreadId As Integer) As Integer    Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Integer) As Integer    Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Integer, ByVal nCode As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer    'Public Declare Function SetHookEx Lib "The Dynamic Linking Library.dll" Alias "SetHook" (ByVal iCode As Long, ByVal lpfn As HookProc) As Long    'Public Declare Function UnHookEx Lib "The Dynamic Linking Library.dll" Alias "UnHook" (ByVal HModule As Long) As Long    'Public Declare Function GetCpuSpeed Lib "DLL2.dll" () As Integer    Public Delegate Function HookProc(ByVal nCode As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer    Public Delegate Function GetCpuSpeedA() As Integer    Public Thread1 As New Threading.Thread(AddressOf SetHook)    Public hnexthookproc As Integer    Public Const PM_KEY_SPACE As Short = &H20S    Public Enum HookType        WH_KEYBOARD = 2    End Enum    Public Sub UnHook() '解Hook        If hnexthookproc <> 0 Then            UnhookWindowsHookEx(hnexthookproc)            hnexthookproc = 0        End If    End Sub    Public Sub SetHook() '设置Hook        If hnexthookproc <> 0 Then            Exit Sub        End If        hnexthookproc = SetWindowsHookEx(HookType.WH_KEYBOARD, AddressOf MyKeyboardProc, 0, GetCurrentThreadId)        'hnexthookproc = SetHookEx(HookType.WH_KEYBOARD, AddressOf MyKeyboardProc)    End Sub    Public Function MyKeyboardProc(ByVal nCode As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer        MyKeyboardProc = 0        If nCode < 0 Then            MyKeyboardProc = CallNextHookEx(hnexthookproc, nCode, wParam, lParam)            Exit Function        End If        If wParam = System.Windows.Forms.Keys.Down Then 'Please use the key you want to catch!            MyKeyboardProc = 1            '写入你自己的代码            Console.WriteLine("OK!&quot

End If    End Function    Public Sub SetHookEx()        Thread1.Start()    End Sub End Module vb榜完毕

kk2000 · 2006-08-02

我对vc++和vb都不是很了解! 帮不了什么.

tseug · 2006-08-02

里面没有特殊的东西，翻译起来并不复杂，是一个费力气的工作， 估计没有人愿意帮你转换，建议你还是自己转换吧，遇到问题可以给我发邮件 tseug@263.net

kk2000 · 2006-08-03

typedef BOOL (__stdcall * CISProcessFrameFun)(char*, int, int, int, int, char*);就上面这个来改写为delphi 的: type  TCISProcessFrameFun= function(P1: PChar; A, B, C, D: integer; P2: PChar): boolean; stdcall; 应该句是这样吧! 你试试看.

lanxy · 2006-08-14

问题已经解决，谢谢各位参与讨论！谢谢俺们的肖老师：欢迎程序爱好者参考。 最终正确版： unit test; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs,   StdCtrls,mmsystem; type  TForm1 = class(TForm)    Button1: TButton;    Button2: TButton;    Edit1: TEdit;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); type  //图象导入  TCISLoadImageFun = function(PImgName: PChar): Boolean; stdcall;  TCISGetImageFun  = procedure(PImageData: PChar;  Pwidth, Pheight, Pdepth, Pchannels: PInteger);stdcall;  TCISImageDllReleaseFun = procedure; stdcall; //车牌处理 CISDllInitFun  = function(): Boolean; stdcall; CISDllReleaseFun = procedure; stdcall; CISProcessFrameFun = function(PimageData: PChar;  width, height, depth, channels: Integer; pPlateChars

char ): Boolean;stdcall; var CISImageHandle: THandle; CubicPlateHandle: THandle;  //图片导入  CISGetImage: TCISGetImageFun; CISLoadImage: TCISLoadImageFun;  CISImageRelease: TCISImageDllReleaseFun; //车牌识别  CISDllInit:CISDllInitFun;  CISDllRelease:CISDllReleaseFun;  CISProcessFrame:CISProcessFrameFun; loadpic: Boolean; // 图像数据指针存放车牌识别字符  PimageData, pPlateChars : PChar;   //,pPlateChars   //pPlateChars:array[0..8] of pchar ;  //图像宽度  图像高度图像深度图像通道数  Pwidth,  pheight, Pdepth, Pchannels: PInteger; width,  height, depth, channels: Integer; //计时  //计时频率   c1:int64;  // 起始时间结束时间   t1,t2:int64;  //用去时间   r1:double;   xxs :   Boolean;   Tp,Tp2:TFarProc; begin  new(PimageData);  New(Pwidth);  New(pheight);  New(Pdepth);  New(Pchannels);  New(pPlateChars);    //申请内存保存车拍  getmem(pPlateChars, 8);  //计时开始    QueryPerformanceFrequency(c1);//WINDOWS API 返回计数频率(Intel86:1193180)(获得系统的高性能频率计数器在一毫秒内的震动次数)    QueryPerformanceCounter(t1);//WINDOWS API 获取开始计数值  //图片导入、  CISImageHandle := LoadLibrary('CISImage.dll');  if CISImageHandle > 0 then   try    Tp := GetProcAddress(CISImageHandle, PChar('CISLoadImage'));   CISLoadImage := TCISLoadImageFun(Tp);   @CISGetImage := GetProcAddress(CISImageHandle, PChar('CISGetImage'));   @CISImageRelease :=  GetProcAddress(CISImageHandle,PChar('CISImageDllRelease'));   if Tp <> nil  then // or (CISLoadImage = nil)   begin   loadpic := CISLoadImage('1024.jpg');   if loadpic then     CISGetImage(@PimageData, Pwidth,  Pheight,Pdepth, Pchannels);   ShowMessage(IntToStr(Pwidth^) + ':' + IntToStr(pheight^) + ':'  + IntToStr(Pdepth^) + ':' + IntToStr(Pchannels^));    //  width := Pwidth^;    //  height := Pheight^;      //depth  := Pdepth^;    //  channels := Pchannels^;    //车牌识别    CubicPlateHandle := LoadLibrary('CubicPlate.dll');    if  CubicPlateHandle <=0 then exit;      Tp2 := GetProcAddress(CubicPlateHandle, PChar('CISDllInit'));      CISDllInit := CISDllInitFun(Tp2);      @CISProcessFrame := GetProcAddress(CubicPlateHandle, PChar('CISProcessFrame'));       @CISDllRelease  := GetProcAddress(CubicPlateHandle, PChar('CISDllRelease'));   if Tp2 <> nil then      xxs :=CISDllInit()    else exit;      xxs :=CISProcessFrame(PimageData,Pwidth^, Pheight^, Pdepth^, Pchannels^,pPlateChars);     if xxs then      Edit1.Text := pPlateChars     else      Edit1.Text := '无法识别';   // 计时结束    QueryPerformanceCounter(t2);//获取结束计数值 //   r1:=(t2-t1)/c1*1000;//取得计时时间，单位毫秒(ms)    r1:=(t2-t1)/c1*1000000;//取得计时时间，单位微秒   // showmessage(floattostr(r1);   IntToStr(width) + ':' + IntToStr(height) + ':'      + IntToStr(depth) + ':' + IntToStr(channels)+':'+    ShowMessage( pPlateChars  +'  共用去时间'+floattostr(r1)+ '微秒');   end   else      ShowMessage( 'CISGetImage函数没有找到');    finally    if  CubicPlateHandle  >0 then    begin     CISDllRelease;     FreeLibrary(CubicPlateHandle);    end;     CISImageRelease;     FreeLibrary(CISImageHandle); // Dispose(PimageData); //    Dispose(Pwidth); //    Dispose(pheight); //    Dispose(Pdepth); //    Dispose(Pchannels);    freemem (pPlateChars);  end; end; procedure TForm1.Button2Click(Sender: TObject); begin close; end; end.

lanxy · 2006-08-14

多人接受答案了。

vc++ 调用dll 转换成delphi 比较程序差别(100分)

lanxy

Unregistered / Unconfirmed

lanxy

Unregistered / Unconfirmed

lanxy

Unregistered / Unconfirmed

lanxy

Unregistered / Unconfirmed

lanxy

Unregistered / Unconfirmed

kk2000

Unregistered / Unconfirmed

tseug

Unregistered / Unconfirmed

kk2000

Unregistered / Unconfirmed

lanxy

Unregistered / Unconfirmed

lanxy

Unregistered / Unconfirmed

Similar threads

vc++ 调用dll 转换 成delphi 比较程序差别(100分)

lanxy

Unregistered / Unconfirmed

lanxy

Unregistered / Unconfirmed

lanxy

Unregistered / Unconfirmed

lanxy

Unregistered / Unconfirmed

lanxy

Unregistered / Unconfirmed

kk2000

Unregistered / Unconfirmed

tseug

Unregistered / Unconfirmed

kk2000

Unregistered / Unconfirmed

lanxy

Unregistered / Unconfirmed

lanxy

Unregistered / Unconfirmed

Similar threads

vc++ 调用dll 转换成delphi 比较程序差别(100分)