1
11830
Unregistered / Unconfirmed
GUEST, unregistred user!
-------------------------------dll文件开始-----------------------------<br>library testdll;<br><br><br>{ Important note about DLL memory management: ShareMem must be the<br> first unit in your library's USES clause AND your project's (select<br> Project-View Source) USES clause if your DLL exports any procedures or<br> functions that pass strings as parameters or function results. This<br> applies to all strings passed to and from your DLL--even those that<br> are nested in records and classes. ShareMem is the interface unit to<br> the BORLNDMM.DLL shared memory manager, which must be deployed along<br> with your DLL. To avoid using BORLNDMM.DLL, pass string information<br> using PChar or ShortString parameters. }<br><br>uses<br> SysUtils,Classes,Dialogs;<br><br>{$R *.RES}<br>//功能是返回某字符在字符串中的位置<br>function InStr(SourceStr
Char;Ch:Char):Integer;stdcall;<br>var Len,I:Integer;<br>begin<br> Len:=StrLen(SourceStr);<br> for i:=0 to Len-1 do<br> if SourceStr=Ch then<br> begin<br> Result:=i;<br> exit;<br> end;<br> Result:=-1;<br>end;<br><br>exports<br> instr index 1 name 'MyInStr' resident;<br>begin<br>end.<br>-------------------------------dll文件结束-----------------------------<br><br>-------------------------------exe文件开始-----------------------------<br>unit Unit1;<br><br>interface<br><br>uses<br> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,<br> StdCtrls;<br><br>type<br> TForm1 = class(TForm)<br> Edit1: TEdit;<br> Edit2: TEdit;<br> Label1: TLabel;<br> procedure Edit2KeyPress(Sender: TObject; var Key: Char);<br><br> private<br> { Private declarations }<br><br> public<br> { Public declarations }<br> end;<br><br>var<br> Form1: TForm1;<br><br><br><br>implementation<br><br>{$R *.DFM}<br><br>type<br> TinStr=function(sourcechar;check:char):integer; <br>procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);<br>var<br>Order :integer;<br>txtChar;<br>PFunc:TFarProc;<br>Moudle:thandle;<br>begin<br>Moudle:=loadlibrary('D:/dll/testdll.dll');<br>if Moudle>32 then<br> begin<br> Edit2.Text:='';<br> PFunc:=GetProcAddress(Moudle,'instr');<br> txt:=StrAlloc(80);<br> txt:=strpcopy(txt,Edit1.Text);<br>ShowMessage('e');<br> Order:=tInStr(PFunc)(txt,key);<br>ShowMessage('f');<br> if Order=-1 then Label1.Caption:='没有找到这个字符' else Label1.Caption:='位于第'+inttostr(Order+1)+'位';<br> end;<br>FreeLibrary(Moudle);<br>end;<br><br>end.<br>-------------------------------exe文件结束-----------------------------
Char;Ch:Char):Integer;stdcall;<br>var Len,I:Integer;<br>begin<br> Len:=StrLen(SourceStr);<br> for i:=0 to Len-1 do<br> if SourceStr=Ch then<br> begin<br> Result:=i;<br> exit;<br> end;<br> Result:=-1;<br>end;<br><br>exports<br> instr index 1 name 'MyInStr' resident;<br>begin<br>end.<br>-------------------------------dll文件结束-----------------------------<br><br>-------------------------------exe文件开始-----------------------------<br>unit Unit1;<br><br>interface<br><br>uses<br> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,<br> StdCtrls;<br><br>type<br> TForm1 = class(TForm)<br> Edit1: TEdit;<br> Edit2: TEdit;<br> Label1: TLabel;<br> procedure Edit2KeyPress(Sender: TObject; var Key: Char);<br><br> private<br> { Private declarations }<br><br> public<br> { Public declarations }<br> end;<br><br>var<br> Form1: TForm1;<br><br><br><br>implementation<br><br>{$R *.DFM}<br><br>type<br> TinStr=function(sourcechar;check:char):integer; <br>procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);<br>var<br>Order :integer;<br>txtChar;<br>PFunc:TFarProc;<br>Moudle:thandle;<br>begin<br>Moudle:=loadlibrary('D:/dll/testdll.dll');<br>if Moudle>32 then<br> begin<br> Edit2.Text:='';<br> PFunc:=GetProcAddress(Moudle,'instr');<br> txt:=StrAlloc(80);<br> txt:=strpcopy(txt,Edit1.Text);<br>ShowMessage('e');<br> Order:=tInStr(PFunc)(txt,key);<br>ShowMessage('f');<br> if Order=-1 then Label1.Caption:='没有找到这个字符' else Label1.Caption:='位于第'+inttostr(Order+1)+'位';<br> end;<br>FreeLibrary(Moudle);<br>end;<br><br>end.<br>-------------------------------exe文件结束-----------------------------