delphi调用图形识别dll出错!!!!!!!

[aibeyond2003]

delphi 调用图形识别dll总是报地址之类的错误，请大家帮忙看看是什么问题,代码如下:
implementation
function OCR(imgname:string;i:integer):PChar;stdcall;external 'AspriseOCR.dll';
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
vcode:PChar;
filename:string;
begin
filename:='test1.bmp';
vcode:=OCR('e:\poll\demo\test1.bmp',-1);
edit1.Text:=strpas(vcode);
end;

end.

[dinoalex]

初始化pchar

[阿发伯]

function OCR(imgname:string;i:integer):PChar;stdcall;external 'AspriseOCR.dll';
改为：
function OCR(imgname:PChar;i:integer):PChar;stdcall;external 'AspriseOCR.dll';

[aibeyond2003]

回楼上，改了还是报一样的错
access violation at 0x00000000:read of address ox00000000'.

[阿发伯]

那就应该查一下文件路径是否正确、该Dll是否需要调用初始化过程。

[aibeyond2003]

发伯哥，你可不可以加我的QQ:20984958我发份DLL的资料给你帮我看看啊？我昨天测试了一晚上都不行啊！

[dinoalex]

[Code=Delphi(Pascal)]
try
GetMem(Vcode,1024);
Vcode:= OCR('Vcode.png',-1);
Edit1.Text := vcode;
freemem(vcode,1024);
except
on e: Exception do
showmessage(e.Message);
end;

//-------------

try
GetMem(Vcode,1024);
Vcode:= OCR('Vcode.png',-1);
Edit1.Text := vcode;
freemem(vcode,1024);
except // 去掉不返回就行了
end;
[/Code]

[aibeyond2003]

楼上的能把代码贴全么？
先把图片加载到内存？

[dinoalex]

procedure TForm1.Button1Click(Sender: TObject);
var
vcode:PChar;
filename:string;
begin
try
GetMem(Vcode,1024);
Vcode:= OCR('e:\poll\demo\test1.bmp',-1);
Edit1.Text := vcode;
freemem(vcode,1024);
except
// on e: Exception do //这两行不要不提示了
// showmessage(e.Message);
end;
end;

[aibeyond2003]

我改了后，在uses也引用啦 ShareMem还是报错 invalid pointer operation

[dinoalex]

是生成exe后运行exe,不是设计时运行exe

[阿发伯]

[Quote=引用 11 楼 dinoalex 的回复:]
procedure TForm1.Button1Click(Sender: TObject);
var
vcode:PChar;
filename:string;
begin
try
  GetMem(Vcode,1024);
  Vcode:= OCR('e:\poll\demo\test1.bmp',-1);
  Edit1.Text := vcode;
  freemem(vcode,1024);
except
//  on e: Exception do            //这两行不要不提示了
//    showmessage(e.Message);
end;
end;
[/Quote]
呵呵，dinoalex应该是老手了，怎么也疏忽了，即使楼主Dll调用没有错误，加上你这段代码后，非出错不可：
GetMem(Vcode,1024); // Vcode 获得分配内存地址
Vcode:= OCR('e:\poll\demo\test1.bmp',-1); // Vcode指向OCR过程的返回值地址，原分配内存地址丢失
Edit1.Text := vcode;
freemem(vcode,1024); // 这时释放的是OCR过程的返回值地址(不知道是否允许释放)，原分配内存泄露

[aibeyond2003]

回发伯哥，dinoalex的代码在运行时点击button是报错，但直接运行生成的exe是可以正常识别字符的，不加那两句代码根本不能运行。只是我不知道是为什么，还是要谢谢你们各位大哥帮忙，祝你们国庆快乐！！！！

[阿发伯]

[Quote=引用 15 楼 aibeyond2003 的回复:]
回发伯哥，dinoalex的代码在运行时点击button是报错，但直接运行生成的exe是可以正常识别字符的，不加那两句代码根本不能运行。只是我不知道是为什么，还是要谢谢你们各位大哥帮忙，祝你们国庆快乐！！！！

[/Quote]
那是屏蔽了异常（except）的结果，与内存分配和释放无关。

[dinoalex]

嗯,如maozefa所说,是屏蔽了~~

去掉sharemem,试试下面的代码,我这边运行正常

[Code=Delphi(Pascal)]
procedure TForm1.Button1Click(Sender: TObject);
var
vcode: PChar;
s: string;
begin
vcode:= OCR('1.png',-1);
move(vcode,s,length(vcode));
Edit1.Text := s;
end;
[/Code]

[aibeyond2003]

回dinoalex改后的代码：
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
implementation
function OCR(imgname:pchar;i:integer):PChar;stdcall;external 'AspriseOCR.dll';
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
vcode:PChar;
s:string;
begin
//try
//GetMem(Vcode,1024);
//Vcode:= OCR('e:\demo\test.gif',-1);
Vcode:= OCR('test.gif',-1);
move(vcode,s,length(vcode));
Edit1.Text := s;
//freemem(vcode,1024);
//except
//end;
end;

end.

这样还是报地址错，不能运行。
只有getMEM 这种方法在我这边可以成功，我用的是DELPHI7。如果用getmem方法的话freemem失败那么是不是程序执行一次就占用1024内存一直累加下去？

[dinoalex]

怎么会不行呢? 我这边运行可以吖,也许是你的图片有问题..

[noeyes277]

procedure TForm1.Button1Click(Sender: TObject);
var
vcode: PChar;
s: string;
begin
vcode:= OCR('1.png',-1);
if vCode <> nil then
begin
s := strPas(vcode);
Edit1.Text := s;
end;
end;

[aibeyond2003]

回dinoalex你的move方法是可以的，报错是move(vcode,s,length(vcode));这句当图片不能完全识别的时候会出错，我现在把它改成定长就可以啦，没报错啦。谢谢各位帮忙。

[nurmamat319]

我用这个 aspriseocr.dll 怎么不知别 中文字啊 ？ 如何让他知别出 中文字啊 ？

[youyidianmimang]

我知道lz 的问题; 你只复制了 aspriseocr.dll
还有其他两个dll没复制过来