关于DLL调用及Vod开发的问题!(800分)(80分)

snqy · 2004-02-28

假定Dll名称:winvod.dll 已知头文件信息: /******************************************************************************* * *   COPYRIGHT   :   (c) 1995-1996 Sigma Designs, Inc. All rights reserved. * *   FILENAME    :   FMPMacs.h * *   DESCRIPTION :   This header file contains FMP specific macros that provide *                   for an easier interface to sending FMP calls to the FMP *                   MPEG support driver. * *   PLATFORM    :   DOS, Windows * *   PROGRAMMER  :   ECY * *   COMMENTS    :   NONE * *   NOTES       :   NONE * *   CHANGES     : *   08/10/95    -   Created. *    (ECY) * *******************************************************************************/ #ifndef __FMPMACS_H__ #define __FMPMACS_H__ #define FMPOpen( Flags, Filename ) /     LOBYTE( LOWORD( FMPCommand( FMP_OPEN, 0, Flags, Filename ) ) ) #define FMPClose( hMPEGStream ) /     FMPCommand( FMP_CLOSE, hMPEGStream, 0, 0 ) #define FMPSet( hMPEGStream, Index, Value ) /     FMPCommand( FMP_SET, hMPEGStream, Index, Value ) #define FMPGet( hMPEGStream, Index ) /     FMPCommand( FMP_GET, hMPEGStream, Index, 0 ) #define FMPPlay( hMPEGStream, Flags, Position ) /     FMPCommand( FMP_PLAY, hMPEGStream, Flags, Position ) #define FMPStep( hMPEGStream, Flags, Position ) /     FMPCommand( FMP_STEP, hMPEGStream, Flags, Position ) #define FMPCapture( hMPEGStream, Index, Position ) /     FMPCommand( FMP_CAPTURE, hMPEGStream, Index, Position ) #define FMPSeek( hMPEGStream, Flags, Position ) /     FMPCommand( FMP_SEEK, hMPEGStream, Flags, Position ) #define FMPSignal( hMPEGStream, Flags, Position ) /     FMPCommand( FMP_SIGNAL, hMPEGStream, Flags, Position ) #define FMPPause( hMPEGStream ) /     FMPCommand( FMP_PAUSE, hMPEGStream, 0, 0 ) #define FMPStop( hMPEGStream ) /     FMPCommand( FMP_STOP, hMPEGStream, 0, 0 ) #define FMPGroup( hMPEGStream, Flags, Value ) /     FMPCommand( FMP_GROUP, hMPEGStream, Flags, Value ) #define FMPCallback( hMPEGStream, Value ) /     FMPCommand( FMP_CALLBACK, hMPEGStream, FMPF_C, Value ) #define FMPUnload() /     FMPCommand( FMP_UNLOAD, 0, 0, 0 ) #define FMPInit() /     FMPCommand( FMP_INIT, 0, 0, 0 ) #define FMPFreeze( hMPEGStream, Flags, Value ) /     FMPCommand( FMP_FREEZE, hMPEGStream, Flags, Value ) #define FMPUpdate(subfunc,param1,param2) /     FMPCommand(FMP_UPDATE,subfunc,param1,param2) #define FMPUpdatePalette( PaletteIndex, nColors ) /     FMPCommand( FMP_UPDATE, FMPI_UPD_PALETTE, 0, MAKEDWORD( nColors, PaletteIndex ) ) #define FMPUpdateVGAMode( Bits, Mode ) /     FMPCommand( FMP_UPDATE, FMPI_UPD_VGA_MODE, Bits, Mode ) #endif  /* __FMPMACS_H__ */ 在Delphi中如何调用相关接口? 参考材料: [ Delphi中动态链接库两种调用方式的比较(1 2 3) ]　 摘要：本文阐述了Windows环境下动态链接库的概念和特点，对静态调用和动态调用两种调用方式作出了比较，并给出了Delphi中应用动态链接库的实例。 　　一、动态链接库的概念 　　动态链接库（Dynamic Link Library，缩写为DLL）是一个可以被其它应用程序共享的程序模块，其中封装了一些可以被共享的例程和资源。动态链接库文件的扩展名一般是dll，也有可能是drv、sys和fon，它和可执行文件（exe）非常类似，区别在于DLL中虽然包含了可执行代码却不能单独执行，而应由Windows应用程序直接或间接调用。 　　动态链接是相对于静态链接而言的。所谓静态链接是指把要调用的函数或者过程链接到可执行文件中，成为可执行文件的一部分。换句话说，函数和过程的代码就在程序的exe文件中，该文件包含了运行时所需的全部代码。当多个程序都调用相同函数时，内存中就会存在这个函数的多个拷贝，这样就浪费了宝贵的内存资源。而动态链接所调用的函数代码并没有被拷贝到应用程序的可执行文件中去，而是仅仅在其中加入了所调用函数的描述信息（往往是一些重定位信息）。仅当应用程序被装入内存开始运行时，在Windows的管理下，才在应用程序与相应的DLL之间建立链接关系。当要执行所调用DLL中的函数时，根据链接产生的重定位信息，Windows才转去执行DLL中相应的函数代码。 　　一般情况下，如果一个应用程序使用了动态链接库，Win32系统保证内存中只有DLL的一份复制品，这是通过内存映射文件实现的。DLL首先被调入Win32系统的全局堆栈，然后映射到调用这个DLL的进程地址空间。在Win32系统中，每个进程拥有自己的32位线性地址空间，如果一个DLL被多个进程调用，每个进程都会收到该DLL的一份映像。与16位Windows不同，在Win32中DLL可以看作是每个进程自己的代码。 　　二、动态链接库的优点 　　1．共享代码、资源和数据 　　　使用DLL的主要目的就是为了共享代码，DLL的代码可以被所有的Windows应用程序共享。 　　2．隐藏实现的细节 　　　DLL中的例程可以被应用程序访问，而应用程序并不知道这些例程的细节。 　　3．拓展开发工具如Delphi的功能 　　由于DLL是与语言无关的，因此可以创建一个DLL，被C++、VB或任何支持动态链接库的语言调用。这样如果一种语言存在不足，就可以通过访问另一种语言创建的DLL来弥补。 　　三、动态链接库的实现方法 　　1． Load-time Dynamic Linking 　　这种用法的前提是在编译之前已经明确知道要调用DLL中的哪几个函数，编译时在目标文件中只保留必要的链接信息，而不含DLL函数的代码；当程序执行时，利用链接信息加载DLL函数代码并在内存中将其链接入调用程序的执行空间中，其主要目的是便于代码共享。 　　2． Run-time Dynamic Linking 　　这种方式是指在编译之前并不知道将会调用哪些DLL函数，完全是在运行过程中根据需要决定应调用哪个函数，并用LoadLibrary和GetProcAddress动态获得DLL函数的入口地址。 ------------------------------------ 四、DLL的两种调用方式在Delphi中的比较 　　编写DLL的目的是为了输出例程供其他程序调用，因此在DLL的工程文件中要把输出的例程用Exports关键字引出。在调用DLL的应用程序中，需要声明用到的DLL中的方法，声明格式要和DLL中的声明一样。访问DLL中的例程有静态调用和动态调用两种方式。静态调用方式就是在单元的Interface部分用External指示字列出要从DLL中引入的例程；动态调用方式就是通过调用Windows的API包括LoadLibrary函数、GetProcAddress函数以及FreeLibrary函数动态的引入DLL中的例程。 　　静态调用方式所需的代码较动态调用方式所需的少，但存在着一些不足，一是如果要加载的DLL不存在或者DLL中没有要引入的例程，这时候程序就自动终止运行；二是DLL一旦加载就一直驻留在应用程序的地址空间，即使DLL已不再需要了。动态调用方式就可解决以上问题，它在需要用到DLL的时候才通过LoadLibrary函数引入，用完后通过FreeLibrary函数从内存中卸载，而且通过调GetProcAddress函数可以指定不同的例程。最重要的是，如果指定的DLL出错，至多是API调用失败，不会导致程序终止。以下将通过具体的实例说明说明这调用方式的使用方法。 　　1．静态调用方式 　　示例程序创建了一个DLL，其中仅包含一个求两个整数的和的函数，在主程序中输入两个整数，通过调用该DLL，即可求出两个整数的和，如图1所示。 　　　　　图1 DLL的静态调用 　　该DLL的程序代码如下： library AddNum; uses SysUtils, Classes; {$R *.res} function AddNumber(Num1,Num2:integer):integer;stdcall; //定义求和函数 　begin 　　result:=Num1+Num2; 　end; 　　exports 　　AddNumber; //引出求和函数 　begin end. 　　主程序在调用该DLL时，首先在interface部分声明要调用的函数： function AddNum(Num1,Num2:integer):integer;stdcall;external 'AddNum.dll' name 'AddNumber'; 　　然后在按钮控件的事件中写入如下代码： procedure TForm1.Button1Click(Sender: TObject); var 　Number1,Number2:integer; 　Sum:integer; begin 　Number1:=strtoint(Edit1.Text); 　Number2:=strtoint(Edit2.Text); 　Sum:=AddNum(Number1,Number2); //调用求和函数计算结果 　Edit3.Text:=inttostr(Sum); end; -------------------------------- 2．动态调用方式 　　这个示例程序创建了一个显示日期的DLL，其中包含一个窗体，如图2所示。 　　　　　图2 DLL的动态调用 　　程序中定义了一个ShowCalendar函数，返回在这个窗体中设定的日期。函数定义如下： function ShowCalendar(AHandle: THandle; ACaption: String): TDateTime; var 　DLLForm: TDLLForm; begin 　Application.Handle := AHandle; 　DLLForm := TDLLForm.Create(Application); //创建并显示窗体 　try 　　DLLForm.Caption := ACaption; 　　DLLForm.ShowModal; //显示方式为模式化 　　Result := DLLForm.calDLLCalendar.CalendarDate; //返回设定日期 　finally 　　DLLForm.Free; //用完后卸载该窗体 　end; end; 　　在DLL的工程文件中用exports ShowCalendar; 语句引出该函数。下面通过一个简单的应用程序测试一下该DLL文件。新建一个工程文件，在窗体中放置一个Label控件和一个按钮控件，在按钮控件的OnClick事件中编写如下代码： procedure TMainForm.Button1Click(Sender: TObject); var 　OneHandle : THandle; //定义一个句柄变量 begin 　OneHandle := LoadLibrary('Clendar.dll'); //动态载入DLL，并返回其句柄 　try 　　if OneHandle <> 0 then //如果载入成功则获取ShowCalendar函数的地址 　　　@ShowCalendar := GetProcAddress(OneHandle, 'ShowCalendar'); 　　　if not (@ShowCalendar = nil) then 　　　　//如果找到该函数则在主窗体的Label1中显示DLL窗体中设定的日期 　　　　Label1.Caption := DateToStr(ShowCalendar(Application.Handle, Caption)) 　　　else 　　　　RaiseLastWin32Error; 　finally 　　FreeLibrary(OneHandle); //调用完毕收回DLL占用的资源 　end; end; 　　从以上程序中可以看到DLL的动态调用方式比静态调用方式的优越之处。DLL例程在用到时才被调入，用完后就被卸载，大大减少了系统资源的占用。在调用LoadLibrary函数时可以明确指定DLL的完整路径，如果没有指定路径，运行时首先查找应用程序载入的目录，然后是Windows系统的System目录和环境变量Path设定的路径。 　　五、结束语 　　由于动态链接库可以实现代码和资源的共享，大大减少系统资源的占用，因此在当今的应用程序开发中起着非常重要的作用。Delphi是现今流行的应用软件开发工具，本文就如何在Delphi中使用动态链接库给出了一定程度上的阐述。   Delphi中如何调用VC++创建的动态链接库 肖运勇   01-10-29 下午 02:06:09 --------------------------------------------------------------------------------   Delphi以其独特的面向控件的开发方式、强大的数据库功能、快速的编译技术以及简单易学的编程特性,使得它自发布之日起即格外引人注目，许多程序员也因此将它作为首选的开发工具。然而，Delphi在科学计算、低端编程等方面的功能不如VC++。VC++功能强大、齐全，但是整个系统比较复杂、庞大，尤其对于初学者来说比较难学，其用户界面的开发远不如Delphi那样方便、快捷。那么，我们能否将两者的优点结合起来呢？答案是肯定的！具体做法是：将涉及到比较低级的操作、计算等方面的程序用VC++写成函数放在动态链接库中，而涉及到界面及与用户交互的编程则用Delphi来实现，最后只需在Delphi中调用VC++编写的动态链接库即可。 一、动态链接库简介 动态链接库（DLL,即 “Dynamic-Link Library”）是一个能够被应用程序和其它的DLL调用的过程和函数的集合体，它里面包含的是公共代码或资源。DLL是Windows的基石，所有的Win32 API函数都包含在DLL中。 使用DLL有许多优点：   1、一个DLL可以提供给不同的程序使用，如果有多个程序使用相同的DLL，也只需将DLL在内存中装载一次，这样就节省了内存开销。 2、DLL可以使我们的编程更加模块化，将功能相对独立的模块编成一个动态链接库，这样改动程序时不需将整个程序重新编译，只需重新编译所改动的模块。   3、使用了DLL组件包可以大大减小可执行文件的规模。   4、对于一个大型的、不断更新的应用程序，可以将许多重复的功能写成DLL，用主程序调用，这样既减少了开发的工作量，又提高了访问速度。   5、DLL独立于编程语言，大多数WINDOWS编程环境都允许主程序调用DLL中的函数。即可以用VC++、VB、PowerBuilder、Delphi、汇编语言等建立DLL，然后在不同语言编制的应用程序中调用它。这样就给多人使用不同的编程语言开发项目提供了极大的方便。   二、在Delphi中调用VC++创建的动态链接库的实例 （一）实验环境 本实例的编程工具及运行环境为：Windows 98，VC++6.0，Delphi 5.0　。 （二）实验内容 1．用VC++6.0建立一个动态链接库MaxMin.DLL，该库中包含有两个函数：返回三个整数中最大整数的函数Max1( )和返回三个整数中最小整数的函数Min1( )。 2．用Delphi编写测试程序调用动态链接库MaxMin.DLL中的两个函数。 （三）实验步骤 1．用VC++6.0建立动态链接库MaxMin.DLL 第一步：启动VC++6.0，选择“File/New/MFC AppWizzard(Dll)”,工程名设为“MaxMin”，按“确定”钮后，选择“Regular DLL Using shared MFC DLL”,按“Finish”钮后，即创造了一个DLL的框架工程。 第二步：选择“File/New”,在出现的对话框中选择“C/C++ Header File”，在文件名处输入“MyDLL”,按“确定”钮，即创建了一个空的头文件“MyDLL.h”。在该文件中输入以下两行内容： extern "C" _declspec(dllexport) int Min1(int x,int y,int z); extern "C" _declspec(dllexport) int Max1(int x,int y,int z); 选择“File/Save”保存该文件的内容。 第三步：选择“File/New”,在出现的对话框中选择“C/C++ Source File”，在文件名处输入“MyDLL”,按“确定”钮，即创建了一个空的源文件“MyDLL.cpp”。在该文件中输入以下内容： #include "stdafx.h" #include "MyDll.h" extern "C" __declspec(dllexport) int Min1(int x,int y,int z) { if ((x<=y) & (x<=z)) return x; else if ((y<=x) & (y<=z)) return y; else return z; /*找出x，y，z中的最小整数*/ }   extern "C" __declspec(dllexport) int Max1(int x,int y,int z) { if ((x>=y) & (x>=z)) return x; else if ((y>=x) & (y>=z)) return y; else return z; /*找出x，y，z中的最大整数*/ } 选择“File/Save”保存该文件的内容。 第四步：按下运行图标“！”，即生成了MyDLL.DLL（在当前工程目录的DEBUG子目录下）。   2．用Delphi编写调用MaxMin.DLL的测试程序 调用动态链接库有两种方法，即隐式调用和显式调用。 （1）隐式调用 第一步：启动Delphi，选择“New Application”，生成一个空的应用程序，在Form的“Name”属性处输入“TestVcDLLForm”，Caption属性处输入“VC++的DLL隐式调用测试”，在Form中放入控件如表1所示（其中所有的Edit控件的“Text”属性均设为空）：   （表1：所用到的控件及其属性）     （图1：应用程序屏幕效果）   最后设计的Form的屏幕效果如图1所示。选择“File/Save all”，在“Save unit1 as”对话框中将源文件名设为“main.pas”，按“保存”钮；在“Save Project1 as”对话框中将工程名设为“TestVcDLL”，按“保存”钮。 第二步：选择“File/New…”，在出现的“New Item”对话框中选择“unit”,按“OK”钮，生成一个空的源文件，在该文件中输入以下内容： unit MaxMin;   interface function Min1(x,y,z:Integer):Integer; stdcall; function Max1(x,y,z:Integer):Integer; stdcall;   implementation function Min1;external 'MaxMin.DLL' name 'Min1'; function Max1;external Max'Min.DLL' name 'Max1'; end. 选择“File/Save As…”,将上述文件存为“MaxMin.pas”。 第三步：在Main.pas文件中，在“implementation”语句后加入： uses MaxMin; 第四步：在Form上双击“运行”按钮对该按钮的“Click”事件编程，代码如下： procedure TTestVcDLLForm.btnRunClick(Sender: TObject); begin edtMax.Text:=IntToStr(Max1(StrToInt(edtInt1.Text), StrToInt(edtInt2.Text),StrToInt(edtInt3.Text))); //调用动态链接库中的函数Max1 edtMin.Text:=IntToStr(Min1(StrToInt(edtInt1.Text), StrToInt(edtInt2.Text),StrToInt(edtInt3.Text))); //调用动态链接库中的函数Min1 end; 保存该文件。 第五步：将上述1.中VC++6所建立的动态链接库“MaxMin.DLL”拷入Delphi的当前工作目录中。 第六步：运行。结果如图2所示。     图2：隐式调用DLL运行结果       图3：显式调用DLL运行结果   （2）显示调用 第一步：同隐式调用。只是将Form的“Caption”属性改为“VC++的DLL显式调用测试”。 第二步：选择“File/New…”，在出现的“New Item”对话框中选择“unit”,按“OK”钮，生成一个空的源文件，在该文件中输入以下内容： unit Unit1;   interface   type TMin1=function(x,y,z:Integer):Integer; stdcall; TMax1=function(x,y,z:Integer):Integer; stdcall; THandle=Integer;   implementation   end. 选择“File/Save As…”,将上述文件存为“MaxMin.pas”。 第三步：在Main.pas文件中，在“implementation”语句后加入： uses MaxMin; 第四步：在Form上双击“运行”按钮对该按钮的“Click”事件编程，代码如下： procedure TTestVcDLLForm.btnRunClick(Sender: TObject); var Handle:THandle; Min1:TMin1; Max1:TMax1; begin Handle:=LoadLibrary('MaxMin.dll'); //将“MaxMin.dll”的文件映象映射进调用进程的地址空间 if Handle<>0 then begin @Min1:=GetProcAddress(Handle,'Min1'); //取得DLL中函数Min1( )的地址 @Max1:=GetProcAddress(Handle,'Max1'); //取得DLL中函数Max1( )的地址 if (@Min1<>nil) and (@Min1<>nil) then begin edtMin.Text:=IntToStr(Min1(StrToInt(edtInt1.Text), StrToInt(edtInt2.Text),StrToInt(edtInt3.Text))); //调用动态链接库中的函数Min1 edtMax.Text:=IntToStr(Max1(StrToInt(edtInt1.Text), StrToInt(edtInt2.Text),StrToInt(edtInt3.Text))); //调用动态链接库中的函数Max1 end else ShowMessage('调用函数“GetProcAddress”时出错！'); FreeLibrary(Handle); //从进程的地址空间中解除“MaxMin.dll”文件的映射 end; end; 保存该文件。 第五步：将上述1.中VC++6所建立的动态链接库“MaxMin.DLL”拷入Delphi的当前工作目录中。 第六步：运行。结果如图3所示。   以上实例均编译通过，运行正确。   三、结束语   动态链接库为不同编程环境下的应用程序之间的连接提供了方便，节省了内存，提高了速度，同时也丰富了PowerScript语言的编程能力。动态链接库是Windows下程序组织的一种重要方式，使用动态链接库可以极大地保护用户在不同开发工具、不同时期所做的工作；利用动态链接库，用户可以逐步去构筑自己的程序模块库，为今后的工作积累素材。

