delphi編寫(xiě)調(diào)用有窗體有返回值的dll的實(shí)現(xiàn)方1

1、1delphi編寫(xiě)調(diào)用有窗體有返回值的編寫(xiě)調(diào)用有窗體有返回值的dll的實(shí)現(xiàn)方法的實(shí)現(xiàn)方法本人使用的本人使用的delphi是5.0版，用版，用delphi編寫(xiě)編寫(xiě)dll工程很簡(jiǎn)單，在新建。工程很簡(jiǎn)單，在新建。。中就有創(chuàng)建。中就有創(chuàng)建Dll的選的選項(xiàng)。在編寫(xiě)項(xiàng)。在編寫(xiě)DLL工程時(shí)，需要注意的包括，工程單元有很大差異，一個(gè)關(guān)鍵字是工程時(shí)，需要注意的包括，工程單元有很大差異，一個(gè)關(guān)鍵字是program，一個(gè)關(guān)鍵字是，一個(gè)關(guān)鍵字是library。

2、dll工程單元中還包括工程單元中還包括expts子句，那些需要提供給其他主叫程子句，那些需要提供給其他主叫程序調(diào)用的過(guò)程，都需要包括在序調(diào)用的過(guò)程，都需要包括在expts中（只是列出函數(shù)的名字，不需要參數(shù)表）中（只是列出函數(shù)的名字，不需要參數(shù)表）。對(duì)于主。對(duì)于主叫方（調(diào)用叫方（調(diào)用dll的應(yīng)用程序或者其他的應(yīng)用程序或者其他dll），則需要在調(diào)用之前進(jìn)行外部聲明，即，則需要在調(diào)用之前進(jìn)行外部聲明，即external保留字指示的聲明。留字指

3、示的聲明。另外需要了解另外需要了解objectpal中有關(guān)調(diào)用協(xié)議的內(nèi)容，在中有關(guān)調(diào)用協(xié)議的內(nèi)容，在objectpal中對(duì)于過(guò)程或函數(shù)有以中對(duì)于過(guò)程或函數(shù)有以下五種調(diào)用協(xié)議：下五種調(diào)用協(xié)議：指示字指示字參數(shù)傳遞順序參數(shù)傳遞順序參數(shù)清除者參數(shù)清除者參數(shù)是否使用寄存器參數(shù)是否使用寄存器register自左向右自左向右被調(diào)例程被調(diào)例程是pal自左向右自左向右被調(diào)例程被調(diào)例程否cdecl自右向左自右向左調(diào)用者調(diào)用者否stdcall自右向左自右向

4、左被調(diào)用例程被調(diào)用例程否safecall自右向左自右向左被調(diào)用例程被調(diào)用例程否這里的指示字就是在聲明函數(shù)或過(guò)程時(shí)附加在例程標(biāo)題之后的保留字，默認(rèn)為這里的指示字就是在聲明函數(shù)或過(guò)程時(shí)附加在例程標(biāo)題之后的保留字，默認(rèn)為register，即，即是唯一使用唯一使用CPU寄存器的參數(shù)傳遞方式，也是傳遞速度最快的方式；寄存器的參數(shù)傳遞方式，也是傳遞速度最快的方式；pal:調(diào)用協(xié)議僅用于向后兼容，即向舊的版本兼容；調(diào)用協(xié)議僅用于向后兼容，即向舊的版本

5、兼容；cdecl:多用于多用于C和C語(yǔ)言編寫(xiě)的例程，也用于需要由調(diào)用者清除參數(shù)的例程；語(yǔ)言編寫(xiě)的例程，也用于需要由調(diào)用者清除參數(shù)的例程；stdcall:和safecall主要用于調(diào)用主要用于調(diào)用WindowsAPI函數(shù)；其中函數(shù)；其中safecall還用于雙重接口。還用于雙重接口?，F(xiàn)在以一個(gè)實(shí)例來(lái)說(shuō)明一個(gè)用現(xiàn)在以一個(gè)實(shí)例來(lái)說(shuō)明一個(gè)用delphi編寫(xiě)的程序如何調(diào)用包含編寫(xiě)的程序如何調(diào)用包含fm窗體窗體dll的程序。的程序。Dll工程：工程

6、：libraryProject2ImptantnoteaboutDLLmemymanagement:ShareMemmustbethefirstunitinyourlibrarysUSESclauseyourprojects(ProjectViewSource)USESclauseifyourDLLexptsanyproceduresfunctionsthatpassstringsasparametersfunctionresults.

7、ThisappliestoallstringspassedtofromyourDLLeventhosethatarenestedinrecdsclasses.ShareMemistheinterfaceunittotheBLNDMM.DLLsharedmemymanagerwhichmustbedeployedalongwithyourDLL.ToavoidusingBLNDMM.DLLpassstringinfmationusingP

8、ShtStringparameters.usesSysUtilsClassesUnit1inUnit1.pasFm1$R.RESexptsExecutenameExecute過(guò)程來(lái)自于過(guò)程來(lái)自于Unit1beginend.——————————————————————————————————————unitUnit1interfaceuses3——————————————————————————————————unitUbtninterf

9、aceusesWindowsMessagesSysUtilsClassesGraphicsControlsFmsDialogsStdCtrlsDbADODBtypeTFm1=class(TFm)adocon:TADOConnectionButton1:TButtonprocedureButton1Click(Sender:TObject)privatePrivatedeclarationspublicPublicdeclarations

10、endfunctionExecute(ApplicHle:TApplicationMainHle:THleAdoObj:TADOConnectionAdoConnectionString:P):booleanstdcallexternalProject2.dllvarFm1:TFm1implementation$R.DFMprocedureTFm1.Button1Click(Sender:TObject)beginexecute(app

11、licationapplication.HleadoconP(adocon.ConnectionString))endend.PB的主程序調(diào)用的主程序調(diào)用DELPHI的DLL，DLL在函數(shù)執(zhí)行完后回傳一個(gè)字符串給在函數(shù)執(zhí)行完后回傳一個(gè)字符串給PB主程序，主程序，DLL里用的是里用的是P類(lèi)型。類(lèi)型。。PB下該怎么接收？下該怎么接收？intRCSectID=15i=1ReadStr[64]intli_data[64]ls_data[64]s