如何在java中使用jna.jar调用Delphi写的dll
1个回答
2017-07-23 · 百度知道合伙人官方认证企业
育知同创教育
1【专注：Python+人工智能|Java大数据|HTML5培训】 2【免费提供名师直播课堂、公开课及视频教程】 3【地址：北京市昌平区三旗百汇物美大卖场2层，微信公众号：yuzhitc】
向TA提问
关注
![]()
展开全部
//delphi代码
procedure Hello(); stdcall;
begin
// Writeln('Hello');
ShowMessage('Hello');
end;
procedure HelloInt(i: integer); stdcall;
begin
ShowMessage('Hello'+ IntToStr(i));
end;
procedure HelloRRR(var i: integer); stdcall;
begin
ShowMessage('Hello'+ IntToStr(i));
i := 999;
end;
function HelloStr(str: Integer): Integer; stdcall;
var
s: string;
begin
Result := -1;
s := IntToStr(str);
// Writeln('Hello'+s);
ShowMessage('Hello'+s);
// s := '44034479041101200025318.xml';
str := 100;//PChar(s);
Result := 0;
end;
procedure Hello(); stdcall;
begin
// Writeln('Hello');
ShowMessage('Hello');
end;
procedure HelloInt(i: integer); stdcall;
begin
ShowMessage('Hello'+ IntToStr(i));
end;
procedure HelloRRR(var i: integer); stdcall;
begin
ShowMessage('Hello'+ IntToStr(i));
i := 999;
end;
function HelloStr(str: Integer): Integer; stdcall;
var
s: string;
begin
Result := -1;
s := IntToStr(str);
// Writeln('Hello'+s);
ShowMessage('Hello'+s);
// s := '44034479041101200025318.xml';
str := 100;//PChar(s);
Result := 0;
end;
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