qince · 2004-02-28

为何要写成DLL呢，开发神龙卡，直接写到PAS中就可以了。

snqy · 2004-02-28

为何要写成DLL呢，开发神龙卡，直接写到PAS中就可以了。 能详细点说明吗?

qince · 2004-02-28

你可以直接将神龙卡API翻译成DELPHI，写到PAS中呀 大富翁上已经有翻译过的API了，偶贴给你： http://www.delphibbs.com/delphibbs/dispq.asp?lid=2388405（神龙卡回调函数） http://www.delphifans.com/down_view.asp?id=476（神龙卡API）

snqy · 2004-02-28

谢谢!可以直接把http://www.delphifans.com/down_view.asp?id=476（神龙卡API） Email:softdiy@21cn.com

qince · 2004-02-28

OK,MAIL已发，请查收。[

]

qince · 2004-02-28

偶发的心竟然被退回来了！ This message is generated by COREMAIL email system. I'm sorry to have to inform you that the message returned The message to softdiy@21cn.com is bounced because : SMTP error, DOT: 553 Mail data refused by AISP, rule [1661492]. 你发送到softdiy@21cn.com的邮件由于以下原因被退回 : SMTP error, DOT: 553 Mail data refused by AISP, rule [1661492]. 算了，直接贴出来吧： ----------------------------------------------------------------------------- unit FMPdefs; interface   uses Windows, mmSystem; {-------------------------  FMP Commands  ---------------------} const FMP_OPEN               =  $01; const FMP_CLOSE              =  $02; const FMP_PLAY               =  $03; const FMP_PAUSE              =  $04; const FMP_STOP               =  $05; const FMP_SEEK               =  $06; const FMP_STEP               =  $07; const FMP_GROUP              =  $08; const FMP_SET                =  $09; const FMP_GET                =  $0A; const FMP_CALLBACK           =  $0B; const FMP_SIGNAL             =  $0C; const FMP_UNLOAD             =  $0D; const FMP_INIT               =  $0E; const FMP_CAPTURE            =  $0F; const FMP_UPDATE             =  $10; const FMP_FREEZE             =  $12; {-------------------------  FMP Errors  ---------------------} const FMPE_DOS               =  $0100; const FMPE_INVALID_FLAGS     =  $0200; const FMPE_HANDLE            =  $0300; const FMPE_NOT_IMPLEMENT     =  $0400; const FMPE_INVALID_CMD       =  $0500; const FMPE_OUT_OF_MEM        =  $0600; const FMPE_INDEX             =  $0700; const FMPE_TYPE              =  $0800; const FMPE_WRITE             =  $0900; const FMPE_TOO_MANY          =  $0A00; const FMPE_ITEM_INDEX        =  $0B00; const FMPE_ITEM_HANDLE       =  $0C00; const FMPE_ERROR             =  $0D00; const FMPE_STREAM_DATA       =  $0E00; const FMPE_NOT_CDXA_DRV      =  $0F00; const FMPE_HARDWARE          =  $1000; const FMPE_NA                =  $1100; const FMPE_VALUE             =  $1200; const FMPE_TIME_FMT          =  $1300; const FMPE_NOT_READY         =  $1400; const FMPE_POS     =  $1500; const FMPE_REFUSE     = $1600; const FMPE_INVALID_INDEX     =  $1700; {-------------------------  FMP Messages  ---------------------} const FMPM_BUF_POS           =  $01; const FMPM_BUF_EMPTY         =  $02; const FMPM_BUF_SEEK          =  $03; const FMPM_BUF_CREATE        =  $04; const FMPM_BUF_CLOSE         =  $05; const FMPM_BUF_TOTALSIZE     =  $06; const FMPM_COMPLETED         =  $07; const FMPM_CANCELED          =  $08; const FMPM_ERROR             =  $09; const FMPM_MEM_ALLOC         =  $0A; const FMPM_MEM_FREE          =  $0B; const FMPM_SIGNAL            =  $0C; const FMPM_FIFO_START     =  $0D; const FMPM_FIFO_LOW     =  $0E; const FMPM_FIFO_HIGH     =  $0F; const FMPM_FIFO_DROP     =  $10; const FMPM_PUSH_READ     =  $11; const FMPM_PUSH_SEEK     =  $12; const FMPM_PUSH_CREATE     =  $13; {-------------------------  FMP Flags  ---------------------} const FMPF_BUF_LOW           =  $00000000; const FMPF_BUF_EMS           =  $00010000; const FMPF_BUF_XMS           =  $00020000; const FMPF_PASCAL            =  $1000; const FMPF_C                 =  $2000; const FMPF_TEST              =  $8000; const FMPF_INSERT            =  $0001; const FMPF_REMOVE            =  $0002; const FMPF_GET               =  $0003; const FMPF_SELECT            =  $0004; const FMPF_UNSELECT          =  $0005; const FMPF_HANDLE            =  $0000; const FMPF_INDEX             =  $0020; const FMPF_FILE              =  $0001; const FMPF_BUFFERS           =  $0002; const FMPF_GROUP             =  $0003; const FMPF_BROADCAST     =  $0004; const FMPF_EXTEND            =  $0010; const FMPF_NOACCESS          =  $0100; const FMPF_UNKNOWN           =  $0000; const FMPF_AUDIO             =  $0001; const FMPF_VIDEO             =  $0002; const FMPF_POS_START         =  $0100; const FMPF_POS_SET           =  $0200; const FMPF_POS_END           =  $0300; const FMPF_POS_CUR           =  $0400; const FMPF_DONT_UPDATE       =  $1000; const FMPF_UPDATE_ALL        =  $2000; const FMPF_SIG_AT            =  $0001; const FMPF_SIG_EVERY         =  $0002; const FMPF_SIG_REMOVE        =  $0003; const FMPF_SIG_REMOVE_AT     =  $0004; const FMPF_SIG_REMOVE_ALL    =  $0005; const FMPE_HRD               =  $2000; const FMPE_HRD_NO_DMA        =  $2100; const FMPE_HRD_NO_INT        =  $2200; const FMPE_HRD_NO_PORT       =  $2300; const FMPE_HRD_NOT_FOUND     =  $2400; const FMPE_HRD_DONT_USE      =  $2500; const FMPF_END_STOP          =  $0000; const FMPF_END_PAUSE         =  $0001; const FMPF_END_KEEP          =  $0002; const FMPF_END_REPEAT        =  $0004; const FMPF_END_CLOSE         =  $0005; const FMPF_PAUSED            =  $0001; const FMPF_STOPPED           =  $0002; const FMPF_PLAYING           =  $0004; const FMPF_SEEKING           =  $0008; const FMPF_STEPPING          =  $0010; const FMPF_CLOSED            =  $0020; const FMPF_READY             = (FMPF_PAUSED or FMPF_STOPPED); const FMPF_BYTES             =  $0001; const FMPF_SAMPLES           =  $0002; const FMPF_MSEC              =  $0003; const FMPF_HMSF              =  $0004; const FMPF_HMSC              =  $0005; const FMPF_FRAMES            =  FMPF_SAMPLES; const FMPF_TIME              =  FMPF_HMSC; const FMPF_SMPTE             =  FMPF_HMSF; const FMPF_BUF_32_BITS       =  $0001; const FMPF_BUF_LOOP          =  $0002; const FMPF_VID_UNKNOWN       =  $0000; const FMPF_VID_MPEG          =  $0001; const FMPF_VID_AVI           =  $0002; const FMPF_VID_MPEG2         =  $0004; const FMPF_ALL_VGA           =  $0001; const FMPF_ALL_VID           =  $0002; const FMPF_KEY_VGA           =  $0004; const FMPF_KEY_VID           =  $0008; const FMPF_KEY_MIX           =  $000C; const FMPF_KEY_CALIBRATE     =  $000D; const FMPF_AUD_UNKNOWN       =  $0000; const FMPF_AUD_MPEG          =  $0001; const FMPF_AUD_MPEG_L1       =  $0002; const FMPF_AUD_MPEG_L2       =  $0004; const FMPF_AUD_MPEG_L3       =  $0008; const FMPF_AUD_MPEG2         =  $0010; const FMPF_AUD_MPEG2_L1      =  $0020; const FMPF_AUD_MPEG2_L2      =  $0040; const FMPF_AUD_MPEG2_L3      =  $0080; const FMPF_AUD_DOLBY_AC3     =  $0100; const FMPF_AUD_WAVE          =  $0010; const FMPF_AUD_VOC           =  $0020; const FMPF_AUD_PCM           =  $0040; const FMPF_AUD_ADPCM         =  $0080; const FMPF_AUD_STEREO        =  $0001; const FMPF_AUD_JSTEREO       =  $0002; const FMPF_AUD_DUAL          =  $0003; const FMPF_AUD_SINGLE        =  $0004; const FMPF_AUD_11     =  $0000; const FMPF_AUD_10            =  $0001; const FMPF_AUD_20            =  $0002; const FMPF_AUD_30            =  $0003; const FMPF_AUD_21            =  $0004; const FMPF_AUD_31            =  $0005; const FMPF_AUD_22            =  $0006; const FMPF_AUD_32            =  $0007; const FMPF_AUD_NO_EMPH       =  $0001; const FMPF_AUD_EMPH_50       =  $0002; const FMPF_AUD_EMPH_J17      =  $0003; const FMPF_AUD_COPYRIGHT     =  $0001; const FMPF_AUD_ORIGINAL      =  $0002; const FMPF_GRP_UNKNOWN       =  $0000; const FMPF_GRP_MPEG          =  $0001; const FMPF_GRP_AVI           =  $0002; const FMPF_GRP_CUSTOM        =  $0004; const FMPF_GRP_MPEG2_PROGRAM =  $0008; const FMPF_GRP_MPEG2_TRANSPORT  =  $0010; const FMPF_PIC_BMP           =  $0001; const FMPF_PIC_DIB24         =  $0002; const FMPF_PIC_TOFILE        =  $0004; const FMPF_REFUSE     = $0001; const FMPF_IGNORE     = $0002; {-------------------------  FMP Index  ---------------------} const FMPI_DRV_PRODUCT       =  $0101; const FMPI_DRV_VERSION       =  $0102; const FMPI_DRV_MAX_CHAN      =  $0103; const FMPI_DRV_VID_SUP       =  $0104; const FMPI_DRV_AUD_SUP       =  $0105; const FMPI_DRV_GRP_SUP       =  $0106; const FMPI_DRV_HDR_STAT      =  $0107; const FMPI_DRV_MEMORY        =  $0108; const FMPI_DRV_ID     =  $0109; const FMPI_DRV_CAPABILITY    = $010A; const FMPI_STM_TYPE          =  $0202; const FMPI_STM_SOURCE        =  $0203; const FMPI_STM_MODE          =  $0204; const FMPI_STM_TIME_FMT      =  $0205; const FMPI_STM_POSITION      =  $0206; const FMPI_STM_SPEED         =  $0207; const FMPI_STM_USER          =  $0208; const FMPI_STM_SIZE          =  $0209; const FMPI_STM_SLIDE         =  $020A; const FMPI_STM_PASSWD        =  $0210; const FMPI_STM_FILETYPE      =  $0211; const FMPI_STM_MEMFLAGS      =  $0212; const FMPI_STM_FILESIZE      =  $0213; const FMPI_STM_FILEORG       =  $0214; const FMPI_STM_BIT_RATE     = $0215; const FMPI_STM_NOCACHE     = $0216; const FMPI_BUF_LEFT          =  $0301; const FMPI_BUF_POS           =  $0302; const FMPI_BUF_ADDRESS       =  $0303; const FMPI_BUF_SIZE          =  $0304; const FMPI_BUF_MODE          =  $0305; const FMPI_BUF_TOTALSIZE     =  $0306; const FMPI_VID_TYPE          =  $0401; const FMPI_VID_RATE          =  $0402; const FMPI_VID_SIZE          =  $0403; const FMPI_VID_ASPECT        =  $0404; const FMPI_VID_BIT_RATE      =  $0405; const FMPI_VID_SRC_POS       =  $0406; const FMPI_VID_SRC_SIZE      =  $0407; const FMPI_VID_DEST_POS      =  $0408; const FMPI_VID_DEST_SIZE     =  $0409; const FMPI_VID_KEY_MIN       =  $040A; const FMPI_VID_KEY_MAX       =  $040B; const FMPI_VID_KEY_MASK      =  $040C; const FMPI_VID_KEY_COL       =  $040D; const FMPI_VID_KEY_MODE      =  $040E; const FMPI_VID_KEY_TYPE      =  $040F; const FMPI_VID_CONTRAST     = $0410; const FMPI_VID_BRIGHTNESS    = $0411; const FMPI_VID_SATURATION    = $0412; const FMPI_VID_SLIDE     = $0420; const FMPI_VID_HWND     = $0413; const FMPI_VID_KEY_COL_INDEX =  $0414; const FMPI_VID_TV     =  $041b; const FMPI_VID_DEFAULTS     =  $1000; const FMPI_VID_REGISTRY     = $2000; const FMPI_AUD_TYPE          =  $0501; const FMPI_AUD_RATE          =  $0502; const FMPI_AUD_VOLUME        =  $0503; const FMPI_AUD_BIT_RATE      =  $0504; const FMPI_AUD_TREBLE        =  $0505; const FMPI_AUD_BASS          =  $0506; const FMPI_AUD_CHANNELS      =  $0507; const FMPI_AUD_EMPH          =  $0508; const FMPI_AUD_RIGHTS        =  $0509; const FMPI_AUD_SHIFT         =  $0510; const FMPI_AUD_BAL_L         =  $0511; const FMPI_AUD_BAL_R         =  $0512; const FMPI_AUD_DEFAULTS     =  $1000; const FMPI_AUD_REGISTRY     =  $2000; const FMPI_GRP_TYPE             = $0601; const FMPI_GRP_NB               = $0602; const FMPI_FIFO_FCNTRL        = $0701; const FMPI_FIFO_SIZE        = $0702; const FMPI_FIFO_MAX        = $0703; const FMPI_FIFO_VID_SIZE        = $0704; const FMPI_FIFO_AUD_SIZE        = $0705; const FMPI_FIFO_START        = $0706; const FMPI_FIFO_LOW        = $0707; const FMPI_FIFO_HIGH        = $0708; const FMPI_FIFO_DROP        = $0709; const FMPI_FIFO_UNIT        = $070A; const FMPI_PUSH_ASYNC        = $0801; const FMPI_PUSH_SYNC            = $0802; const FMPI_OVLY_XOFFSET        = $0901; const FMPI_OVLY_YOFFSET        = $0902; const FMPI_OVLY_VGACORRECTION   = $0903; const FMPI_OVLY_STABILITY       = $0904; const FMPI_OVLY_HFREQUENCY      = $0905; const FMPI_OVLY_USEDEFAULTFREQ = $0906; const FMPI_OVLY_COLOR_SETTING = $0907; const FMPI_OVLY_LOWERLEVEL = $0908; const FMPI_OVLY_UPPERLEVEL = $0909; const FMPI_OVLY_DELTA_CALIBRATE = $090A; const FMPI_OVLY_COLOR_CALIBRATION  = $090B; const FMPI_OVLY_DEFAULTS     = $1000; const FMPI_OVLY_REGISTRY     = $2000; const FMPI_UPD_PALETTE       = $0001; const FMPI_UPD_VGA_MODE      = $0007; const FMPI_UPD_FRAME_POS     = $0008; const FMPI_UPD_FRAME_SIZE    = $0009; const FMP_MIN_AUD_VOLUME = 0; const FMP_MAX_AUD_VOLUME = 100; const FMP_DEF_AUD_VOLUME = 50; const FMP_MIN_BSC = 0; const FMP_MAX_BSC = 1000; const FMP_DEF_BSC = 500; const FMP_CAPABILITY_BORDER_ADJUST    = $0001; const FMP_CAPABILITY_KEYCOLOR_ADJUST  = $0002; const FMP_CAPABILITY_BSC_ADJUST      = $0004; const FMP_MIN_COLOR_LEVEL      = $00000000; const FMP_MEDIUM_COLOR_LEVEL      = $00808080; const FMP_MAX_COLOR_LEVEL      = $00FFFFFF; const FMP_MEDIUM_COLOR      = $80; const FMP_LOWER_RED      = $01; const FMP_LOWER_GREEN      = $02; const FMP_LOWER_BLUE      = $04; const FMP_UPPER_RED      = $10; const FMP_UPPER_GREEN      = $20; const FMP_UPPER_BLUE      = $40; const SET_VGA      = 1; const SET_TV      = 0; const MAXFILENAME     =  256;    // maximum length of file pathname const MAXCUSTFILTER   =  40;     // maximum size of custom filter buffer const MAX_BUF_SIZE    =  40960;   // maximum buffer size (< 65534)(multiple of 1024) const MAX_BUF_NUMBER  =  20; // maximum number of buffers to use {-------------------------  FMP Structures  ---------------------} Type   COLORREF = DWORD; Type   PFMP_OPEN_STRUCT = ^TFMP_OPEN_STRUCT;   TFMP_OPEN_STRUCT = record lpFileName: LPTSTR; dwCallBack: DWORD;         Reserved  : array[0..7] of Byte;   end;   PFMP_PUSH_STRUCT = ^TFMP_PUSH_STRUCT;   TFMP_PUSH_STRUCT = record     dwSize  : DWORD;     lpBuffer: Pointer;   end;   PBuffer = ^Byte;   PBuf= ^TBuf;   TBuffer = array[0..MAX_BUF_NUMBER - 1] of PBuffer;   TBuf = record     hFile : THandle;     dwSize: DWORD;     wIndex: WORD;     Buffer: TBuffer;     BufferIndex: array[0..MAX_BUF_NUMBER- 1] of DWord;     end;       PFMP_COLOR_SETTING_STRUCT = ^FMP_COLOR_SETTING_STRUCT;   FMP_COLOR_SETTING_STRUCT = record     RGBColorKey: COLORREF;     RGBUpper   : COLORREF;     RGBLower   : COLORREF;     Mask       : Short;   end; var   hReelDrv: HDRVR;         // RealMagic Driver Handle function FMPOpenDriver: integer; procedure FMPCloseDriver; function FMPCommand(Command: Byte; hMPEGStream: Byte; Flags: WORD; Value: DWORD)

