简单调用动态链接库出错

[dyonggan]

//生成动态链接库单元
library Example;

uses
SysUtils,
Classes;

{返回字符在串中的位置}
function InStr(SourceStr:PChar;Ch:Char):Integer;export;stdcall;//动态链接库函数
var
Len,i:integer;
begin
Len := strLen(SourceStr);
for i := 0 to Len-1 do
if SourceStr[i]=Ch then
begin
Result := i;
Exit;
end;
Result := -1;
end;
exports
InStr;
begin

end.
.........................................................程序执行单元
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TInStr = function(Source: PChar;Check: Char): Integer;//定义一函数类型

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation

{$R *.dfm}
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
var
order: Integer;
txt: PChar;
PFunc: TFarProc;
Moudle: THandle;
begin
Moudle := Loadlibrary('C:\Documents and Settings\Administrator\桌面\dynamic\Project1.dll');//
if Moudle > 32 then
begin
Edit2.text := '';
Pfunc := GetProcAddress(Moudle,'InStr');//
txt := StrAlloc(80);
txt := StrPCopy(txt,Edit1.text);
Order := TInStr(PFunc)(txt,Key);//
if Order = -1 then
Label1.Caption := '不包含这个字符 '
else
Label1.Caption := '位于第'+IntToStr(Order+1)+'位';
end;
Freelibrary(Moudle);
end;
end.
..................................................主工程单元如下
program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
对于动态调用链接库,上面是一个简单例子。系统一共包含两个编辑框。在第一个编辑框中输入一个字符串,而后在第二个编辑框中输入字符。如果该字符包含在第一个编辑框的字符串中,则标签框显示信息:“位于第n位。”,否则显示信息:“不包含这个字符。”。

问题是每次都报“不包含这个字符”且在关闭后还弹出“Exception EAccessViolation in module Project1.exe at 0001913A Access violation at address 041913A in module 'project1.exe'.”
望各位老师指点迷津，谢谢！

[fangsp]

你Debug一下
看到底是哪出的错啊

[coffeemay]

TInStr = function(Source: PChar;Check: Char): Integer;//定义一函数类型

function InStr(SourceStr:PChar;Ch:Char):Integer;export;stdcall;//动态链接库函数

定义不一致

[dyonggan]

问题是每次都报“不包含这个字符”
为什么不走 Label1.Caption := '位于第'+IntToStr(Order+1)+'位';这个呢？我故意设值让它走这个，它还是不走。
最后一个//下面的错。

[手指风]

mark下,回家再来看解决没

[yuqianyi1974]

这样就好了，测试过了

  TInStr = function(Source: PChar;Check: Char): Integer;stdcall;

[dyonggan]

谢谢yuqianyi1974
就是这个问题，已经解决了。