如何在java中使用jna.jar调用Delphi写的dll
展开全部
不太明白你的意思,是不是在Java里面调用C++写的DLL? 如果那个DLL不是专门为Java调用而编写的话,就需要用JNI再写一个DLL,在那里面调用你原有的DLL。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2017-01-14 · 百度知道合伙人官方认证企业
育知同创教育
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;
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询