WORD; function FMPGetLastError(a: Word): DWORD; function FMPOpen(Flags: WORD; Filename: DWORD): DWORD; function FMPClose(hStream: Byte)

WORD; function FMPSet(hStream: Byte; Index: WORD; Value: DWORD): DWORD; function FMPGet(hStream: Byte; Index: WORD)

WORD; function FMPPlay(hStream: Byte; Flags: WORD; Position: DWORD): DWORD; function FMPStep(hStream: Byte; Flags: WORD; Position: DWORD): DWORD; function FMPCapture(hStream: Byte; Index: WORD; Position: DWORD): DWORD; function FMPSeek(hStream: Byte; Flags: WORD; Position: DWORD): DWORD; function FMPSignal(hStream: Byte; Flags: WORD; Position: DWORD): DWORD; function FMPPause(hStream: Byte)

WORD; function FMPStop(hStream: Byte)

WORD; function FMPGroup(hStream: Byte; Flags: WORD; Value: DWORD): DWORD; function FMPCallback(hStream: Byte; Value: DWORD): DWORD; function FMPFreeze(hStream: Byte; Flags: WORD; Value: DWORD): DWORD; implementation {-------------------------------------------------------------- *   FUNCTION    :   FMPOpenDriver() *   DESCRIPTION :   Opens IMPEG32.DLL *   RETURN      :   non-zero if successful, 0 if failed. ---------------------------------------------------------------} function FMPOpenDriver: integer; const   szDriverName  = 'reeldrv';   szSectionName = 'Drivers32'; begin   hReelDrv:= OpenDriver(szDriverName, szSectionName, 0);   Result  := hReelDrv; end; {-------------------------------------------------------------- *   procedure   :   FMPCloseDriver() *   DESCRIPTION :   Closes IMPEG32.DLL *   RETURN      :   NONE ---------------------------------------------------------------} procedure FMPCloseDriver; begin   CloseDriver(hReelDrv,0,0);   hReelDrv:= 0; end; {-------------------------------------------------------------- *   FUNCTION    :   FMPCommand() *   DESCRIPTION :   This function interfaces with the FMP MPEG support driver *                   and sends out the requested command. *   RETURN      :   value from SendDriverMessage ------------------------------------------------------------------} function FMPCommand(Command: Byte; hMPEGStream: Byte; Flags: WORD; Value: DWORD)

