求答：VC++转成DELPHI？？

Question

1 no matter
2 const CONTROL_CODE_BASE  = $895
3 {$ifdef ZUMPJDLL_EXPORTS}
...
{$else}
...
{$endif}
但是#define IMPORT32 _declspec(dllexport)没有办法.
4 const MPJ_RESET =-2;
5 const MPJ_LOGO_HEIGHT =2;
6 ???
7 不会
8 function CTL_CODE( DeviceType, Function, Method, Access ):integer;
 begin
  result := ((DeviceType) shl 16) or ((Access) shl 14) or ((Function) shl 2) or (Method) ) 
 end;
9 
type
  P_ZP_CCBufEntry = ^_ZP_CCBufEntry;
  _ZP_CCBufEntry = record
    Data: array[0..1] of LongWORD ;
    FieldType : LongWORD;
  end;
var
 ZP_CCBufEntry:_ZP_CCBufEntry;
 ZP_PCCBufEntry:P_ZP_CCBufEntry;

Answer 1

第七行是端口直接读写可以用嵌入式汇编
asm ....
这是一个视频采集卡程序吧，如果是可以用VCL两分钟就搞定视频采集系统而且不挑卡

Answer 2

getit911
是的，是端口直接读写，也是一个视频采集卡程序，
VCL两分钟就搞定视频采集系统而且不挑卡如何做?
E_mail to:[email protected]

Answer 3

估计getit911说的是videcap采集控件。那个控件使用Video For Windows进行采集，对于一般的应用还可以。可以去32Bit深度历险上搜索一下。
我用过那个控件，还可以。

Answer 4

Video For Windows我用了不行！

Answer 5

1 :把程序中所有IOCTL_ZP_SET_EVENT 换为 
CTL_CODE(ZK_MPJ_DRIVER,CONTROL_CODE_BASE+24,METHOD_OUT_DIRECT,FILE_ANY_ACCESS)
3 ：看看C程序中 有没有：
#define ZUMPJDLL_EXPORTS 
语句，如果有，把IMPORT32 替换为 _declspec(dllexport) ，否则替换为_declspec(dllimport)
（我认为应该是没有，即替换为_declspec(dllimport)）
8 ：我假设 DeviceType, Function, Method, Access都是整数：
function CTL_CODE( DeviceType, Function, Method, Access :integer):integer;
begin
  result := ((DeviceType) shl 16) or ((Access) shl 14) or ((Function) shl 2) or (Method) ) 
end;
7 实际是导入DLL中函数
function MPJ_GetCaptureConfig(
  SlotNum : LONGWORD,
  ValuesArray : MPJ_CaptureConfigValues):integer; stdcall;
function MPJ_GetCaptureConfig; external you_dll_name name 'MPJ_GetCaptureConfig';

Answer 6

再求教？
另windindance(风之舞)请到“windindance(风之舞)　来拿分！[Delphi]”的帖子中拿分！

Answer 7

再求教？
另windindance(风之舞)请到“windindance(风之舞)　来拿分！[Delphi]”的帖子中拿分！