• 全部
  • API 调用
  • 基础类
  • 控件与界面
  • 数据库相关
  • DataWindow
  • 项目管理
  • Web 应用
  • 脚本语言

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

飞扬残月 2008-02-27 03:13:59
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中报错
怎么解决这个问题啊
...全文
78 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
feixianzhi 2008-03-13
注意引用时的大小写、参数的传递方式、参数类型!
回复
xiaoHitler 2008-03-09
PB申明中注意大小写试试,setpic
回复
moonlighter 2008-03-01
你的Dephi的setpic(AOwner:TComponent;fromfile:pchar);是两个参数啊,PB中怎么申明成一个参数了?
回复
moonlighter 2008-03-01
问题是第一个参数怎么传?它是Dephi的一个在,在PB中这个参数怎么定义?而且它一定是引用型,应加ref的。
Dephi已有两年多没使用了,全忘了。
回复
飞扬残月 2008-03-01
申明成两个也不行
回复
SKY_4K_PPM 2008-03-01
没玩过DELPHI ,如果是楼上所说,楼主真该...........
回复
相关推荐
发帖
PowerBuilder
创建于2007-09-28

864

社区成员

PowerBuilder 相关问题讨论
申请成为版主
帖子事件
创建了帖子
2008-02-27 03:13
社区公告
暂无公告