WORD; begin   Result:= SendDriverMessage(hReelDrv,DRV_USER+1,   MakeLParam(MakeWord(Command,hMPEGStream),Flags),Value); end; {----------------------------------------------------------------- *   FUNCTION    :   FMPGetLastError() *   DESCRIPTION :   Returns last command error code. *   RETURN      :   last REALmagic command error code ------------------------------------------------------------------} function FMPGetLastError(a: Word): DWORD; begin   Result:= SendDriverMessage(hReelDrv, DRV_USER + 2, a, 0); end; function FMPOpen(Flags: WORD; Filename: DWORD): DWORD; begin   Result:= FMPCommand(FMP_OPEN, 0, Flags, Filename); end; function FMPClose(hStream: Byte)

WORD; begin   Result:= FMPCommand(FMP_CLOSE, hStream, 0, 0) end; function FMPSet(hStream: Byte; Index: WORD; Value: DWORD): DWORD; begin   Result:= FMPCommand(FMP_SET, hStream, Index, Value); end; function FMPGet(hStream: Byte; Index: WORD)

WORD; begin   Result:= FMPCommand(FMP_GET, hStream, Index, 0); end; function FMPPlay(hStream: Byte; Flags: WORD; Position: DWORD): DWORD; begin   Result:= FMPCommand(FMP_PLAY, hStream, Flags, Position); end; function FMPStep(hStream: Byte; Flags: WORD; Position: DWORD): DWORD; begin   Result:= FMPCommand(FMP_STEP, hStream, Flags, Position); end; function FMPCapture(hStream: Byte; Index: WORD; Position: DWORD): DWORD; begin   Result:= FMPCommand(FMP_CAPTURE, hStream, Index, Position); end; function FMPSeek(hStream: Byte; Flags: WORD; Position: DWORD): DWORD; begin   Result:= FMPCommand(FMP_SEEK, hStream, Flags, Position); end; function FMPSignal(hStream: Byte; Flags: WORD; Position: DWORD): DWORD; begin   Result:= FMPCommand(FMP_SIGNAL, hStream, Flags, Position); end; function FMPPause(hStream: Byte)

