当前位置：首页 > Java

delphi如何调用java

2026-03-21 14:00:47Java

Delphi 调用 Java 的方法

使用 JNI (Java Native Interface)

JNI 是 Java 提供的标准接口，允许其他语言（如 Delphi）调用 Java 代码。需要编写 Java 代码并生成动态链接库（DLL），供 Delphi 调用。

Java 代码示例：

public class HelloWorld {
    public static String sayHello() {
        return "Hello from Java!";
    }
}

编译并生成头文件：

javac HelloWorld.java
javah -jni HelloWorld

Delphi 调用示例：

function sayHello: PAnsiChar; stdcall; external 'HelloWorld.dll';
begin
  WriteLn(sayHello());
end.

使用 Java 桥接技术（如 JNA）

Java Native Access (JNA) 简化了 JNI 的使用，无需生成头文件。Delphi 可以通过调用 JNA 提供的接口直接访问 Java 方法。

Delphi 示例：

type
  TJavaMethod = function: PAnsiChar; stdcall;
var
  JavaMethod: TJavaMethod;
begin
  JavaMethod := GetProcAddress(LoadLibrary('jna.dll'), 'JavaMethod');
  WriteLn(JavaMethod());
end.

使用 TCP/IP 通信

通过 Socket 或 HTTP 协议实现 Delphi 与 Java 的通信。Java 端作为服务端，Delphi 作为客户端发送请求并接收响应。

delphi如何调用java

Java 服务端示例：

ServerSocket server = new ServerSocket(8080);
Socket client = server.accept();
PrintWriter out = new PrintWriter(client.getOutputStream(), true);
out.println("Hello from Java");

Delphi 客户端示例：

var
  Client: TIdTCPClient;
begin
  Client := TIdTCPClient.Create(nil);
  try
    Client.Host := 'localhost';
    Client.Port := 8080;
    Client.Connect;
    WriteLn(Client.IOHandler.ReadLn);
  finally
    Client.Free;
  end;
end.

使用 COM/ActiveX 技术

将 Java 代码封装为 COM 组件，Delphi 通过 COM 接口调用。需要借助 Jacob（Java COM Bridge）等工具实现。

Java 示例（使用 Jacob）：

delphi如何调用java

public class ComComponent {
    public String getMessage() {
        return "Hello from Java COM";
    }
}

Delphi 调用示例：

var
  ComObj: Variant;
begin
  ComObj := CreateOleObject('JavaComComponent');
  WriteLn(ComObj.getMessage);
end.

使用 Web 服务（REST/SOAP）

Java 端提供 REST 或 SOAP 接口，Delphi 通过 HTTP 请求调用。适用于跨平台或分布式场景。

Java REST 示例（Spring Boot）：

@RestController
public class HelloController {
    @GetMapping("/hello")
    public String hello() {
        return "Hello from Java REST";
    }
}

Delphi 调用示例（使用 TRESTClient）：

var
  RESTClient: TRESTClient;
  Response: TRESTResponse;
begin
  RESTClient := TRESTClient.Create('http://localhost:8080/hello');
  Response := RESTClient.Get;
  WriteLn(Response.Content);
end.