① delphi 的dll里边调用另外一个dll方法，新手怎么解决
delphi 的dll里面调用另外一个dll方法，新手大家好，我是这两天刚开始接触的delphi，前几天我们公司有个接口要做，要调用别人公司已经封装好的DLL文件，之前我是用PB做开发的，但别人提供的DLL传值跟反值都是对象、类，PB支持不好，后来别人说可以用delphi再封装一个DLL，于是就有了我现在遇到的问题，我用的是delphi7.0，下面是我创建的DLL Wizard，代码如下：library tkrsdll;uses SysUtils, InvokeRegistry, Types, XSBuiltIns, Classes;type MedCardCheckInfo = class private FmedCardNo: WideString; published property medCardNo: WideString read FmedCardNo write FmedCardNo; end; CardCheckReplyInfo = class private FTKFlag: WideString; published property TKFlag: WideString read FTKFlag write FTKFlag; end;{$R *.res}//接口函数声明function CheckMedCard(const mMedCardCheckInfo: MedCardCheckInfo): CardCheckReplyInfo; stdcall;external 'TKShell.dll';//自己重写的函数方法function CheckMedCardA(code:WideString):WideString;stdcall;var mUserInfo:MedCardCheckInfo;
② 在Delphi里面如何使用DLL
Delphi制作DLL一 Dll的制作一般步骤二 参数传递三 DLL的初始化和退出清理[如果需要初始化和退出清理]四 全局变量的使用五 调用静态载入六 调用动态载入七 在DLL建立一个TForM八 在DLL中建立一个TMDIChildForM九 示例：十 Delphi制作的Dll与其他语言的混合编程中常遇问题：十一 相关资料一 Dll的制作一般分为以下几步：1 在一个DLL工程里写一个过程或函数2 写一个Exports关键字，在其下写过程的名称。不用写参数和调用后缀。二 参数传递1 参数类型最好与window C++的参数类型一致。不要用DELPHI的数据类型。2 最好有返回值[即使是一个过程]，来报出调用成功或失败，或状态。成功或失败的返回值最好为1[成功]或0[失败].一句话，与windows c++兼容。3 用stdcall声明后缀。4 最好大小写敏感。5 无须用far调用后缀，那只是为了与windows 16位程序兼容。三 DLL的初始化和退出清理[如果需要初始化和退出清理]1 DLLProc[SysUtils单元的一个Pointer]是DLL的入口。在此你可用你的函数替换了它的入口。但你的函数必须符合以下要求[其实就是一个回调函数]。如下：procere DllEnterPoint(dwReason: DWORD);far;stdcall;dwReason参数有四种类型：DLL_PROCESS_ATTACH:进程进入时DLL_PROCESS_DETACH进程退出时DLL_THREAD_ATTACH 线程进入时DLL_THREAD_DETACH 线程退出时在初始化部分写: DLLProc := @DLLEnterPoint; DllEnterPoint(DLL_PROCESS_ATTACH);2 如Form上有TdcomConnection组件,就Uses Activex,在初始化时写一句CoInitialize (nil);3 在退出时一定保证DcomConnection.Connected := False,并且数据集已关闭。否则报地址错。四 全局变量的使用在widnows 32位程序中，两个应用程序的地址空间是相互没有联系的。虽然DLL在内存中是一份，但变量是在各进程的地址空间中，因此你不能借助dll的全局变量来达到两个应用程序间的数据传递，除非你用内存映像文件。五 调用静态载入1 客户端函数声名:1)大小写敏感。2)与DLL中的声明一样。 如： showform(form:Tform);Far;external'yproject_dll.dll';3)调用时传过去的参数类型最好也与windows c++一样。4)调用时DLL必须在windows搜索路径中，顺序是：当前目录；Path路径；windows;widows\system;windows\ssystem32;六 调用动态载入1 建立一种过程类型[如果你对过程类型的变量只是一个指针的本质清楚的话，你就知道是怎么回事了]。如：type mypointer=procere(form:Tform);Far;external;var Hinst:Thandle; showform:mypointer;begin Hinst:=loadlibrary('yproject_dll');//Load一个Dll,按文件名找。 showform:=getprocaddress(Hinst,'showform');//按函数名找，大小写敏感。如果你知道自动化对象的本质就清楚了。 showform(application.mainform);//找到函数入口指针就调用。 Freelibrary(Hinst);end;七 在DLL建立一个TForM1 把你的Form Uses到Dll中，你的Form用到的关联的单元也要Uses进来[这是最麻烦的一点，因为你的Form或许Uses了许多特殊的单元或函数]2 传递一个Application参数，用它建立Form.八 在DLL中建立一个TMDIChildForM1 Dll中的MDIForm.FormStyle不用为fmMDIChild.2 在CreateForm后写以下两句：function ShowForm(mainForm:TForm):integer;stdcallvar Form1: TForm1; ptr:PLongInt;begin ptr:[email protected](Application.MainForm);//先把dll的MainForm句柄保存起来，也无须释放，只不过是替换一下 ptr^:=LongInt(mainForm);//用主调程序的mainForm替换DLL的MainForm。MainForm是特殊的WINDOW，它专门管理Application中的Forms资源.//为什么不直接Application.MainForm := mainForm,因为Application.MainForm是只读属性 Form1:=TForm1.Create(mainForm);//用参数建立end;备注：参数是主调程序的Application.MainForm九 示例：DLL源代码：library Project2;uses SysUtils, Classes, Dialogs, Forms, Unit2 in 'Unit2.pas' {Form2};{$R *.RES}var ccc: Pchar;procere OpenForm(mainForm:TForm);stdcall;var Form1: TForm1; ptr:PLongInt;begin ptr:[email protected](Application.MainForm); ptr^:=LongInt(mainForm); Form1:=TForm1.Create(mainForm);end;procere InputCCC(Text: Pchar);stdcall;begin ccc := Text;end;procere ShowCCC;stdcall;begin ShowMessage(String(ccc));end;exports OpenForm; InputCCC, ShowCCC;beginend.调用方源代码：unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Edit1: TEdit; procere Button1Click(Sender: TObject); procere Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.DFM}procere OpenForm(mainForm:TForm);stdcall;External'project2.dll';procere ShowCCC;stdcall;External'project2.dll';procere InputCCC(Text: Pchar);stdcall;External'project2.dll';procere TForm1.Button1Click(Sender: TObject);var Text: Pchar;begin Text := Pchar(Edit1.Text);// OpenForm(Application.MainForm);//为了调MDICHILD InputCCC(Text);//为了实验DLL中的全局变量是否在各个应用程序间共享end;procere TForm1.Button2Click(Sender: TObject);begin ShowCCC;//这里表明WINDOWS 32位应用程序DLL中的全局变量也是在应用程序地址空间中，16位应用程序或许不同，没有做实验。end;
③ delphi如何调用DLL
所谓的静态调用DLL是指程序加载的时候直接就把需要的DLL全部加载了，一直到程序运行结束才释放这些加载的DLL这个就是所谓的静态加载,动态加载就是需要一个DLL中某个函数的时候加载这个DLL运行完成了这个函数就释放DLL，这个就是动态加载！ 你要静态加载DLL就用Delphi自己写一个DLL，并且写一个引出库(*.pas的)，然后在你的应用程序中包含这个*.pas就根本不用声明DLL中那些乱七八糟的引出函数，直接用就可以了，如果该DLL不存在，那么整个应用程序将无法使用，但是动态调用DLL就不同了，就算DLL不在，应用程序仍然可以使用 访问DLL库有两种方式，一种是静态引用，另一种是动态引用。 用静态引用这种方法装入DLL要做两件事情：为DLL 库创建一个输入单元，以及用USES把输入单元连接到要使用DLL 函数的程序模块中。为DLL库创建的输入单元与普通的单元的区别仅在于：在它的接口处声明的过程、函数，并不在它的实现部分给出真正的实现代码，而是用external关键字把过程、函数的实现细节委托给外部DLL模块。 external命令的使用语法如下： procere /function 过程/函数名；external DLL模块名； 下面给出为上面创建的minmax.DLL库写的输入单元源文件testdll .pas，从中可看出输入单元 与一般 单元的一些差别，代码如下所示： unit testdll; interface uses function Min (X, Y: Integer): Integer; function Max (X, Y: Integer): Integer; implementation function Min; external ‘minmax.DLL’; function Max; external ‘minmax.DLL’; end. 一个应用程序若想调用minmax.DLL中的函数，只须在其uses语句中加入testdll 单元即可。 动态装入DLL，要用到Windows的三个API函数。Loadlibrary、Freelibrary和GetprocAddress 。loadlibrary函数用来装入DLL库，其调用格式如下： function loadlobrary (DLLfileName：Pchar): THandle: 当不再需要一个DLL库时，应调用FreeLibrary函数将其释放，以空出宝贵的内存资源，其调用格式如下： procere FreeLibrary (Libmole:THandle) Libmole 为由LoadLibrary调用得到的DLL库句柄。在用loadlobrary 函数装入某个DLL库和调用FreeLibrary释放该DLL库之间的程序段中， 可以使用该DLL库中的过程和函数， 具体使用方法是：用GetprocAddress函数把DLL库中函数的地址传递给程序中某个函数变量，再用该变量实现DLL函数的调用。GetprocAddress函数声名如下， function GetprocAddress (Libmole:THandle:procname:pchar):TFarProc: 如下例所示： type TTimeRec = record Second: Integer; Minute: Integer; Hour: Integer; end; TGetTime = procere(var Time: TTimeRec); THandle = Integer; var Time: TTimeRec; Handle: THandle; GetTime: TGetTime; … begin Handle := LoadLibrary('DATETIME.DLL'); if Handle <> 0 then begin @GetTime := GetProcAddress(Handle, 'GetTime'); if @GetTime <> nil then begin GetTime(Time); with Time do WriteLn('The time is ', Hour, ':', Minute, ':', Second); end; FreeLibrary(Handle); end; end; 在调用动态链接库时应注意， 所需动态链接库须与应用程序在同一目录或Windows System 目录下。 静态调用 Function fun(para:Longint):Longint; stdcall; external 'xxx.dll'; 动态调用 loadlibrary,getprocaddress,freelibrary三个函数
④ Delphi中如何建立dll(动态链接库)
procere TForm1.Button1Click(Sender: TObject);vari,j,c,d,e:integer;a:string;b:char;begin e:=0; //数字初始化 edit2.text规定数字 i:=length(memo1.Lines[0]); //memo第一行数字个数，0可用strtoint(edit2.text)-1代替，即选定第几行 for j:=1 to i do //循环 begin a:=(memo1.Lines[0],j,1); //逐个数字挑出来 string型 b:=a[1]; //转换成字符型 char型 c:=integer(b); //转换成ascii码值 integer型 d:=c-48; //数字的ascii码值-48(0的ascii码值)=数字本身 e:=e+d; //数字累加 end; edit1.Text:=inttostr(e); //显示在edit文本中end;procere TForm1.Memo1KeyPress(Sender: TObject; var Key: Char); //规定数字begin if not (key in ['0'..'9',#8,#13]) then begin showmessage('输入数字'); key:=#0; end else begin end;end;
⑤ delphi 的dll里边调用另外一个dll方法，新手怎么解决
动态加载吧，LoadLibrarytype TCircleAreaFunc = function (const radius: double) : double; stdcall; var dllHandle : cardinal; circleAreaFunc : TCircleAreaFunc; begin dllHandle := LoadLibrary('circle.dll') ; if dllHandle <> 0 then begin @circleAreaFunc := GetProcAddress(dllHandle, 'CircleArea') ; if Assigned (circleAreaFunc) then circleAreaFunc(15) ; //call the function else ShowMessage('"CircleArea" function not found') ; FreeLibrary(dllHandle) ; end else begin ShowMessage('circle.dll not found / not loaded') ; end; end;
⑥ delphi 如何实现只调用 不同版本的shell32.dll 里面的shellExcetue 这个方法。
'shell3261760117859.dll' 是‘shell32.dll ’重命名来的？如果你是要使用shell32.dll里面的函数，那就不许要自己声明了，shell32.dll 所包含的函数Delphi已经声明过了。在单元引用部分加入"ShellAPI"然后就可以直接使用ShellExecute函数了
⑦ delphi7中如何引入外部的dll文件
1. 首先将dll文件放抄到运行程序袭目录下面，或是是windows\system32 下面。2. 在 unit 里，引入dll中的函数（使用哪个函数就引入哪个），示例如下：implementation{$R *.DFM}procere init;stdcall;External 'test.dll'; //在此声明引入dll函数，注意dll与程序在同一路径下
⑧ delphi如何调用不同dll文件中的相同名称function
functionc_a():Integer;stdcall;external'a.dll'name'c';functionc_b():Integer;stdcall;external'b.dll'name'c';
⑨ dll是什么文件的格式，是干什么用的，用什么打开
DLL文件即动态链接库文件，是一种可执行文件，它允许程序共享执行特殊任务所必需的代码和其他资源。Windows提供的DLL文件中包含了允许基于Windows的程序在Windows环境下操作的许多函数和资源。 DLL多数情况下是带有DLL扩展名的文件，但也可能是EXE或其他扩展名。它们向运行于Windows操作系统下的程序提供代码、数据或函数。程序可根据DLL文件中的指令打开、启用、查询、禁用和关闭驱动程序。 DLL的全称是Dynamic Link Library, 中文叫做“动态链接文件”。在Windows操作系统中, DLL对于程序执行是非常重要的, 因为程序在执行的时候, 必须链接到DLL文件, 才能够正确地运行。而有些DLL文件可以被许多程序共用。因此, 程序设计人员可以利用DLL文件, 使程序不至于太过巨大。但是当安装的程序越来越多, DLL文件也就会越来越多, 如果当你删除程序的时候, 没有用的DLL文件没有被删除的话, 久而久之就造成系统的负担了。 DLL是动态连接库。使用动态连接库的一些好处是： 1.多个应用程序共享代码和数据：比如Office软件的各个组成部分有相似的外观和功能，这就是通过共享动态连接库实现的。 2.在钩子程序过滤系统消息时必须使用动态连接库。 3.动态连接库以一种自然的方式将一个大的应用程序划分为几个小的模块，有利于小组内部成员的分工与合作。而且，各个模块可以独立升级。如果小组中的一个成员开发了一组实用例程，他就可以把这些例程放在一个动态连接库中，让小组的其他成员使用。 4.为了实现应用程序的国际化，往往需要使用动态连接库。使用动态连接库可以将针对某一国家、语言的信息存放在其中。对于不同的版本，使用不同的动态连接库。在使用AppWizard生成应用程序时，我们可以指定资源文件使用的语言，这就是通过提供不同的动态连接库实现的。 VC++、C++ Builder、Delphi都可以编写DLL文件。Visual Basic 5.0以上版本也可以编写一种特殊的DLL，即ActiveX DLL。 DLL不是独立运行的程序，它是某个程序的一个部分，它只能由所属的程序调用。用户不能，也不需要打开它。 系统中有许多DLL动态链接库文件，它们一般存放在系统盘下Windows\System32文件夹中，当运行某一程序时将会调用相应的DLL文件。而由于DLL文件是可以被多个程序共享的，所以当卸载或安装一些程序时，很容易将其一起卸载掉或进行不正确的修改操作。如果在试图打开系统信息程序，来查看系统状态时出现没有找到就说明.DLL文件已丢失了，解决这类故障的一般方法如下：比如:MFC42u.DLL文件的提示错误的解决方法!首先，在Windows XP的安装光盘中查找是否有MFC42u.DLL文件，如果有直接将该文件复制到Windows\System32文件夹中即可。如果是压缩格式的(类似上例中的rundll32.ex_文件)，那么可使用expand命令将光盘中的文件解压到System32文件夹中。 如果找不到MFC42u.DLL文件，也找不到其压缩格式(本例正是这种情况)，那么这时在微软的搜索页面(网址为： http://search.microsoft.com/search/search.aspx?st=b&na=80&qu=&View=zh-cn) 输入“MFC42u.DLL”作为搜索关键字进行搜索，然后打开相关的搜索页面查看相关内容。根据打开的页面提示内容，要想获得这个MFC42u.Dll文件，我们可以安装微软开发的Vcredist.exe程序来获得。这样下载并安装该程序后，可在其安装文件夹中找到MFC42u.DLL文件，将其复制到System32文件夹中即可。 如果你觉得这样比较麻烦，那么可到一些专业DLL文件下载网站进行下载，比如 http://www.2dll.com ，这样只要在网页中找到相应的下载链接并将其下载到相应的文件夹中即可修复。当然，如果有条件也可以在其它电脑上复制相关的文件来修复。 小提示：有些DLL文件复制到相应的目录后还需要进行注册，假如System32文件夹中的abc.dll文件需要系统进行注册认证，这时可在运行窗口中执行“regsvr32 c:\windows\system32\abc.dll”命令，进行组件的注册操作即可.
