在delphi 中写了个dll，在pb9.0中调用要出错，请大家帮我看看是什么原因？

[飞扬残月]

delphi中代码：
library Project1;

uses
SysUtils,
Classes,
ExtCtrls,
Jpeg,
Graphics;

{$R *.res}
procedure setpic(AOwner:TComponent;fromfile:pchar);stdcall;
var
Jpeg:TjpegImage;
tmpBmp:TBitmap;
image1:TImage;
image2:TImage;
begin
image1:= TImage.Create(AOwner);
image2:= TImage.Create(AOwner);
jpeg:=TjpegImage.Create();
tmpBmp:=TBitmap.Create;
try
image1.picture.LoadFromFile(fromfile);
Image2.Height:= 425;//新图像高度
Image2.Width := 512;//新图像宽度
Image2.Canvas.StretchDraw(Image2.ClientRect,Image1.Picture.Graphic);
image2.picture.savetofile(fromfile);
tmpbmp.loadfromfile(fromfile);
jpeg.Assign(tmpbmp);
jpeg.SaveToFile(fromfile);
finally;
Image1.Free;
Image2.Free;
jpeg.Free;
tmpbmp.Free;
end;
end;

exports
setpic;
begin
end.
pb中申明：SUBROUTINE SetPic(string fromfile) Library "project1.dll" Alias
For "setpic;ansi"//申明function也不行
pb中调用，setpic(ls_pathname)
pb中报错
怎么解决这个问题啊

[SKY_4K_PPM]

没玩过DELPHI ，如果是楼上所说，楼主真该...........

[飞扬残月]

申明成两个也不行

[moonlighter]

问题是第一个参数怎么传？它是Dephi的一个在，在PB中这个参数怎么定义？而且它一定是引用型，应加ref的。
Dephi已有两年多没使用了，全忘了。

[moonlighter]

你的Dephi的setpic(AOwner:TComponent;fromfile:pchar);是两个参数啊，PB中怎么申明成一个参数了？

[xiaoHitler]

PB申明中注意大小写试试，setpic

[feixianzhi]

注意引用时的大小写、参数的传递方式、参数类型！