WORD; begin   Result:= FMPCommand(FMP_PAUSE, hStream, 0, 0); end; function FMPStop(hStream: Byte)

WORD; begin   Result:= FMPCommand(FMP_STOP, hStream, 0, 0); end; function FMPGroup(hStream: Byte; Flags: WORD; Value: DWORD): DWORD; begin   Result:= FMPCommand(FMP_GROUP, hStream, Flags, Value); end; function FMPCallback(hStream: Byte; Value: DWORD): DWORD; begin   Result:= FMPCommand(FMP_CALLBACK, hStream, FMPF_PASCAL, Value); end; function FMPFreeze(hStream: Byte; Flags: WORD; Value: DWORD): DWORD; begin   Result:= FMPCommand(FMP_FREEZE, hStream, Flags, Value); end; end. //-----------------------------------------------------------------------------

snqy · 2004-02-29

虽然我还没有验证您的答案,但您的诚挚也应该接受我的敬意!

关于DLL调用及Vod开发的问题!(800分)(80分)

snqy

Unregistered / Unconfirmed

qince

Unregistered / Unconfirmed

snqy

Unregistered / Unconfirmed

qince

Unregistered / Unconfirmed

snqy

Unregistered / Unconfirmed

qince

Unregistered / Unconfirmed

qince

Unregistered / Unconfirmed

snqy

Unregistered / Unconfirmed

Similar threads